equal
deleted
inserted
replaced
207 @doStepFlamethrower, |
207 @doStepFlamethrower, |
208 @doStepSMine, |
208 @doStepSMine, |
209 @doStepPoisonCloud, |
209 @doStepPoisonCloud, |
210 @doStepHammer, |
210 @doStepHammer, |
211 @doStepHammerHit, |
211 @doStepHammerHit, |
212 @doStepResurrector |
212 @doStepResurrector, |
|
213 @doStepNapalmBomb |
213 ); |
214 ); |
214 |
215 |
215 procedure InsertGearToList(Gear: PGear); |
216 procedure InsertGearToList(Gear: PGear); |
216 var tmp, ptmp: PGear; |
217 var tmp, ptmp: PGear; |
217 begin |
218 begin |
542 gear^.Radius := 100; |
543 gear^.Radius := 100; |
543 gear^.Tag := 0 |
544 gear^.Tag := 0 |
544 end; |
545 end; |
545 gtWaterUp: begin |
546 gtWaterUp: begin |
546 gear^.Tag := 47; |
547 gear^.Tag := 47; |
|
548 end; |
|
549 gtNapalmBomb: begin |
|
550 gear^.Timer:= 1000; |
|
551 gear^.Radius:= 5; |
547 end; |
552 end; |
548 end; |
553 end; |
549 |
554 |
550 InsertGearToList(gear); |
555 InsertGearToList(gear); |
551 AddGear:= gear; |
556 AddGear:= gear; |