copied PerroAZUL's script, started the server - got an error...
Anyways, and 'end' is missing. Should me like this:
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;