equal
deleted
inserted
replaced
131 else |
131 else |
132 dec(Gear^.FrameTicks, Steps) |
132 dec(Gear^.FrameTicks, Steps) |
133 end; |
133 end; |
134 |
134 |
135 //////////////////////////////////////////////////////////////////////////////// |
135 //////////////////////////////////////////////////////////////////////////////// |
|
136 procedure doStepLineTrail(Gear: PVisualGear; Steps: Longword); |
|
137 begin |
|
138 Steps := Steps; |
|
139 if Gear^.Timer <= Steps then |
|
140 DeleteVisualGear(Gear) |
|
141 else |
|
142 dec(Gear^.Timer, Steps) |
|
143 end; |
|
144 |
|
145 //////////////////////////////////////////////////////////////////////////////// |
136 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
146 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
137 begin |
147 begin |
138 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
148 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
139 |
149 |
140 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
150 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |