equal
deleted
inserted
replaced
132 @doStepGirder, |
132 @doStepGirder, |
133 @doStepTeleport, |
133 @doStepTeleport, |
134 @doStepHealthTag, |
134 @doStepHealthTag, |
135 @doStepSwitcher, |
135 @doStepSwitcher, |
136 @doStepCase, |
136 @doStepCase, |
137 @doStepMortar |
137 @doStepMortar, |
|
138 @doStepWhip |
138 ); |
139 ); |
139 |
140 |
140 procedure InsertGearToList(Gear: PGear); |
141 procedure InsertGearToList(Gear: PGear); |
141 var tmp, ptmp: PGear; |
142 var tmp, ptmp: PGear; |
142 begin |
143 begin |
301 end; |
302 end; |
302 gtMortar: begin |
303 gtMortar: begin |
303 Result^.Elasticity:= _0_2; |
304 Result^.Elasticity:= _0_2; |
304 Result^.Friction:= _0_08 |
305 Result^.Friction:= _0_08 |
305 end; |
306 end; |
|
307 gtWhip: Result^.Radius:= 20; |
306 end; |
308 end; |
307 InsertGearToList(Result); |
309 InsertGearToList(Result); |
308 AddGear:= Result |
310 AddGear:= Result |
309 end; |
311 end; |
310 |
312 |