equal
deleted
inserted
replaced
31 |
31 |
32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats, |
32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats, |
33 uTextures, uScript, uRenderUtils, uAI, uCollisions, |
33 uTextures, uScript, uRenderUtils, uAI, uCollisions, |
34 uGearsRender, uGearsUtils; |
34 uGearsRender, uGearsUtils; |
35 |
35 |
36 var GCounter: LongWord = 0; // this doesn't get re-initialized, but should be harmless |
36 var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
37 |
37 |
38 procedure InsertGearToList(Gear: PGear); |
38 procedure InsertGearToList(Gear: PGear); |
39 var tmp, ptmp: PGear; |
39 var tmp, ptmp: PGear; |
40 begin |
40 begin |
41 tmp:= GearsList; |
41 tmp:= GearsList; |
455 gear^.Health:= 200; |
455 gear^.Health:= 200; |
456 gear^.Timer:= 0; |
456 gear^.Timer:= 0; |
457 gear^.Tag:= TotalRounds + 3; |
457 gear^.Tag:= TotalRounds + 3; |
458 gear^.Pos:= 1; |
458 gear^.Pos:= 1; |
459 end; |
459 end; |
|
460 gtIceGun: gear^.Health:= 1000; |
460 end; |
461 end; |
461 |
462 |
462 InsertGearToList(gear); |
463 InsertGearToList(gear); |
463 AddGear:= gear; |
464 AddGear:= gear; |
464 |
465 |