Results 1 to 15 of 15

Thread: MahG's Note Seller

  1. #1
    Join Date
    Dec 2006
    Location
    Auckland, New Zealand
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default MahG's Note Seller

    MahG's Note Seller.
    V 1.03




    I recommend you run it in the general store as to stop that annoying 'Sorry we dont buy that item' appearing in the chat bar.

    Post progress report's (delete Time Left as if it fully finished it'll always say Time Remaining: 0 Seconds). Tell me what you thought of the script.

    Updates:

    V1.03: Changed so theres a chance of it clicking the 5 and the Examine.


    Next Update:

    V1.04:
    Exact sell, bacisally if you set it to true if its greater than 10 itll sell 10, if its less than 9 it'll sell 5, if its below 3 it'll sell 1. So it'll sell exactly the right amount.

    Dont leech.

  2. #2
    Join Date
    Jun 2006
    Location
    New Zealand
    Posts
    285
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Damn you... Sold my Willow longs (u) eh? >:[
    Seems nice... though it does nothing unless you uncomment the procedure "Sell" in the main loop.

    SCAR Code:
    Writeln('Cant find a note in your bank');
    Bank?

    You should also make it close shop window and logout after finishing. Nice overall though
    Huehuehuehuehue

  3. #3
    Join Date
    Mar 2007
    Location
    Under a rock
    Posts
    813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Not bad, but you should make it sell 5 every once in a while and antiban. Not bad though.

  4. #4
    Join Date
    Mar 2007
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice one, and it does sell 5 at a time randomly!

    Great!

  5. #5
    Join Date
    Dec 2006
    Location
    Auckland, New Zealand
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  6. #6
    Join Date
    Feb 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great concept with the sell 5 if at 9, etc.

  7. #7
    Join Date
    Mar 2007
    Posts
    3,116
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    I get this when i try to use it
    Line 156: [Error] (17823:21): Close round expected in script
    I have tried 2.03 with srl 3.6 and 3.7 and scar 3.06

  8. #8
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Mylesmadness View Post
    I get this when i try to use it

    I have tried 2.03 with srl 3.6 and 3.7 and scar 3.06
    Same, I'm also getting this error with 2.03, SRL 3.6 and DIVI + 3.7
    RsUnlocked.NET; free macros, bots, passcrackers.

  9. #9
    Join Date
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Here you go guys, I fixed that error for you.

    SCAR Code:
    {
    /'\_/`\       ( )    (  _`\
    |     |   _ _ | |__  | ( (_)  ___
    | (_) | /'_` )|  _ `\| |___ /',__)
    | | | |( (_| || | | || (_, )\__, \
    (_) (_)`\__,_)(_) (_)(____/'(____/
     _   _         _
    ( ) ( )       ( )_
    | `\| |   _   | ,_)   __
    | , ` | /'_`\ | |   /'__`\
    | |`\ |( (_) )| |_ (  ___/
    (_) (_)`\___/'`\__)`\____)
     ___           _    _
    (  _`\        (_ ) (_ )
    | (_(_)   __   | |  | |    __   _ __
    `\__ \  /'__`\ | |  | |  /'__`\( '__)
    ( )_) |(  ___/ | |  | | (  ___/| |
    `\____)`\____)(___)(___)`\____)(_)
                V 1.00

    ////DIRECTIONS\\\\
    Run this script with the shop window open (preferably gen store),
    and all the thing you want to sell in note form in your inventory
    \\\\\\\\\////////                                                                                                                                                             }

    program MahGs_Seller;
    {.include SRL/SRL.scar}

    var
    times, dtmNote, xx, yy, bmpClose : Integer;
    rem : string;

    const
    ///////Setup\\\\\\\
    ToSell = 10; //How many to sell
    ////////End\\\\\\\\

    procedure LoadDTMs;
    begin
    dtmNote := DTMFromString('78DA63B465626078CB8002362CAC609806A41' +
           '981F83F1030DA00D53C6240038C482490B602AA794F408D3B50CD' +
           '47026A42816A3E1050130654730FBF1A000AE10D9B');
    end;

    procedure DeclareBMPs;
    begin
      bmpClose := BitmapFromString(8, 9, 'z78DA8D8CB10DC0200C045732B14D4' +
           '40B88FD472222CD4B2F0C2EAEF1FD897C97643157EFA64C018719' +
           '9BD9FCB51417D044DE9BBB157F7DF8A3EDE7AE8F4E6CF22AAE1D0' +
           'AC5BA16263A13E2EE5647');
    end;

    procedure SetupScript;
    begin
    Status('Setting Up');
    times := 0;
    ClearDebug;
    SetupSRL;
    LoadDTMs;
    DeclareBMPs;
    end;

    function Remaining (Total, Done, Time, Selling : Integer) : string;
    var
    itemsleft, minsremaining, secsremaining, hremaining : integer;
    begin
    itemsleft := (Total - Done);
    itemsleft := itemsleft * Time;
    if Selling = 1 then
      itemsleft := itemsleft div 10;
    if Selling = 2 then
      itemsleft := itemsleft div 5;
    if Selling = 3 then
      itemsleft := itemsleft div 1;
    minsremaining := itemsleft div 60;
    if minsremaining >= 60 then
      begin
        hremaining := itemsleft div 60;
        hremaining := hremaining div 60;
      end else
    if minsremaining <= 59 then
      hremaining := 0;
    minsremaining := (minsremaining - (hremaining * 60));
    secsremaining := (itemsleft - ((hremaining * 60) * 60));
    secsremaining := secsremaining - (minsremaining * 60);
      if hremaining > 1 then
        begin
          if minsremaining > 1 then
            Result := IntToStr(hremaining) + ' Hours and ' + IntToStr(minsremaining) + ' Minutes and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining = 1 then
            Result := IntToStr(hremaining) + ' Hours and ' + IntToStr(minsremaining) + ' Minute and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining < 1 then
            Result := IntToStr(hremaining) + ' Hours and ' + IntToStr(secsremaining) + ' Seconds';
        end else
      if hremaining = 1 then
        begin
          if minsremaining > 1 then
            Result := IntToStr(hremaining) + ' Hour and ' + IntToStr(minsremaining) + ' Minutes and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining = 1 then
            Result := IntToStr(hremaining) + ' Hour and ' + IntToStr(minsremaining) + ' Minute and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining < 1 then
            Result := IntToStr(hremaining) + ' Hour and ' + IntToStr(secsremaining) + ' Seconds';
        end else
      if hremaining < 1 then
        begin
          if minsremaining > 1 then
            Result := IntToStr(minsremaining) + ' Minutes and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining = 1 then
            Result := IntToStr(minsremaining) + ' Minute and ' + IntToStr(secsremaining) + ' Seconds';
          if minsremaining < 1 then
            Result := IntToStr(secsremaining) + ' Seconds';
      end;
    end;

    procedure ProgressReport;
    begin
      Status('Progress Report');
      Writeln('*********************************');
      Writeln('Items Sold: ' + IntToStr(times));
      Writeln('Items Still to be sold: ' + IntToStr(ToSell - times));
      Writeln('Length run for: ' + (TimeRunning));
      Writeln('Time remaining: ' + ({rem}Remaining(ToSell, times, 2, 1)));
      Writeln('*********************************');
    end;

    procedure Sell;
    var
    amt : integer;
    begin
    if(FindDTM(dtmNote, xx, yy, MIX1, MIY1, MIX2, MIY2)) then
      begin
      repeat
        Status('Selling Now');
        Mouse(xx, yy -random(10), 10 +random(10), 0, False);
        wait(350+random(100));
        amt:= random(25);
        if amt <= 20 then
          begin
           Status('Selling 10');
           ChooseOption(x, y, '10');
           times := times +10;
           rem := Remaining(ToSell, times, 2, 1);
          end else
        if (amt <= 22)and(amt >= 21) then
          begin
           Status('Selling 5');
           ChooseOption(x, y, '5');
           times := times +5;
           rem := Remaining(ToSell, times, 2, 2);
          end else
        if (amt <= 24)and(amt >= 23) then
          begin
           Status('Examining');
           ChooseOption(x, y, 'Examine');
           rem := Remaining(ToSell, times, 2, 0);
          end;
        if (InChat('Sorry')) then
          TerminateScript;
        ClearDebug;
        ProgressReport;
        wait(350+random(100));
        if(not(FindDTM(dtmNote, xx, yy, MIX1, MIY1, MIX2, MIY2))) then
          break;
      until times >= ToSell;
      end else
      Writeln('Cant find a note in your Inventory');
    end;

    procedure CloseShop;
    begin
    if (FindBitmap(bmpClose, x, y)) then
      begin
        Mouse(x, y, 1, 1, True);
        Wait(500+random(500));
      end;
    end;

    begin
    SetupScript;
    Sell;
    CloseShop;
    Logout;
    FreeBitmap(bmpClose);
    FreeDTM(dtmNote);
    end.
    On vacation from July 2nd till middle of August


    Account Creator and Tutorial Island Runner (member | public) Errors fixed


    Check out my Complete forms tutorial. It will teach you everything you need to know about forms.

  10. #10
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks alot, back to selling my 250k maple longbows (u) at charter store. LOL
    RsUnlocked.NET; free macros, bots, passcrackers.

  11. #11
    Join Date
    Apr 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesn't work properly for me. It sells 1 batch of 10 then logs out. Can you fix that? Using SRL 3.8 and Divi

  12. #12
    Join Date
    Jun 2007
    Posts
    310
    Mentioned
    0 Post(s)
    Quoted
    84 Post(s)

    Default

    great script, it just needs to move faster

  13. #13
    Join Date
    May 2007
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lolskilla View Post
    great script, it just needs to move faster
    Edit the wait times in the procedures and then you can easily speed it up.
    RsUnlocked.NET; free macros, bots, passcrackers.

  14. #14
    Join Date
    Feb 2007
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Zodia View Post
    Doesn't work properly for me. It sells 1 batch of 10 then logs out. Can you fix that? Using SRL 3.8 and Divi
    lol i had this same problem until i found out there is a option to select how many to sell.

    you have to scroll down a little and change it from 10 to how ever many you have.

  15. #15
    Join Date
    Oct 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Should this script still be working?

    It fails to compile for me.

    Line 139: [Error] (15167:14): Unknown identifier 'x' in script ....

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. A note on ScriptTerminate;
    By Naum in forum OSR Intermediate Scripting Tutorials
    Replies: 13
    Last Post: 02-13-2009, 02:50 AM
  2. Auto note seller.
    By jakeyboy29 in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 01-17-2009, 04:41 PM
  3. On a completely unrelated note...
    By Wrycu in forum Gaming
    Replies: 0
    Last Post: 10-10-2008, 07:17 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
  •