equal
deleted
inserted
replaced
137 @doStepCase, |
137 @doStepCase, |
138 @doStepMortar, |
138 @doStepMortar, |
139 @doStepWhip, |
139 @doStepWhip, |
140 @doStepKamikaze, |
140 @doStepKamikaze, |
141 @doStepCake, |
141 @doStepCake, |
142 @doStepSeduction |
142 @doStepSeduction, |
|
143 @doStepBomb |
143 ); |
144 ); |
144 |
145 |
145 procedure InsertGearToList(Gear: PGear); |
146 procedure InsertGearToList(Gear: PGear); |
146 var tmp, ptmp: PGear; |
147 var tmp, ptmp: PGear; |
147 begin |
148 begin |
205 gtClusterBomb: begin |
206 gtClusterBomb: begin |
206 Result^.Radius:= 4; |
207 Result^.Radius:= 4; |
207 Result^.Elasticity:= _0_6; |
208 Result^.Elasticity:= _0_6; |
208 Result^.Friction:= _0_96; |
209 Result^.Friction:= _0_96; |
209 end; |
210 end; |
|
211 gtWatermelon: begin |
|
212 Result^.Radius:= 4; |
|
213 Result^.Elasticity:= _0_8; |
|
214 Result^.Friction:= _0_995; |
|
215 end; |
210 gtHedgehog: begin |
216 gtHedgehog: begin |
211 Result^.Radius:= cHHRadius; |
217 Result^.Radius:= cHHRadius; |
212 Result^.Elasticity:= _0_35; |
218 Result^.Elasticity:= _0_35; |
213 Result^.Friction:= _0_999; |
219 Result^.Friction:= _0_999; |
214 Result^.Angle:= cMaxAngle div 2; |
220 Result^.Angle:= cMaxAngle div 2; |
313 gtKamikaze: begin |
319 gtKamikaze: begin |
314 Result^.Health:= 2048; |
320 Result^.Health:= 2048; |
315 Result^.Radius:= 20 |
321 Result^.Radius:= 20 |
316 end; |
322 end; |
317 gtCake: begin |
323 gtCake: begin |
318 Result^.Health:= 4096; |
324 Result^.Health:= 2048; |
319 Result^.Radius:= 7; |
325 Result^.Radius:= 7; |
320 Result^.Z:= cOnHHZ; |
326 Result^.Z:= cOnHHZ; |
321 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3 |
327 if hwSign(dX) > 0 then Result^.Angle:= 1 else Result^.Angle:= 3 |
322 end; |
328 end; |
323 end; |
329 end; |