08-05-2004, 05:03 AM
Hey i am makein an RPG and i want to make it so that i can animate the player so it looks like he is walking....is there a tutorial that can teach me how to do that?
CONST spU = 1: CONST spD = 2: CONST spL = 3: CONST spR = 4
SELECT CASE char.direction
CASE KEYUP
char.y = char.y - char.yv
char.sprite = spU
CASE KEYDOWN
char.y = char.y + char.yv
char.sprite = spD
CASE KEYLEFT
char.x = char.x - char.xv
char.sprite = spL
CASE KEYRIGHT
char.x = char.x + char.xv
char.sprite = spR
END SELECT
IF char.x <> char.oldX OR char.y <> char.oldY THEN
char.oldX = char.x
char.oldY = char.y
char.frame = char.frame MOD 10 + 1
END IF
IF char.frame <= 5 THEN
animate = 0
ELSE
animate = 4
END IF
frameToDraw = (char.sprite + animate) * SPRITEOFFSET - SPRITEOFFSET
PUT (char.x, char.y), masks(frameToDraw), AND
PUT (char.x, char.y), sprites(frameToDraw), OR