equal
deleted
inserted
replaced
731 begin |
731 begin |
732 DeleteGear(Gear); |
732 DeleteGear(Gear); |
733 exit |
733 exit |
734 end; |
734 end; |
735 Gear^.X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |
735 Gear^.X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512); |
736 Gear^.Y:= int2hwFloat(750+(GetRandom(50)-25)) |
736 Gear^.Y:= int2hwFloat(750+(GetRandom(50)-25)); |
|
737 Gear^.State:= Gear^.State or gstInvisible; |
737 end |
738 end |
738 end; |
739 end; |
739 |
740 |
740 //////////////////////////////////////////////////////////////////////////////// |
741 //////////////////////////////////////////////////////////////////////////////// |
741 procedure doStepGrave(Gear: PGear); |
742 procedure doStepGrave(Gear: PGear); |