equal
deleted
inserted
replaced
709 end; |
709 end; |
710 |
710 |
711 if WindBarWidth = Gear^.Tag then |
711 if WindBarWidth = Gear^.Tag then |
712 DeleteVisualGear(Gear) |
712 DeleteVisualGear(Gear) |
713 end; |
713 end; |
714 |
714 //////////////////////////////////////////////////////////////////////////////// |
|
715 procedure doStepStraightShot(Gear: PVisualGear; Steps: Longword); |
|
716 begin |
|
717 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
718 Gear^.Y:= Gear^.Y - Gear^.dY * Steps; |
|
719 |
|
720 if Gear^.FrameTicks <= Steps then |
|
721 DeleteVisualGear(Gear) |
|
722 else |
|
723 begin |
|
724 dec(Gear^.FrameTicks, Steps); |
|
725 if (Gear^.FrameTicks < 501) and (Gear^.FrameTicks mod 5 = 0) then |
|
726 Gear^.Tint:= (Gear^.Tint and $FFFFFF00) or (((Gear^.Tint and $000000FF) * Gear^.FrameTicks) div 500) |
|
727 end |
|
728 end; |
|
729 |