equal
deleted
inserted
replaced
115 |
115 |
116 //////////////////////////////////////////////////////////////////////////////// |
116 //////////////////////////////////////////////////////////////////////////////// |
117 procedure doStepCloud(Gear: PGear); |
117 procedure doStepCloud(Gear: PGear); |
118 begin |
118 begin |
119 Gear.X:= Gear.X + cWindSpeed * 200 + Gear.dX; |
119 Gear.X:= Gear.X + cWindSpeed * 200 + Gear.dX; |
120 if Gear.X < -cScreenWidth-256 then Gear.X:= cScreenWidth + 2048 else |
120 if Gear.Y > -160 then Gear.dY:= Gear.dY - 0.00002 |
|
121 else Gear.dY:= Gear.dY + 0.00002; |
|
122 Gear.Y:= Gear.Y + Gear.dY; |
|
123 if Gear.X < -cScreenWidth - 256 then Gear.X:= cScreenWidth + 2048 else |
121 if Gear.X > cScreenWidth + 2048 then Gear.X:= -cScreenWidth - 256 |
124 if Gear.X > cScreenWidth + 2048 then Gear.X:= -cScreenWidth - 256 |
122 end; |
125 end; |
123 |
126 |
124 //////////////////////////////////////////////////////////////////////////////// |
127 //////////////////////////////////////////////////////////////////////////////// |
125 procedure doStepBomb(Gear: PGear); |
128 procedure doStepBomb(Gear: PGear); |