Temporary SRL Stats

Hey all,

I'm afraid I have to say that there hasn't been much progress on the SRL Stats system. Our plan is to create a plugin for vBulletin, link stats with userprofiles and have a more extended database (as explained here by Wizzup). This system may take another while.

Instead, I have whipped up a temporary system for SRL / Scripts / Users to track scripts. It has more features than the old one, but it's still not as good as the planned version (this uses a different database).

A short summary of the features:

• Tracks times/randoms for user/script or combined
• It tracks every script for every user so you can see who is running/has run your script
• It also has the option to manage your players (change location/active).
• Scripters have the option to download the script's info (news/latest version/outdated?)
• Version history (with number of page-hits).
• View averages of randoms
• Stats levels (1 - 100), no one will max out this time :p
• Able to mark a script as outdated (by scripter/admin). If a script hasn't been updated in 3 months, it says "maybe outdated" (updating news counts as updating).

Currently, I have made it so you need either a UserID + Pass OR a ScriptID, so scripters can follow their script even if the user doesn't have an ID. I might disable that though..

SCAR Code:

const
  Stats_Link = 'http://scriptmanager.freehostia.com/submit.php';

var
  Stats_UserID, Stats_Password, Stats_ScriptID: string;
  Stats_LastTime: Integer;

  Stats_CustomVars: array [1..20] of Integer;
  
procedure Stats_CheckOutput(s: string);
var
  i: Integer;
  sa: TStringArray;
begin
  sa := Explode(#10, s);
  for i := 0 to High(sa) do
    if (Trim(sa[i]) <> '') then
      if StartsWith('ERROR(1)', sa[i]) then
      begin
        WriteLn('STATS: "' + sa[i] + '"');
        Stats_UserID := '';
        Stats_Password := '';
      end
      else if StartsWith('ERROR(2)', sa[i]) then
      begin
        WriteLn('STATS: "' + sa[i] + '"');
        Stats_ScriptID := '';
      end
      else
        WriteLn('STATS: "' + sa[i] + '"');

end;
  
function Stats_GetScriptInfo(out Version, News, Link: string; out OutDated: Boolean; out LastUpdate_HoursAgo: Integer): Boolean;
var
  Client: Integer;
  s: string;
  sa: TStringArray;
begin
  Result := False;
  if (Stats_ScriptID = '') then
    Exit;
    
  Client := InitializeHTTPClient(False, False);
  ClearPostData(Client);
  AddPostVariable(Client, 'do', 'getinfo');
  AddPostVariable (Client, 'sID', Stats_ScriptID);
  
  s := PostHTTPPageEx(Client, Stats_Link);
  sa := Explode(#10'GLUE'#10, s);
  if (Length(sa) = 5) then
  begin
    Result := True;
    Version := sa[0];
    News := sa[1];
    Link := sa[2];
    OutDated := sa[3] = '1';
    LastUpdate_HoursAgo := StrToIntDef(sa[4], -1);
  end
  else
    Stats_CheckOutput(s);
  
  FreeHTTPClient(Client );
end;

var
  Stats_GlobalVars: array[1..24] of Integer;

procedure Stats_SendReport;
var
  i, Client, Time: Integer;
  s: string;
begin
  if (Stats_UserID = '') and (Stats_Password = '') and (Stats_ScriptID = '') then
    Exit;
    
  Client := InitializeHTTPClient(False, False);
  ClearPostData(Client);
  AddPostVariable(Client, 'do', 'submit');

  Time := (GetTimeRunning - Stats_LastTime) div 1000 div 60;
  if (Time < 5) then
    Time := 0
  else
    Stats_LastTime := GetTimeRunning;
  AddPostVariable(Client, 'sTime', IntToStr(Time));
  
  if (Stats_UserID <> '') and (Stats_Password <> '') then
  begin
    AddPostVariable(Client, 'uID', Stats_UserID);
    AddPostVariable(Client, 'uPass', Stats_Password);
  end
  else
  begin
    AddPostVariable(Client, 'uID', '-1');
    AddPostVariable(Client, 'uPass', '');
  end;

  if (Stats_ScriptID <> '') then
  begin
    AddPostVariable (Client, 'sID', Stats_ScriptID);

    for i := Low(Stats_CustomVars) to High(Stats_CustomVars) do
    begin
      AddPostVariable(Client, 'rndCustom' + IntToStr(i), IntToStr(Stats_CustomVars[i]));
      Stats_CustomVars[i] := 0;
    end;
  end
  else
  begin
    AddPostVariable (Client, 'sID', '-1');
  end;

  for i := Low(Stats_GlobalVars) to High(Stats_GlobalVars) do
  begin
    case i of
      1: s := IntToStr(SRL_Logs - Stats_GlobalVars[i]);
      2: s := IntToStr(Banks - Stats_GlobalVars[i]);
      3: s := IntToStr(RandSolved[rand_Death] - Stats_GlobalVars[i]);
      else if ((i - 3) < Length(RandSolved) - 1 {for Death}) then
        s := IntToStr(RandSolved[i - 3] - Stats_GlobalVars[i]);
    end;
    AddPostVariable(Client, 'rndGlobal' + IntToStr(i), s);
    Stats_GlobalVars[i] := Stats_GlobalVars[i] + StrToInt(s);
  end;
  
  s := PostHTTPPageEx(Client, Stats_Link);
  Stats_CheckOutput(s);
  FreeHTTPClient(Client);

  if (SRL_Procs[srl_OnSendStats] <> nil) then
    SRL_Procs[srl_OnSendStats]();
end;

procedure Stats_SendAccountInfo;
var
  i, Client: Integer;
  Accounts: TStringArray;
begin
  if (Stats_UserID = '') and (Stats_Password = '') then
    Exit;

  Client := InitializeHTTPClient(False, False);
  ClearPostData(Client);
  AddPostVariable(Client, 'do', 'setaccounts');
  AddPostVariable(Client, 'uID', Stats_UserID);
  AddPostVariable(Client, 'uPass', Stats_Password);
  if (Stats_ScriptID <> '') then
    AddPostVariable (Client, 'sID', Stats_ScriptID)
  else
    AddPostVariable (Client, 'sID', '-1');

  SetLength(Accounts, HowManyPlayers);
  for i := 0 to HowManyPlayers - 1 do
    Accounts[i] := Implode('.|€stat€|.', [Players[i].Name, Players[i].Loc, IntToStr(Integer(Players[i].Active))]);

  AddPostVariable(Client, 'accInfo', Implode(#10'ACC'#10, Accounts));
  Stats_CheckOutput(PostHTTPPageEx(Client, Stats_Link));
  FreeHTTPClient(Client);
end;

procedure Stats_ManageAccounts;
var
  i, ii, Client: Integer;
  s: string;
  Accounts, Stats: TStringArray;
begin
  if (Stats_UserID = '') and (Stats_Password = '') then
    Exit;

  Client := InitializeHTTPClient(False, False);
  ClearPostData(Client);
  AddPostVariable(Client, 'do', 'getaccounts');
  AddPostVariable(Client, 'uID', Stats_UserID);
  AddPostVariable(Client, 'uPass', Stats_Password);
  AddPostVariable (Client, 'sID', '-1');

  s := PostHTTPPageEx(Client, Stats_Link);
  Accounts := Explode(#10'ACC'#10, s);
  for i := 0 to High(Accounts) do
  begin
    Stats := Explode('.|€stat€|.', Accounts[i]);
    if (Length(Stats) = 3) then
    begin
      for ii := 0 to HowManyPlayers - 1 do
        if (LowerCase(Players[ii].Name) = LowerCase(Stats[0])) then
        begin
          Players[ii].Loc := Stats[1];
          Players[ii].Active := Stats[2] = '1';
          Break;
        end;
    end
    else
    begin
      Stats_CheckOutput(s);
      Break;
    end;
  end;
  
  FreeHTTPClient(Client);
  stats_SendAccountInfo;
end;

That's the SCAR part. If you want to use it in a script; just copy the functions in your script, set Stats_UserID, Stats_Password and Stats_ScriptID and call Stats_SendReport and Stats_ManageAccounts every ~15 minutes..

Oh, and here's the link. The index can display a thread from the forums, I am planning to use this for news. Right now, it is just a random thread ;)

~Nielsie95

I'll look at making a template. What are you looking for?

This is great nielsie :)
Thanks, I signed up :p

A signature size image, not too flashy, not too paint-like, which has room for displaying things like Total Time, Total Users?, Users Running?, Script Rank, Stats Level?, Current Version, etc. I think it's best to have 2 signatures, 1 for scripts and 1 for users. I also think it's best to have the text on the template, so only the value has to be filled in (so Users running: <empty> and empty spaces for the title and such). I'm not sure if that's the best way though, I haven't really looked into it. :p

Erm. Yeah. I.. got.. you?

I mean I can make one with the slots for the appropriate scripts but it wouldnt have any personalized variables. Only the fixed ones like Total Users, etc, etc.

I know, but I think a signature with 10 personalized vars would become a bit too big. So it would only have static ones, but what I meant is that there could be a lot of things on it and I was just throwing some suggestions. I don't know what users want to see in a signature, just do as you like ;)

Quote:

---

Originally Posted by nielsie95

I know, but I think a signature with 10 personalized vars would become a bit too big. So it would only have static ones, but what I meant is that there could be a lot of things on it and I was just throwing some suggestions. I don't know what users want to see in a signature, just do as you like ;)

---

Well I need to know what static ones you want on there.

For scripts I'd say Name + Version (don't need a prefix?). Total Time, Script Rank, Stats Level are a must too I guess.

Users Running / Total Users
Total Randoms
Randoms per Hour
Last connection

Are all optional, see which you can fit (IMO the users running would be cool).

For the users the same, except scripts running would be a bit overkill?


I was thinking you could also have signature that's related to both the script and the user. This one could have the same ones + User / Script (percentage of time the user has contributed to this script's total time).


I do not really have an idea in my head for the signatures, so feel free to mix in your own ideas.
Also, you don't have to add the prefixes, but I figured it's easier with measuring (you could also use symbols).

so the stats password is our password to log onto our account here, at least that is the way i read it.

You sign up with a username + password over at the site. You'll have to use that password. It is in no way linked to these forums.

ahh ok, i thought the UID was /member.php?u=47808 /facepalm

Nope, my uID is 1 and yours is 4 :)

Quote:

---

It also has the option to manage your players (change location/active).

---

so (i think im wrong again) we can change if a player is active whilst the script is running? if so, how? also, can we add this to Jr Mem scripts?

Yes, that's possible. If you have Stats_ManageAccounts somewhere in your script it sends/receives the (updated) player status. You can best place this in your report procedure (for progress reports) or something like that, something that only triggers every ~15 minutes. If all accounts are disabled and you want to be sure you can reset them, you'll have to modify SRL in NextPlayer. I'll do this if SRL is going to use this.. Then, when you have 1+ account sent in, there will show an extra link in your profile.

I'm ok with using it in Junior Members, but remember that there might be bugs in it and these stats will most likely be reset if it's released.

Good work nielsie95 :). Will try this baby out.

Ik hou van je <3

Could you increase custom vars to 20?

Well done nielsie, it looks real fresh! :p



~NS

Awesome! I'm going to get this going in my script(s) as soon as possible.

Is it possible to make a "Clear Data" or something on the website? Could be useful for erasing stats that come from script testing 0_o

If its script testing then you should be able to declare it. It should display as script tests rather than user usage.

Should track versions of scripts too, say 3 version. So if you had 1.0 it would save the stats. Then when 1.1 is released you start fresh. But you can still see 1.0

Theres alot more potental in this.

NICE

/me adds to all my scripts

so far from my "test" it works pretty good using custom variables, cant wait till it goes full force :)

Wow it's awesome, goodjob.

Quote:

---

Originally Posted by rogeruk

If its script testing then you should be able to declare it. It should display as script tests rather than user usage.

Should track versions of scripts too, say 3 version. So if you had 1.0 it would save the stats. Then when 1.1 is released you start fresh. But you can still see 1.0

Theres alot more potental in this.

---

You wouldn't want to discourage people from updating their scripts, would you?

No not to discourage. But if you keep the stats from an old version then the stats wont be totally correct because you may have made the script faster and more effective.

They wouldnt have the ability to use old scripts just to see the old stats. True stats of how your script is progressing.

Integrate this with Tucos. :)
Edit - Works great for scripts but for some reason it's not logging me in? So my account gets no time on it, while the script does. http://scriptmanager.freehostia.com/profile.php?uid=15 and http://scriptmanager.freehostia.com/scripts.php?sid=7

Quote:

---

Originally Posted by IceFire908

Could you increase custom vars to 20?

---

I could do that :)

Quote:

---

Originally Posted by Infintry001

Awesome! I'm going to get this going in my script(s) as soon as possible.

Is it possible to make a "Clear Data" or something on the website? Could be useful for erasing stats that come from script testing 0_o

---

Yeah, I'll add that.

Quote:

---

Originally Posted by rogeruk

No not to discourage. But if you keep the stats from an old version then the stats wont be totally correct because you may have made the script faster and more effective.

They wouldnt have the ability to use old scripts just to see the old stats. True stats of how your script is progressing.

---

That's actually a pretty good idea, but I don't think I'll integrate it any time soon.

Quote:

---

Originally Posted by The Claw

Integrate this with Tucos. :)
Edit - Works great for scripts but for some reason it's not logging me in? So my account gets no time on it, while the script does. http://scriptmanager.freehostia.com/profile.php?uid=15 and http://scriptmanager.freehostia.com/scripts.php?sid=7

---

tuCos is already integrated ;)

Also, I helped The Man with integrating it in a script. So that might be a useful resource if you're having trouble :)

Adding stats tutorial would be helpful to :).

To add to custom variables assign Stats_CustomVars[YourIndexNumber] as an integer then call Stats_SendReport and Stats_ManageAccounts. When you call those two functions the stats are updated on the site, and your variables are reset to 0. So to add to an ore counter for example, I would count the ores mined in 1 load, assign it to the Stats_CustomVars array and then call those two functions.

This looks very good already, gj niels

I've maked this a while back, you might be able to use it.

The idee was: bronze botter (noob), iron botter (less noob) ~ rune botter (win)

http://img8.imageshack.us/img8/7446/previewpng.png

photoshop wonder:

Quote:

---

Originally Posted by MasterKill

This looks very good already, gj niels

I've maked this a while back, you might be able to use it.

The idee was: bronze botter (noob), iron botter (less noob) ~ rune botter (win)

http://img8.imageshack.us/img8/7446/previewpng.png

photoshop wonder:

---

ohhh i like it, and we can go through the god armor to possibly?

Quote:

---

Originally Posted by Rubix

ohhh i like it, and we can go through the god armor to possibly?

---

I can do full bandos with slayer mask or dragon chain with red mask if you and niels like?

Quote:

---

Originally Posted by MasterKill

I can do full bandos with slayer mask or dragon chain with red mask if you and niels like?

---

bronze > iron > steel > black > mith > addy > rune > god > (barrows of some sort) > dragon > NAKED!

Quote:

---

Originally Posted by rubix

bronze > iron > steel > black > mith > addy > rune > god > (barrows of some sort) > dragon > naked!

---

+1

t~m

z0mg Masterkill if you could get my old signature to work again I will love you forever.

http://i25.tinypic.com/o8fbsj.png

I updated the site. It should be easier to see your Script and User ID now. Also added an option to reset your script's time (I made it so the script time gets reset, but the players' time stays the same), there might be some bugs left in there though..

I've changed some of the SCAR functions too, so make sure you update them :)
I'll expand the number of custom variables later.

Those look pretty cool, MK :)

Thanks, nielsie. Your work is appreciated =)

Accounts[i] := Implode('.|€stat€|.', [Players[i].Name, Players[i].Loc, IntToStr(Integer(Players[i].Active))]);

Can't you use Players[i].Nick instead of .Name?

Maybe send a md5 encrypted password to the server that way if people want they can set the bots password encrypted already incase the user doesn't have one allowing their password to be safe?

I don't know just a suggestion.

A simple comment feature on scripts would be cool, a blog-comments sort of thing. We have the forums for commenting anyway, but it still might be useful. Also, a way for users to upload thier own custom stat sigs - you could have a form to fill in on your site which details what pixels to add the text at, and other custom options that the php handles, and then all they need to do is upload the sig.

Quote:

---

Originally Posted by tarajunky

Accounts[i] := Implode('.|€stat€|.', [Players[i].Name, Players[i].Loc, IntToStr(Integer(Players[i].Active))]);

Can't you use Players[i].Nick instead of .Name?

---

Sure, but I have accounts with the same nickname. You can change it if you prefer it that way though.

Quote:

---

Originally Posted by Seroko

Maybe send a md5 encrypted password to the server that way if people want they can set the bots password encrypted already incase the user doesn't have one allowing their password to be safe?

I don't know just a suggestion.

---

I'm not sure really sure what you mean? Send in a md5 of the players' passwords? So you have to fill in the password before changing a player's status? I don't think that's necessary ;)

Quote:

---

Originally Posted by The Claw

A simple comment feature on scripts would be cool, a blog-comments sort of thing. We have the forums for commenting anyway, but it still might be useful. Also, a way for users to upload thier own custom stat sigs - you could have a form to fill in on your site which details what pixels to add the text at, and other custom options that the php handles, and then all they need to do is upload the sig.

---

The comment future is not needed in my opinion. As you said, we have the forums for that. The signature thing would indeed be very cool, but first I want to get the basic signatures to work. :)