Results 1 to 21 of 21

Thread: Help with my script

  1. #1
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default Help with my script

    Im making a script that Opens the bank, withdraws 28 potions(3) and mixes them to make (4) and deposits 14 (4) and 14 vials.

    I have the opening and withdrawing sorted at the minute I hope,

    But I dont know how to use the potions on eachother to get them to (4) and them realise there isnt any (3) left, then open bank and repeat.

    This is it so far:

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
    |                       Varrock West Bank Potion 3 to 4 Mixer                  |
    |                             By Torrent of Flame                              |
    |                       Scar 3.14          SRL 4.0 Rev 14                      |
    |                                 Version 1.1                                  |
    |                    Mixes Potions in Varrock West from 3 to 4                 |
    |                             Start in Varrock West Bank                       |
    |                                 Start Logged Out                             |
    |                        Put Potions in FIRST or SECOND Row                    |
    |                                                                              |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |                         How Many Loads at lines                            |
    |                        Setup Players at lines                           |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 1.1 Includes                                                          |
    |                                 Anti - Ban                                   |
    |                                Anti - Randoms                                |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    Program PotionMixer;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Herblore.scar}


    const

    //--------------------------->Colour Of Your Potion<--------------------------\\

    PotionColour = 0;

    //--->SRL ID<---\\
    YourSRLId = '';
    YourSRLPassword ='';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '1993';


    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;

    end;

    {----------------------------Do Not Edit Below This----------------------------}
    var x, y: integer;
        PotionsMixed: integer;
        PotionsMixed2: integer;

    //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('        Torrents Potion 3 to 4 Mixer      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Mixed: '        + IntToStr(PotionsMixed)+ ' Potions                     //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Logging in...\\

    procedure Login;
    begin
     if (not(LoggedIn)) then
     LoginPlayer;
    end;

    //--------------------------------Anti-Ban!!------------------------------------\\
    procedure AntiBan;  //Helped By Exppo on 0-10
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        0: TypeSend('Bored, notice how bored I am..');
        1: MMouse(0, 0, 762, 499);
        2: MMouse(0, 0, 762, 499);
        3: MMouse(0, 0, 762, 499);
        4: MMouse(0, 0, 762, 499);
        5: MMouse(0, 0, 762, 499);
        6: MMouse(0, 0, 762, 499);
        7: MMouse(0, 0, 762, 499);
        8: MMouse(0, 0, 762, 499);
        9: MMouse(0, 0, 762, 499);
        10: MMouse(0, 0, 762, 499);
        11: RandomRClick;
        12: HoverSkill('Woodcutting', False);
        13: RandomMovement;
        14: BoredHuman;
        15: PickUpMouse;
        16: AlmostLogout;
        17: DoEmote(400 +Random(90));
        18: begin
             GameTab(1 +Random(12));
             wait(2000 +Random(1000));
             GameTab(4);
           end;
      end;
    end;

    //------------------------------Anti-Randoms!!------------------------------\\

    procedure FindRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      FindLamp('Herblore');
      SolvePinball;
    end;


    //-----------------------------Banking the Willows----------------------------\\

    function Banking: Boolean;
    begin
      Wait (300 + random(160));
      OpenBankQuiet('db');
      if (PinScreen) then
        InPin(YourPin);
        if not(FindColorSpiral(x, y, PotionColour, 151, 210, 595, 281)) then
          begin
            Writeln('Potions NOT found. Make sure they are in the first 2 rows!');
            Exit;
          end;

        if (FindColorSpiral(x, y, PotionColour, 151, 210, 595, 281)) then
          begin
            Mouse(x, y, 4, 3, false)
            ChooseOption('All');
            Result := True;
            if Result = True then
              begin
                PotionsMixed := PotionsMixed + 1;
                PotionsMixed2 := PotionsMixed2 + 1;
                ReportVars[1] := ReportVars[1] + 1;
                SendSRLReport;
              end;
           end;
          CloseBank;
          Wait(150 + random (278));
    end;

    //-----------------------------Mixing the Potions-----------------------------\\

    procedure MixingPotions;
    var Item: integer;
    begin
      if (FindColorSpiral(x, y, PotionColour, 547, 206, 734, 464)) then
      begin
        wait(65+random(34));
      end;
    end;

    /////////////----------------NEED HELP HERE!!!!!!!!!!!! -----------------\\\\\\\\\\\\\\

    //--------------------------->>>Main Loop<<<----------------------------------\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      if (Loggedin) then Logout;
      SetupSRL;
      ScriptID:= '';
      Signature;
      DeclarePlayers;
      if (not (Loggedin)) then Login;
    end;

    begin
      SetupScript;
        repeat
          MixingPotions;
          Banking;
          AntiBan;
        until (false)
         TofProggy;
         SRLRandomsReport;
    end.


    Thanks.
    Jus' Lurkin'

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

    Default

    First of all i would use a masked dtm, so I'd add those for the vial and potion, then I would
    SCAR Code:
    If (FinDTM({Dtm stuff here})) then
    Begin
      If IsUpText('(3)') then
      Mouse(x,y,5,5,false);
      ChooseOption('Use');
    end;
    else
    Begin
      WriteLN('Found no vials, ahh!!!');
      TerminateScript;
    end;
    If (FindDTM({DTM stuff here again})) then
    Begin
      If IsUpText('ial') then
      Mouse (X,y,5,5,true);
    end;
    else
    Begin
      WriteLN('Found no vials... we failed');
      TerminateScript;
    end;

    Hope this helped

  3. #3
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    What so that would make the script use the vials together?
    Jus' Lurkin'

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

    Default

    Yes, if you do a LoadDTMs procedure.

    Do you know how to make DTMs?

  5. #5
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Yeah but how would that work. A wide variety of potions out there.

    I cant exactly make them all 0_o
    Jus' Lurkin'

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

    Default

    You can just mask the DTM, just change the tolerance to 225, or 255 i never remember. So then you'd only need 2 DTMs: one for the filled vial, one for the empty

  7. #7
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ok so I can do that bit :]
    Jus' Lurkin'

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

    Default

    Glad to help, pm me if you need anymore help

  9. #9
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ah got to go, Ill continue later.

    Thanks for helping so far.
    Jus' Lurkin'

  10. #10
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
    |                       Varrock West Bank Potion 3 to 4 Mixer                  |
    |                             By Torrent of Flame                              |
    |                       Scar 3.14          SRL 4.0 Rev 14                      |
    |                                 Version 1.1                                  |
    |                    Mixes Potions in Varrock West from 3 to 4                 |
    |                             Start in Varrock West Bank                       |
    |                                 Start Logged Out                             |
    |                        Put Potions in FIRST or SECOND Row                    |
    |                                                                              |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |                         How Many Loads at lines                            |
    |                        Setup Players at lines                           |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 1.1 Includes                                                          |
    |                                 Anti - Ban                                   |
    |                                Anti - Randoms                                |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    Program PotionMixer;
    {.include SRL/SRL.scar}


    const

    //--->SRL ID<---\\
    YourSRLId = '';
    YourSRLPassword ='';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '1993';


    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;

    end;

    {----------------------------Do Not Edit Below This----------------------------}
    var x, y: integer;
        PotionsMixed: integer;
        PotionsMixed2: integer;
        EmptyVial: integer;
        FullVial: integer;
       
    procedure LoadDTMs;

    begin
         EmptyVial:= DTMFromString('78DA63E461606090604001A969190CFF81342' +
                   '310FF0702464120431A558DBDBD0B986684F2193981840CAA9A92' +
                   '923254352C98E6E4E4E4A1AA610512C204CCE10212FCA86A2A2A2' +
                   'A51D5F00109660634C088AA06648610017F81DC2246C01C764C73' +
                   '4A4B51DD0C00BFF40FCD');
                   
         FullVial:= DTMFromString('78DA631462606010634001EEE72E33FC07D28' +
                  'C40FC1F081839810C295435406130CD08E5330A0209055435CE67' +
                  '2FA3AA110712B2A86AF4D66F4655230C243851D56C5F1E86690E3' +
                  'FAA1A030505543592404202558D427D338A1A0095FB11CB');
    end;


    //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('        Torrents Potion 3 to 4 Mixer      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Mixed: '        + IntToStr(PotionsMixed)+ ' Potions                     //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Logging in...\\

    procedure Login;
    begin
     if (not(LoggedIn)) then
     LoginPlayer;
    end;

    //--------------------------------Anti-Ban!!------------------------------------\\
    procedure AntiBan;  //Helped By Exppo on 0-10
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        0: TypeSend('Bored, notice how bored I am..');
        1: MMouse(0, 0, 762, 499);
        2: MMouse(0, 0, 762, 499);
        3: MMouse(0, 0, 762, 499);
        4: MMouse(0, 0, 762, 499);
        5: MMouse(0, 0, 762, 499);
        6: MMouse(0, 0, 762, 499);
        7: MMouse(0, 0, 762, 499);
        8: MMouse(0, 0, 762, 499);
        9: MMouse(0, 0, 762, 499);
        10: MMouse(0, 0, 762, 499);
        11: RandomRClick;
        12: HoverSkill('Woodcutting', False);
        13: RandomMovement;
        14: BoredHuman;
        15: PickUpMouse;
        16: AlmostLogout;
        17: DoEmote(400 +Random(90));
        18: begin
             GameTab(1 +Random(12));
             wait(2000 +Random(1000));
             GameTab(4);
           end;
      end;
    end;

    //------------------------------Anti-Randoms!!------------------------------\\

    procedure FindRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      FindLamp('Herblore');
      SolvePinball;
    end;


    //-----------------------------Banking the Willows----------------------------\\

    function Banking: Boolean;
    begin
      Wait (300 + random(160));
      OpenBankQuiet('db');
      if (PinScreen) then
        InPin(YourPin);
        if not(FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
          begin
            Writeln('Potions NOT found. Make sure they are in the first 2 rows!');
            Exit;
          end;

        if (FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
          begin
            Mouse(x, y, 4, 3, false)
            ChooseOption('All');
            Result := True;
            if Result = True then
              begin
                PotionsMixed := PotionsMixed + 1;
                PotionsMixed2 := PotionsMixed2 + 1;
                ReportVars[1] := ReportVars[1] + 1;
                SendSRLReport;
              end;
           end;
          CloseBank;
          Wait(150 + random (278));
    end;

    //-----------------------------Mixing the Potions-----------------------------\\

    procedure MixingPotions;
    begin
      if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
      begin
        if IsUpText('(3)') then
          Mouse(x, y, 5, 5, false);
          ChooseOption('Use');
      end else
        begin
          Writeln('No Vials Found, Terminating..');
          TerminateScript;
        end;
        if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
          begin
          if IsUpText('ial') then
          Mouse (x, y , 5, 5, true);
          end else
            begin
              writeln('Found No Vials, Terminating..');
              TerminateScript;
          end;
    end;

    //--------------------------->>>Main Loop<<<----------------------------------\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      if (Loggedin) then Logout;
      SetupSRL;
      ScriptID:= '';
      Signature;
      DeclarePlayers;
      if (not (Loggedin)) then Login;
    end;

    begin
      SetupScript;
        repeat
          MixingPotions;
          Banking;
          AntiBan;
        until (false)
         TofProggy;
         SRLRandomsReport;
    end.



    Ok thats done now, so how do I get SCAR to realise that it needs to bank?
    Jus' Lurkin'

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

    Default

    SCAR Code:
    Mouse(Co-ords of item 14)
    If IsUpTest('(4)') then
      BankMyShit;

  12. #12
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    So "BankMyShit" being the open bank procedure etc? lol
    Jus' Lurkin'

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

    Default

    Yep, would you like me to make a whole banking procedure?

  14. #14
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ill write one up first and see if its any good.

    Then I can read through yours and compare :]
    Jus' Lurkin'

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

    Default

    Mine shall always beat yours hehe

    Not really, its simple enough to do

    EDIT: 300th post!

  16. #16
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ok, I believe this to be correct, well It compiles anyway, so I must be doing something right.

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
    |                       Varrock West Bank Potion 3 to 4 Mixer                  |
    |                             By Torrent of Flame                              |
    |                       Scar 3.14          SRL 4.0 Rev 14                      |
    |                                 Version 1.1                                  |
    |                    Mixes Potions in Varrock West from 3 to 4                 |
    |                             Start in Varrock West Bank                       |
    |                                 Start Logged Out                             |
    |                        Put Potions in FIRST or SECOND Row                    |
    |                                                                              |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |                         How Many Loads at lines                            |
    |                        Setup Players at lines                           |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
    |Version 1.1 Includes                                                          |
    |                                 Anti - Ban                                   |
    |                                Anti - Randoms                                |
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    Program PotionMixer;
    {.include SRL/SRL.scar}


    const

    //--->SRL ID<---\\
    YourSRLId = '';
    YourSRLPassword ='';

    //--->Pin - Make same for ALL chars. If no Pin, leave blank<---\\
    YourPin = '1993';


    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := '';
       Players[0].Pass := '';
       Players[0].Nick := '';
       Players[0].Active := True;

    end;

    {----------------------------Do Not Edit Below This----------------------------}
    var x, y: integer;
        PotionsMixed: integer;
        PotionsMixed2: integer;
        EmptyVial: integer;
        FullVial: integer;
       
    procedure LoadDTMs;

    begin
         EmptyVial:= DTMFromString('78DA63E461606090604001A969190CFF81342' +
                   '310FF0702464120431A558DBDBD0B986684F2193981840CAA9A92' +
                   '923254352C98E6E4E4E4A1AA610512C204CCE10212FCA86A2A2A2' +
                   'A51D5F00109660634C088AA06648610017F81DC2246C01C764C73' +
                   '4A4B51DD0C00BFF40FCD');
                   
         FullVial:= DTMFromString('78DA631462606010634001EEE72E33FC07D28' +
                  'C40FC1F081839810C295435406130CD08E5330A0209055435CE67' +
                  '2FA3AA110712B2A86AF4D66F4655230C243851D56C5F1E86690E3' +
                  'FAA1A030505543592404202558D427D338A1A0095FB11CB');
    end;


    //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('        Torrents Potion 3 to 4 Mixer      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Mixed: '        + IntToStr(PotionsMixed)+ ' Potions                     //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Logging in...\\

    procedure Login;
    begin
     if (not(LoggedIn)) then
     LoginPlayer;
    end;

    //--------------------------------Anti-Ban!!------------------------------------\\
    procedure AntiBan;  //Helped By Exppo on 0-10
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        0: TypeSend('Bored, notice how bored I am..');
        1: MMouse(0, 0, 762, 499);
        2: MMouse(0, 0, 762, 499);
        3: MMouse(0, 0, 762, 499);
        4: MMouse(0, 0, 762, 499);
        5: MMouse(0, 0, 762, 499);
        6: MMouse(0, 0, 762, 499);
        7: MMouse(0, 0, 762, 499);
        8: MMouse(0, 0, 762, 499);
        9: MMouse(0, 0, 762, 499);
        10: MMouse(0, 0, 762, 499);
        11: RandomRClick;
        12: HoverSkill('Woodcutting', False);
        13: RandomMovement;
        14: BoredHuman;
        15: PickUpMouse;
        16: AlmostLogout;
        17: DoEmote(400 +Random(90));
        18: begin
             GameTab(1 +Random(12));
             wait(2000 +Random(1000));
             GameTab(4);
           end;
      end;
    end;

    //------------------------------Anti-Randoms!!------------------------------\\

    procedure FindRandoms;
    begin
      FindTalk;
      FindNormalRandoms;
      FindLamp('Herblore');
      SolvePinball;
    end;


    //-----------------------------Banking the Willows----------------------------\\

    function Banking: Boolean;
    begin
      Wait (300 + random(160));
      OpenBankQuiet('db');
      if (PinScreen) then
        InPin(YourPin);
        if not(FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
          begin
            Writeln('Potions NOT found. Make sure they are in the first 2 rows!');
            Exit;
          end;

        if (FindDTM(FullVial, x, y, 151, 210, 595, 281)) then
          begin
            Mouse(x, y, 4, 3, false)
            ChooseOption('All');
            Result := True;
            if Result = True then
              begin
                PotionsMixed := PotionsMixed + 1;
                PotionsMixed2 := PotionsMixed2 + 1;
                ReportVars[1] := ReportVars[1] + 1;
                SendSRLReport;
              end;
           end;
          CloseBank;
          Wait(150 + random (278));
    end;

    //-----------------------------Mixing the Potions-----------------------------\\

    procedure MixingPotions;
    begin
      if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
      begin
        if IsUpText('(3)') then
          Mouse(x, y, 5, 5, false);
          ChooseOption('Use');
      end else
        begin
          Writeln('No Vials Found, Terminating..');
          TerminateScript;
        end;
        if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
          begin
          if IsUpText('ial') then
          Mouse (x, y , 5, 5, true);
          end else
            begin
              writeln('Found No Vials, Terminating..');
              TerminateScript;
          end;
    end;


    //-------------------------------->BankThisShit<------------------------------\\

    procedure BankThisShit;
    begin
      Mouse(732, 472, 766, 504, false);
      if IsUpText('(4)') then
         OpenBankQuiet('vwb');
         if (FindDTM(FullVial, x, y, 547, 206, 734, 464)) then
          begin
            Mouse (x, y , 5, 5, false);
            ChooseOption('All')
          end;

        if (FindDTM(EmptyVial, x, y, 547, 206, 734, 464)) then
          begin
            Mouse(x, y, 4, 3, false)
            ChooseOption('All');
          end;
       begin
         Banking;
       end;
    end;

    //----------------------------->>>Main Loop<<<--------------------------------\\

    procedure SetupScript;
    begin
      SRLId := YourSRLId;
      SRLPassword:= YourSRLPassword;
      if (Loggedin) then Logout;
      LoadDTMs;
      SetupSRL;
      ScriptID:= '';
      Signature;
      DeclarePlayers;
      if (not (Loggedin)) then Login;
    end;

    begin
      SetupScript;
      Banking;
        repeat
          MixingPotions;
          BankThisShit;
          AntiBan;
        until (false)
         TofProggy;
         SRLRandomsReport;
    end.


    Edit at will
    Jus' Lurkin'

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

    Default

    Well it looks good with good standards, but you might want to add something like
    SCAR Code:
    Players[0].Integers[0] : = 10;
    Or something similar in the const section so that it knows how many loads to do.

    And add multiplayer if you want srl members

  18. #18
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ok.


    And I found my FIRST glitch XD

    SCAR Code:
    OpenBankQuiet('db');

    Thank god for Beta testing

    Should be 'vwb'


    I had multiplayer when I first started, but thought it unneccisary for the moment.

    Ha, ill add it in the next release along with SRL stats.
    Jus' Lurkin'

  19. #19
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    It doesnt run >.>

    It logs in, doesnt open the bank and terminates.

    Or enters the pin wrong.


    It entered the Pin, then doesnt find the vials.

    :/
    Jus' Lurkin'

  20. #20
    Join Date
    Oct 2006
    Posts
    1,190
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    if it doesnt find the vials it probably the DTM but to be sure add some writeln's after procedures to find out whats going on

    eg something like this after each findDtm or throught a procedure
    SCAR Code:
    if FindDTM(nat, x, y, MSX1, MSY1, MSX2, MSY2) then
      else begin
      writeln('no nats')



  21. #21
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Ok, ill see if that helps.
    Jus' Lurkin'

Thread Information

Users Browsing this Thread

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

Posting Permissions

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