hedgewars/HHHandlers.inc
changeset 3991 82e4a5ef18f7
parent 3970 0f6e3219c108
child 4015 2897cf5730e7
equal deleted inserted replaced
3990:e8a428710a94 3991:82e4a5ef18f7
   266                                Y:= _0;
   266                                Y:= _0;
   267                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   267                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   268                                PauseMusic
   268                                PauseMusic
   269                                end;
   269                                end;
   270                       amFlamethrower: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   270                       amFlamethrower: CurAmmoGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower,  0, xx * _0_5, yy * _0_5, 0);
   271                     amResurrector: CurAmmoGear:= AddGear(hwRound(lx),
   271                     amResurrector: begin
   272                                            hwRound(ly), gtResurrector, 0, _0,
   272                         CurAmmoGear:= AddGear(hwRound(lx), hwRound(ly),
   273                                            _0, 0);
   273                                 gtResurrector, 0, _0, _0, 0);
       
   274                         CurAmmoGear^.SoundChannel := LoopSound(sndResurrector);
       
   275                     end;
   274                   end;
   276                   end;
   275 
   277 
   276         uStats.AmmoUsed(CurAmmoType);
   278         uStats.AmmoUsed(CurAmmoType);
   277 
   279 
   278         if not (SpeechText = '') then
   280         if not (SpeechText = '') then