Graphics 1680, 1050, 32, 0
Type SpaceShip 

 Field PosX:Int
 Field PosY:Int
 Field angle:Float
 Field speed:Int
 Global image:TImage

 Method Rotate(newAngle:Int)
  Self.angle = Self.angle + newAngle
 EndMethod

 Function LoadBMP(path:String)
  image = LoadImage(path)
 EndFunction

 Function Create:SpaceShip()
  Return New SpaceShip
 End Function

 Method Move(pSpeed:Int)
  Self.speed :+ pSpeed
  Self.PosX  :+ Cos(angle) * speed
  Self.PosY  :+ Sin(angle) * speed
 EndMethod

EndType 

Player:SpaceShip = SpaceShip.Create()
Player.LoadBMP("ship.png")
MidHandleImage(Player.image)
Player.PosX = 10
Player.PosY = 10

While(Not KeyHit(KEY_ESCAPE))

 Cls
 SetMaskColor(255,0,255)

 If (KeyDown(KEY_LEFT)) Then Player.Rotate(-1)
 If (KeyDown(KEY_RIGHT)) Then Player.Rotate(1)
 If (KeyDown(KEY_UP)) Then Player.Move(1)
 If (KeyDown(KEY_DOWN)) Then Player.Move(-1)
 
 SetRotation(Player.angle)
 DrawImage(Player.image, Player.PosX, Player.PosY)
 Flip
 
EndWhile

SetBlend ALPHABLEND