| changeset 2786 | 85f6425a4d74 |
| parent 2747 | 7889a3a9724f |
| child 2855 | 7e6adeb57427 |
| 2785:de6406cd6b25 | 2786:85f6425a4d74 |
|---|---|
36 |
36 |
37 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
37 procedure doPut(putX, putY: LongInt; fromAI: boolean); |
38 |
38 |
39 implementation |
39 implementation |
40 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
40 uses uMisc, uStore, Types, uConsts, uGears, uTeams, uIO, uKeys, uWorld, uLand, |
41 uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh, uSound, uVisualGears; |
41 uRandom, uAmmos, uTriggers, uStats, uGame, uChat, SDLh, uSound, uVisualGears, uScript; |
42 |
42 |
43 const cLineWidth: LongInt = 0; |
43 const cLineWidth: LongInt = 0; |
44 cLinesCount = 256; |
44 cLinesCount = 256; |
45 |
45 |
46 type PVariable = ^TVariable; |
46 type PVariable = ^TVariable; |
303 RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); |
303 RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); |
304 RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); |
304 RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); |
305 RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); |
305 RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); |
306 RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); |
306 RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); |
307 RegisterVariable('flag' , vtCommand, @chFlag , false); |
307 RegisterVariable('flag' , vtCommand, @chFlag , false); |
308 RegisterVariable('script' , vtCommand, @chScript , false); |
|
308 end; |
309 end; |
309 |
310 |
310 procedure free_uConsole; |
311 procedure free_uConsole; |
311 begin |
312 begin |
312 FreeVariablesList(); |
313 FreeVariablesList(); |