Ginfo Script

[Google [Bot]]

i'm write this script and so has a problem 
Here

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin

    if (GetPiece(Text, ' ',0) = '!ginfo') then begin
    WriteConsole(0,'IDToName(GetPiece(Text, ' ',1)health is '+IDToName(GetPlayerStat' + GetPiece(Text, ' ',2)','health)',RGB,(255,255,0));

end;Where is problem ?

[tk]

remove begin in the 4th line.

edit
The whole 2nd parameter in WriteConsole is fecked and you mustn't put comma between
RGB and (255,255,0) in the thrid.

[shantec]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin

    if GetPiece(Text, ' ',0) = '!ginfo' then begin
    WriteConsole(0,IDToName(GetPiece(Text, ' ',1))+ ' health is '+inttostr(GetPlayerStat(Getpiece(Text,' ',1), health)), $FFFF00);
    end;

end;

[Google [Bot]]

oh i'm used IDtoName 2 times xD
Thanks.
edit:not works

[freestyler]

health has to be between ''s

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin

    if GetPiece(Text, ' ',0) = '!ginfo' then begin
    WriteConsole(0,IDToName(GetPiece(Text, ' ',1))+ ' health is '+inttostr(GetPlayerStat(Getpiece(Text,' ',1), 'health')), $FFFFFF00);
    end;

end;
@low: right, forgot about strtoint :x

[Google [Bot]]

health has to be between ''s

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin

    if GetPiece(Text, ' ',0) = '!ginfo' then begin
    WriteConsole(0,IDToName(GetPiece(Text, ' ',1))+ ' health is '+inttostr(GetPlayerStat(Getpiece(Text,' ',1), 'health')), $FFFFFF00);
    end;

end;

Failed...
Where is problem i just crazy =(

[Snack]

Shouldn't it be GetPiece insted of Getpiece?

[CurryWurst]

Shouldn't it be GetPiece insted of Getpiece?

Doesn't matter. Pascal is case insensitive.

health has to be between ''s

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin

    if GetPiece(Text, ' ',0) = '!ginfo' then begin
    WriteConsole(0,IDToName(GetPiece(Text, ' ',1))+ ' health is '+inttostr(GetPlayerStat(Getpiece(Text,' ',1), 'health')), $FFFFFF00);
    end;

end;

Failed...
Where is problem i just crazy =(

You may try this...

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
    if GetPiece(Text, ' ',0) = '!ginfo' then
    begin
      WriteConsole(0, IDToName(StrToInt(GetPiece(Text, ' ',1)))+ ' health is '+IntToStr(GetPlayerStat(StrToInt(Getpiece(Text,' ',1)), 'health')), $FFFFFF00);
    end;
end;

[Google [Bot]]

Works Thanks CurryWurst!