Code: Select all
FrameLimit 40
SetWindow "Älä törmää seiniin peli.",0,"Oletko aivan varma?"
SCREEN 640,480,16,cbfullscreen
map=LoadMap("C:\Program Files\CoolBasic\Media\cdm2.til","C:\Program Files\CoolBasic\Media\tileset.bmp")
guy=LoadObject("C:\Program Files\CoolBasic\Media\guy.bmp",72)
arial=LoadFont("arial",50,ON)
stranger=LoadObject("C:\Program Files\CoolBasic\Media\guy.bmp",72)
vihu=LoadObject("C:\Program Files\CoolBasic\Media\guy.bmp",72)
vihu2=LoadObject("C:\Program Files\CoolBasic\Media\guy.bmp",72)
PositionObject stranger,30,-600
PositionObject vihu,-70,-250
PositionObject vihu2,-30,-400
i=0
Repeat
If KeyDown(cbkeyw) Then MoveObject guy,2.3
If KeyDown(cbkeya) Then TurnObject guy,4
If KeyDown(cbkeyd) Then TurnObject guy,-4
SetupCollision guy,map,1,4,2
SetupCollision vihu,map,1,4,2
SetupCollision vihu2,map,1,4,2
CloneCameraPosition guy
DrawGame
If Distance2(guy,vihu)<120 Then
PointObject vihu,guy
MoveObject vihu,2
EndIf
If Distance2(guy,vihu2)<120 Then
PointObject vihu2,guy
MoveObject vihu2,2
EndIf
If CountCollisions(guy) Then i=i+1
If ObjectsOverlap(guy,vihu,2) Then i=i+1
If ObjectsOverlap(guy,vihu2,2) Then i=i+1
If i>1 Then
SetFont arial
ScreenGamma 140,0,0
ShowObject guy,OFF
CenterText 320,240,"You lose..."
Gosub lose
EndIf
If ObjectsOverlap(guy,stranger,2) Then g=g+1
If g>1 Then
SetFont arial
ScreenGamma 0,255,255
CenterText 320,240,"You win!!!"
Gosub win
EndIf
DrawScreen
Until EscapeKey()
'---------------------
lose:
DrawScreen
WaitKey
ClearKeys
Return
'---------------------
win:
DrawScreen
WaitKey
ClearKeys
Return