equal
deleted
inserted
replaced
22 interface |
22 interface |
23 uses uFloat, uTypes; |
23 uses uFloat, uTypes; |
24 |
24 |
25 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
25 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
26 procedure DeleteGear(Gear: PGear); |
26 procedure DeleteGear(Gear: PGear); |
|
27 procedure InsertGearToList(Gear: PGear); |
|
28 procedure RemoveGearFromList(Gear: PGear); |
27 |
29 |
28 implementation |
30 implementation |
29 |
31 |
30 uses uDebug, uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats, |
32 uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats, |
31 uTextures, uScript, uRenderUtils, uAI, uCollisions, uGearsHedgehog; |
33 uTextures, uScript, uRenderUtils, uAI, uCollisions, |
|
34 uGearsRender, uGearsUtils; |
32 |
35 |
33 procedure InsertGearToList(Gear: PGear); |
36 procedure InsertGearToList(Gear: PGear); |
34 var tmp, ptmp: PGear; |
37 var tmp, ptmp: PGear; |
35 begin |
38 begin |
36 tmp:= GearsList; |
39 tmp:= GearsList; |