equal
deleted
inserted
replaced
496 DeleteVisualGear(Gear) |
496 DeleteVisualGear(Gear) |
497 else |
497 else |
498 begin |
498 begin |
499 dec(Gear^.Timer, Steps); |
499 dec(Gear^.Timer, Steps); |
500 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
500 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
|
501 Gear^.X:= Gear^.X + Gear^.dX * Steps |
501 end; |
502 end; |
502 end; |
503 end; |
503 |
504 |
504 procedure doStepHealthTagWorkUnderWater(Gear: PVisualGear; Steps: Longword); |
505 procedure doStepHealthTagWorkUnderWater(Gear: PVisualGear; Steps: Longword); |
505 begin |
506 begin |