Sorry your browser is not supported!

Load Image "mouse.bmp",1
Sprite 1,0,0,1
cls
Offset Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2
Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2,1
Create Bitmap 31,Sprite Width(1),Sprite Height(1)
Sync Rate 40
Do
QuintRotate(1,31,576)
Loop

Function QuintRotate(SprNum,BitNum,ImgNum)
Rotate Sprite SprNum,Sprite Angle(SprNum) + 10
Set Current Bitmap BitNum
cls
Paste Sprite 1,Sprite Offset X(SprNum),Sprite Offset Y(SprNum)
Get Image ImgNum,0,0,Bitmap Width(BitNum),Bitmap Height(BitNum),BitNum
Set Current Bitmap 0
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset (SprNum),ImgNum
EndFunction

Global ANGLECATCH as integer
Load Image "mouse.bmp",1
Sprite 1,0,0,1
cls
Offset Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2
Sprite 1,Sprite Width(1)/2,Sprite Height(1)/2,1
Create Bitmap 31,Sprite Width(1),Sprite Height(1)
Sync Rate 0
Do
if Rightkey()
QuintRotate(1,31,576,1,1)
endif
if Leftkey()
QuintRotate(1,31,576,-1,1)
endif
Loop

Function QuintRotate(SprNum,BitNum,ImgNum,Value,Origimage)
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),Origimage
AngleCatch = AngleCatch + Value
Rotate Sprite SprNum,AngleCatch
Set Current Bitmap BitNum
cls
Paste Sprite 1,Sprite Offset X(SprNum),Sprite Offset Y(SprNum)
Get Image ImgNum,0,0,Bitmap Width(BitNum),Bitmap Height(BitNum),BitNum
Set Current Bitmap 0
Sprite SprNum,Sprite Offset X(SprNum),Sprite Offset Y(SprNum),ImgNum
EndFunction