770                 gear^.Health:= 1000;

   770                 gear^.Health:= 1000;

   771                 gear^.Damage:= 100;

   771                 gear^.Damage:= 100;

   772                 end;

   772                 end;

   773  gtPoisonCloud: begin

   773  gtPoisonCloud: begin

   774                 if gear^.Timer = 0 then gear^.Timer:= 5000;

   774                 if gear^.Timer = 0 then gear^.Timer:= 5000;

   775                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   776                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;

   776                 gear^.Tint:= $C0C000C0

   777                 gear^.Tint:= $C0C000C0

   777                 end;

   778                 end;

   778  gtResurrector: begin

   779  gtResurrector: begin

   779                 gear^.Radius := cResurrectorDist;

   780                 gear^.Radius := cResurrectorDist;