hedgewars/HHHandlers.inc
changeset 4224 99c6d87df131
parent 4168 49ad7bea4a33
child 4233 b4ad20bfe310
equal deleted inserted replaced
4223:c802849e94aa 4224:99c6d87df131
   253                              end;
   253                              end;
   254                       amLowGravity: begin
   254                       amLowGravity: begin
   255                                     PlaySound(sndLowGravity);
   255                                     PlaySound(sndLowGravity);
   256                                     cGravity:= cMaxWindSpeed
   256                                     cGravity:= cMaxWindSpeed
   257                                     end;
   257                                     end;
   258                       amExtraDamage: cDamageModifier:= _1_5;
   258                       amExtraDamage:begin 
       
   259                                     PlaySound(sndHellishImpact4);
       
   260                                     cDamageModifier:= _1_5
       
   261                                     end;
   259                       amInvulnerable: Invulnerable:= true;
   262                       amInvulnerable: Invulnerable:= true;
   260                       amExtraTime: TurnTimeLeft:= TurnTimeLeft + 30000;
   263                       amExtraTime:  begin
       
   264                                     PlaySound(sndSwitchHog);
       
   265                                     TurnTimeLeft:= TurnTimeLeft + 30000
       
   266                                     end;
   261                       amLaserSight: cLaserSighting:= true;
   267                       amLaserSight: cLaserSighting:= true;
   262                       amVampiric: begin
   268                       amVampiric: begin
   263                                   PlaySound(sndOw1, Team^.voicepack);
   269                                   PlaySound(sndOw1, Team^.voicepack);
   264                                   cVampiric:= true;
   270                                   cVampiric:= true;
   265                                   end;
   271                                   end;
   869     exit
   875     exit
   870     end;
   876     end;
   871 
   877 
   872 if (Gear^.Health = 0) then
   878 if (Gear^.Health = 0) then
   873     begin
   879     begin
   874     if PrvInactive then
   880     if PrvInactive or ((GameFlags and gfInfAttack) <> 0) then
   875         begin
   881         begin
   876         Gear^.Timer:= 0;
   882         Gear^.Timer:= 0;
   877         FollowGear:= Gear;
   883         FollowGear:= Gear;
   878         PrvInactive:= false;
   884         PrvInactive:= false;
   879         AllInactive:= false;
   885         AllInactive:= false;