34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
34 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
35 |
35 |
36 implementation |
36 implementation |
37 {$J+} |
37 {$J+} |
38 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
38 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
39 uRandom, uAmmos; |
39 uRandom, uAmmos, uTriggers; |
40 const cLineWidth: LongInt = 0; |
40 const cLineWidth: LongInt = 0; |
41 cLinesCount = 256; |
41 cLinesCount = 256; |
42 |
42 |
43 type PVariable = ^TVariable; |
43 type PVariable = ^TVariable; |
44 TVariable = record |
44 TVariable = record |
280 RegisterVariable('quit' , vtCommand, @chQuit , true ); |
280 RegisterVariable('quit' , vtCommand, @chQuit , true ); |
281 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
281 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
282 RegisterVariable('capture' , vtCommand, @chCapture , true ); |
282 RegisterVariable('capture' , vtCommand, @chCapture , true ); |
283 RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); |
283 RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); |
284 RegisterVariable('addteam' , vtCommand, @chAddTeam , false); |
284 RegisterVariable('addteam' , vtCommand, @chAddTeam , false); |
|
285 RegisterVariable('addtrig' , vtCommand, @chAddTrigger , false); |
285 RegisterVariable('rdriven' , vtCommand, @chTeamLocal , false); |
286 RegisterVariable('rdriven' , vtCommand, @chTeamLocal , false); |
286 RegisterVariable('map' , vtCommand, @chSetMap , false); |
287 RegisterVariable('map' , vtCommand, @chSetMap , false); |
287 RegisterVariable('theme' , vtCommand, @chSetTheme , false); |
288 RegisterVariable('theme' , vtCommand, @chSetTheme , false); |
288 RegisterVariable('seed' , vtCommand, @chSetSeed , false); |
289 RegisterVariable('seed' , vtCommand, @chSetSeed , false); |
289 RegisterVariable('c_height', vtLongInt, @cConsoleHeight , false); |
290 RegisterVariable('c_height', vtLongInt, @cConsoleHeight , false); |