hedgewars/uGearsHedgehog.pas
branchqmlfrontend
changeset 11828 a69124eb7ce7
parent 11822 4600dcb9db4f
child 11847 38e7206a5df4
equal deleted inserted replaced
11827:8c71c5a1172f 11828:a69124eb7ce7
   384                                  PlaySound(sndHellishImpact4);
   384                                  PlaySound(sndHellishImpact4);
   385                                  cDamageModifier:= _1_5
   385                                  cDamageModifier:= _1_5
   386                                  end;
   386                                  end;
   387                  amInvulnerable: Effects[heInvulnerable]:= 1;
   387                  amInvulnerable: Effects[heInvulnerable]:= 1;
   388                     amExtraTime: begin
   388                     amExtraTime: begin
   389                                  PlaySound(sndSwitchHog);
   389                                  PlaySound(sndExtraTime);
   390                                  TurnTimeLeft:= TurnTimeLeft + 30000
   390                                  TurnTimeLeft:= TurnTimeLeft + 30000
   391                                  end;
   391                                  end;
   392                    amLaserSight: cLaserSighting:= true;
   392                    amLaserSight: cLaserSighting:= true;
   393                      amVampiric: begin
   393                      amVampiric: begin
   394                                  PlaySoundV(sndOw1, Team^.voicepack);
   394                                  PlaySoundV(sndOw1, Team^.voicepack);
   730                     end;
   730                     end;
   731      posCaseHealth: begin
   731      posCaseHealth: begin
   732                     PlaySound(sndShotgunReload);
   732                     PlaySound(sndShotgunReload);
   733                     inc(HH^.Health, Gear^.Health);
   733                     inc(HH^.Health, Gear^.Health);
   734                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
   734                     HH^.Hedgehog^.Effects[hePoisoned] := 0;
   735                     str(Gear^.Health, s);
   735                     s:= '+' + IntToStr(Gear^.Health);
   736                     s:= '+' + s;
       
   737                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   736                     AddCaption(ansistring(s), HH^.Hedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   738                     RenderHealth(HH^.Hedgehog^);
   737                     RenderHealth(HH^.Hedgehog^);
   739                     RecountTeamHealth(HH^.Hedgehog^.Team);
   738                     RecountTeamHealth(HH^.Hedgehog^.Team);
   740 
   739 
   741                     i:= 0;
   740                     i:= 0;