Results 1 to 4 of 4

Thread: [Stats] Why are stats not commiting?

  1. #1
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default [Stats] Why are stats not commiting?

    Hey guys,

    Code:
    program xtraivy;
    
    {$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i SRL/SRL/skill/woodcutting.simba}
    {include SPS/SPS.simba}
     Var
      Gained: Integer;
      {♠===================================================================♠
    
          ♠XtraIVY♠    CrushPrice := GetGEPrice(6693);
    
          ♠Release Date♠: 17/02/2012
    
          ♠Author♠: xtrapsp
    
          ♠Support♠: http://villavu.com/forum/showthread.php?t=75528
    
        Changelog:
          23/02/2012 - Changed around with the Nest Settings
          20/02/2012 - Cleaned up script a bit + Setup script for addons
          17/02/2012 - Chopping done.
          18/02/2012 - Added Various antiban.
          19/02/2012 - Added elements which aren't in use yet.
    
    
      ♠===================================================================♠}
    
     Const
     SRLStats_Username = '';
     SRLStats_Password = '';
     NumbOfPlayers=      1;
     StartPlayer=        0;
    
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer  := 0;
    
      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Nick := '';
        Pin  := '';
        BoxRewards := ['Xp', 'mote', 'ostume', 'ssence'];
        Member := True;
        Active := True;
      end;
    end;
    
    procedure CheckSRLStats;
    begin
        if ((SRLStats_Username= '') and (SRLStats_Password = '')) then
          begin
            case MessageBox('No Stats account entered, would you like to register?','SRL Stats',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://stats.villavu.com/register');
                  TerminateScript;
                end;
              mrNo:
                begin
                  SetupSRLStats(837, 'Anonymous', 'anon1337');
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
          end else
        SetupSRLStats(837, SRLStats_Username, SRLStats_Password);
    end;
    
    procedure x_Stats_Commit;
    begin
      stats_IncVariable('Woodcutting EXP (Gained)', 4725);
      Writeln('Updated SRL Stats')
    end;
    
    Procedure ProgressReport;
      var
        startEXP, newExp, Gained : Integer;
    begin
        startExp := Players[CurrentPlayer].Integers[0];
        newExp := GetXPBarTotal;
        Gained := newExp - startExp;
        WriteLn('Exp gained: ' + ToStr(Gained));
        x_Stats_Commit;
    end;
    
    
    
    {♠===================================================================♠}
    
    ////////////////////////////////////////////////////////////////////////////////
    ////////////AutoColour Feature (I'm British I spell it like Colour)/////////////
    
    function IVYColour: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.03, 0.08);
    
      if not (FindColorsTolerance(arP, 4619873, MSX1, MSY1, MSX2, MSY2, 10)) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    ////////////////////////////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////////////////////////////
    
    
    function Nestcolour: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.39, 0.74);
    
      if not (FindColorsTolerance(arP, 2964028, MSX1, MSY1, MSX2, MSY2, 10)) then
      begin
        Writeln('Failed to find the nest, cannot pickup.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;
    
      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);
    
      for i := 0 to arL do
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    
      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);
    
      if (i = arL + 1) then
        Writeln('Failed to find the nest, cannot pickup.');
    end;
    
    procedure Chop;
    var
      X, Y: Integer;
    begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      SetColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.02, 0.07);
    
      if FindObj(X, Y, 'Iv', 4619873, 8) then
      begin
        mouse( x, y, 2, 2, true);
        wait(687 + random(15000))
        MMouse( x, y, 10, 10);
      end;
    
      If Not FindObj (X, Y, 'Iv', 4619873, 8) then
      begin
        Chop;
      end;
    
      (* We revert back to the defaults here. *)
      SetColorSpeed2Modifiers(0.2, 0.2);
      SetColorToleranceSpeed(1);
    end;
    
    Procedure StatsGuise(wat:String); // Thanks YoHoJo
    Begin
      Status(wat);
      Disguise(wat);
    End;
    
    Procedure Antiban_Upgrade;
    var
      I: Integer;
      CurrentCompassDegree: Extended;
    begin
      I := Random(1000);
      StatsGuise('AntiBan');
    
      case (I) of
        0..99 :
          begin
            GameTab(tab_Stats);
            HoverSkill('Woodcutting', False);
            GameTab(28);
          end;
        100..200 :
          begin
            SleepAndMoveMouse(7000 + Random(500));
            MakeCompass(CurrentCompassDegree-18+Random(32));
          end;
        200..210 :
          begin
            GameTab(Tab_Stats);
            MakeCompass(CurrentCompassDegree-2+Random(34));
            Wait(3000 + Random(500));
            GameTab(28);
          end;
        211..220 :
          begin
            BoredHuman;
            MakeCompass('N')
          end;
        221..300 :
          begin
          GameTab(Tab_Stats);
          Wait(100 + Random(1000));
          end;
      end;
    end;
    
    Procedure AFK;
    begin
      if not loggedIn then Exit;
        Case Random (100) Of
        1..15 : Wait(1000 + Random (3050));
        16..24 : Wait (1340 + Random (1093));
        25..45: Wait (1211 + Random (6000));
        46..47: Wait (20000 + Random (10000)); // This looks like you've gone to get a drink
        end;
    end;
    
    Procedure FindNest_old;
    var
      X, Y: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      If FindObjCustom(x, y, ['Ne', 'st'], [3290938,3883332], 5) Then
      begin
        Mouse( x, y, 2, 2, True);
        Writeln('Found a nest... Attempting to pickup');
        MakeCompass(10 + random(50));
      end;
    End;
    
    Procedure X_FindNest; ///FINISH THIS WHEN YOU HAVE A NEST
    var
      X, Y, Colour: Integer;
    begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
      Colour := NestColour;
    
      if FindObj(X, Y, 'Nes', NestColour, 10) then
      begin
        mouse( x, y, 2, 2, true);
      end;
    
      If Not FindObj (X, Y, 'Nes', NestColour, 10) then
      begin
        Chop;
      end;
    end;
    
    Procedure FindEmptyNest; //Probably not needed. It's a procedure incase the script drops a nest randomly?
    var
      X, Y, EmptyNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      EmptyNest := DTMFromString('mlwAAAHicY2dgYMhmZGDIAuI4IE4B4nwgLgfiIiCew8TAsByIFwDxDCCeDsTzoGKeHhYMjo4WDN7ejkC2PYObmxmDjY0Gg56eBgM+wIgHQwEA+fEMeg==')
    
      If FindDTM(EmptyNest, X, Y, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Writeln('Found a nest... Attempting to pickup');
        MMouse (x, y, 5, 5);
        MakeCompass(0 + random(50));
    
        If IsUpText('nes') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(EmptyNest);
    End;
    
    
    Procedure X_CrushNest;
    var
      X, Y, CrushNest: Integer;
    Begin
      if not LoggedIn then
        Exit;
      FindNormalRandoms;
    
      CrushNest := DTMFromString('mggAAAHicY2NgYOADYiEgFgNiGSDmZYAATijNCGULQWkTAw0gyYSBuRiwA0YcGAIAboABOg==')
    
      If FindDTM(CrushNest, X, Y, MIX1, MIY1, MIX2, MIY2) Then
      Begin
        Writeln('Found a nest inside Inventory, Attempting to crush');
        MMouse (x, y, 5, 5);
    
        If IsUpText('cru') Then
          Mouse(x, y, 0, 0, True);
      End;
    
      FreeDTM(CrushNest);
    End;
    
    Procedure Joincommunity;
      begin
        case MessageBox('While the bot is running, would you like to browse our other scripts?','Community Site',mbYesNoCancel) of
              mrYes:
                begin
                  OpenWebPage('http://bot.lizardguru.com');
                end;
              mrNo:
                begin
                  Exit;
                end;
              mrCancel: TerminateScript;
            end;
    end;
    
    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      ToggleXPBar(True);
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      Writeln('Your using XtraIvy V0.05');
      Writeln('Please report any bugs on the thread');
    
      Repeat
        Chop;
        X_FindNest;
        Antiban_Upgrade;
        X_FindNest;
        FindEmptyNest;
        AFK;
        ProgressReport;
      until(Not LoggedIn);
    End.

    This is the latest version of my script (Ignore the standards, I'm chopping it about atm)

    any reason it won't submit any info to Stats I really cannot figure it out


    Stats Page:
    http://stats.villavu.com/script/837
    Last edited by xtrapsp; 02-24-2012 at 09:54 AM.

  2. #2
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    455
    Mentioned
    0 Post(s)
    Quoted
    14 Post(s)

    Default

    Probably because people are not logging in with SRL stats. SRL can't track it w/o that.
    07Scripter
    I mostly write private scripts

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

    Default

    Open cmd and see what error it prints out in there. Too tired to look at code, but it will say whatever commit error in cmd box.


    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!

  4. #4
    Join Date
    Feb 2012
    Location
    DON'T PM ME ASKING FOR STUFF
    Posts
    2,170
    Mentioned
    38 Post(s)
    Quoted
    423 Post(s)

    Default

    Quote Originally Posted by okokokok View Post
    Probably because people are not logging in with SRL stats. SRL can't track it w/o that.
    theres an anonymous account

    I've attatched a picture showing the only Stats Info which has come up in 5 minutes
    Last edited by xtrapsp; 02-24-2012 at 10:09 AM.

Thread Information

Users Browsing this Thread

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

Posting Permissions

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