[*] 1 -> [Error] (5:5): Unknown identifier 'IP' ??

[dominikkk26]

What is wrong?
Please, Amend it!
This is a copy of the settings:
[Settings]
IP =
Port =
Text =
Commend =

Code: (pascal) [Select]

function LoadSettings(File: string): boolean;
begin
 try
    IP := ReadINI(File,'Settings','IP',' ');
    Port := StrtoInt(ReadINI(File,'Settings','Port',' '));
    Text := ReadINI(File,'Settings','Text',' ');
    Commend := ReadINI(File,'Settings','Commend',' '); 
 except
   Result := true;
   Exit;
 end;
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
if Text = Commend then begin
ForwardClient (GetPlayerStat(ID,'IP'),GetPlayerStat(ID,'Port'),IP,Port,Text); 
end
end;

procedure ActivateServer();
begin
  if LoadSettings('scripts/' + ScriptName + '/settings.ini') then WriteLn(' [*] ' + ScriptName + ' -> Error while loading settings') else WriteLn(' [*] ' + ScriptName + ' -> Settings loaded successfully');
end;


[DarkCrusade]

You need to declare the variables before you can use them.

[dominikkk26]

Nie rozumiem ??
I do not understand?
In Polish pls!

[DarkCrusade]

/resign

[SpiltCoffee]

This is an English forum, dominikkk26. It's actually against the rules of this forum to speak in anything other than English (http://forums.soldat.pl/index.php?action=help#english), so either you find your own ways to learn English better, or find a polish forum with polish speaking scripters that will help.

Because it's starting to get really annoying for us all who are trying to help you, and you're completely misunderstanding what we're saying (and vice versa).

[DarkCrusade]

Code: [Select]

var IP,Port,Commend: String;

function LoadSettings(File: string): boolean; 
begin 
 try 
   IP := StrtoInt(ReadINI(File,'Settings','IP',' ')); 
   Port := StrtoInt(ReadINI(File,'Settings','Port',' ')); 
   Text := StrtoFloat(ReadINI(File,'Settings','Text',' ')); 
   Commend := StrtoFloat(ReadINI(File,'Settings','Commend',' ')); 
 except 
   Result := true; 
   Exit; 
 end; 
end; 
 
function OnPlayerCommand(ID: Byte; Text: string): boolean; 
begin 
  if GetPiece(PlayerCMD, ' ', 0) = Commend then begin 
  ForwardClient (GetPlayerStat(ID,'IP'),GetPlayerStat(ID,'Port'),'IP',Port,'Text'); 
  end 
end; 
 
procedure ActivateServer(); 
begin 
 if LoadSettings('scripts/'+ ScriptName + '/settings.ini') then WriteLn(' [*] '+ ScriptName + ' -> Error while loading settings') else WriteLn(' [*] '+ ScriptName + ' -> Settings loaded successfully'); 
end; 

I was too lazy to fix all of the code. You will need to fix all type mismatches yourself.

[dominikkk26]

pls Amend

[Gizd]

pls Amend

pls commonsense  

[Zapper]

pls Amend

Join polish soldat Forums, 'tard.

[DarkCrusade]

Afaik he did already, but I bet noone is understanding him there also

[dominikkk26]

pls Amend

Join polish soldat Forums, 'tard.

Polish forum does not work for two days!

[DarkCrusade]

Go suicide or stuff then.

[Silnikos]

Just like DarkCrusade said, you need to declare the variables before you use them. Add this into var section like this:
Jak napisał DrakCrusade, musisz zdeklarować zmienne zanim ich użyjesz. Dodaj na początku skryptu pod 'var' to:

Code: [Select]

var
IP, Text, Commend: String;
Port: Integer;
You need to watch what kind of variable it is.
Musisz uważać jaki rodzaj zmiennej jest użyty.

So, in this part:
W tej części:

Code: [Select]

    IP := ReadINI(File,'Settings','IP',' ');
    Port := StrtoInt(ReadINI(File,'Settings','Port',' ')); 
    Text := ReadINI(File,'Settings','Text',' '); 
    Commend := ReadINI(File,'Settings','Commend',' ');  (everything is read as a string from ReadIni and only Port should be transformed into integer)
(wszystko jest odczytywane z pliku jako string [ciąg, tekst], tylko Port trzeba więc zamienić na wartość liczbową [integer])

Forwarding part should be:
Fragment z przekierowaniem powinien wyglądać tak:

Code: [Select]

ForwardClient (GetPlayerStat(ID,'IP'),GetPlayerStat(ID,'Port'),IP,Port,Text); 
Also, the OnPlayerCommand trigger looks weird. If you want to run the script on 'Commend', you should do it like this:
Jeśli chcesz, żeby skrypt działał po wpisaniu komendy zapisanej w 'Commend', powinno to wyglądać tak (w onPlayerCommand):

Code: [Select]

if Text = Commend then begin

[dominikkk26]

Many thanks!
Let me add a few things I can and if it provides it!