Results 1 to 11 of 11

Thread: Advanced High Alchemy Script V1.5

  1. #1
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Advanced High Alchemy Script V1.5

    This script suprisingly took me about 3 days to make. I got overly complicated so I finally scratched it all and restarted. Thanks to MartinW for the idea and thanks to ChArMz for helping me sort out a problem with the script. Please test it and let me know of any bugs. I got through about 500 alchs with it. I wouldn't go over 1000 alchs a day. It has antiban and antirandoms.


    SCAR Code:
    {.Script Info:
    # ScriptName  = High Alcher
    # Author      = Bagofelix. Small snippits of code from ChArMz and MartinW. Credit to hey321 for NoBan name =P
    # Description = High Alchs
    # Version     = Beta
    # Date        = 12/5/2006
    # Comments    = villu-reborn. com
    /Script Info}


    program Alch;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/magic.scar}

    Const
      GoldPer = 768;                           //Gold per Alch
      Item = 'Yew Longs';                     //Item Name(This is only for the report so it aint important)
      AntiBann = True;                       //AntiRandoms? Recommended HIGHLY if alching outside bank. If not, just watch the script. I do NOT recommend alching in a random prone area.
      InvNumber = 8;                       //Inventory number of Item you would like to alch
      ModOption = True;                    //Set to true if you want to look for moderators. If not, set false.
      StartPlayer = 0;                   //Determines which player you start with.
    var
       TotalNeeded : Integer;
       ItemsRemaining : Integer;



    Procedure DeclarePlayers;
    begin
         HowManyPlayers:=6;
         NumberOfPlayers(HowManyPlayers);
         CurrentPlayer:=0;
         
         Players[0].Name     :='test';
         Players[0].Pass     :='test';
         Players[0].Nick     :='est';
         Players[0].Active   := True;

         Players[1].Name     :='test2';
         Players[1].Pass     :='test2';
         Players[1].Nick     :='est';
         Players[1].Active   := True;

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

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

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

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

    end;
    Procedure ChangeReport;
    begin
        cleardebug;
        Writeln('You have ' +inttostr(HowManyPlayers)+' players set to run.');
        Writeln('The starting player is '+ players[currentplayer].name);
        Writeln(' Alched ' + inttostr(TotalNeeded - ItemsRemaining + 1) + ' ' + (Item));
        Writeln('Made ' + inttostr((TotalNeeded - ItemsRemaining)*GoldPer + GoldPer) + '');
        Writeln(inttostr(ItemsRemaining - 1) + ' times left');
    end;

    procedure NoBan;
    begin
    Writeln('Antiban procedure in progress');
    AntiBan;
    BoredHuman;
    RandomMovement;
    FindNormalRandoms;
    if(ModOption=true)then FindMod;
    end;

    procedure Alch;
    begin
    castspell(31);
    CountInvSlot(ItemsRemaining,4,4)
    Mouse(707, 330, 5, 5, True);
    Wait(random(200)+2800);
    end;

    Procedure Alching;
    begin
    repeat
    if(random(15)=1)and(AntiBann=true)then NoBan;
    ChangeReport;
    Alch;
    until(ItemsRemaining=1)
    Writeln('Switching users');
    Wait(random(50)+50);
    logout;
    if(not(Loggedin)) then NextPlayer(false);
    end;

    Procedure LoggingIn;
    begin
    DeclarePlayers;
    LoginPlayer;
    end;

    begin
    setupsrl;
    LoggingIn;
    CountInvSlot(TotalNeeded,4,4);
    Alching;
    end.

    Enjoy, and post prog reports!

  2. #2
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Good job.

    Gametab automatically checks if its already the correct tab.

    function GameTab(tabnumber: Integer): Boolean;
    var
    C: Integer;
    begin
    if GetCurrentTab = tabnumber then
    begin
    result := true;
    exit;
    end;
    Also, castspell automatically does gametab(7), so you can cut out first 6 lines in alch, and cut out the whole onmagictab function because its basically the first part of gametab.

    Also, make Mouse(707, 330, 0, 0, True); have some randomness. The 0,0 is the randomness on the first 2 numbers.

  3. #3
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh!!! Okay, thank you so much. That really clears up some things about those dang 0's.

  4. #4
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No one tried this? >_<

  5. #5
    Join Date
    Sep 2006
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    z0mg its bago Hai lol *hugs* This looks awesome, I never knew you could scar script lol?

  6. #6
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bag, good job but one thing, you have this:

    procedure NoBan;
    begin
    Writeln('Antiban procedure in progress');
    AntiBan;
    if(ModOption=true)then FindMod;
    BoredHuman;
    RandomMovement;
    FindNormalRandoms;
    end;

    A few problems with that;

    1. You took my anti-ban name .
    2. The If (ModOption=True) Then FindMod; tell it to check if mod option is true and if it is do the rest (i think?).

    Other then that, great job . Keep it up.

  7. #7
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ooooh I see. Thanks for the tip m8. And yeah Xorg, I scar script =P Nubly, but yes. And sorry for stealing your NoBan name =P I'll fix it.

  8. #8
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol, np i dont care was just bored . Anyways no prob again and as i said keep it up!

  9. #9
    Join Date
    Jun 2006
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Absolutely. Thanks for the pointers.

  10. #10
    Join Date
    Jun 2006
    Posts
    32
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  11. #11
    Join Date
    Jan 2007
    Posts
    513
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it checks magic tab , then goes to inv tab , clicks my yew longs, again checks the mage tab etc .. huh?
    Srl simply rocks.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Cast('High Level Alchemy') Problem
    By Xtensity in forum SRL Site Discussion
    Replies: 10
    Last Post: 09-04-2008, 06:02 AM
  2. King's Alchemy Table Script
    By King of the Nites in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 08-10-2008, 01:12 AM
  3. Advanced Bilging script for Puzzle Pirates
    By RaptorBlaze in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 08-29-2007, 09:26 PM
  4. [RS2]Auto Alchemy v2.0
    By Mr. Doctor in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 02-16-2007, 09:15 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
  •