Sorry about the slow reply I didnt get time last night to check the forums.
Once again Im at work so I cannot test this but I think I can see the problem.
You need to change the code after your ;Main comment to be:
While Not KeyDown(1)
x=x+ xmove
y=y+ymove
Cls
DrawImage go,xdest,ydest
DrawImage enemy,x,y
x=x+xmove
y=y+ymove
Flip
Wend
;END
I hope that fixes it for you :)
Once again Im at work so I cannot test this but I think I can see the problem.
You need to change the code after your ;Main comment to be:
While Not KeyDown(1)
x=x+ xmove
y=y+ymove
Cls
DrawImage go,xdest,ydest
DrawImage enemy,x,y
x=x+xmove
y=y+ymove
Flip
Wend
;END
I hope that fixes it for you :)