hedgewars/GSHandlers.inc
changeset 1496 bc2a166b4fd2
parent 1495 2b2b89bdb5f3
child 1501 a0e56fdf10cd
equal deleted inserted replaced
1495:2b2b89bdb5f3 1496:bc2a166b4fd2
   145 		gtWatermelon: begin
   145 		gtWatermelon: begin
   146 				doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
   146 				doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
   147 				for i:= 0 to 5 do
   147 				for i:= 0 to 5 do
   148 					begin
   148 					begin
   149 					dX:= rndSign(GetRandom * _0_1);
   149 					dX:= rndSign(GetRandom * _0_1);
   150 					dY:= (GetRandom - _2) * _0_2;
   150 					dY:= (GetRandom - _1_5) * _0_3;
   151 					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
   151 					AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
   152 					end
   152 					end
   153 				end;
   153 				end;
   154 		gtHellishBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 90, EXPLAutoSound);
   154 		gtHellishBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 90, EXPLAutoSound);
   155 		end;
   155 		end;