equal
deleted
inserted
replaced
131 @doStepBlowTorch, |
131 @doStepBlowTorch, |
132 @doStepGirder, |
132 @doStepGirder, |
133 @doStepTeleport, |
133 @doStepTeleport, |
134 @doStepHealthTag, |
134 @doStepHealthTag, |
135 @doStepSwitcher, |
135 @doStepSwitcher, |
136 @doStepCase |
136 @doStepCase, |
|
137 @doStepMortar |
137 ); |
138 ); |
138 |
139 |
139 procedure InsertGearToList(Gear: PGear); |
140 procedure InsertGearToList(Gear: PGear); |
140 var tmp, ptmp: PGear; |
141 var tmp, ptmp: PGear; |
141 begin |
142 begin |
295 Result^.Z:= cCurrHHZ |
296 Result^.Z:= cCurrHHZ |
296 end; |
297 end; |
297 gtTarget: begin |
298 gtTarget: begin |
298 Result^.Radius:= 16; |
299 Result^.Radius:= 16; |
299 Result^.Elasticity:= _0_3 |
300 Result^.Elasticity:= _0_3 |
|
301 end; |
|
302 gtMortar: begin |
|
303 Result^.Elasticity:= _0_2; |
|
304 Result^.Friction:= _0_08 |
300 end; |
305 end; |
301 end; |
306 end; |
302 InsertGearToList(Result); |
307 InsertGearToList(Result); |
303 AddGear:= Result |
308 AddGear:= Result |
304 end; |
309 end; |