13 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
13 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
14 procedure StopMessages(Message: Longword); |
14 procedure StopMessages(Message: Longword); |
15 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
15 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
16 |
16 |
17 implementation |
17 implementation |
18 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uMobile, |
18 uses uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uMobile, |
19 uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript, uTypes, |
19 uRandom, uAmmos, uStats, uChat, SDLh, uSound, uVisualGears, uScript, uTypes, |
20 uVariables, uConsole, uFloat; |
20 uVariables, uConsole, uFloat, uMisc, uUtils; |
21 |
21 |
22 type PVariable = ^TVariable; |
22 type PVariable = ^TVariable; |
23 TVariable = record |
23 TVariable = record |
24 Next: PVariable; |
24 Next: PVariable; |
25 Name: string[15]; |
25 Name: string[15]; |