diff -r 4f2d8ce3732b -r 5cd329cf2460 hedgewars/GSHandlers.inc --- a/hedgewars/GSHandlers.inc Mon Sep 12 06:31:10 2011 +0200 +++ b/hedgewars/GSHandlers.inc Mon Sep 12 07:27:34 2011 +0200 @@ -512,7 +512,7 @@ i, gX, gY: LongInt; dX, dY: hwFloat; Fire: PGear; - smoke: PVisualGear; + smoke, glass: PVisualGear; begin AllInactive := false; @@ -534,7 +534,17 @@ PlaySound(sndMolotov); gX := hwRound(Gear^.X); gY := hwRound(Gear^.Y); - //doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound); + for i:= 0 to 2 do + begin + glass:= AddVisualGear(gx+random(7)-3, gy+random(5)-2, vgtEgg); + if glass <> nil then + begin + glass^.Frame:= 2; + glass^.Tint:= $41B83ED0 - i * $10081000; + glass^.dX:= 1/(10*(random(11)-5)); + glass^.dY:= -1/(random(4)+5); + end; + end; for i:= 0 to 24 do begin dX := AngleCos(i * 2) * ((_0_15*(i div 5))) * (GetRandom + _1);