hedgewars/GSHandlers.inc
changeset 845 ca72cf446ec2
parent 820 a26537586400
child 853 0b4a23795530
equal deleted inserted replaced
844:9a82149409f3 845:ca72cf446ec2
   396    StopSound(sndPickhammer);
   396    StopSound(sndPickhammer);
   397    DeleteGear(Gear);
   397    DeleteGear(Gear);
   398    AfterAttack;
   398    AfterAttack;
   399    exit
   399    exit
   400    end;
   400    end;
   401    
   401 
   402 if (Gear^.Timer mod 33) = 0 then
   402 if (Gear^.Timer mod 33) = 0 then
   403    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 6, 6, EXPLDontDraw);
   403    doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 6, 6, EXPLDontDraw);
   404 
   404 
   405 if (Gear^.Timer mod 47) = 0 then
   405 if (Gear^.Timer mod 47) = 0 then
   406    begin
   406    begin