115 Delete(s, 1, 1); |
115 Delete(s, 1, 1); |
116 if s[byte(s[0])]='"' then |
116 if s[byte(s[0])]='"' then |
117 Delete(s, byte(s[0]), 1); |
117 Delete(s, byte(s[0]), 1); |
118 cScriptName:= s; |
118 cScriptName:= s; |
119 ScriptLoad(s) |
119 ScriptLoad(s) |
|
120 end; |
|
121 |
|
122 procedure chScriptParam(var s: shortstring); |
|
123 begin |
|
124 cScriptParam:= s; |
120 end; |
125 end; |
121 |
126 |
122 procedure chCurU_p(var s: shortstring); |
127 procedure chCurU_p(var s: shortstring); |
123 begin |
128 begin |
124 s:= s; // avoid compiler hint |
129 s:= s; // avoid compiler hint |
794 RegisterVariable('slot' , @chSlot , false); |
799 RegisterVariable('slot' , @chSlot , false); |
795 RegisterVariable('setweap' , @chSetWeapon , false, true); |
800 RegisterVariable('setweap' , @chSetWeapon , false, true); |
796 //////// End top by freq analysis |
801 //////// End top by freq analysis |
797 RegisterVariable('gencmd' , @chGenCmd , false); |
802 RegisterVariable('gencmd' , @chGenCmd , false); |
798 RegisterVariable('script' , @chScript , false); |
803 RegisterVariable('script' , @chScript , false); |
|
804 RegisterVariable('scriptparam', @chScriptParam, false); |
799 RegisterVariable('proto' , @chCheckProto , true ); |
805 RegisterVariable('proto' , @chCheckProto , true ); |
800 RegisterVariable('spectate', @chFastUntilLag , false); |
806 RegisterVariable('spectate', @chFastUntilLag , false); |
801 RegisterVariable('capture' , @chCapture , true ); |
807 RegisterVariable('capture' , @chCapture , true ); |
802 RegisterVariable('rotmask' , @chRotateMask , true ); |
808 RegisterVariable('rotmask' , @chRotateMask , true ); |
803 RegisterVariable('rdriven' , @chTeamLocal , false); |
809 RegisterVariable('rdriven' , @chTeamLocal , false); |