Results 1 to 6 of 6

Thread: PROBLEM: inv interface not open

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default PROBLEM: inv interface not open

    PROBLEM: inv interface not open
    PROBLEM: inv interface not open
    PROBLEM: inv interface not open
    PROBLEM: inv interface not open
    PROBLEM: inv interface not open
    PROBLEM: inv interface not open
    PROBLEM: inv interface not open

    I get that ^^^ stuff whenever i run my script...

    My Script:
    SCAR Code:
    program AnchoPizza_Reborn;
    {.Include SRL/SRL.Scar}
    {------------------------------------------------------------------------------}
    {DO NOT COPY OR USE ANYTHING FROM THIS SCRIPT WITHOUT MY PERMISSION, SEND ME
    A PRIVATE MESSAGE ON SRL-FORUMS TO: U L T R A, IF YOU WANT TO USE SOMETHING
    FROM THIS SCRIPT. IF I FIND OUT THAT YOU DO USE/COPY SOMETHING WITHOUT MY
    PERMISSION, I WILL REPORT TO A MOD/ADMIN IMMIDIANTLY.
    {------------------------------------------------------------------------------}

    {The idia of this script has been introduced by me(U L T R A), however the
    first-ever versions of this script have been made by Cnr Sport, Shuttleu and
    me. THIS PERTICULAR SCRIPT HAS BEEN MADE BY ME (U L T R A).}

    {------------------------------------------------------------------------------}
    {THIS SCRIPT WILL MAKE ANCHOVY PIZZAS IN VARROCK EAST BANK!}
    {------------------------------------------------------------------------------}
    {---Instructions on buying and selling---
    Buy Anchovies For Max Price.
    Buy Plain Pizzas For Med Price + 1 GP.
    Sell Anchovy Pizzas For Med-Highest Price.}

    {------------------------------------------------------------------------------}
    {---Instructions on using script---
    Have ingredients in the following order: Anchovies, Plain Pizza's.
    Have players in the varrock east bank, near the bank booths.
    Setup const & declare players.
    Run and enjoy.
    POST BUGS/IDIAS/REPORTS ON THE THREAD!!!
    {------------------------------------------------------------------------------}

    {-----------------------DO  NOT  TOUCH HERE------------------------------------}
    const
    Version = '1.1';//Version of the script, DO NOT TOUCH!
    {-----------------------DO  NOT  TOUCH HERE------------------------------------}
    {------------------------------------------------------------------------------}
    {//////////////////////////////////////////////////////////////////////////////}
    { SET UP HERE /////////////////////////////////////////////////////////////////}
    {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    CheckLost = True;//Check if the player is in the bank?
                     //NOT RECOMMENDED ON A POPULATED WORLD!!!

    HaveSleep = True;//Log out every 7-9 minutes, and wait a little?

    procedure DeclarePlayers;
    begin

      HowManyPlayers := 1;//How many players are going to auto in total?
      NumberOfPlayers(HowManyPlayers);//No Touching.
      CurrentPlayer := 0;//Which player will auto first?

      Players[0].Name :='';//Username.
      Players[0].Pass :='';//Password.
      Players[0].Nick :='';//Nickname. If you dont know what this is, press Alt+F4.
      Players[0].Active := True;//Is this player going to auto?

    end;
    {//////////////////////////////////////////////////////////////////////////////}
    { END OF SETUP, NO TOUCHING BELOW THESE LINES. ////////////////////////////////}
    {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\}

    {------------------------------------------------------------------------------}
    var
    Anchovies, PlainPizza, AnchovyPizza : Integer;//DTMs.
    X, Y : Integer;//X, Y Co-ordinates.
    AmountMade, ExpEarned, Slept, SleepHandler : Integer;//Integer Vars.
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure AntiBan;
    begin
     case Random(100) of

     0..8: RandomRClick;
     9..11: PickUpMouse;
     12..14: BoredHuman;
     15..18: GameTab(1+Random(13));
     19..25: MMouse(Random(300), Random(300), Random(10), Random(10));

    end;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function PlayerIsLost : Boolean;
    begin
     if CheckLost then
     begin
      if not FindSymbol(X, Y, 'bank') and not FindColorTolerance(X, Y, 1535151, MSX1, MSY1, MSX2, MSY2, 4) and not FindColorTolerance(X, Y, 3811119, MSX1, MSY1, MSX2, MSY2, 3) then
       begin
        Result:=True;
       end else
      Result:=False;
      end;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure DeclareDTMs;
    begin
      Anchovies := DTMFromString('78DA6364676260B06464400626E6BE0C36401' +
        'A26CAF807C8324655039385ABF90764591050C304B4CB8E801A907B9' +
        'C09A81100AAB127A08611A8C694801A61A01A3D026AC4816A0C09A81' +
        '16422183E00A20705AF');

      PlainPizza := DTMFromString('78DA63D4606260B0606440058C4824903601A' +
        'A7122A0C601A8C68E801A47A01A03026A40EE3121A0C612A8C61C554' +
        'D8F9C108A1A0058EE0371');

      AnchovyPizza := DTMFromString('78DA633CC4C4C03099910119AC9E3F9FE13F9' +
           '00689FE0702C6B540351350D540646124903E0E54D34D40CD16A0' +
           '9A5904D4ACC5740F869A8D40359DA86A3C1C4C50D5EC05AA99438' +
           '49BA7E2570300C5771230');
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function OpenTheBank : Boolean;
    var M : Integer;
    begin
      if not (BankScreen) then
      begin
        MarkTime(M);
        repeat
          Wait(300+random(200));
          if OpenBank('veb', False, False) then
            Result:=True;
        until(TimeFromMark(M)>30000)or(Result=True);
        if(TimeFromMark(M)>30000)then
          LogOut;
        Wait(1000+random(500));
      end else
      Result:=True;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function IngredientsExist(Where:String{'bank', 'inv'}) : Boolean;
    begin

     case Where of

     'bank':
     begin
     Result := FindDTM(Anchovies, x, y, MSX1, MSY1, MSX2, MSY2) and
               FindDTM(PlainPizza, x, y, MSX1, MSY1, MSX2, MSY2);
     end;

     'inv':
     begin
     Result := FindDTM(Anchovies, x, y, MSX1, MSY1, MSX2, MSY2) or
               FindDTM(PlainPizza, x, y, MSX1, MSY1, MSX2, MSY2);
     end;

     end;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function InViewEnterAmount : Boolean;
    begin
     Result := FindColorTolerance(X, Y, 8388608, 258, 428, 259, 429, 2);
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure WithrawIngredients;
    begin
      if not (LoggedIn) then Exit;
      if OpenTheBank and not InvFull then
      begin
        if not IngredientsExist('bank') then
        begin
          CloseBank;
          LogOut;
        end else
        begin
       //Withraw Anchovies.
       if FindDTM(Anchovies, x, y, MSX1, MSY1, MSX2, MSY2) then
       Mouse(X, Y, 3, 3, False);
       Wait(200+Random(100));
       ChooseOption('X');
       while not InViewEnterAmount do Wait(50+random(50));
       TypeSend('14');
       Wait(3000+random(1000));
       //Withraw Plain Pizzas.
       if FindDTM(PlainPizza, x, y, MSX1, MSY1, MSX2, MSY2) then
       Mouse(X, Y, 3, 3, False);
       Wait(200+Random(100));
       ChooseOption('X');
       while not InViewEnterAmount do Wait(50+random(50));
       TypeSend('14');
       Wait(3000+random(1000));
       end;
     end;
     CloseBank;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function InViewCreatePizza : Boolean;
    begin
     Result := FindColorTolerance(X, Y, 1619896, 259, 411, 260, 412, 3);
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure CreateAnchoPizzas;
    var
    M : Integer;
    begin
     MarkTime(M);
     if CountItemsIn('inv', 'dtm', PlainPizza, [0])=CountItemsIn('inv', 'dtm', Anchovies, [0]) then AmountMade := AmountMade+CountItemsIn('inv', 'dtm', PlainPizza, [0]);
     if CountItemsIn('inv', 'dtm', PlainPizza, [0])>CountItemsIn('inv', 'dtm', Anchovies, [0]) then AmountMade := AmountMade+CountItemsIn('inv', 'dtm', Anchovies, [0]);
     if CountItemsIn('inv', 'dtm', PlainPizza, [0])<CountItemsIn('inv', 'dtm', Anchovies, [0]) then AmountMade := AmountMade+CountItemsIn('inv', 'dtm', PlainPizza, [0]);
     if FindDTM(Anchovies, X, Y, MIX1, MIY1, MIX2, MIY2) then
     Mouse(X, Y, 2, 2, False);
     Wait(100+random(50));
     ChooseOption('se');
     Wait(200+random(100));
     if FindDTM(PlainPizza, X, Y, MIX1, MIY1, MIX2, MIY2) then
     Mouse(X, Y, 2, 2, True);
     while not InViewCreatePizza do Wait(100+random(100));
     Mouse(259, 413, 5, 5, False);
     Wait(50+random(150));
     ChooseOption('ll');
     repeat
      if FindNormalRandoms then Exit;
      Wait(300+random(200));
     until(not(FindDTM(Anchovies, X, Y, MIX1, MIY1, MIX2, MIY2)))or(not(FindDTM(PlainPizza, X, Y, MIX1, MIY1, MIX2, MIY2)))or(TimeFromMark(M)>35000);
     AntiBan;
     if PlayerIsLost then LogOut;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure DepositAnchoPizzas;
    begin
     if not (LoggedIn) then Exit;
     if OpenTheBank then
     begin
      ExpEarned := AmountMade*39;
      DepositAll;
     end;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function DoSleep : Boolean;
    begin
     if(HaveSleep)and(TimeFromMark(SleepHandler)>7*1000*60+Random(2*1000*60))then
      begin
      LogOut;
      Result:=True;
      end else
     Result:=False
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function AllPlayersFalse : Boolean;
    var ActivePlayers, i : Byte;
    begin
      for i := 0 to High(Players) do
      if Players[i].Active then Inc(ActivePlayers);
      if ActivePlayers = 0 then Result := True;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    function ActivePlayersAmount : Integer;
    var ActivePlayers, i : Byte;
    begin
      for i := 0 to High(Players) do
      if Players[i].Active then Inc(ActivePlayers);
      Result:=ActivePlayers;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure MainLoop;
    begin
    WithrawIngredients;
    CreateAnchoPizzas;
    DepositAnchoPizzas;
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    procedure Report;
    begin
     ClearDebug;
     WriteLn('{----------------------------------------------------------}');
     WriteLn('{//////////////////////ANCHO-PIZZA\\\\\\\\\\\\\\\\\\\\\\\\\}');
     WriteLn('{-------------------MADE BY U L T R A----------------------}');
     WriteLn('{Version: ' + Version + '.}');
     WriteLn('{----------------------------------------------------------}');
     WriteLn('{Ran For: ' + TimeRunning + '.}');
     WriteLn('{Total Made: ' + IntToStr(AmountMade) + ' Anchovy Pizza''s.}');
     WriteLn('{Total Earned: ' + IntToStr(ExpEarned) + ' Exp.}');
     WriteLn('{Active Players: ' + IntToStr(ActivePlayersAmount) + '.}');
     if HaveSleep then WriteLn('{Taken: ' + IntToStr(Slept) + ' Sleeps.}');
     WriteLn('{----------------------------------------------------------}');
     WriteLn('{POST: Bugs/Reports/Idias ON THE THREAD! THANKS FOR USING!!}');
     WriteLn('{----------------------------------------------------------}');
    end;
    {------------------------------------------------------------------------------}

    {------------------------------------------------------------------------------}
    begin
    SetUpSRL;
    DeclarePlayers;
    DeclareDTMs;
    repeat
    MarkTime(SleepHandler);
    repeat
    MainLoop;
    Report;
    until(not(LoggedIn))or(DoSleep);
    if(not(LoggedIn))and(not(HaveSleep))then NextPlayer(False);
    if(DoSleep)and(HaveSleep)then
    begin
    Wait(20*1000+Random(5*1000));
    LogInPlayer;
    Slept := Slept+1;
    end;
    until(AllPLayersFalse);
    end.
    {------------------------------------------------------------------------------}

    {
    -Version Log-
    ---
    1.0-
    First version of script, yet is not perfected!
    --
    1.1-
    Added sleeping.
    Fixed some stuff up.
    }


    {(C) COPYRIGHT U L T R A's & Shuttleu's SCRIPTS}{(C) COPYRIGHT U L T R A's & Shuttleu's SCRIPTS}
    {(C) COPYRIGHT U L T R A's & Shuttleu's SCRIPTS}{(C) COPYRIGHT U L T R A's & Shuttleu's SCRIPTS}

    It happens when it opens the bank, then it closes it and logs out...

    So HELP! Cause idk what the heck is going on!
    Woot woot.

  2. #2
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    CloseBank;

    I think..

  3. #3
    Join Date
    Feb 2007
    Posts
    849
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think that this script is Jnr.Member+ right?
    And this forum is also for free for all?
    Tip: Remove the script
    Not sure but I think sharing scripts = Bad things from forum mods/Coders dont like it when there scripts get released to less-ranked users

    Not totally sure but its better to be safe.

    (If that fixed your problem ofc)
    ________________________________________
    14:19 < cycrosism> I wonder what she would have done without it
    14:19 < cycrosism> without me*
    Cycrosism is now an it.
    Quote Originally Posted by Dervish View Post
    /Facedesk.

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default



    this is HIS script.. he can do what he wants with it

    and Ultra.. does it open bank.. wait 30 seconds.. then log out? or immediately?

    you should just have to add (before your like.. until(TimeFromMarkBLAHBLAHBLAH))

    CloseBank;
    if(not(something))then
    LogOut;

    (just make sure it CLOSES the bank first.. I think that's the problem..)

  5. #5
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    I heard the banking st00f is messed up because of the update..?
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  6. #6
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh yeah it's changed..

    (the bank is changed.. you should make your own custom banking.. it's really easy.. I always do )

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Problem to Open Any Scripts.
    By Previos in forum OSR Help
    Replies: 8
    Last Post: 06-29-2008, 01:12 PM
  2. RS Interface update
    By Negaal in forum RS has been updated.
    Replies: 7
    Last Post: 01-15-2008, 06:10 PM
  3. New Skill And Interface Changes!
    By phantombmx in forum RS has been updated.
    Replies: 21
    Last Post: 06-03-2006, 07:46 PM

Posting Permissions

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