14 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
14 procedure ParseCommand(CmdStr: shortstring; TrustedSource: boolean); |
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, uKeys, uMobile, |
19 uses Types, uConsts, uIO, uMobile, |
20 uRandom, uAmmos, uChat, SDLh, uScript, uTypes, |
20 uRandom, uChat, 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; |
144 RegisterVariable('hcaseamount', vtLongInt, @cHealthCaseAmount, false); |
144 RegisterVariable('hcaseamount', vtLongInt, @cHealthCaseAmount, false); |
145 RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns , false); |
145 RegisterVariable('sd_turns', vtLongInt, @cSuddenDTurns , false); |
146 RegisterVariable('waterrise', vtLongInt, @cWaterRise , false); |
146 RegisterVariable('waterrise', vtLongInt, @cWaterRise , false); |
147 RegisterVariable('healthdec', vtLongInt, @cHealthDecrease, false); |
147 RegisterVariable('healthdec', vtLongInt, @cHealthDecrease, false); |
148 RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false); |
148 RegisterVariable('damagepct',vtLongInt, @cDamagePercent , false); |
149 RegisterVariable('ropepct' , vtLongInt, @cRopePercent , false); |
|
150 RegisterVariable('minedudpct',vtLongInt,@cMineDudPercent, false); |
149 RegisterVariable('minedudpct',vtLongInt,@cMineDudPercent, false); |
151 RegisterVariable('minesnum', vtLongInt, @cLandMines , false); |
150 RegisterVariable('minesnum', vtLongInt, @cLandMines , false); |
152 RegisterVariable('explosives',vtLongInt,@cExplosives , false); |
151 RegisterVariable('explosives',vtLongInt,@cExplosives , false); |
153 RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); |
152 RegisterVariable('gmflags' , vtLongInt, @GameFlags , false); |
154 RegisterVariable('trflags' , vtLongInt, @TrainingFlags , false); |
153 RegisterVariable('trflags' , vtLongInt, @TrainingFlags , false); |
155 RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); |
154 RegisterVariable('turntime', vtLongInt, @cHedgehogTurnTime, false); |
156 RegisterVariable('minestime',vtLongInt, @cMinesTime , false); |
155 RegisterVariable('minestime',vtLongInt, @cMinesTime , false); |
157 RegisterVariable('fort' , vtCommand, @chFort , false); |
156 RegisterVariable('fort' , vtCommand, @chFort , false); |
158 RegisterVariable('grave' , vtCommand, @chGrave , false); |
157 RegisterVariable('grave' , vtCommand, @chGrave , false); |
159 RegisterVariable('bind' , vtCommand, @chBind , true ); |
|
160 RegisterVariable('hat' , vtCommand, @chSetHat , false); |
158 RegisterVariable('hat' , vtCommand, @chSetHat , false); |
161 RegisterVariable('ammloadt', vtCommand, @chSetAmmoLoadout, false); |
|
162 RegisterVariable('ammdelay', vtCommand, @chSetAmmoDelay, false); |
|
163 RegisterVariable('ammprob', vtCommand, @chSetAmmoProbability, false); |
|
164 RegisterVariable('ammreinf', vtCommand, @chSetAmmoReinforcement, false); |
|
165 RegisterVariable('ammstore', vtCommand, @chAddAmmoStore , false); |
|
166 RegisterVariable('quit' , vtCommand, @chQuit , true ); |
159 RegisterVariable('quit' , vtCommand, @chQuit , true ); |
167 RegisterVariable('confirm' , vtCommand, @chConfirm , true ); |
160 RegisterVariable('confirm' , vtCommand, @chConfirm , true ); |
168 RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); |
161 RegisterVariable('+speedup', vtCommand, @chSpeedup_p , true ); |
169 RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); |
162 RegisterVariable('-speedup', vtCommand, @chSpeedup_m , true ); |
170 RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); |
163 RegisterVariable('zoomin' , vtCommand, @chZoomIn , true ); |