expecting end-of-file

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Subirenihil

RotateImage rotates the actual image, it does not create a rotated duplicate.

You need:

playerright=CopyImage(playerup)
RotateImage playerright,90

playerdown=CopyImage(playerup)
RotateImage playerdown,180

playerleft=CopyImage(playerup)
RotateImage playerleft,270

While Not KeyHit(1)
	Cls
	
	If pldir$="up"
		DrawImage playerup,plx,ply,frame
		ply=ply-6
	ElseIf pldir$="right"
		DrawImage playerright,plx,ply,frame
		plx=plx+6
	ElseIf pldir$="down"
		DrawImage playerdown,plx,ply,frame
		ply=ply+6
	Else
		DrawImage playerleft,plx,ply,frame
		plx=plx-6
	EndIf
	
	Delay 60
	Flip
Wend

End

For obvious reasons, the code above does not actually run (there are a few things that are not in there because they have no bearing on the issue, but that are essential for proper program flow)