equal
deleted
inserted
replaced
6613 exit |
6613 exit |
6614 end; |
6614 end; |
6615 if (Gear^.State and gstTmpFlag <> 0) or (GameTicks and $7 = 0) then |
6615 if (Gear^.State and gstTmpFlag <> 0) or (GameTicks and $7 = 0) then |
6616 begin |
6616 begin |
6617 doStepFallingGear(Gear); |
6617 doStepFallingGear(Gear); |
6618 if (Gear^.Tag = 1) and (GameTicks and $FF = 0) and (hwRound(Gear^.X) < leftX) or (hwRound(Gear^.X) > rightX) or (hwRound(Gear^.Y) < LongInt(topY)) then |
6618 if (Gear^.Tag = 1) and (GameTicks and $FF = 0) and (hwRound(Gear^.X) < leftX) or (hwRound(Gear^.X) > rightX) or (hwRound(Gear^.Y) < topY) then |
6619 begin |
6619 begin |
6620 Gear^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX); |
6620 Gear^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX); |
6621 Gear^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY); |
6621 Gear^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY); |
6622 Gear^.dX:= _90-(GetRandomf*_360); |
6622 Gear^.dX:= _90-(GetRandomf*_360); |
6623 Gear^.dY:= _90-(GetRandomf*_360) |
6623 Gear^.dY:= _90-(GetRandomf*_360) |