equal
deleted
inserted
replaced
134 @doStepTeleport, |
134 @doStepTeleport, |
135 @doStepHealthTag, |
135 @doStepHealthTag, |
136 @doStepSwitcher, |
136 @doStepSwitcher, |
137 @doStepCase, |
137 @doStepCase, |
138 @doStepMortar, |
138 @doStepMortar, |
139 @doStepWhip |
139 @doStepWhip, |
|
140 @doStepKamikaze |
140 ); |
141 ); |
141 |
142 |
142 procedure InsertGearToList(Gear: PGear); |
143 procedure InsertGearToList(Gear: PGear); |
143 var tmp, ptmp: PGear; |
144 var tmp, ptmp: PGear; |
144 begin |
145 begin |
304 gtMortar: begin |
305 gtMortar: begin |
305 Result^.Elasticity:= _0_2; |
306 Result^.Elasticity:= _0_2; |
306 Result^.Friction:= _0_08 |
307 Result^.Friction:= _0_08 |
307 end; |
308 end; |
308 gtWhip: Result^.Radius:= 20; |
309 gtWhip: Result^.Radius:= 20; |
|
310 gtKamikaze: begin |
|
311 Result^.Health:= 2048; |
|
312 Result^.Radius:= 20 |
|
313 end; |
309 end; |
314 end; |
310 InsertGearToList(Result); |
315 InsertGearToList(Result); |
311 AddGear:= Result |
316 AddGear:= Result |
312 end; |
317 end; |
313 |
318 |