Changing var from console

[Vyka]

Hi Guys.
I need help (script ;P ), can somebody tell me, how to change var (shortint) from console?

the best way will be something like that

/change var

for example
/change 1
and var is changing to 1.

how to do this, i need it in my new script, please, help

[Norbo]

u mean, change a variable in a script?

[Vyka]

yes, can you help me? 

[Norbo]

depends
so you want to change a value of some variable, to a diffrent value right?
then you need to specyfiy the name of the variable
like /change <varname> <value>
well.... it is possible, but im not expirienced that much. i would make it, but i dont know how to check if the variable exists

[Vyka]

that won't work, have you got another idea?

btw. i need a part of script.

[rayanaga]

You could try a custom admin command on procedure

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;

[lewymati]

guys, u all fail...
There's no function which could get the pointer to the whichever variable from string, there isnt anything like "changevariable(variable:string,newvalue:sometype)"...

If you have only some variable to change and u know which are they u can do it like that:

Code: [Select]

var
smth:integer;
smth2:integer;

(...)

function OnCommand(ID: Byte; Text: string): boolean;
begin
        case LowerCase(GetPiece(Text,' ',0)) of
          '/change':
               case LowerCase(GetPiece(Text,' ',1)) of
                 'smth': smth:=strtoint(GetPiece(Text,' ',2));
                 'smth2': smth2:=strtoint(GetPiece(Text,' ',2));
          end;

        end;
Result := false;
end;


(...)
I didnt compile that code, just get the spirit

[Vyka]

thanks a lot but it doesnt work.

i used

Code: [Select]

if RegExpMatch('^/ktkchange \d+$', Text) then
begin
ilosc:=StrToInt(GetPiece(Text, ' ', 1));
        end;

[rayanaga]

guys, u all fail...
There's no function which could get the pointer to the whichever variable from string, there isnt anything like "changevariable(variable:string,newvalue:sometype)"...

If you have only some variable to change and u know which are they u can do it like that:

Code: [Select]

var
smth:integer;
smth2:integer;

(...)

function OnCommand(ID: Byte; Text: string): boolean;
begin
        case LowerCase(GetPiece(Text,' ',0)) of
          '/change':
               case LowerCase(GetPiece(Text,' ',1)) of
                 'smth': smth:=strtoint(GetPiece(Text,' ',2));
                 'smth2': smth2:=strtoint(GetPiece(Text,' ',2));
          end;

        end;
Result := false;
end;


(...)
I didnt compile that code, just get the spirit

You could try a custom admin command on procedure

Code: [Select]

function OnCommand(ID: Byte; Text: string): boolean;

Isn't that what i just suggested?