Code: Select all
'peli
FrameLimit 40
'ladataan kenttä
kartta = LoadMap ("media\cdm2.til","media\tileset.bmp")
'Ladataan objektit
ukko = LoadObject ("media\soldier.bmp",360)
vihu = LoadObject ("media\guy.bmp",360)
tähtäin = LoadObject ("media\target.bmp",0)
'törmäykset
SetupCollision ukko,vihu,2,2,2
SetupCollision vihu,ukko,2,2,2
SetupCollision ukko,kartta,2,4,2
SetupCollision vihu,kartta,2,4,2
'vihu asetus
PositionObject vihu,400,400
'Enkat
ukkoenkka = 10
Repeat
Text 0,0,"Energia "+ukkoenkka
'Ukon ohjaus
PositionObject tähtäin, MouseX()-ScreenWidth()/2,-MouseY()+ScreenHeight()/2
PointObject ukko,tähtäin
If UpKey() Then MoveObject ukko,3
If DownKey() Then MoveObject ukko,-2
'tekoäly
If ObjectSight(vihu,ukko) And Distance2(vihu,ukko)<100 Then
MoveObject vihu,2
PointObject vihu,ukko
EndIf
'enkka ja kuolema
If ObjectsOverlap(vihu,ukko,2) Or ObjectsOverlap(ukko,vihu) Then
ukkoenkka -1
If ukkoenkka <=0 Then
DeleteObject ukko
ClearKeys
GoTo kuolema
EndIf
EndIf
'kamera
CloneCameraPosition ukko
DrawScreen
Forever
kuolema:
AddText "GAME OVER"
DrawScreen
Wait 5000
End