Graphics 800,600,16,2
SetBuffer BackBuffer()



Type knaller
Field x
Field y
Field time

End Type


Type explosion
Field x#
Field y#
Field bx#
Field by#
Field r
Field big
End Type


Global a.knaller
Global b.explosion

zahl# = 1
Repeat
Cls
Color 200,200,200
Text 0,0,\"KNALLERFETZEN OIDA!\"
 
 

If MouseDown(1) = 1 Then 


a = New knaller
a\x = MouseX()
a\y = MouseY()
a\time = 100

EndIf


If MouseHit(2) = 1 Then
If Not a.knaller = First knaller Then 
a.knaller = First knaller
a\time = -10
EndIf
EndIf


For a = Each knaller
Color 0,200,0
Rect a\x,a\y,3,5


If a\time < 0 Then

For I = 1 To 1
b = New explosion
b\x = a\x
b\y = a\y
b\bx = Sin(Rand(0,360))*3
b\by = Cos(Rand(0,360))*3
b\r = Rand(100,255)

b\big = Rand(0,15)
Next

Delete a
EndIf
Next


For b = Each explosion
Color b\r,b\r,0
For a = Each knaller
If RectsOverlap(a\x-5,a\y-5,10,10,b\x,b\y,b\big,b\big) Then a\time = -10 b\bx = b\bx + Rand(-3,3) b\by = b\by + Rand(-3,3) b\big = b\big + 1
Next

Oval b\x,b\y,b\big,b\big
b\x = b\x + b\bx
b\y = b\y + b\by
b\big = b\big - 1
If b\big < 0 Then Delete b


Next


Flip
Until KeyHit(1)