equal
deleted
inserted
replaced
256 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
256 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
257 |
257 |
258 if Gear^.FrameTicks <= Steps then |
258 if Gear^.FrameTicks <= Steps then |
259 DeleteVisualGear(Gear) |
259 DeleteVisualGear(Gear) |
260 else |
260 else |
|
261 begin |
261 dec(Gear^.FrameTicks, Steps); |
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 |
262 end; |
266 end; |
263 |
267 |
264 //////////////////////////////////////////////////////////////////////////////// |
268 //////////////////////////////////////////////////////////////////////////////// |
265 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
269 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
266 begin |
270 begin |