31 procedure ParseCommand(CmdStr: shortstring; const TrustedSource: boolean = true); |
31 procedure ParseCommand(CmdStr: shortstring; const TrustedSource: boolean = true); |
32 function GetLastConsoleLine: shortstring; |
32 function GetLastConsoleLine: shortstring; |
33 |
33 |
34 implementation |
34 implementation |
35 {$J+} |
35 {$J+} |
36 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, uRandom; |
36 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
|
37 uRandom, uAmmos; |
37 const cLineWidth: integer = 0; |
38 const cLineWidth: integer = 0; |
38 cLinesCount = 256; |
39 cLinesCount = 256; |
39 |
40 |
40 type PVariable = ^TVariable; |
41 type PVariable = ^TVariable; |
41 TVariable = record |
42 TVariable = record |
274 RegisterVariable('name' , vtCommand, @chName , false); |
275 RegisterVariable('name' , vtCommand, @chName , false); |
275 RegisterVariable('fort' , vtCommand, @chFort , false); |
276 RegisterVariable('fort' , vtCommand, @chFort , false); |
276 RegisterVariable('grave' , vtCommand, @chGrave , false); |
277 RegisterVariable('grave' , vtCommand, @chGrave , false); |
277 RegisterVariable('bind' , vtCommand, @chBind , true ); |
278 RegisterVariable('bind' , vtCommand, @chBind , true ); |
278 RegisterVariable('add' , vtCommand, @chAdd , false); |
279 RegisterVariable('add' , vtCommand, @chAdd , false); |
|
280 RegisterVariable('ammstore', vtCommand, @chAddAmmoStore , false); |
279 RegisterVariable('skip' , vtCommand, @chSkip , false); |
281 RegisterVariable('skip' , vtCommand, @chSkip , false); |
280 RegisterVariable('say' , vtCommand, @chSay , true ); |
282 RegisterVariable('say' , vtCommand, @chSay , true ); |
281 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , false); |
283 RegisterVariable('ammomenu', vtCommand, @chAmmoMenu , false); |
282 RegisterVariable('+left' , vtCommand, @chLeft_p , false); |
284 RegisterVariable('+left' , vtCommand, @chLeft_p , false); |
283 RegisterVariable('-left' , vtCommand, @chLeft_m , false); |
285 RegisterVariable('-left' , vtCommand, @chLeft_m , false); |