equal
deleted
inserted
replaced
74 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64); |
74 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 64); |
75 if hwRound(Gear^.Y) > 1100 then Gear^.Y:= Gear^.Y - int2hwFloat(1228) |
75 if hwRound(Gear^.Y) > 1100 then Gear^.Y:= Gear^.Y - int2hwFloat(1228) |
76 end; |
76 end; |
77 |
77 |
78 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
78 procedure doStepCloud(Gear: PVisualGear; Steps: Longword); |
|
79 var i: Longword; |
79 begin |
80 begin |
80 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps; |
81 Gear^.X:= Gear^.X + (cWindSpeed * 200 + Gear^.dX) * Steps; |
81 if hwRound(Gear^.Y) > -160 then Gear^.dY:= Gear^.dY - _1div50000 * Steps |
82 |
82 else Gear^.dY:= Gear^.dY + _1div50000 * Steps; |
83 for i:= 0 to Steps - 1 do |
83 |
84 begin |
84 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
85 if hwRound(Gear^.Y) > -160 then |
|
86 Gear^.dY:= Gear^.dY - _1div50000 |
|
87 else |
|
88 Gear^.dY:= Gear^.dY + _1div50000; |
|
89 |
|
90 Gear^.Y:= Gear^.Y + Gear^.dY |
|
91 end; |
85 |
92 |
86 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
93 if hwRound(Gear^.X) < -cScreenWidth - 256 then Gear^.X:= int2hwFloat(cScreenWidth + 2048) else |
87 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
94 if hwRound(Gear^.X) > cScreenWidth + 2048 then Gear^.X:= int2hwFloat(-cScreenWidth - 256) |
88 end; |
95 end; |
89 |
96 |
248 |
255 |
249 procedure AddClouds; |
256 procedure AddClouds; |
250 var i: LongInt; |
257 var i: LongInt; |
251 begin |
258 begin |
252 for i:= 0 to cCloudsNumber do |
259 for i:= 0 to cCloudsNumber do |
253 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -140, vgtCloud) |
260 AddVisualGear( - cScreenWidth + i * ((cScreenWidth * 2 + 2304) div cCloudsNumber), -160, vgtCloud) |
254 end; |
261 end; |
255 |
262 |
256 initialization |
263 initialization |
257 |
264 |
258 finalization |
265 finalization |