Code: Select all
SCREEN 640,480
FrameLimit 50
ukko = LoadObject("gfx/ukko.png",72)
miekka = LoadObject("gfx/longsword.png",72)
PositionObject ukko,0,0
PositionObject miekka,ObjectX(ukko)+10,ObjectY(ukko)-10
Repeat
If LeftKey() Then TurnObject ukko,5:TurnObject miekka, 5
If RightKey() Then TurnObject ukko, -5:TurnObject miekka, -5
If UpKey() Then MoveObject ukko, 2:MoveObject miekka, 2
If DownKey() Then MoveObject ukko, -2:MoveObject miekka, -2
DrawScreen
Forever