15 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
15 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
16 |
16 |
17 implementation |
17 implementation |
18 uses 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, uUtils; |
20 uVariables, uConsole, uFloat, uUtils, Adler32; |
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]; |
123 begin |
123 begin |
124 Variables:= nil; |
124 Variables:= nil; |
125 isDeveloperMode:= true; |
125 isDeveloperMode:= true; |
126 |
126 |
127 // NOTE: please, keep most frequently used commands on bottom |
127 // NOTE: please, keep most frequently used commands on bottom |
|
128 RegisterVariable('landcheck',vtCommand, @chLandCheck , false); |
|
129 RegisterVariable('sendlanddigest',vtCommand, @chSendLandDigest, false); |
128 RegisterVariable('flag' , vtCommand, @chFlag , false); |
130 RegisterVariable('flag' , vtCommand, @chFlag , false); |
129 RegisterVariable('script' , vtCommand, @chScript , false); |
131 RegisterVariable('script' , vtCommand, @chScript , false); |
130 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
132 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
131 RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); |
133 RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); |
132 RegisterVariable('capture' , vtCommand, @chCapture , true ); |
134 RegisterVariable('capture' , vtCommand, @chCapture , true ); |