equal
deleted
inserted
replaced
616 begin |
616 begin |
617 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
617 AddVisualGear(round(Gear^.X), round(Gear^.Y), vgtDroplet); |
618 DeleteVisualGear(Gear); |
618 DeleteVisualGear(Gear); |
619 end |
619 end |
620 end; |
620 end; |
|
621 |
|
622 //////////////////////////////////////////////////////////////////////////////// |
|
623 procedure doStepBulletHit(Gear: PVisualGear; Steps: Longword); |
|
624 begin |
|
625 if Gear^.FrameTicks <= Steps then |
|
626 DeleteVisualGear(Gear) |
|
627 else |
|
628 dec(Gear^.FrameTicks, Steps); |
|
629 end; |