hedgewars/uGearsUtils.pas
changeset 10116 dd27562b6f21
parent 10108 c68cf030eded
child 10124 aabd1b75d5a3
equal deleted inserted replaced
10115:794af9339726 10116:dd27562b6f21
   232                     // was considering pulsing on attack, Tiy thinks it should be permanent while in play
   232                     // was considering pulsing on attack, Tiy thinks it should be permanent while in play
   233                     //CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstVampiric;
   233                     //CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstVampiric;
   234                     inc(CurrentHedgehog^.Gear^.Health,vampDmg);
   234                     inc(CurrentHedgehog^.Gear^.Health,vampDmg);
   235                     str(vampDmg, s);
   235                     str(vampDmg, s);
   236                     s:= '+' + s;
   236                     s:= '+' + s;
   237                     AddCaption(Str2PChar(s), CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   237                     AddCaption(s, CurrentHedgehog^.Team^.Clan^.Color, capgrpAmmoinfo);
   238                     RenderHealth(CurrentHedgehog^);
   238                     RenderHealth(CurrentHedgehog^);
   239                     RecountTeamHealth(CurrentHedgehog^.Team);
   239                     RecountTeamHealth(CurrentHedgehog^.Team);
   240                     i:= 0;
   240                     i:= 0;
   241                     while i < vampDmg do
   241                     while i < vampDmg do
   242                         begin
   242                         begin
   417                             end
   417                             end
   418                         else
   418                         else
   419                             begin
   419                             begin
   420                             Gear^.doStep := @doStepDrowningGear;
   420                             Gear^.doStep := @doStepDrowningGear;
   421                             Gear^.State := Gear^.State and (not gstHHDriven);
   421                             Gear^.State := Gear^.State and (not gstHHDriven);
   422                             AddCaption(FormatPChar(GetEventString(eidDrowned), Str2PChar(Gear^.Hedgehog^.Name)), cWhiteColor, capgrpMessage);
   422                             AddCaption(Format(GetEventString(eidDrowned), Gear^.Hedgehog^.Name), cWhiteColor, capgrpMessage);
   423                             end
   423                             end
   424                         end
   424                         end
   425                     else
   425                     else
   426                         Gear^.doStep := @doStepDrowningGear;
   426                         Gear^.doStep := @doStepDrowningGear;
   427                         if Gear^.Kind = gtFlake then
   427                         if Gear^.Kind = gtFlake then