Graphics 800,600,16,2
SetBuffer BackBuffer()
AppTitle "Dynamit - The mine of dead"

Type d
Field x,y,sk,loch,alt
End Type

Global d.d
Global fy# = 5,Jump = True
Global Miner = LoadImage("gfx\Miner.bmp")
Global Mine  = LoadImage("gfx\Mine.bmp")
Global Dynamit = LoadImage("gfx\Dynamit.bmp")
MaskImage Miner,255,0,255
MaskImage Dynamit,255,0,255
MaskImage Mine ,255,0,255
alt = MilliSecs()
Repeat
If KeyDown(205) Then x = x + 5
If KeyDown(203) Then x = x - 5
If KeyHit(28) And Jump = False Then fy = 20:Jump = True
If Jump = True Then
fy = fy - 1.5
y = y - fy
EndIf
If ImagesCollide(Miner,x,y,0,Mine,1,1,0) Then y = oy:Jump = False
If KeyHit(57) Then d.d = New d:d\x = x:d\y = y+50:d\sk = 200:d\alt = MilliSecs()
DrawImage Mine,1,1
For d.d = Each d
If d\loch = 0 Then DrawImage Dynamit,d\x,d\y
If d\alt <= MilliSecs() - 2000 Then
d\loch = True
d\alt = MilliSecs()
EndIf
If d\loch = True Then Color 0,0,0:Oval d\x-(d\sk/2),d\y-(d\sk/2),d\sk,d\sk
Next
DrawImage Miner,x,y
Flip
Cls
oy = y
Until KeyHit(1)
End