Results 1 to 4 of 4

Thread: Login error?

  1. #1
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Login error?

    So this is the error I get when I try to hit play and let it log itself in:
    Code:
    Error: Out Of Range at line 365
    HTTPClient[0] has not been freed in the script, freeing it now.
    The following DTMs were not freed: [SRL - Lamp bitmap, 1]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap]

    ** LINE 365**
    Code:
    function stats_Commit: Boolean;
    The function ^ gets highlighted in the "globalstats" section that pops up in a new tab.


    Here is my script:
    Code:
    program MattiesPooter;
    
    {$DEFINE SMART}
    {$i SRL/SRL.Simba}
    
    const
      SERVER            = 97;  // Enter "0" to pick a random server.
      MEMBERS           = True; //False if F2P
      //BreakEvery        = 250;  // How long to bot before break(min)
      //BreakFor          = 10;    // Break Length(min)
      NumbOfPlayers     = 1;
      StartPlayer       = 0;
      AntibanAttempt    = 8; //How much Antiban? 1=Always  12+=Rare
    procedure DeclarePlayers;
      var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards := ['XP'];
    
      With Players[0] do
      begin
        Name := 'name'; //Username.
        Pass := 'pass'; //Password.
        Active := True;
        Pin := 'pin' // Bank Pin
      end;
    
    end;
    
    procedure FailSafe (Reason:String);
    begin
      Players[CurrentPlayer].Loc:=Reason;
      Logout;
      Stats_Commit;
      TerminateScript;
    end;
    
    procedure AntiBan;
    begin
      Writeln('Antiban attempt..');
      //Disguise('Antiban attempt..');
      case random(AntibanAttempt) of
        0: case random(4) of
             0: begin Writeln('Performing Antiban!'); HoverSkill('Herblore',false); GameTab(Tab_Inv); end;
             1: begin Writeln('Performing Antiban!'); PickUpMouse; end;
             2: begin Writeln('Performing Antiban!'); RandomMovement; end;
             3: begin Writeln('Performing Antiban!'); RandomAngle(SRL_ANGLE_HIGH); end;
           end;
      end;
    end;
    procedure Herb;
    var
      Time:Integer;
      begin
        Writeln('Herblore-ing..');
        //GetColorsBox(613,329,632,348,True);
        Mouse(621,340,10,10,False);
        WaitOption('Use', 500);
        Wait(200+random(100));
        Mouse(663,339,10,10,True);
        Wait(800+random(200));
        Mouse(256,430,50,20,True);
        MarkTime(Time);
        repeat
          Wait(2000+random(100));
          Antiban;
        until (TimeFromMark(Time)>16000+random(1000))
        end;
    procedure Bank;
    var
      x,y,Time:Integer;
      begin
        MakeCompass('E');
        SetAngle(SRL_ANGLE_HIGH);
        MarkTime(Time);
        repeat
        MMouse(223,168,5,12);
        GetMousePos(x,y);
        Wait(200+random(200));
        if IsUpText('ank') then
          Mouse(x,y,0,0,True);
        until(PinScreen or BankScreen) or (TimeFromMark(Time)>30000);
          if PinScreen then
            begin
              InPin(Players[0].Pin);
              wait(500);
              Writeln('Banking..');
              DepositAll;
              Withdraw(0,0,14);
              Withdraw(1,0,14);
              CloseBank;
            end else if BankScreen then
              begin
              Writeln('Banking..');
              Wait(800+random(200));
              DepositAll;
              Withdraw(0,0,14);
              Withdraw(1,0,14);
              CloseBank;
              end else
          begin
            Writeln('Could not find bank!');
            FailSafe('No bank found');
          end;
      end;
    begin
      //activateClient;
      Smart_Server := SERVER;
      Smart_Signed := True;
      Smart_Members:= MEMBERS;
      SetupSRL;
      Disguise('Matties Pooter!');
      DeclarePlayers;
      if not (LoggedIn) then
        LoginPlayer;
      wait(5000+random(500));
      Repeat
        Bank;
        Herb;
      until(false);
    end.
    Any help?
    Last edited by Mattie403; 02-18-2012 at 12:50 AM.

  2. #2
    Join Date
    Nov 2011
    Posts
    1,268
    Mentioned
    17 Post(s)
    Quoted
    217 Post(s)

    Default

    What is line 365 and is it from an include file?
    GLH Tutorial ~ OpenGL Scripting
    http://villavu.com/forum/showthread.php?p=1292150

    GLH Scripts ~ Abyssal Scripts
    http://villavu.com/forum/showthread.php?p=1293187
    Current Projects:
    A) DemiseSlayer Pro (Released/100%).
    B) Demise Power Miner(Released/100%).
    C) Demise Pyramid Plunder(Planning Stage/0%).

  3. #3
    Join Date
    Jan 2012
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ya it's the function I posted and it's from 'globalstats'.

  4. #4
    Join Date
    Nov 2011
    Posts
    1,268
    Mentioned
    17 Post(s)
    Quoted
    217 Post(s)

    Default

    If your script opens up globalstats.simba just Update your Simba and SRL. That should solve the problem, stuff like that happens from time to time.
    GLH Tutorial ~ OpenGL Scripting
    http://villavu.com/forum/showthread.php?p=1292150

    GLH Scripts ~ Abyssal Scripts
    http://villavu.com/forum/showthread.php?p=1293187
    Current Projects:
    A) DemiseSlayer Pro (Released/100%).
    B) Demise Power Miner(Released/100%).
    C) Demise Pyramid Plunder(Planning Stage/0%).

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
  •