RYU

Códigos para que RYU se desplace de derecha a izquierda y camine

Inicialmente se debe poner X como una variable con Dim X as Intenger en Formato


If KeyCode = 39 then

x= x + 200

If paso = 1 then
Imgryu.picture=loadpicture("c:\ryu\CamDer1.gif")
paso=2
Elseif paso=2 Then
Imgryu.picture=loadpicture("c:\ryu\CamDer2.gif")
paso=3
Elseif paso=3Then
Imgryu.picture=loadpicture("c:\ryu\CamDer3.gif")
paso=4
Elseif paso=4Then
Imgryu.picture=loadpicture("c:\ryu\CamDer4.gif")
paso=1
Endif

Nota: De preferencia, usar las siguientes imágenes con el enlace GIF

Else If KeyCode = 37 Then

x=x-200

If paso = 1 Then
Imgryu.picture=loadpicture("c:\ryu\CamIzq1.gif")
paso=2
Elseif paso=2 Then
Imgryu.picture=loadpicture("c:\ryu\CamIzq2.gif")
paso=3
Elseif paso=3 Then
Imgryu.picture=loadpicture("c:\ryu\CamIzq3.gif")
paso=4
Elseif paso=4 Then
Imgryu.picture=loadpicture("c:\ryu\CamIzq4.gif")
paso=1
Endif

EndIf

ImgRyu.left=x

Al iniciar el programa, nos ubicamos en Formato 

paso=1 

Nota: Las imágenes para la izquierda son las siguientes, usadas con el mismo enlace GIF