Results 1 to 3 of 3

Thread: Help with stats

  1. #1
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with stats

    And Time Running for my sig, how do I add that as a reporting variable?

    Procedure Progress;
    Var
    GotThiefDone : Integer;
    Begin
    ClearDebug;
    WriteLn('Thieved ' + IntToStr(Thiefs) + ' times');
    WriteLn('Got Caught ' + IntToStr(Unsuccesful) + ' times');
    GotThiefDone:=Thiefs-Unsuccesful;
    WriteLn(IntToStr(GotThiefDone) + ' succesful thieves');
    WriteLn('Worked For: ' + TimeRunning);
    End;


    That's my prog obviously. How do I report the time running? I have the rest though.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I'll help you-- I will edit post in a minute.

    In your progress report, (or when it switches players), have

    SCAR Code:
    procedure Proggy;
    var
      i: Integer;
    begin
      GetAllLevels;
      ClearDebug;
      WriteLn('.-----------[Fight Cave Runner! By Hy71194]----------.');
      WriteLn('|                                                     ');
      WriteLn('| -Went  into  cave : '+IntToStr(EnterCount)+' times!');
      WriteLn('| -Total time spent : '+TimeRunning);
      WriteLn('|                                                      ');
      WriteLn('| -Attack level     : '+IntToStr(Players[CurrentPlayer].Level[1]));
      WriteLn('| -Strength level   : '+IntToStr(Players[CurrentPlayer].Level[2]));
      WriteLn('| -Defense level    : '+IntToStr(Players[CurrentPlayer].Level[3]));
      WriteLn('| -Hitpoint level   : '+IntToStr(Players[CurrentPlayer].Level[9]));
      WriteLn('| -Magic level      : '+IntToStr(Players[CurrentPlayer].Level[6]));
      WriteLn('| -Range level      : '+IntToStr(Players[CurrentPlayer].Level[13]));
      WriteLn('|                                                     ');
      WriteLn('|            ~~~~ Thanks for using! ~~~~              ');
      WriteLn('| Post up your proggies at the location you leeched this from! :D');
      WriteLn('.----------------------------------------------------.');
      Wait(1);
      KeepUpStats;
    end;

    Theres my proggy report.

    Heres the function KeepUpStats (my own custom func, its not in SRL)

    SCAR Code:
    procedure KeepUpStats;  //Sends the SRL Stats to the server.
    begin
      ReportVars[0] := ReportVars[0] + 1; //Cave Entry +1
      Wait(1);
      SRLRandomsReport;
    end;

    SRLRandomsReport; sends all the variables (if you have any) and the time running. If you have a var in your global stats, then you do
    SCAR Code:
    ReportVars[[B]var number[/B]] := ReportVars[[B]your var number again[/B]] := + 1;
    and it will report it on the stats. SRLRandomsReport; clears the custom +1 var you have declared (I think), so just ignore that.

    Now your stats should work, tell me if it does.

    Enjoy.
    ~Harry


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, I think it works but not 100%, it was just time (rest was working though) so ty muchos! :P.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Srl Stats?
    By Pierre14 in forum News and General
    Replies: 2
    Last Post: 03-17-2008, 10:57 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •