Message #241170

[shmibs]

EDIT:ninjasked

it's just moving up/down/left/right and remembering the direction the character is facing? i'd structure it differently, with something like this:

Code: Select All | Copy To Clipboard

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

ClrDraw DiagnosticsOff .A=x_pos, B=y_pos, C=direction_faced 0->A->B->C [sprite data, one after another, ordered up, down, left, right stored here]->Pic1 Repeat getkey(15) if getkey(4)-getkey(1) .go up if getkey(4) -1->C B-- end .go down if getkey(1) ->C B++ end end if getkey(2)-getkey(3) .go left if getkey(2) +1->C A-- end .go right if getkey(3) +2->C A++ end end ClrDraw Pt-On(A,B,C*8+Pic1 DispGraph end