15 procedure StopMessages(Message: Longword); |
15 procedure StopMessages(Message: Longword); |
16 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
16 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
17 |
17 |
18 implementation |
18 implementation |
19 uses Types, uConsts, uIO, uMobile, |
19 uses Types, uConsts, uIO, uMobile, |
20 uRandom, uChat, SDLh, uScript, uTypes, |
20 uRandom, SDLh, uScript, uTypes, |
21 uVariables, uConsole, uUtils; |
21 uVariables, uConsole, uUtils; |
22 |
22 |
23 type PVariable = ^TVariable; |
23 type PVariable = ^TVariable; |
24 TVariable = record |
24 TVariable = record |
25 Next: PVariable; |
25 Next: PVariable; |
161 RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); |
161 RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); |
162 RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); |
162 RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); |
163 RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); |
163 RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); |
164 RegisterVariable('zoomout' , vtCommand, @chZoomOut , true ); |
164 RegisterVariable('zoomout' , vtCommand, @chZoomOut , true ); |
165 RegisterVariable('zoomreset',vtCommand, @chZoomReset , true ); |
165 RegisterVariable('zoomreset',vtCommand, @chZoomReset , true ); |
166 RegisterVariable('history' , vtCommand, @chHistory , true ); |
|
167 RegisterVariable('chat' , vtCommand, @chChat , true ); |
|
168 RegisterVariable('say' , vtCommand, @chSay , true ); |
|
169 RegisterVariable('team' , vtCommand, @chTeamSay , true ); |
|
170 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , true); |
166 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , true); |
171 RegisterVariable('+precise', vtCommand, @chPrecise_p , false); |
167 RegisterVariable('+precise', vtCommand, @chPrecise_p , false); |
172 RegisterVariable('-precise', vtCommand, @chPrecise_m , false); |
168 RegisterVariable('-precise', vtCommand, @chPrecise_m , false); |
173 RegisterVariable('+left' , vtCommand, @chLeft_p , false); |
169 RegisterVariable('+left' , vtCommand, @chLeft_p , false); |
174 RegisterVariable('-left' , vtCommand, @chLeft_m , false); |
170 RegisterVariable('-left' , vtCommand, @chLeft_m , false); |