Function MoveSprite(Number, Speed#)
If GetSpriteExists(Number)
//Saving the original position
OriginalX# = GetSpriteXByOffset(Number)
OriginalY# = GetSpriteYByOffset(Number)
AddX#=Cos(GetSpriteAngle(Number)-90)*Speed#
AddY#=Sin(GetSpriteAngle(Number)-90)*Speed#*getDisplayAspect()
NewX#=OriginalX#+AddX#
NewY#=(OriginalY#+AddY#)
SetSpritePositionByOffset(Number, NewX#, NewY#)
Else
Print ("Move sprite terminated-Sprite dosn't exist: " + Str(Number))
endif
Endfunction
Function RotateTo(Number, x#, y#)
If GetSpriteExists(Number)
OldX# = GetSpriteXByOffset(Number)
OldY# = GetSpriteYByOffset(Number)
DiffX# = (X# - OldX#)
DiffY# = (Y# - OldY#)*getDisplayAspect()
Angle# = ATanFull(DiffX#, DiffY#)
SetSpriteAngle(Number, Angle#)
Else
Print ("RotateTo terminated-Sprite dosn't exist: " + Str(Number))
endif
Endfunction (Angle#)
Try that, it should work. I normally set a constant to the value of the display aspect so I don't have to keep calling the command.
Edit: messed the first one up a bit sorry...