Results 1 to 13 of 13

Thread: I need help making the shop close

  1. #1
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need help making the shop close

    SCAR Code:
    procedure Sell;
    var x,y :integer;
    begin
      if(FindObj(x, y, 'hop K', ShopKeep, 5))then

    MMouse(x,y,0,0);
          wait(50+random(50));
              Begin
              Mouse(x,y,0,0,False);
              wait(100+random(50));
              ChooseOption(x,y,'rade');
              Wait(300+random(150));

     If FindDTM(LogDTM, X, Y, 555, 205, 740, 464)then

    begin
                  Mouse(x,y,0,0,False);
                  Wait(100+random(5));
                  ChooseOption(x,y,'ell 10');
    // I want to know the comand to make the script click that little X on the shop window      
    end;
            end;
      RadialWalk( 612139 , 297, 585, 48, 1, 1);
    end;
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  2. #2
    Join Date
    Mar 2007
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just make the mouse move to the shops x button and left click...
    http://www.fenjer.com/adnan/SRL/16/20/Merchampion.png
    Merchampion is going to be the ultimate autoing script! It will buy items for your set amount of price; trade people without you having to be there, and once your money is all out; guess what! It's going to sell the item for a different set amount of price! It's merchanting without you having to be there

  3. #3
    Join Date
    Dec 2006
    Location
    Third rock from the sun.
    Posts
    2,510
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    I think there's one called "CloseWindow."

    Try that

  4. #4
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i donno if closebank; would work but you can give it a try or make a bitmap of it(the x) and click on that.

  5. #5
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Just use the coords? It's not like the button moves around or anything...
    Interested in C# and Electrical Engineering? This might interest you.

  6. #6
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i still wouldnt use co-ords but w/e its up to him.

  7. #7
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I hate co-ords
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  8. #8
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is there any command?closebank and closewindow wont work
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  9. #9
    Join Date
    Feb 2007
    Location
    Australia
    Posts
    358
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    SCAR Code:
    procedure CloseShop;
    begin
      begin
      crossbmp := BitmapFromString(6, 6, 'z78DA33373033343133A798' +
           '3473327531318690062060082191C571A92159A589A9B90916125' +
           '90D00DAB82C47');
      end;

      begin
      if(FindBitmap(crossbmp,bx,by)) then
        begin
         FindBitmap(crossbmp,bx,by)
         Mouse(bx,by,6,6,True)
         Wait(1000);
        end else
        begin
          WriteLn('didnt find cross bmp, blind clicking')
          MMouse(484,41,2,2)
          wait(100)
          if(IsUpText('lose'))then
            begin
              Mouse(484,41,2,2,true)
            end else
            begin
              Writeln('I dont think we are in a shop..')
              Writeln('Not clicking')
            end;
        end;
      end;
      wait(10)
      FreeBitmap(crossbmp);
    end;

    Try that, whipped it together just then just for you

    EDIT: Even better.

  10. #10
    Join Date
    Oct 2006
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by jahuro View Post
    SCAR Code:
    procedure Sell;
    var x,y :integer;
    begin
      if(FindObj(x, y, 'hop K', ShopKeep, 5))then

    MMouse(x,y,0,0);
          wait(50+random(50));
              Begin
              Mouse(x,y,0,0,False);
              wait(100+random(50));
              ChooseOption(x,y,'rade');
              Wait(300+random(150));

     If FindDTM(LogDTM, X, Y, 555, 205, 740, 464)then

    begin
                  Mouse(x,y,0,0,False);
                  Wait(100+random(5));
                  ChooseOption(x,y,'ell 10');
    // I want to know the comand to make the script click that little X on the shop window      
    end;
            end;
      RadialWalk( 612139 , 297, 585, 48, 1, 1);
    end;
    They are the worst standards I have ever seen... I recomend you look in the tutorial section for one on scripting standards.

  11. #11
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try using mousebox;

  12. #12
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks
    I like cats.
    Narcle's AK Smelter 1.1.6
    Run Time : 7 Hr 53 Min 5 Sec
    Total Bars : 3371
    Total XP : 58995

  13. #13
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    From the latest repository. Never fails me.

    SCAR Code:
    {*******************************************************************************
    function CloseBank: Boolean;
    By: RealRune modifyed by WT-Fakawi and Ron
    Description: Closes the bank window.
    *******************************************************************************}


    function CloseBank: Boolean;
    var
      CBBM, CBx, CBy: Integer;
    begin
      if not BankScreen then Exit;
      CBBM := BitmapFromString(4, 3, 'z78DA3330000243030CD2C' +
        'CC4D4DC848008320900F6350DC1');
      if FindBitmapToleranceIn(CBBM, CBx, CBy, 450, 30, 500, 50, 50) then
      begin
        MMouse(CBx, CBy, 4, 4);
        GetMousePos(CBx, CBy);
        Mouse(CBx, CBy, 0, 0, True);
        Result := True;
      end;
      FreeBitmap(CBBM);
    end;
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. how would you close
    By Camaro' in forum OSR Help
    Replies: 6
    Last Post: 04-15-2008, 09:43 PM
  2. Please close I was helped.
    By Not a L33cher in forum Bot Information and Spottings
    Replies: 3
    Last Post: 02-11-2008, 07:38 AM
  3. So close, but have a question.
    By Runescape Pro in forum OSR Help
    Replies: 6
    Last Post: 10-15-2007, 01:00 AM
  4. Dtm Shop [Making Dtm's For You]
    By yanix in forum News and General
    Replies: 4
    Last Post: 10-08-2007, 06:08 AM
  5. What Close Round???
    By Erik teh Viking in forum OSR Help
    Replies: 1
    Last Post: 07-02-2007, 08:30 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
  •