Code: Select all
Type TATIT
Field tat
End Type
Type AMMUS
Field obj
End Type
FrameLimit 40
SCREEN 1000,900
Slurp = LoadSound ("Media\Slurppaus.wav")
Musa = PlaySound ("Media\EpicFail.mp3")
hero = LoadObject ("Media\Hero1.bmp",360)
lol = LoadObject ("Media\Ammus.bmp",360)
ampu = LoadSound ("Media\ampu.wav")
tatti = LoadObject ("Media\Tatti.bmp",360)
tohveli = LoadObject ("Media\Tohveli.bmp",360)
PositionObject tohveli, 1010, 30
Repeat
ShowObject lol,OFF
ShowObject tatti,OFF
Gosub Musiikki
Gosub Liiku
Gosub Tatteilu
Gosub Ammu
DrawScreen
Forever
End
Liiku:
If KeyDown (cbkeyW) Then MoveObject hero,5
If KeyDown (cbkeyS) Then MoveObject hero,-4
If KeyDown (cbkeyD) Then TurnObject hero,-6
If KeyDown (cbkeyA) Then TurnObject hero,6
Return
Tatteilu:
If Odotus=0 Then
ok.TATIT = New (TATIT)
ok\tat=CloneObject (tatti)
CloneObjectPosition ok\tat,tohveli
PlaySound Slurp
Odotus = 100
EndIf
If Odotus>0 Then Odotus=Odotus-1
For ok.TATIT = Each TATIT
If ObjectsOverlap (hero,ok\tat,2) Then
Gosub FAIL
EndIf
PointObject ok\tat,hero
MoveObject ok\tat,3
For pum.AMMUS = Each AMMUS
If ObjectsOverlap (pum\obj,ok\tat,2) Then
Gosub osuma
EndIf
Next pum
Next ok
Return
Ammu:
If KeyDown (cbkeyRcontrol) And reload=0 Then
pum.AMMUS = New (AMMUS)
pum\obj=CloneObject (lol)
CloneObjectPosition pum\obj,hero
CloneObjectOrientation pum\obj,hero
PlaySound ampu
reload=5
EndIf
If reload>0 Then reload=reload-1
For pum.AMMUS = Each AMMUS
MoveObject pum\obj,30
If ObjectX (pum\obj)<-1000 Or ObjectX (pum\obj)>1000 Or ObjectY (pum\obj)<-1000 Or ObjectY (pum\obj)>1000
DeleteObject pum\obj
Delete pum
EndIf
Next pum
Return
Musiikki:
If SoundPlaying(Musa)=0 Then
Musa = PlaySound ("Media\EpicFail.mp3")
EndIf
Return
Osuma:
DeleteObject pum\obj
DeleteObject ok\tat
Delete pum
Delete ok
Return
FAIL:
StopSound Musa
DeleteSound Musa
ClearObjects
Color cbRed
Text 200, 200, "FAILED!! Kuolit noob!"
DrawScreen
Wait 10000
End