View Poll Results: How did this do?

Voters
10. This poll is closed
  • Didn't even compile.

    4 40.00%
  • Okay, 1-3 loads of tea.

    0 0%
  • Could've been better, 3-5 loads.

    0 0%
  • Good, 6-9 loads.

    1 10.00%
  • Awesome!, 10-15 loads!

    2 20.00%
  • Unreal, 15+ loads!

    3 30.00%
Results 1 to 7 of 7

Thread: Tea Theif then Drop

  1. #1
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default Tea Theif then Drop (or bank [bank is beta])

    This is for the tea stall in Varrock. I hope you like it! When you vote by the way, please tell me (if it didn't go well at all) why it didn't compile or run. Oh and this has been tested on Scar 3.12 and SRL 4. The new bank function is a beta. If you have a solution to any bugs in the bank beta, please post them here.

    SCAR Code:
    program StallThief; //Thanks HyperSecret and rogeruk
      {.include SRL/SRL.scar}
    var
      x, y, HowManyDone, SaveLife, a, b, BankDTM, Time, tea,
      TeaStole: Integer;
      Angle: Extended;
     
    const
      HowManyTea = 308;  //How many teas to steal and drop
      Bank       = true; //Would you like to bank the tea
     
    procedure Progress;
    begin
      Writeln('Thieved and dropped ' + IntToStr(HowManyDone) + ' teas.');
      Writeln('Saved your life ' + IntToStr(SaveLife) + ' times.');
    end;
     
    procedure Thief;
    begin
      HowManyDone := 0; //Don't bother with this!
      Disguise('Mozilla Firefox');
      ActivateClient;
      Wait(1000);
      repeat
        if (FindObjCustom(x, y, ['steal-', 'from', 'steal',
          '-from', 'steal-from'], [9151923, 7829377, 2244947], 4)) then
        begin
          if (InvFull) and (Bank = false) then
          begin
            DropAll;
          end;
          if (InvFull) and (Bank = true) then
          begin
            BankDTM := DTMFromString('78DA630C606260C86540018C8C8C101AC6F70' +
              '0AAC94755F3E70F13AA9A5020BF0855CDDBB70CA86A7C806A0A09' +
              '981303E41713501340D81C0085D70E66');
            Tea := BitmapFromString(27, 20,
              'beNqtlE1Pk0EURnHLb9CkECESa' +
              'FOFkgahAQwNjRvWLmGHOyMCQRPTAHEhBURBkG9oCKZEExYswI2y4l' +
              'd5wgNPJtOWFclp83Y6c+beO/ed/kxL08O2x4/E8652kcsm/WyyT1u' +
              'henyot/NFTwr0s6aQOSBzTbmQRJOlHehOtrcmnnW0CG3kCTCcy0Ch' +
              'PxMNvhzsAcZDNDP1pJmPdvRyTwg9tvEtoUe8JH8tjDLVX3puaHgAy' +
              '/NzP0ql7S/LoBEv5xuzItEuEqpWGneOUsGbV43rC5+3lhahvP79aG' +
              'NDWptDIaWrFyGemvw6PDjZ34OzSgXnHRG6UNqUBHdXViC0SaXw/py' +
              'evh4bdQxCEeayaYiKjOpwbRVIEwmBQWV3ByS8vDjf//bVQi1Uwyjl' +
              'cCPmH29uajk4TQbxX/37C0SolI0jpCHBJ5K/Fv4ulxUVnp/bW5wFE' +
              'BInnk4kRNSQPpR7F0Ypo42EyhQ4KVpINhlcw3ptwyC2Tx/ez05PG4' +
              '6G2IDnj+8mdChy+g11DX2HuGfU0sWpSYFkfmZG8BPh2/FxcGPXSzl' +
              'sbIIpFYuWhHIYKRRAQtcwbOxIqPipmNKkITkIQSmIsOZtIyfC6pR1' +
              '1gSgxsZJBfz+uvfC8EJhdDnY6WvKTQLaK+zk0Ma/1LA73VZdw+gyz' +
              'N9eKZowMpyDm5l9KbdH4T/UCNnT');
            if (InvFull) and (Bank = true) then
            begin
              Mouse(52, 94, 0, 0, true);
              Wait(4000);
              if (FindSymbol(a, b, 'bank')) then
              begin
                Mouse(a, b, 0, 0, true);
              end;
              begin
                MarkTime(Time);
                repeat
                  if not (Loggedin) then Break;
                  OpenBankQuiet('varrock east');
                until (BankScreen or (TimeFromMark(Time) > 120000));
                if (BankScreen) then
                begin
                  Writeln('In the bank!!!');
                  TeaStole := CountItemBmpTol(tea, 28);
                  Deposit(1, 28, 2);
                  CloseBank;
                  Writeln('We have banked ' + IntToStr(TeaStole) + ' teas.');
                  RunBack;
                end;
                FreeBitMap(tea);
              end;
            end;
          end;
          FindTalk;          //Anti-random here for you
          FindNormalRandoms; //Another anti-random
          if (FindFight) then
          begin
            RunAwayDirection('N');
            Wait(10000 + Random(2000));
            RunBack;
            SaveLife := SaveLife + 1;
          end;
          MMouse(x, y, 0, 0);
          Mouse(x, y, 0, 0, true);
          HowManyDone := HowManyDone + 1;
          Wait(10000);
        end;
      until (HowManyDone = HowManyTea);
      Progress;
    end;
     
    begin
      SetupSRL;
      Thief;
    end.

    Edit: The next version is out!!! This has MMouse and Mouse instead of those others. It also has a part in the proggie where it says how many times it saved your life.

    Please post your progress reports!
    Thanks,
    Cut em2 it
    Formerly known as Cut em2 it

  2. #2
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Read the SRL Wiki, replace MoveMouse with MMouse(X, Y, RandomX, RandomY) and ClickMouse with Mouse(X, Y, RandomX, RandomY, Left)

  3. #3
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Thanks, my next version has that in there.

    Edit:
    how about you make it BANK? too it will be kind of cool and creative =) jus a suggestion or i will probally make 1 of these =P but gj
    I will but I have to read a few more tuts on banking and why would someone want to bank tea?

    Thanks rogeruk but I thought that you put two spaces even after an if. As far as the banking goes, I now have a beta for banking. This has never been tested so if it works for you please tell me.
    Formerly known as Cut em2 it

  4. #4
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    how about you make it BANK? too it will be kind of cool and creative =) jus a suggestion or i will probally make 1 of these =P but gj

  5. #5
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Standards fixed .

    SCAR Code:
    program StallThief;
    {.include SRL/SRL.scar}
    var
      x, y, HowManyDone, SaveLife: Integer;
    const
      HowManyTea = 308; //How many teas to steal and drop

    procedure Thief;
    begin
      HowManyDone := 0; //Don't bother with this!
      SetupSRL;
      Disguise('Mozilla Firefox');
      ActivateClient;
      Wait(1000);
      repeat
        if (FindObjCustom(x, y, ['steal-', 'from', 'steal', '-from', 'steal-from'], [9151923, 7829377, 2244947], 4)) then
        begin
          if (InvFull) then
          begin
            DropAll;
          end;
          FindTalk;          //Anti-random here for you
          FindNormalRandoms; //Another anti-random
          if (FindFight) then
          begin
            RunAwayDirection('N');
            Wait(10000 + Random(2000));
            RunBack;
            SaveLife := SaveLife + 1;
          end;
          MMouse(x, y, 0, 0);
          Mouse(x, y, 0, 0, true);
          HowManyDone := HowManyDone + 1;
          Wait(10000);
        end;
      until (HowManyDone = HowManyTea);
    end;

    procedure Progress;
    begin
      Writeln('Thieved and dropped ' + IntToStr(HowManyDone) + ' teas.');
      Writeln('Saved your life ' + IntToStr(SaveLife) + 'times.');
    end;
     
    begin
      Thief;
      Progress;
    end.

    You are using SaveLife in the script, but you have only decared Save as an integer. (Fixed in code above)

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  6. #6
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    The next version is out with a banking beta. Please post any bugs you may see in the banking beta. If you have solutions to the bugs, please post them!

    Cut em2 it
    Formerly known as Cut em2 it

  7. #7
    Join Date
    Oct 2007
    Posts
    818
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i have been lookin for 1 of these!
    you should put declare players, a guide at beggining for noobs, and multi-player

    well those would just be nice anyways

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. What Do I Use For DROP Now???!!!
    By Ilikepie1995 in forum OSR Help
    Replies: 4
    Last Post: 09-30-2007, 08:15 PM
  2. Drop ore only
    By rkroxpunk in forum OSR Help
    Replies: 7
    Last Post: 09-25-2007, 11:31 PM
  3. drop
    By marre in forum OSR Help
    Replies: 6
    Last Post: 09-15-2007, 05:40 PM
  4. drop drop drop????
    By havoc928 in forum OSR Help
    Replies: 4
    Last Post: 08-21-2007, 03:29 AM
  5. Neighborhood theif
    By Brown in forum News and General
    Replies: 21
    Last Post: 05-09-2006, 03:44 AM

Posting Permissions

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