where is bug?

[sckme]

Code: [Select]

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  i: byte;
  Vips: TStringArray;
  Match: boolean;
begin
  if GetPiece(Text,' ',0) = '/sayv' then begin
    SetArrayLength(Vips, 1);
    Vips:= xsplit(ReadFile('vips.txt'), #10 + #13);
    Match:= false;
    for i:= 0 to ArrayHigh(Vips) do begin
      if IDToIP(ID) = Vips<i> then Match:= true;
    end;
    if Match then WriteConsole(0,'[VIP][' + IDToName(ID) + ']' + Copy(Text,6,Length(Text)), Color);
  end;
end;
When is start my dedicatet server i saw this comunique

Code: [Select]

Invalid number of parameters in if
Where is bug? Can somebody fix it? sry 4my sucks eng

[EnEsCe]

  if IDToIP(ID) = Vips<i> then Match:= true;

You cant use "<i>". its ""

[sckme]

Code: [Select]

08-10-18 20:21:50  [*] colortextvip -> [Error] (10:12): Unknown identifier 'xsplit'
next error xD

[CurryWurst]

Don't forget to implement XSplit

Code: [Select]

function xsplit(const source: string; const delimiter: string):TStringArray;
var
i,x,d:integer;
s:string;
begin
d:=length(delimiter);
x:=0;
i:=1;
SetArrayLength(Result,1);
while(i<=length(source)) do begin
s:=Copy(source,i,d);   
    if(s=delimiter) then begin
    inc(i,d);
    inc(x,1);
    SetArrayLength(result,x+1);
    end else begin       
    result[x]:= result[x]+Copy(s,1,1);
    inc(i,1);
  end;
end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  i: byte;
  Vips: TStringArray;
  Match: boolean;
begin
  if GetPiece(Text,' ',0) = '/sayv' then begin
    SetArrayLength(Vips, 1);
    Vips:= xsplit(ReadFile('vips.txt'), #10 + #13);
    Match:= false;
    for i:= 0 to ArrayHigh(Vips) do begin
      if IDToIP(ID) = Vips<i> then Match:= true;
    end;
    if Match then WriteConsole(0,'[VIP][' + IDToName(ID) + ']' + Copy(Text,6,Length(Text)), Color);
  end;
end;


[sckme]

Code: [Select]

08-10-18 20:55:17  [*] colortextvip -> [Error] (37:93): Unknown identifier 'Color'

[iDante]

add in this to the top:

Code: [Select]

const
   Color = $FFFFFF //white


[sckme]

Code: [Select]

08-10-18 22:11:42  [*] colortextvip2 -> [Error] (26:1): Semicolon (';') expected
its script

Code: [Select]

function xsplit(const source: string; const delimiter: string):TStringArray;
var
i,x,d:integer;
s:string;
begin
d:=length(delimiter);
x:=0;
i:=1;
SetArrayLength(Result,1);
while(i<=length(source)) do begin
s:=Copy(source,i,d);   
    if(s=delimiter) then begin
    inc(i,d);
    inc(x,1);
    SetArrayLength(result,x+1);
    end else begin       
    result[x]:= result[x]+Copy(s,1,1);
    inc(i,1);
  end;
end;
end;

const
   Color = $FFFFFF //white
function OnPlayerCommand(ID: Byte; Text: string): boolean;
var
  i: byte;
  Vips: TStringArray;
  Match: boolean;
begin
  if GetPiece(Text,' ',0) = '/sayv' then begin
    SetArrayLength(Vips, 1);
    Vips:= xsplit(ReadFile('vips.txt'), #10 + #13);
    Match:= false;
    for i:= 0 to ArrayHigh(Vips) do begin
      if IDToIP(ID) = Vips[i] then Match:= true;
    end;
    if Match then WriteConsole(0,'[VIP][' + IDToName(ID) + ']' + Copy(Text,6,Length(Text)), Color);
  end;

[iDante]

eek my bad.
you need a ';' after Color = $FFFFFF;

I would highly suggest reading up on some programming stuffs before proceeding though, these are pretty simple errors.

[sckme]

Code: [Select]

08-10-19 10:08:25  [*] colortextvip -> [Error] (42:10): Identifier expected
next error...

[Gizd]

My script xDDD
Script

And yes it's giving error in if.

@sckme
If you wanted to get it quicker you should PM me