Results 1 to 10 of 10

Thread: Auto Sapphire Enchanter

  1. #1
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Auto Sapphire Enchanter

    **If you downloaded anything other than 1.3, please change!!!**
    First off, this is my very first script and I is proud Ok but back to serious issues, I made this because I had 2k Sapphire Necklaces that I figured I could make a few more gp off of if I enchanted. I didn't want to do it so I figured I might as well learn how to use SCAR while I'm doing it. If you take the time to look at my script you will notice it to be very repititious. Any ideas on to shortening it would be helpful. You may also notice that at the end of the script acts like it will take another load out, but it won't. That was done on purpose. Not for antiban or anything, but I couldn't make it work in other way :P

    Things I need:
    -Help getting the progress report to work.
    -Someone to tell me how to get AntiBan to work, I have the procedure set up, but I don't know where to put it.
    -Help with the login, It tries to login, but it can't type because the title bar grays out.

    I'm going to look back in the tutorial section to see if I can't find any help, but if you post it that is still helpful.

    I may add more.

    Features:
    -Enchanting
    -No color needed

    Instructions:
    -Setup Lines 16-19 and Line 26 NOT 27. Don't let those names fool you.
    -Select Client
    -Position Player in Varrok East Bank here:

    -Until I get logged in fixed, start logged in.
    -Play the Script
    -report bugs

    Notes:
    -I am still testing.
    -Any suggestions appreciated
    -The antiban worked until I moved them after the Main procedure, but If I kept them there people would have to scroll through all of it to figure it out.


    Special Thanks:
    -Almost everyone in the beginner's Tutorials Section.
    -People who don't leech ^.^

    Future Updates:
    -Multiplayer(even though I can't imagine why someone would have a lot of sapphire jewelry on more than one account.
    -[SMART]
    -SRL ID (I don't even know how to set an account up, so someone could also help me with that)
    -The ability to enchant more than just Sapphire.

    I should have fixed a bug that didn't let you withdraw from the bank.

    Already had one update, fixed the Antirandoms ^.^

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

    Default

    Wait(1000+random(200));
    ClickMouse(252, 195,false);
    Wait(1000+random(300));
    MMouse(219, 238,2,2);
    Wait(1050+random(300));
    NOOO STOP DON'T USE THIS...
    CLICK MOUSE = BANNAGE.

    Caps for a reason, i know they're not allowed but to emphasise the fact that clickmouse = the devil.
    Previously known as boxcrop.


  3. #3
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What can i use then?
    ClickMouseSpline?

  4. #4
    Join Date
    Aug 2007
    Location
    Georgia, U.S.
    Posts
    890
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    use Mouse(x, y, 5, 5, true);

    the 5, 5 is randomness.

  5. #5
    Join Date
    Jul 2007
    Posts
    217
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok so that is fixed.

  6. #6
    Join Date
    Dec 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks pretty good - ill test it sometime soon

  7. #7
    Join Date
    May 2007
    Location
    England/Liverpool
    Posts
    1,004
    Mentioned
    9 Post(s)
    Quoted
    106 Post(s)

    Default

    coul this scripit be easily modded to do all the gems in ur bank screen???

  8. #8
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program AutoEnchanter;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Magic.scar}


    var
      Casts, ItemCol, ItemRow, CosmicRune, WaterRune : Integer;


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

      Players[0].Name := 'username';
      Players[0].Pass := 'password';
      Players[0].Nick := 'sern';
      Players[0].Pin := '0000';  //Pin, 0000 if none
      Players[0].Active := True;
      Players[0].Strings[0] := 'veb';//which bank you are in
      Players[0].Integers[0] := 5; //casts (make sure you have enough supplies!!!!) <26
     
      ItemCol := 1; //the item column of sapphire jewelry in the bank
      ItemRow := 1; //the item row of sapphire jewelry in the bank
    end;


    procedure DeclareDTMs;
    begin
      CosmicRune := DTMFromString('78DA63B4626060686100036608C570FFAE340' +
           '33F906684F2192D81442D116A7A08A83120C22E47FC6AFE030100' +
           'D0591146');
      WaterRune := DTMFromString('78DA638C63606058CE0006CC108A414472390' +
           '33F906684F219416A361350130D24D61150930C24D6E356F31F08' +
           '006A670BCE');
    end;


    procedure WithdrawSapphire;
    begin
      if (not LoggedIn) then exit;
        if (not BankScreen) or (not PinScreen) then OpenBankFast(Players[CurrentPlayer].Strings[0]);
          if (PinScreen) then InPin(Players[CurrentPlayer].Pin);
            if (BankScreen) then
      begin
        FixBank;
        Withdraw(ItemCol, ItemRow, Players[0].Integers[0]);
        Wait(200+Random(100));
        CloseBank;
      end;
    end;


    procedure WithdrawRunes;
    var
      cx, cy, wx, wy : integer;
    begin
      if (not LoggedIn) then exit;
      OpenBankFast(Players[CurrentPlayer].Strings[0]);
      if (BankScreen) then
      begin
        DepositAll;
        FixBank;
        if FindDTM(CosmicRune, cx, cy, MSX1, MSY1, MSX2, MSY2) then
        begin
          Mouse(cx, cy, 5, 5, false);
          Wait(Random(100));
          ChooseOption('ll');
          Wait(100+Random(100));
        end else
        begin
          Writeln('[Error] Couldnt find Cosmic Runes');
          CloseBank;
          Logout;
          TerminateScript;
        end;
        if FindDTM(WaterRune, wx, wy, MSX1, MSY1, MSX2, MSY2) then
        begin
          Mouse(wx, wy, 5, 5, false);
          Wait(Random(100));
          ChooseOption('ll');
          Wait(100+Random(100));
        end else
        begin
          Writeln('[Error] Couldnt find Water Runes');
          CloseBank;
          Logout;
          TerminateScript;
        end;
      end;
    end;


    procedure EnchantSapphire;
    var
      s : integer;
    begin
      if (not LoggedIn) then exit;
        if (bankscreen) then exit;
      for s:=3 to 28 do
      begin
        GameTab(7);
        CastSpell(7);
        if (ExistsItem(s)) then
        begin
          MouseItem(s, true);
          Casts := Casts + 1;
          Wait(200+Random(100));
        end else
        break;
      end;
    end;


    procedure DepositEnchanted;
    begin
      if (not LoggedIn) then exit;
        OpenBankFast(Players[CurrentPlayer].Strings[0]);
      if (BankScreen) then
      begin
        Deposit(3, 28, true);
      end;
    end;

     
    procedure AntiRandoms;
    begin
      if not LoggedIn then Exit;
      FindNormalRandoms;
      if FindFight then RunTo('N',True);
    end;

    procedure AntiBan;
    begin
      case random(33) of
        0: AlmostLogout;
      end;
    end;


    procedure Setup;
    begin
      SetupSRL;
      DeclarePlayers;
      DeclareDTMs;
      ActivateClient;
      LoginPlayer;
    end;


    Begin
      Setup;
      WithdrawRunes;
      WithdrawSapphire;
      EnchantSapphire;
      DepositEnchanted;
    end.

    Start In Any Bank.
    Fill In Form.
    Select Client (Crosshair).
    Have Sapphire in bank at ItemCol&ItemRow.
    Have Cosmic and Water Runes in top screen of bank.

    This script is really just a tutorial-type for IsJusMe. It wouldnt be too good for long shifts atm, but feel free to edit if you want, just credit where neccessary.
    Project: Welcome To Rainbow

  9. #9
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by CRU1Z1N View Post
    coul this scripit be easily modded to do all the gems in ur bank screen???
    Yes it could done quite easily through DTMs and case ... of...


    Sorry about the double post guys :P
    But the other one was dedicated to the new script.
    Project: Welcome To Rainbow

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

    Default

    pretty cool

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Illumination Auto Enchanter
    By darkmind63 in forum First Scripts
    Replies: 2
    Last Post: 09-17-2008, 09:10 AM
  2. Auto Bolt Enchanter!
    By Fruity-Lo0py in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-07-2008, 10:20 PM
  3. Falador braclet crafter (Sapphire)
    By Smile in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 01-27-2008, 02:19 AM
  4. my first script (auto enchanter)
    By towinthiswar in forum First Scripts
    Replies: 3
    Last Post: 08-08-2007, 04:55 AM
  5. Mage training arena - Auto enchanter
    By TomZ in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 05-06-2007, 09:00 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
  •