922     t:= GearsList;

   922     t:= GearsList;

   923     while t <> nil do

   923     while t <> nil do

   924         begin

   924         begin

   925         t^.PortalCounter:= 0;

   925         t^.PortalCounter:= 0;

   926         t:= t^.NextGear

   926         t:= t^.NextGear

   928 end;

   931 end;

   929 

   932 

   930 procedure ApplyDamage(Gear: PGear; Damage: Longword; Source: TDamageSource);

   933 procedure ApplyDamage(Gear: PGear; Damage: Longword; Source: TDamageSource);

   931 var s: shortstring;

   934 var s: shortstring;

   932     vampDmg, tmpDmg, i: Longword;

   935     vampDmg, tmpDmg, i: Longword;