Results 1 to 2 of 2

Thread: Glovek's Unfinished Potion Maker

  1. #1
    Join Date
    Oct 2007
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Glovek's Unfinished Potion Maker *UPDATED*

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

    // Original script by Hamster, Edited by Glovek77
    // v 1.1 Special thanks to the SRL tutorials
    // for helping me make my first script! Special thanks
    // to Hamster!

    //Instructions: Withdraw 14 unfinished potions, and 14 of the second ingredient.
    //Run script, open bank after the potions are made, and repeat!
    //Note: The banking will be done automatically as soon as possible.

    //Suggestions (not comments) are appreciated! This is a learning based forum, and
    //please make suggestions so I can improve my scripting!!
    var
    aantalbanks,x,y : integer;

    const
    aantal = 1000; //How many potions to make before stopping?

    Procedure DeclarePlayers;

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

    Players[0].Name := 'Usernamehere';
    Players[0].Pass := 'Passwordhere';
    Players[0].Nick := 'Nicknamehere'; //Type in 3-4 letters of the name (works better if not the first letter!)
    Players[0].Active :=True;

    end;

    function FindFastRandoms: Boolean;
    var
    i: Integer;
    begin
    for i := 1 to 8 do
    begin
    case I of
    1: if FindDead then
    Result := True;
    2: if FindMod then
    Result := True;
    3: if FindMime then
    Result := True;
    4: if FindMaze then
    Result := True;
    5: if FindQuiz then
    Result := True;
    6: if FindDemon then
    Result := True;
    7: begin
    if NoGameTab then
    begin
    Result := True;
    Players[CurrentPlayer].Active := False;
    Logout;
    Exit;
    end;
    end;
    8: begin
    if InBlack then
    begin
    Result := True;
    Players[CurrentPlayer].Active := False;
    Logout;
    Exit;
    end;
    end;
    8: RC;
    end;
    wait(1);
    end;
    end;

    procedure TalkingRandoms;
    begin
    FindTalk;
    wait(10)
    FindFastRandoms;
    wait(10);
    if (FindFight = true) then
    begin
    RunAwayDirection('N');
    Wait(10000 + random(2000));
    RunBack;
    end;
    FindTalk;
    end;



    procedure Bank;
    begin
    MoveMouseCC(253,208,10,3,3,3);
    if IsUpText('ooth')then
    begin
    GetMousePos(x,y);
    Mouse(x,y,0,0,false);
    wait(100+random(50));
    ChooseOption('quickly');
    end;
    repeat
    wait(20+random(20));
    until(BankScreen)
    wait(100+random(50));
    Withdraw(1,1,0);
    Wait(100+random(50));
    Deposit(1,1,2);
    Wait(100+random(50));
    Withdraw(2,1,0);
    wait(100+random(50));
    CloseBank;
    aantalbanks := aantalbanks+1;
    end;

    procedure Herbalize;
    begin
    Mouse(608+random(23),327+random(22),0,0,true);
    wait(100+random(50));
    Mouse(650+random(23),328+random(20),0,0,true);
    wait(600+random(150));
    Mouse(181+random(200),381+random(68),0,0,false);
    wait(300+random(100));
    ChooseOption('All');
    wait(7500+random(500));
    end;

    procedure Depositor;
    var
    time: Integer;
    begin
    wait(10000)
    MarkTime(time);
    repeat;
    if (not(Loggedin)) then break;
    OpenBankQuiet('feb'); // ^^
    until(BankScreen or (TimeFromMark(time) > 120000))
    end;



    begin
    Declareplayers;
    SetupSRL;
    gametab(4);
    aantalbanks :=0;
    repeat
    Herbalize;
    Depositor;
    Bank;
    until((aantalbanks*14)>=aantal)
    writeln('//----------------------------------------\\');
    writeln('//-------Ran for '+TimeRunning+'--\\');
    writeln('//-----made '+IntToStr(aantalbanks*14)+' unfinished potions----------\\');
    writeln('//----------------------------------------\\');
    end.

  2. #2
    Join Date
    Oct 2007
    Posts
    302
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    place into SRL tags please,
    And formatting? :S
    Previously known as boxcrop.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL4](unf) Potion Maker
    By mikevskater in forum RS3 Outdated / Broken Scripts
    Replies: 25
    Last Post: 11-11-2009, 07:13 PM
  2. Unf Potion Maker Fix By Dracody!!!
    By Dracody in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 04-23-2009, 11:29 AM
  3. unfinished pot maker
    By hamster in forum First Scripts
    Replies: 2
    Last Post: 01-05-2008, 09:35 PM
  4. Glovek's Unfinished Potion Maker
    By Glovek77 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 12-31-2007, 11:35 PM
  5. Request: Potion Maker
    By Glovek77 in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 12-09-2007, 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
  •