equal
deleted
inserted
replaced
107 end |
107 end |
108 else dec(Gear^.FrameTicks, Steps) |
108 else dec(Gear^.FrameTicks, Steps) |
109 end; |
109 end; |
110 |
110 |
111 //////////////////////////////////////////////////////////////////////////////// |
111 //////////////////////////////////////////////////////////////////////////////// |
|
112 procedure doStepNote(Gear: PVisualGear; Steps: Longword); |
|
113 begin |
|
114 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
115 |
|
116 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
|
117 Gear^.dY:= Gear^.dY + cGravityf * Steps / 2; |
|
118 |
|
119 Gear^.Angle:= Gear^.Angle + (Gear^.Frame + 1) * Steps / 10; |
|
120 while Gear^.Angle > cMaxAngle do |
|
121 Gear^.Angle:= Gear^.Angle - cMaxAngle; |
|
122 |
|
123 if Gear^.FrameTicks <= Steps then |
|
124 DeleteVisualGear(Gear) |
|
125 else |
|
126 dec(Gear^.FrameTicks, Steps) |
|
127 end; |
|
128 |
|
129 //////////////////////////////////////////////////////////////////////////////// |
112 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
130 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
113 begin |
131 begin |
114 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
132 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
115 |
133 |
116 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
134 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |