[beta] InGame ZitroStats

[Maff^]

Script Name:  ZitroStats-InGame
Script Description:  This script displays you ZitroStats Rank (and some more stats) in game.
Original Author(s): Maff^
Core Version: v2.5.2
Code:

Code: [Select]

const
PLAYER_STATS_ON=1;
PlAYER_STATS_URL='http://bl-tyrone.student.utwente.nl/zitrostats/PlayerStats.php';

var
Response: String;
ResponseLines: TStringArray;
i: integer;

procedure OnPlayerSpeak(Name, Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+Name);
ResponseLines:= split(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(NametoID(Name),ResponseLines[i]);
end;
end;
this is how it looks like:

_{Please don't look at my stupid sucking Rank/Stats}

The script is not super usefull at the moment, but more of a tech demo.

This script is very simple, after the given command !stats the server requests a simple php file that is placed in your ZitroStats directory. The scripts returns you current rank and some kill/death info.

notes:
- Don't forget to save this file as PlayerStats.php in your ZitroStats root dir.
- Make sure you change the PlAYER_STATS_URL const, and point it to the url of you own ZitroStats dir!
- The rank/stats you get are not live, because all stats get only updated once in a while (on my server thats every 2 hours)
- script doesn't work on linux servers cause of bug in split() function, it will be fixed in next dedicated version
- Should write my own HTTPEncode function to make sure it does work with all the playernames. (Until 2.6 is released)
- Could do the same for the split function... :/
- Thx to cooz for the nice (example) scripts!

I've not tested this script on linux, or on many windows servers, so i'm not sure if there are bugs. Please report them here if you find one.

[Leo]

Very nice script, however there's a bug. Doesn't work if there is a space between names. For example, "Player One" won't give any results. Must be "Player_One" or "Player.One". This makes the script useless as the majority of players have names that are more than 2 words

[EnEsCe]

Excellent, this is exactly what Leo was asking for awhile back.

You should also mention you need script safe mode to be turned off.

EDIT: Bah damn you Leo, posted before me. Yeah you need to replace spaces with %20 and so forth for the other HTML characters.

[Leo]

Yeah, if you could make this work at Linux servers would be great

[cooz]

nice script, i'm glad more people starts to write them

Leo, as Maff^ said, you have to wait till soldat v1.3.2 / dedi server v2.6 and this script will work on linux servers

[Titus]

yes, realy nice script. but i think a lot of more people would use it, if you could create a longer readme. because i dont know how to setup a apache/php/mysql server
i have 2 home soldat servers (VDSL, 5mbit). and it would be nice, if i could run  zitrostats on them.

Thank you very much.

Regards Titus

[FliesLikeABrick]

Very nice.  I was working with FoZ a long time ago to create a version of this to work with U13SSS, but that was before the server had scripting abilities... so it worked by having an external program connect to the admin connection of a server.

Nice Job

[Therier]

very pity that this doesnt work on linux servers coz i have only linux servers

[KeYDoN]

dont give up hope Therier, ask teh KeY! ;p

I got it work with my selfmade functions
HTTPEncode
xsplit

[spkka]

hi very nice stuff man! but i got one problem with zitrostats ingame when i finally
thought it would work...It gives back no result. it says server message:
and nothing more
i raelly dun know where to search anymore
thnx already  !
---
jus saw it gives this error:

getURL: Function Disabled (safemode = on)

[chrisgbk]

hi very nice stuff man! but i got one problem with zitrostats ingame when i finally
thought it would work...It gives back no result. it says server message:
and nothing more
i raelly dun know where to search anymore
thnx already  !
---
jus saw it gives this error:

getURL: Function Disabled (safemode = on)

You'll have to disable safemode, I believe there is a configuration option for such in server.ini.

[EnEsCe]

you can only disable safe mode by starting the server with -safe 0

[spkka]

well i did... now it does noothing at all anymore...
jus says !stats  and thats all not``server message:`
anymore :/
Arsse doens't  give any error...
Plz help



this is the network.pas maybe i did something wrong in here

function OnRequestGame(IP: string;State: integer):integer;
begin
Result := State;
end;

procedure OnJoinGame(IP, Nickname: string;Team: byte);
begin
end;

procedure OnJoinTeam(IP, Nickname: string;Team: byte);
begin
end;

procedure OnLeaveGame(IP, Nickname: string;Team: byte);
begin;
end;

procedure OnFlagGrab(ID: integer;TeamFlag: byte;GrabbedInBase: boolean);
begin
end;

procedure OnFlagReturn(ID: integer;TeamFlag: byte);
begin
end;

procedure OnFlagScore(ID: integer;TeamFlag: byte);
begin
end;

procedure OnPlayerKill(Killer,Victim,Weapon: string);
begin
end;

procedure OnPlayerRespawn(ID: integer);
begin
end;


const
PLAYER_STATS_ON=1;
PlAYER_STATS_URL='C:Program FilesEasyPHP1-8wwwitrostatsPlayerStats.php';

var
Response: String;
ResponseLines: TStringArray;
i: integer;

procedure OnPlayerSpeak(Name, Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+Name);
ResponseLines:= split(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(NametoID(Name),ResponseLines);
end;
end;


procedure OnMapChange(NewMap: String);
begin
end;


Date Posted: April 12, 2007, 07:55:01 AMalright! got it to work ...
C:/program..... needed to be http://localhost/zitrostats/playerstats.php
DUH!

[spkka]

the whole zitrostats don´t work with 1.4 right?

[mikembm]

This code should work:

Code: [Select]

const
PLAYER_STATS_ON=1;
PlAYER_STATS_URL='http://bl-tyrone.student.utwente.nl/zitrostats/PlayerStats.php';

var
Response: String;
ResponseLines: TStringArray;
i: integer;

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;

procedure OnPlayerSpeak(Name, Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+HTTPEncode(Name));
ResponseLines:= xsplit(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(NametoID(Name),ResponseLines[i]);
end;
end;

[Leo]

Error:

Code: [Select]

(08:21:37)  [*] [Hint] (65:1): Variable 'S' never used
(08:21:37)  [*] [Error] (147:56): Unknown identifier 'Name'

[EnEsCe]

Agh for the millionth time, 1.3.1 scripts do not work with 1.4.1

[mikembm]

Oh yeah. When I tried this code before I had the same error.
His new version of xsplit fixed it.

I modified my above post also.

[Leo]

Hmm.. error again:

Code: [Select]

07-05-04 07:39:40  [*] [Error] (94:56): Unknown identifier 'Name'
p.s Nvm, my mistake. No errors but no status either  Doesn't work.

[mikembm]

I have seen this work... Make sure safe mode is off on your server (it's on by default)
Also make sure you have uploaded that PHP file and set the correct link to it in the script.

[Leo]

Safe mod is off and the file is there. When I do !stats, nothing happens. It was working fine with 1.3.1

[spkka]

yeah  kinda suckage, its only becus of the log named diff then before...
Looking into it now.. I will send it to you when it works  leo!

[ManSoft|Warlord]

I believe this will work...:

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+IDToName(ID));
ResponseLines:= xsplit(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(ID,ResponseLines[i]);
end;

Date Posted: June 05, 2007, 08:11:56 AMDon't forget to include KeYDoN's xsplit-function

[urraka]

You should use HTTPEncode like this

Code: [Select]

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+HTTPEncode(IDToName(ID)));
ResponseLines:= xsplit(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(ID,ResponseLines[i]);
end;


[spkka]

i know it works for a month now,  thnx to make things clear for other people tho

[miketh2005]

can someone zip this pls thanx

[Corsair]

copied PerroAZUL's script, started the server - got an error...
Anyways, and 'end' is missing. Should me like this:

Code: [Select]

procedure OnPlayerSpeak(ID: integer; Text: string);
begin
if((Text='!stats')and(PLAYER_STATS_ON=1)) then begin
Response:= GetURL(PLAYER_STATS_URL+'?name='+HTTPEncode(IDToName(ID)));
ResponseLines:= xsplit(Response,chr(13));
for i:=0 to ArrayHigh(ResponseLines) do SayToPlayer(ID,ResponseLines[i]);
end;
end;

[addict]

is it fully working on linux?

[Norbo]

Make sure you change the PlAYER_STATS_URL const, and point it to the url of you own ZitroStats dir!

I don't get it...