Code: Select all
SCREEN 500,350
FrameLimit 60
pisteet = 1
hp = 100
lvl = 1
pointer=LoadImage("media\crosshair2.bmp")
kartta = LoadMap("kartat\rpg3.til","Media\tilea2.gif.png")
ukko = LoadObject ("Media\soldier4.bmp",360)
arkku = LoadObject ("media\arkku.bmp")
x = - 700 : y = - 1000
PositionObject ukko, x,y
For i = 1 To 10
trol= CloneObject (arkku)
x1=Rand(2000,-1100)
y1=Rand(1000,-1000)
PositionObject trol, x1 ,y1
Next i
SetupCollision ukko, kartta, 1,4,2
SetupCollision ukko, arkku, 1,1,2
SetupCollision ukko, trol, 1,1,2
ShowMouse pointer
Repeat
If KeyDown(cbkeyw) Then MoveObject ukko, 6
If KeyDown(cbkeys) Then MoveObject ukko, -6
MouseLocation#=GetAngle(ObjectX(ukko),-ObjectY(ukko),MouseWX(),-MouseWY())
ShowMouse pointer
RotateObject ukko, MouseLocation#
UpdateGame
CloneCameraPosition ukko
Color cbred
Locate 10,10
AddText "Level : "+ lvl
Locate 10,25
AddText "Pisteet: "+ pisteet
Locate 10,40
AddText "HP: " + hp
DrawScreen
Until EscapeKey ()