hedgewars/uGears.pas
branch0.9.14
changeset 4253 160f987a5d9f
parent 4251 4b7d3507d175
child 4295 1f5604cd99be
child 4314 8c7f9de9a978
equal deleted inserted replaced
4251:4b7d3507d175 4253:160f987a5d9f
   538                 gear^.Timer:= 5000;
   538                 gear^.Timer:= 5000;
   539                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   539                 gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000;
   540                 end;
   540                 end;
   541  gtResurrector: begin
   541  gtResurrector: begin
   542                 gear^.Radius := 100;
   542                 gear^.Radius := 100;
       
   543                 gear^.Tag := 0
   543                 end;
   544                 end;
   544      gtWaterUp: begin
   545      gtWaterUp: begin
   545                 gear^.Tag := 47;
   546                 gear^.Tag := 47;
   546                 end;
   547                 end;
   547     end;
   548     end;