hedgewars/uGears.pas
changeset 2730 f56592281526
parent 2729 c216de4d0c93
child 2741 7a84ce33f52f
equal deleted inserted replaced
2729:c216de4d0c93 2730:f56592281526
   719                      DeleteVisualGear(SpeechGear);  // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue
   719                      DeleteVisualGear(SpeechGear);  // remove to restore persisting beyond end of turn. Tiy says was too much of a gameplay issue
   720                      SpeechGear:= nil
   720                      SpeechGear:= nil
   721                      end;
   721                      end;
   722 
   722 
   723                   if (Gear <> nil) then
   723                   if (Gear <> nil) then
   724                      if ((GameFlags and gfInvulnerable) = 0) and (not King or (TotalRounds >= 0))  then // King is protected for one round
   724                      if (GameFlags and gfInvulnerable) = 0 then
   725                         Gear^.Invulnerable:= false;
   725                         Gear^.Invulnerable:= false;
   726                   end;
   726                   end;
   727 end;
   727 end;
   728 
   728 
   729 procedure ApplyDamage(Gear: PGear; Damage: Longword);
   729 procedure ApplyDamage(Gear: PGear; Damage: Longword);