hedgewars/HHHandlers.inc
changeset 3351 3fd3f116f2fc
parent 3350 5cd02aafc612
child 3355 dc9e61e67484
equal deleted inserted replaced
3350:5cd02aafc612 3351:3fd3f116f2fc
   203                       amExtraDamage: cDamageModifier:= _1_5;
   203                       amExtraDamage: cDamageModifier:= _1_5;
   204                       amInvulnerable: Invulnerable:= true;
   204                       amInvulnerable: Invulnerable:= true;
   205                       amExtraTime: TurnTimeLeft:= TurnTimeLeft + 30000;
   205                       amExtraTime: TurnTimeLeft:= TurnTimeLeft + 30000;
   206                       amLaserSight: cLaserSighting:= true;
   206                       amLaserSight: cLaserSighting:= true;
   207                       amVampiric: cVampiric:= true;
   207                       amVampiric: cVampiric:= true;
   208                       amPiano: FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
   208                       amPiano: begin
       
   209                                FollowGear:= AddGear(TargetPoint.X, 0, gtPiano, 0, _0, _0, 0);
       
   210                                PauseMusic
       
   211                                end;
   209                   end;
   212                   end;
   210 
   213 
   211         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   214         uStats.AmmoUsed(Ammo^[CurSlot, CurAmmo].AmmoType);
   212 
   215 
   213         if not (SpeechText = '') then
   216         if not (SpeechText = '') then