214 if cLineWidth > 255 then |
214 if cLineWidth > 255 then |
215 cLineWidth:= 255; |
215 cLineWidth:= 255; |
216 for i:= 0 to Pred(cLinesCount) do |
216 for i:= 0 to Pred(cLinesCount) do |
217 PByte(@ConsoleLines[i])^:= 0; |
217 PByte(@ConsoleLines[i])^:= 0; |
218 |
218 |
|
219 // NOTE: please, keep most frequently used commands on bottom |
|
220 RegisterVariable('flag' , vtCommand, @chFlag , false); |
|
221 RegisterVariable('script' , vtCommand, @chScript , false); |
219 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
222 RegisterVariable('proto' , vtCommand, @chCheckProto , true ); |
220 RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); |
223 RegisterVariable('spectate', vtBoolean, @fastUntilLag , false); |
221 RegisterVariable('capture' , vtCommand, @chCapture , true ); |
224 RegisterVariable('capture' , vtCommand, @chCapture , true ); |
222 RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); |
225 RegisterVariable('rotmask' , vtCommand, @chRotateMask , true ); |
223 RegisterVariable('addteam' , vtCommand, @chAddTeam , false); |
226 RegisterVariable('addteam' , vtCommand, @chAddTeam , false); |
301 RegisterVariable('-cur_d' , vtCommand, @chCurD_m , true ); |
304 RegisterVariable('-cur_d' , vtCommand, @chCurD_m , true ); |
302 RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); |
305 RegisterVariable('+cur_l' , vtCommand, @chCurL_p , true ); |
303 RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); |
306 RegisterVariable('-cur_l' , vtCommand, @chCurL_m , true ); |
304 RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); |
307 RegisterVariable('+cur_r' , vtCommand, @chCurR_p , true ); |
305 RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); |
308 RegisterVariable('-cur_r' , vtCommand, @chCurR_m , true ); |
306 RegisterVariable('flag' , vtCommand, @chFlag , false); |
|
307 RegisterVariable('script' , vtCommand, @chScript , false); |
|
308 end; |
309 end; |
309 |
310 |
310 procedure freeModule; |
311 procedure freeModule; |
311 var t, tt: PVariable; |
312 var t, tt: PVariable; |
312 begin |
313 begin |