Results 1 to 16 of 16

Thread: Need help with my tea stealer

  1. #1
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with my tea stealer

    SCAR Code:
    program LanceTea;
     
    {.include SRL/SRL.scar}
     
    const
    teacolor1= 8750479;
    teacolor2= 12171714;
     
    var x,y,randomm: integer;
     
    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;
     
         Players[0].Name :='';//username
         Players[0].Pass :='';//password
         Players[0].Nick :='';//2-4 letters of username
         Players[0].Active:=True;//Want to use player?
     
    CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
    Procedure randoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    SolveChatRandom;
    FindLamp('Thieving');
    SolvePinball;
    DwarfItem;
    If(FindFight)Then
    Begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunTo('S', True);
    End;
    End;
     
    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
     
     
      0:                begin
     
                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms
                       end;
     
      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;
     
      2:                begin
                        Wait(3294+(random(873)));
     
                        Randoms;
                        HoverSkill('Woodcutting' ,false);
     
                        Wait(3294+(random(873)));
     
                        end;
     
      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;
     
    Procedure stealtea;
    var StealTime: Integer;
    begin
     
      if not LoggedIn then
      Exit;
     
        repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
        begin
     
          Mouse(x,y,0,0,false);
          Wait(500+(random(150)));
            ChooseOption('eal')
            Wait(10000+(random(200)))
            randoms
            antiban
            writeln('stole tea');
     end else
     writeln('couldnt find tea');
     randoms
     antiban
     antiban
     antiban
     until(InvFull) or (TimeFromMark(StealTime) > 600000+random(60000));
     end;
     
    procedure drop;
    begin
    antiban;
    DropAll;
    antiban;
    end;
     
    begin
      SetupSRL;
        DeclarePlayers;
          LoginPlayer;
            repeat
              stealtea;
                drop;
                  until (IsFKeyDown(3));
                    end.

    With my script it logs me in and steals one tea then logs out. I've tried to fix it but no luck, lol. Any help would be appreciated.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    keys don't work well , if you press before run, it will stop, try a diff key? or somthing else?
    i made the script look for it pressed down twice, press it down once, then again, i use a wait until it was not up, pretty simple achually, i could explain if you wanted me too.

    SCAR Code:
    program LanceTea;
     
    {.include SRL/SRL.scar}
     
    const
    teacolor1= 8750479;
    teacolor2= 12171714;
     
    var x,y,randomm: integer;
     
    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;
     
         Players[0].Name :='';//username
         Players[0].Pass :='';//password
         Players[0].Nick :='';//2-4 letters of username
         Players[0].Active:=True;//Want to use player?
     
    CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
    Procedure randoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    SolveChatRandom;
    FindLamp('Thieving');
    SolvePinball;
    DwarfItem;
    If(FindFight)Then
    Begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunTo('S', True);
    End;
    End;
     
    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
     
     
      0:                begin
     
                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms
                       end;
     
      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;
     
      2:                begin
                        Wait(3294+(random(873)));
     
                        Randoms;
                        HoverSkill('Woodcutting' ,false);
     
                        Wait(3294+(random(873)));
     
                        end;
     
      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;
     
    Procedure stealtea;
    var StealTime: Integer;
    begin
     
      if not LoggedIn then
      Exit;
     
        repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
        begin
     
          Mouse(x,y,0,0,false);
          Wait(500+(random(150)));
            ChooseOption('eal')
            Wait(10000+(random(200)))
            randoms
            antiban
            writeln('stole tea');
     end else
     writeln('couldnt find tea');
     randoms
     antiban
     antiban
     antiban
     until(InvFull) or (TimeFromMark(StealTime) > 600000+random(60000));
     end;
     
    procedure drop;
    begin
      antiban;
      DropAll;
      antiban;
    end;
     
    function IsIsFKeyDown: Boolean;
    begin
      if IsFKeyDown(3) then
      begin
        repeat
          wait(100);
        until(not IsFKeyDown(3));
        Wait(1000);
        if IsFKeyDown(3) then
          Result := True;
      end;
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      repeat
        stealtea;
        drop;
      until (IsIsFKeyDown);
    end.

  3. #3
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Didn't really fix my problem, lol.
    The same thing happens, all my script does is steal 1 tea and then log out. I need to know how I can repeat the tea stealing.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  4. #4
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wtf lance? Read this...http://www.villavu.com/forum/showthread.php?t= ...You double thread posted.

  5. #5
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I found out how to fix my errors, now just need help creating a progress report.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  6. #6
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I can help you with that =] Hold on a minute..

    Edit: Post the version you fixed i'll add it in.

  7. #7
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {Tea stealer made by Lancelot074. Credits to the tutorials all over the site
    ##############1. Set up declare players below.##############################
    ##############2. Position player near the varrock tea stall.################
    ##############3. Start scripted logged out.#################################
    ##############4. Enjoy?#####################################################}

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

    const
    teacolor1= 8750479;//Don't change
    teacolor2= 8750479; //Don't change

    var x,y,randomm, Loadnum: integer;

    Procedure DeclarePlayers;
    begin
         
         HowManyPlayers  :=1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;

         Players[0].Name :='';//username
         Players[0].Pass :='';//password
         Players[0].Nick :='';//2-4 letters of username
         Players[0].Active:=True;//Want to use player?

    MouseSpeed := 12;
    end;

    Procedure randoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    SolveChatRandom;
    FindLamp('Thieving');
    SolvePinball;
    DwarfItem;
    If(FindFight)Then
    Begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunTo('S', True);
    End;
    End;

    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of


      0:                begin

                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms
                       end;

      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;

      2:                begin
                        Wait(3294+(random(873)));

                        Randoms;
                        HoverSkill('Woodcutting' ,false);

                        Wait(3294+(random(873)));

                        end;

      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;

    Procedure stealtea;
    var StealTime: Integer;
    begin
      MarkTime(StealTime)
      if not LoggedIn then
      Exit;

        repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
          mouse(x, y, 0, 0, false);
        Wait(500);
        ChooseOption('eal')
      until (InvFull);
      if (InvFull) then DropAll;
      begin
      Loadnum:=Loadnum + 1;
      end;
    end;

    Procedure proggy;
    begin
    ClearDebug;
    WriteLn('----------------------------------------------');
    WriteLn(' _____           __ _             _           ');
    WriteLn('/__   \___  __ _/ _\ |_ ___  __ _| | ___ _ __ ');
    WriteLn('  / /\/ _ \/ _` \ \| __/ _ \/ _` | |/ _ \  __|');
    WriteLn(' / / |  __/ (_| |\ \ ||  __/ (_| | |  __/ |   ');
    WriteLn(' \/   \___|\__,_\__/\__\___|\__,_|_|\___|_|   ');
    WriteLn('                   By Lancelot074             ');
    WriteLn('Loads stole: ' + inttostr(Loadnum)+'');
    WriteLn('It was '+(TheTime)+' when this script was started:');
    end;

    begin
      SetupSRL;
        DeclarePlayers;
          LoginPlayer;
           proggy;
            repeat
              stealtea;
               antiban;
                randoms;
                  until (false)
                    end.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  8. #8
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Try putting, writeln('TeaStealer was ran for ' + TimeRunning + '.');

  9. #9
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It worked, thanks.

    Now I encountered one more problem. MY script steals one full load of tea and then just logs out. Any help here?
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  10. #10
    Join Date
    Feb 2007
    Location
    EST (US East Coast)
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    K you don't need that many things in your randoms. Just do FindNormalRandoms and FindFight.

    It's logging out because SolvePinball doesn't do anything right now. The first two lines of SolvePinball are "LogOut; Exit;" so... that's why.

    Here's your script with fixed standards:
    SCAR Code:
    {Tea stealer made by Lancelot074. Credits to the tutorials all over the site
    ##############1. Set up declare players below.##############################
    ##############2. Position player near the varrock tea stall.################
    ##############3. Start scripted logged out.#################################
    ##############4. Enjoy?#####################################################}

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

    const
    teacolor1= 8750479;//Don't change
    teacolor2= 8750479; //Don't change

    var
      x, y, randomm, Loadnum: Integer;

    Procedure DeclarePlayers;
    begin
      HowManyPlayers  :=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

      Players[0].Name :='asdf';//username
      Players[0].Pass :='asdf';//password
      Players[0].Nick :='asdf';//2-4 letters of username
      Players[0].Active:=True;//Want to use player?

      MouseSpeed := 12;
    end;

    Procedure randoms;
    begin
      FindTalk;
      FindNormalRandoms;
      SolveChatRandom;
      FindLamp('Thieving');
      SolvePinball;
      DwarfItem;
      If(FindFight)Then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 +Random(3000));
        RunTo('S', True);
      end;
    end;

    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
        0:
          begin
            Wait(3591+(random(287)));
            RandomRClick;
            Wait(3591+(random(287)));
            Randoms;
          end;

      1:
        begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;

      2:
        begin
          Wait(3294+(random(873)));
          Randoms;
          HoverSkill('Woodcutting' ,false);
          Wait(3294+(random(873)));
        end;

      3:
        begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;
      end;
    end;

    Procedure stealtea;
    var
      StealTime: Integer;
    begin
      MarkTime(StealTime);
      if not LoggedIn then
      Exit;
      repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
        begin
          mouse(x, y, 0, 0, false);
          Wait(500);
          ChooseOption('eal');
        end;
      until (InvFull);
      if InvFull then
      begin
        DropAll;
        Loadnum:=Loadnum + 1;
      end;
    end;

    Procedure proggy;
    begin
      ClearDebug;
      WriteLn('----------------------------------------------');
      WriteLn(' _____           __ _             _           ');
      WriteLn('/__   \___  __ _/ _\ |_ ___  __ _| | ___ _ __ ');
      WriteLn('  / /\/ _ \/ _` \ \| __/ _ \/ _` | |/ _ \  __|');
      WriteLn(' / / |  __/ (_| |\ \ ||  __/ (_| | |  __/ |   ');
      WriteLn(' \/   \___|\__,_\__/\__\___|\__,_|_|\___|_|   ');
      WriteLn('                   By Lancelot074             ');
      WriteLn('Loads stole: ' + inttostr(Loadnum)+'');
      WriteLn('It was '+(TheTime)+' when this script was started:');
    end;

    begin
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      proggy;
      repeat
        stealtea;
        antiban;
        randoms;
      until(false);
    end.
    Temporarily inactive.

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

    Default

    But it doesn't really solve my problem. MY problem is that whenever it gets done dropping one load it just logs out.
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  12. #12
    Join Date
    Feb 2007
    Location
    EST (US East Coast)
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes, it does.

    You call your "randoms" procedure right after dropping everything. One of the lines in your "randoms" procedure is "SolvePinball". Right now, SolvePinball just logs you out, whether or not you have a pinball random. You shouldn't have to call any individual randoms procedures (findtalk, solvechatrandoms, dwarfitem (btw if you just dropped everything why would you use dwarfitem?) etc) because they are all included in FindNormalRandoms.
    Temporarily inactive.

  13. #13
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    If you want to fix the error the long way so you never have to encounter this problem is go into the Randoms include and completely delete the SolvePinball function.

    Can I also add that in your script you have an unused variable (Randomm), I take it you are planning on using this later.

    And if you want to make a progress report i've done what I would expect in a basic proggy:

    SCAR Code:
    program LanceTea;
     
    {.include SRL/SRL.scar}
     
    const
    teacolor1= 8750479;
    teacolor2= 12171714;
     
    var x,y,randomm, stole: integer;  //<< need stole for the proggy
     
    Procedure DeclarePlayers;
    begin
         HowManyPlayers  :=1;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;
     
         Players[0].Name :='';//username
         Players[0].Pass :='';//password
         Players[0].Nick :='';//2-4 letters of username
         Players[0].Active:=True;//Want to use player?
     
    CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
     
    Procedure randoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    SolveChatRandom;
    FindLamp('Thieving');
    SolvePinball;
    DwarfItem;
    If(FindFight)Then
    Begin
    MakeCompass('N');
    RunTo('N', True);
    Wait(7000 +Random(3000));
    RunTo('S', True);
    End;
    End;
     
    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
     
     
      0:                begin
     
                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms
                       end;
     
      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;
     
      2:                begin
                        Wait(3294+(random(873)));
     
                        Randoms;
                        HoverSkill('Woodcutting' ,false);
     
                        Wait(3294+(random(873)));
     
                        end;
     
      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;
     
    Procedure stealtea;
    var StealTime: Integer;
    begin
     
      if not LoggedIn then
      Exit;
     
        repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
        begin
     
          Mouse(x,y,0,0,false);
          Wait(500+(random(150)));
            ChooseOption('eal')
            Wait(10000+(random(200)))
            randoms
            antiban
            writeln('stole tea');
     end else
     writeln('couldnt find tea');
     randoms
     antiban
     antiban
     antiban
     until(InvFull) or (TimeFromMark(StealTime) > 600000+random(60000));
     Stole:=Stole+28;// << adds to proggy
     end;
     
    procedure drop;
    begin
    antiban;
    DropAll;
    antiban;
    end;

    Procedure Proggy;// The proggy itself!
    Begin
      ClearDebug;
      Writeln('<<<<<<<<<<<Ultimate Tea Stealer>>>>>>>>>>');
      Writeln('We stole for ' + TimeRunning + '.');
      Writeln('Stole a total of ' + IntToStr(Stole+'.');
      Writeln(' ');
      Writeln('Please post any bug and the above ^^');
     
    begin
      SetupSRL;
        DeclarePlayers;
          LoginPlayer;
            repeat
              stealtea;
                drop;
                  until (IsFKeyDown(3));
                    Proggy;// <<add in when the script is nearly done
                      end.

  14. #14
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    After all the help, it finally works, thanks guys.

    I have one more thing I want to add though. I want to add a banking procedure. I already made a DTM for the bank but I can't figure out how to make something like this.

    if Usebank=(False) then

    but I always get errors. any help please?
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  15. #15
    Join Date
    Feb 2007
    Location
    EST (US East Coast)
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Either do:
    if (not (UseBank)) then
    or
    if (UseBank = False) then

    Glad to see you got it working
    Temporarily inactive.

  16. #16
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {Tea stealer made by Lancelot074. Credits to the tutorials all over the site
    ##############1. Set up declare players below.##############################
    ##############2. Position player near the varrock tea stall.################
    ##############3. Start scripted logged out.#################################
    ##############4. Enjoy?#####################################################}

    program LanceTea;
    {.include SRL/SRL/Misc/Smart.Scar}
    {.include SRL/SRL.scar}

    const
    Usebank= False; //True if you want to bank
    teacolor1= 8750479;//Don't change
    teacolor2= 8750479; //Don't change

    var
      x, y, randomm, Loadnum: Integer;

    Procedure DeclarePlayers;
    begin
      SRLID := '';
      SRLPassword := '';
      HowManyPlayers  :=1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:=0;

      Players[0].Name :='';//username
      Players[0].Pass :='';//password
      Players[0].Nick :='';//2-4 letters of username
      Players[0].Active:=True;//Want to use player?

      MouseSpeed := 12;
    end;

    Procedure randoms;
    begin
      FindTalk;
      FindNormalRandoms;
      SolveChatRandom;
      FindLamp('Thieving');
      If(FindFight)Then
      begin
        MakeCompass('N');
        RunTo('N', True);
        Wait(7000 +Random(3000));
        RunTo('S', True);
      end;
    end;

    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of
        0:
          begin
            Wait(3591+(random(287)));
            RandomRClick;
            Wait(3591+(random(287)));
            Randoms;
          end;

      1:
        begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;

      2:
        begin
          Wait(3294+(random(873)));
          Randoms;
          HoverSkill('Woodcutting' ,false);
          Wait(3294+(random(873)));
        end;

      3:
        begin
          Wait(3694+(random(791)));
          GameTab(random(13)+1);
          Randoms;
          Wait(3694+(random(791)));
          GameTab(4);
        end;
      end;
    end;

    Procedure stealtea;
    begin
      if not LoggedIn then
      Exit;
      Makecompass('E');
      repeat
        if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
        begin
          mouse(x, y, 0, 0, false);
          Wait(500);
          ChooseOption('eal');
        end;
      until (InvFull);
    end;


    procedure Bank;
    var
      time: Integer;
    begin
      MarkTime(time); //this will start a timer
      repeat;
        if (not(Loggedin)) then  break; //if you're chat is not logged in it will break out of the loop
        OpenBankQuiet('varrock east'); // ^^
      until(BankScreen or (TimeFromMark(time) > 120000)); // if it took longer then 2 minutis then it will stop trying to open the bank.
    end;

    Procedure Bankit;
    var
      TeaDTM, time: Integer;  //make sure to have a integer from all you're bitmaps and dtms.
    begin
      TeaDTM := DTMFromString('78DA639CC7C4C090CAC8800C84B820344C947' +
           '13BA61A4174350B806AAA51D588F172A0AAD90A54538AAA868F85' +
           '1955CD4EA09A2C5435EC0C6876AD02AAA941730F1B138A1A007D1' +
           'B0763');

      MarkTime(time);
      repeat
        if (not(Loggedin)) then  break;
        OpenBankQuiet('varrock east')
      until(BankScreen or (TimeFromMark(time) > 120000));
      if Bankscreen then
      begin
        Loadnum:= Loadnum + 28
        ReportVars[0] := ReportVars[0] + 28;
        Deposit(2, 28, 2);
        CloseBank;
        WriteLn('We have banked ' +IntToStr(Loadnum) + ' Tea cups.');
      end;
      FreeBitMap(TeaDTM);
    end;

    Procedure WalkTobank;
    Var
      BankDTM: Integer;
    begin
      BankDTM := DTMFromString('78DA63DCCBC4C0B0970105DCDFEFC2F01F483' +
           '302F17F2060DC0954731055CDDBB70C0C5C503520C0B897083507' +
           '30D5FCF9C384A20600476012AD');
      begin
        if  DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x, y, 1, 1, True);
           Flag;
         end;
      end;
      FreeDTM(BankDTM);
    end;

     Procedure WalkTostall;
    Var
      StallDTM: Integer;
    begin
      StallDTM := DTMFromString('78DA63BCCBC4C0F080010574D51432FC07D28' +
           'C40FC1F08189F01D5DC4655F3F495070317540D0830BE02AA798A' +
           'AA660B1737AA9A1740359751D51CD1D2405103004332119F');
      begin
        if  DTMRotated(StallDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
          begin
            Mouse(x, y, 1, 1, True);
           Flag;
         end;
      end;
      FreeDTM(StallDTM);
    end;

    Procedure proggy;
    begin
      ClearDebug;
      WriteLn('----------------------------------------------');
      WriteLn(' _____           __ _             _           ');
      WriteLn('/__   \___  __ _/ _\ |_ ___  __ _| | ___ _ __ ');
      WriteLn('  / /\/ _ \/ _` \ \| __/ _ \/ _` | |/ _ \  __|');
      WriteLn(' / / |  __/ (_| |\ \ ||  __/ (_| | |  __/ |   ');
      WriteLn(' \/   \___|\__,_\__/\__\___|\__,_|_|\___|_|   ');
      WriteLn('                   By Lancelot074             ');
      WriteLn('Tea stole: ' + inttostr(Loadnum)+'.');
      writeln('TeaStealer was ran for ' + TimeRunning + '.');
    end;

    begin
      SetupSRL;
      ScriptID := '660';
      DeclarePlayers;
      LoginPlayer;
      if SRLID = '' then
      begin
        ClearDebug;
        Writeln('Go to : http://www.stats.srl-forums.com');
        WriteLn('And register an account, leecher! :)');
        TerminateScript;
      end;
      repeat
        stealtea;
        antiban;
        randoms;
        if Usebank=(False) then
          begin
          DropAll;
        Loadnum:=Loadnum + 28;
        ReportVars[0] := ReportVars[0] + 28;
      end;
        if Usebank=(True) then
          begin
          WalkTobank;
          Bank;
          Bankit;
          WalkTostall;
        end;
        proggy;
      until(false);
    end.

    Here is my current script. I added SRL stats and banking by reading tutorials. Don't have time to test, not sure if it works. Anything I could improve on? Thanks for all the help!
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Account Stealer Checker
    By Da 0wner in forum News and General
    Replies: 18
    Last Post: 02-12-2009, 02:29 PM
  2. Tea Stealer for Draynor
    By littethink in forum First Scripts
    Replies: 7
    Last Post: 01-10-2009, 05:03 PM
  3. Tea stealer - By N1ke!
    By Naike in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 09-15-2008, 08:31 PM
  4. Power Stall Stealer
    By Becks in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 04-07-2008, 12:41 AM
  5. Draynor Seed Stealer
    By NinjaTerrorist in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 01-24-2007, 02:21 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
  •