How can I get ping?

[MrHamsTR]

I want learn ping on playerspeak with !ping
I tried sth simple;

Code: [Select]

Const
 Color = $FEDEBA; //Color to be used
ErrorColor = $FF6155; //Error's Color.


Function OnPlayerSpeak(ID: Byte; Text: String): Boolean;
 Var
  S: Integer;
   Begin
    if Text = '!ping' Then
     WriteConsole(ID,'Ping: '+IDToPing(ID),Color);

   if (GetPiece(Text,' ',0) = '!ping') AND (GetPiece(Text,' ',1) <> Nil) Then
 Try
  S := StrToInt(GetPiece(Text,' ',1));
   if GetPlayerStat(S,'Active') = True Then Begin
   WriteConsole(ID,'Ping '+IDToName(S)+': '+GetPlayerStat(S,'Ping'),Color);
  end else WriteConsole(ID,'Bu oyuncu serverde degil!!',ErrorColor);
 Except
  WriteConsole(ID,'ID belirt, isim degil!!',ErrorColor);
 end;
end;
It isn't working, compile result;
Compiling ping -> ping.pas...
ping -> [Error] (12:31): Unknown identifier 'IDToPing'
Unable to find variable
Shutting down server...
Disconnected.

What is wrong?

[Falcon`]

 WriteConsole(ID,'Ping: '+GetPlayerStat(ID, 'Ping'),Color);

[MrHamsTR]

It doesnt work Nothing seems, when I typed !ping I can't see anything, in baka and in soldat :S only my text on screen :S

[Bonecrusher]

There's a script written by Silnikos somewhere on the forums. I think its called PingRate

[skrX]

@MrHamsTR: learn to pascal. Here you will find what you need: http://devs.soldat.pl/index.php/Server_Scripting
Try to solve the problem alone. Learn from your mistakes.

Code: [Select]

procedure onplayerspeak(ID: byte; Text: string);
begin
if (text='!ping') then
begin
writeconsole(ID,'Your ping: '+getplayerstat(ID,'ping'), $FFFFFFFF);
end;
end;


Combination:

When a player type !ping name, display ping another player.

Code: [Select]

function getname(Name: string): byte;
var i: byte;
begin
result := 0;
for i := 1 to 32 do
if getplayerstat(i,'active')=true then
begin
if containsstring(lowercase(getplayerstat(i,'name')),lowercase(name)) then
begin
result := i;
break;
end;
end;
end;

procedure showping(ID: byte; targetname: string);
var target:byte;
begin
if targetname <> '' then target := getname(targetname) else target := ID;
if target = 0 then begin exit;
end;
writeconsole(ID,'Player: '+getplayerstat(target,'name'),$FFFFFFFF);
writeconsole(ID,'Ping:   '+getplayerstat(target,'ping'),$FFFFFFFF);
end;

function onplayerspeak(ID: byte; Text: string): boolean;
begin
if getpiece(text,' ',0) = '!ping' then showping(ID,getpiece(text,getpiece(text,' ',0)+' ',1));
end;


[MrHamsTR]

Stop the shouting!
When I want a script, everybody shout me "Learn Pascal or stfu try it, everytime you just want" etc etc

And did I tell "I didnt try write and check 2-3 times" ?
What is your problem with me!?

@Bonecrusher
If I want "please gimme ping script", sure, you will shout me.

Guys, you never respect me

..

[skrX]

Thank for help?

When I want a script, everybody shout me "Learn Pascal or stfu try it, everytime you just want" etc etc

When I want a script

You want script?

Scripting Discussions and Help do you understand? Here are helping, correcting errors.
If someone want, write for you small script. But, how can?

When I hear such nonsense, until it makes me sick.
You modify large scripts, but you don't know the basics. You can see that you are having problems with pascal. Such simple errors.

@Bonecrusher
If I want "please gimme ping script", sure, you will shout me.

Download and search: http://forums.soldat.pl/index.php?topic=42553.0

[MrHamsTR]

Yeah I want learn it I want do it, I wasnt born with English and Pascal so I cant learn it easily like you.
Good English almost everytime in here, learn see tell ask and learn. But I cant do it.
I've not got enough time and I dont know pascal language, I dont know characters what for.
I want learn yes I'm trying, old days, I was want but now I'm trying is it good? or not?
I'm happy, sure I have got 5 servers and I'm a Soldat player with you guys but problem is you never respect other player or only me I see that :/
Show me your respect and help, I did wrongs I know etc; I didnt wait and more posts I know..
But I will try and I will wait your helps okay? If 10 minutes later if 10 years later, I will wait cause I cant learn it, my English isnt good enough for it.
For all, again shout me. If you gonna warn or ban me, I will play on my servers with my 2-3 friends.

Btw, thanks for scald.

[Falcon`]

What's frustrating about your posts is not the fact that you keep asking questions, because that's good and in a way even appreciated. The frustrating part is that you can't even form your question properly because you don't understand the nature of the problem. And when you get the answer, you probably don't understand it.
If you want to learn pascal, ask uncle google for some pascal tutorials, i can bet that there are even some available in Turkish.

[MrHamsTR]

No needed anymore thank you.
It was just a ping script.
I didnt do anything that nothing to tell them

[CheeSeMan.]

yeah he did not do anything that nothing to tell them, so back off guys.

[DevilX4]

yeah he did not do anything that nothing to tell them, so back off guys.

^ This. lol