Try this:
walk=ExtractAnimSeq(ninja,1,14) While Not KeyHit(1) If Not Animating(ninja) Then Animate ninja,1,walk,10 EndIf MoveEntity ninja,0,0,.25 UpdateWorld RenderWorld Flip Wend