hedgewars/HHHandlers.inc
changeset 3476 1ec68b8d3bd1
parent 3469 39e16d76d745
child 3483 54ff8cbabaa6
equal deleted inserted replaced
3475:95345f98da19 3476:1ec68b8d3bd1
   218                                X:= _0;
   218                                X:= _0;
   219                                Y:= _0;
   219                                Y:= _0;
   220                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   220                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   221                                PauseMusic
   221                                PauseMusic
   222                                end;
   222                                end;
       
   223                       amFlamethrower: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   223                   end;
   224                   end;
   224 
   225 
   225         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   226         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   226 
   227 
   227         if not (SpeechText = '') then
   228         if not (SpeechText = '') then