hedgewars/GSHandlers.inc
changeset 8003 7d8bce524daf
parent 7992 0b7dc27b2baf
child 8026 4a4f21070479
child 8030 165aeaaaf445
equal deleted inserted replaced
8000:cd007c1780e7 8003:7d8bce524daf
   720         DeleteGear(Gear);
   720         DeleteGear(Gear);
   721         exit
   721         exit
   722         end;
   722         end;
   723     Gear^.Pos:= 0;
   723     Gear^.Pos:= 0;
   724     Gear^.X:= int2hwFloat(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft);
   724     Gear^.X:= int2hwFloat(LongInt(GetRandom(snowRight - snowLeft)) + snowLeft);
   725     Gear^.Y:= int2hwFloat(LongInt(LAND_HEIGHT + GetRandom(50)) - 1325);
   725     Gear^.Y:= int2hwFloat(LAND_HEIGHT + LongInt(GetRandom(50)) - 1325);
   726     Gear^.State:= Gear^.State or gstInvisible;
   726     Gear^.State:= Gear^.State or gstInvisible;
   727     end
   727     end
   728 end;
   728 end;
   729 
   729 
   730 ////////////////////////////////////////////////////////////////////////////////
   730 ////////////////////////////////////////////////////////////////////////////////