equal
deleted
inserted
replaced
248 else |
248 else |
249 dec(Gear^.FrameTicks, Steps) |
249 dec(Gear^.FrameTicks, Steps) |
250 end; |
250 end; |
251 |
251 |
252 //////////////////////////////////////////////////////////////////////////////// |
252 //////////////////////////////////////////////////////////////////////////////// |
253 procedure doStepHealth(Gear: PVisualGear; Steps: Longword); |
|
254 begin |
|
255 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
256 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
|
257 |
|
258 if Gear^.FrameTicks <= Steps then |
|
259 DeleteVisualGear(Gear) |
|
260 else |
|
261 begin |
|
262 dec(Gear^.FrameTicks, Steps); |
|
263 if (Gear^.FrameTicks < 501) and (Gear^.FrameTicks mod 5 = 0) then |
|
264 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or (((Gear^.Tint and $000000FF) * Gear^.FrameTicks) div 500) |
|
265 end |
|
266 end; |
|
267 |
|
268 //////////////////////////////////////////////////////////////////////////////// |
|
269 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
253 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
270 begin |
254 begin |
271 Gear^.X:= Gear^.X + (cWindSpeedf * 100 + Gear^.dX) * Steps; |
255 Gear^.X:= Gear^.X + (cWindSpeedf * 100 + Gear^.dX) * Steps; |
272 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
256 Gear^.Y:= Gear^.Y - cDrownSpeedf * Steps; |
273 |
257 |