Results 1 to 18 of 18

Thread: Nontitle's Al Kharid SilverCrafter! [V. 0.85]

  1. #1
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Nontitle's Al Kharid SilverCrafter! [V. 0.90]

    This version of the Al Kharid SilverCrafter is outdated. Please use this thread instead:
    http://www.srl-forums.com/forum/srl4...d-p195439.html

    -Nontitle

  2. #2
    Join Date
    Jun 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    dude looks SICK . verz nice script. ill post a proggy as soon as i am done testing it

  3. #3
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks very much. It took me a good two weeks and hours worth of testing. Somehow, the script got on google too
    These 3 searches:
    "srl mining script"
    "scar mining and banking script"
    and "scar mining script"
    all have this script on the first page. I found that out from my website logs.

    But yeah, can anybody suggest to me what i should do for an antiban? The more the better. I don't think this will be too noticable because it doesn't just do one small task, but it's always better to be safe.

    Edit: Well, it turns out this scripts mapwalking isn't as good as i first thought it was. It's still probably around 40%, but it still isn't good enough for me. I'll iron out the bugs and will have a sparkling new version by tomorrow. I still need suggestions of what to do for an antiban system. Other than the mapwalking, though, the script works almost perfectly (one time out of 30 the script was a bit too quick, but i've made that part a little slower so it works better). I'll also add instructions to the beginning of the script, too, since alot of people seem to be getting this script off google.

  4. #4
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Updated to 0.90
    ------

    -Many bugfixes

    -Mapwalking more accurate than before

    -Download at http://www.nxtitle.net/SilverCrafter/AlKhSilverCrafter.html
    and
    http://www.nxtitle.net/SilverCrafter/AlKhSilverCrafter.scar

    EDIT: sorry, i made the links to the wrong file. they're fixed now.

  5. #5
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    May try out if I could ever get silver..


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  6. #6
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I might test it tommorow... Might want to add diffrent crafting things... Like Tarias *hint*... Maybe add mining gold and silver and making ammys too... I don't know just some ideas... Will test soon

    ~Stupedspam

  7. #7
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you guys for your support. And stupedspam, i'll definitely be using your *hint*. If i can, i'll probably try to make the script work with the other things you can make with silver bars. I'm not so sure about the gold, though, because there are only 2 gold spots in Al Kharid, and they take forever to respawn. The silver itself is bad enough .

    There's always been one problem though, it's actually getting to the furnace. I can get the script to land in the actual area, but I can't actually get it into the furnace room. The walking to the silver works fine, though.

    I'll do the best I can to work on the script, but I'm in summer school for extra courses so I won't be able to work on this too much.

  8. #8
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks excellent for a Non-Member script. How about you apply for members. You'll definitely get in.

    Before you apply, this'll stop Jad from hinting on your standards:

    SCAR Code:
    program AlKhSilverCrafter;

    //    Al Kharid Silver Crafter
    //         Version 0.85

    var
      Verbose, LogOutOnError, Error : Boolean;
      Rounds, MaxRounds, FindColourX, FindColourY, CharsNPC, Mask, Mask2, ItemCount, Collected, i, j, k, none : Integer;
      box : TBox;
    {.include srl/srl.scar}
    {.include srl/srl/skill/mining.scar}

    procedure Configure;
    begin
      Verbose := false; // Shows More Information Than Needed - Mainly For Developers
      LogOutOnError := false; // Log Out Of Runescape If Error Occurs
      MaxRounds := 4; // How Many Rounds To Perform Before Exiting
      HowManyPlayers := 1; // How Many Players You Will Use For This Script
      NumberOfPlayers(HowManyPlayers); // No Config Needed On This
      CurrentPlayer := 0; // Player To Begin With
      Players[0].Name := 'Username'; // Your Runescape Username
      Players[0].Pass := 'Password'; // Your Runescape Password
      Players[0].Nick := 'ernam'; // 3 To 6 Letters From The Middle Of Your Username
      Players[0].Loc := 'FirstRun'; // Beginning Position Use The Last LOC From The Debug Box
      Players[0].Active := true; // Whether To Use This Character At All
    end;

    // That is all you need to do. The script will do the rest.

    procedure FindRandoms;
    begin
      FindNormalRandoms;
    end;

    procedure CheckStuff;
    begin
      FindRandoms;
      if (not (Loggedin)) then LoginPlayer;
    end;

    procedure ShowReport;
    begin
      writeln('');
      writeln('---Report---');
      writeln('Rounds: ' + IntToStr(Rounds));
      writeln('Collected: ' + IntToStr(Collected));
      writeln('Extra Items: ' + IntToStr(ItemCount));
      writeln('Mining Lvl: ' + IntToStr(Players[CurrentPlayer].Level[15]));
      writeln('Smithing Lvl: ' + IntToStr(Players[CurrentPlayer].Level[16]));
      writeln('Crafting Lvl: ' + IntToStr(Players[CurrentPlayer].Level[12]));
      if (Error) then
      begin
        writeln('Exiting script due to error.');
        if (LogOutOnError) then writeln('Also logging out.');
      end;
      writeln('---Report---');
      writeln('');
    end;

    procedure FirstRun;
    begin
      writeln('Starting Script on ' + Players[CurrentPlayer].Name + ' For First Time...');
      CheckStuff;
      if (InvCount > 1) then
      begin
        writeln('ERROR: More Than 1 Item in Inventory. Closing...');
        exit;
      end;
      if (InvCount < 1) then
      begin
        writeln('ERROR: Less Than 1 Item in Inventory. Closing...');
        exit;
      end;
      if (InvCount = 1) then
      begin
        Players[CurrentPlayer].Loc := 'GoToMine';
        if (Verbose) then writeln('Good. Only One Item In Inventory. Setting LOC to "GoToMine".');
      end;
    end;

    procedure GoToMine;
    begin
      CheckStuff;
      CheckStuff;
      if (Verbose) then writeln('Journeying to Mining Site...');
      RandomRClick;
      MakeCompass('e');
      MakeCompass('n');
      if (FindColorTolerance(FindColourX, FindColourY, 2844164, 670, 44, 730, 107, 70)) then
      begin
        if (Verbose) then writeln('Found Cactus! Now we can start.');
        MMouse(FindColourX, FindColourY, 1, 1);
        Sleep(1000);
        if (Verbose) then writeln('Cactus (mf)');
        Mouse(FindColourX, FindColourY - 23, 5, 5, true);
        if (Verbose) then writeln('Cactus (sm)');
        SleepAndMoveMouse(5000 + Random(250));
        Flag;
      end else
      begin
        writeln('ERROR: I can''t find out where I am. Exiting...');
        if (Verbose) then writeln('Couldn''t find cactus beside the bank.');
        Error := true;
        exit;
      end;
      if (Verbose) then writeln('Move Ahead 1 (mf)');
      Mouse(652, 19, 5, 5, true);
      if (Verbose) then writeln('Move Ahead 1 (sm)');
      SleepAndMoveMouse(5000 + Random(250));
      Flag;
      if (Verbose) then writeln('Move Ahead 2 (mf)');
      Mouse(650, 10, 5, 5, true);
      if (Verbose) then writeln('Move Ahead 2 (sm)');
      SleepAndMoveMouse(5000 + Random(250));
      Flag;
      if (FindColorTolerance(FindColourX, FindColourY, 3577729, 589, 6, 643, 157, 20)) then
      begin
        if (Verbose) then writeln('Found Grass (mf)');
        Mouse(713, 76, 5, 5, true);
        if (Verbose) then writeln('Found Grass (sm)');
        SleepAndMoveMouse(5000);
        Flag;
      end;
      if (Verbose) then writeln('MouseFlag-4');
      Mouse(646, 11, 5, 5, true);
      if (Verbose) then writeln('SleepAndMoveMouse-4');
      SleepAndMoveMouse(5000);
      Flag;
      if (FindColorTolerance(FindColourX, FindColourY, 3577729, 589, 6, 643, 157, 20)) then
      begin
        if (Verbose) then writeln('Still Found Grass (mf)');
        Mouse(717, 86, 5, 5, true);
        if (Verbose) then writeln('Still Found Grass (sm)');
        SleepAndMoveMouse(5000);
        Flag;
      end;
      if (Verbose) then writeln('MouseFlag-5');
      Mouse(646, 11, 5, 5, true);
      if (Verbose) then writeln('SleepAndMoveMouse-5');
      SleepAndMoveMouse(5000);
      Flag;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 2970237, 563, 3, 720, 90, 20)) then
        begin
          if (Verbose) then writeln('Found Rocks (mf)');
          Mouse(FindColourX, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Found Rocks (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Rocks (mf)');
          Mouse(649, 54, 5, 5, true);
          if (Verbose) then writeln('Looking For Rocks (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 8093052, 600, 10, 705, 90, 22)) then
        begin
          if (Verbose) then writeln('Found Mining (mf)');
          Mouse(FindColourX, FindColourY, 2, 2, true);
          if (Verbose) then writeln('Found Mining (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Mining (mf)');
          Mouse(649, 54, 5, 5, true);
          if (Verbose) then writeln('Looking For Mining (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 2970237, 563, 3, 720, 90, 20)) then
        begin
          if (Verbose) then writeln('Found Rocks 2 (mf)');
          Mouse(FindColourX - 15, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Found Rocks 2 (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Rocks 2 (mf)');
          Mouse(649, 54, 5, 5, true);
          if (Verbose) then writeln('Looking For Rocks 2 (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
      if (Verbose) then writeln('Doing Final Catchup...');
      if (Verbose) then writeln('Catchup (mf)');
      Mouse(648, 68, 5, 5, true);
      if (Verbose) then writeln('Catchup (sm)');
      SleepAndMoveMouse(5000);
      Flag;
      Players[CurrentPlayer].Loc := 'GetMySilver';
      if (Verbose) then writeln('Success! We reached the Silver! Setting LOC to "GetMySilver".');
      if (not (Verbose)) then writeln('Success! We Reached the Mine!');
    end;

    procedure GetMySilver;
    begin
      SetupSRLMining;
      CheckStuff;
      FindPickHeadColor;
      writeln('Looking For Silver...');
      MakeCompass('n');
      MakeCompass('e');
      HighestAngle;
      while (not (InvFull)) do
      begin
        CheckStuff;
        if (FindColorSkipBoxTolerance(FindColourX, FindColourY, 10921649, 65, 100, 426, 292, 20, box)) then
        begin
          MoveMouseSmooth(FindColourX, FindColourY);
          Sleep(50);
          if (copy(GetUpText, 0, 10) = 'Mine Rocks') then
          begin
            if (Verbose) then writeln('Found Silver.');
            ClickMouse(FindColourX, FindColourY, true);
            if (FindGas(FindColourX, FindColourY)) then
            begin
              Mouse(650, 65, 10, 10, true);
              while (k < 30) do
              begin
                SleepAndMoveMouse(500 + random(50));
                CheckStuff;
                k := k + 1;
              end;
            end;
            SleepAndMoveMouse(2000 + random(100));
            j := 0;
            while (j < 12) do
            begin
              if (GetBlackChatMessage = 'You swing your pick at the rock.') or (GetBlackChatMessage = 'You manage to mine some silver.') then
              begin
                if (Verbose) then writeln('Mining...');
                GameTab(5);
                SleepAndMoveMouse(200 + random(50));
                if (FindBitmapMaskTolerance(Mask, none, none, 574, 286, 612, 324, 150, 0)) then FindPick;
                i := 0;
                while (i < 12) do
                begin
                  if (FindGas(FindColourX, FindColourY - 7)) then
                  begin
                    Mouse(650, 65, 10, 10, true);
                    while (k < 30) do
                    begin
                      SleepAndMoveMouse(100 + random(50));
                      CheckStuff;
                      k := k + 1;
                    end;
                  end;
                  if (GetBlackChatMessage = 'You manage to mine some silver.') then
                  begin
                    if (Verbose) then writeln('You Mined the Silver.');
                    j := 12;
                    break;
                  end;
                  CheckStuff;
                  if (FindGas(FindColourX, FindColourY)) then
                  begin
                    Mouse(650, 65, 10, 10, true);
                    while (k < 30) do
                    begin
                      SleepAndMoveMouse(500 + random(50));
                      CheckStuff;
                      k := k + 1;
                    end;
                  end;
                  SleepAndMoveMouse(500 + random(50));
                  i := i + 1;
                end;
                break;
              end;
              CheckStuff;
              j := j + 1;
              SleepAndMoveMouse(500 + random(50));
            end;
          end;
        end;
        SleepAndMoveMouse(50 + random(50));
      end;
      if (Verbose) then writeln('All done. Setting LOC to "GoToFurnace".');
      if (not (Verbose)) then writeln('Our Inventory is full now. Let''s go to the furnace.');
      Players[CurrentPlayer].Loc := 'GoToFurnace';
    end;

    procedure GoToFurnace;
    begin
      CheckStuff;
      SetRun(true);
      if (Verbose) then writeln('Journeying To Furnace...');
      MakeCompass('w');
      MakeCompass('n');
      i := 0;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 8093052, 617, 98, 702, 163, 20)) then
        begin
          if (Verbose) then writeln('Found Mining (mf)');
          Mouse(FindColourX, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Found Mining (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Mining (mf)');
          Mouse(668, 109, 5, 5, true);
          if (Verbose) then writeln('Looking For Mining (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
        if (i > 3) then break;
        i := i + 1;
      end;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 1458526, 627, 122, 673, 152, 23)) then
        begin
          if (Verbose) then writeln('Found Rocks (mf)');
          Mouse(FindColourX, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Found Rocks (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Rocks (mf)');
          Mouse(657, 101, 5, 5, true);
          if (Verbose) then writeln('Looking For Rocks (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
      if (Verbose) then writeln('Moving Down (mf)');
      Mouse(657, 151, 5, 5, true);
      if (Verbose) then writeln('Moving Down (sm)');
      SleepAndMoveMouse(5000);
      Flag;
      if (Verbose) then writeln('Moving Down (mf)');
      Mouse(657, 151, 5, 5, true);
      if (Verbose) then writeln('Moving Down (sm)');
      SleepAndMoveMouse(5000);
      Flag;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 12161149, 566, 110, 710, 161, 25)) then
        begin
          if (Verbose) then writeln('Found Water (mf)');
          Mouse(FindColourX, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Found Water (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          break;
        end else
        begin
          if (Verbose) then writeln('Looking For Water (mf)');
          Mouse(648, 151, 5, 5, true);
          if (Verbose) then writeln('Looking For Water (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
      CheckStuff;
      if (Verbose) then writeln('Moving Down (mf)');
      Mouse(657, 151, 5, 5, true);
      if (Verbose) then writeln('Moving Down (sm)');
      SleepAndMoveMouse(7500);
      Flag;
      CheckStuff;
      if (Verbose) then writeln('Moving Down (mf)');
      Mouse(632, 151, 5, 5, true);
      if (Verbose) then writeln('Moving Down (sm)');
      SleepAndMoveMouse(5000);
      Flag;
      if (Verbose) then writeln('Almost there...');
      while (true) do
      begin
        CheckStuff;
        //if (FindColorTolerance(FindColourX, FindColourY, 125939, 608, 59, 692, 115, 50)) then
        if (FindBitmapMaskTolerance(Mask2, FindColourX, FindColourY, 593, 63, 659, 93, 150, 80)) then
        begin
          if (Verbose) then writeln('Moving To Furnace Room (mf)');
          Mouse(FindColourX, FindColourY, 5, 5, true);
          if (Verbose) then writeln('Moving To Furnace Room (sm)');
          SleepAndMoveMouse(5000);
          Flag;
          if (Verbose) then writeln('If all went well, We are now at the furnace. changing LOC to "SmeltMySilver".');
          if (not (Verbose)) then writeln('We are here! Let''s make some silver bars now!');
          Players[CurrentPlayer].Loc := 'SmeltMySilver';
          break;
        end else
        begin
          if (Verbose) then writeln('Looking for Furnace Room (mf)');
          Mouse(643, 98, 2, 2, true);
          if (Verbose) then writeln('Looking for Furnace Room (sm)');
          SleepAndMoveMouse(5000);
          Flag;
        end;
      end;
    end;

    procedure SmeltMySilver;
    begin
      CheckStuff;
      if (Verbose) then writeln('Beginning my smithing!!');
      MakeCompass('e');
      MakeCompass('w');
      LowestAngle;
      while (true) do
      begin
        CheckStuff;
        if (FindColorTolerance(FindColourX, FindColourY, 595535, 155, 5, 431, 336, 12)) then
        begin
          MMouse(FindColourX, FindColourY, 0, 0);
          if (copy(GetUpText, 0, 13) = 'Smelt Furnace') then
          begin
            if (Verbose) then writeln('Found the furnace. We''ll click on it now.');
            Mouse(FindColourX, FindColoury, 5, 5, true);
            SleepAndMoveMouse(1250);
            Mouse(203, 403, 5, 5, false);
            Sleep(750);
            MMouse(206, 472, 5, 0);
            Sleep(40);
            Mouse(206, 472, 5, 0, true);
            SleepAndMoveMouse(1500);
            hitkeys(true);
            if (Verbose) then writeln('We will now wait until there is no more ore.');
            while (true) do
            begin
              CheckStuff;
              if (GetBlackChatMessage = 'You have run out of silver ore to smelt.') then
              begin
                if (Verbose) then writeln('There is no more ore.');
                break;
              end;
              SleepAndMoveMouse(1000);
            end;
            if (Verbose) then writeln('Congrats! All went well. Setting LOC to "SilverHolyize".');
            if (not (Verbose)) then writeln('We are done making silver bars. Let''s make holy symbols now.');
            Players[CurrentPlayer].Loc := 'SilverHolyize';
            break;
          end;
        end;
      end;
    end;

    procedure SilverHolyize;
    begin
      CheckStuff;
      LowestAngle;
      MakeCompass('s');
      MakeCompass('w');
      if (Verbose) then writeln('Transforming into Saradomin Symbols now!!!');
      while (true) do
      begin
        if (FindColorTolerance(FindColourX, FindColourY, 595535, 155, 5, 431, 336, 12)) then
        begin
          if (Verbose) then writeln('Found the furnace, now we will do our job.');
          UseItem(28);
          MMouse(FindColourX, FindColourY, 5, 5);
          Sleep(100);
          Mouse(FindColourX, FindColourY - 15, 5, 5, true);
          SleepAndMoveMouse(3000);
          MMouse(92, 76, 5, 5);
          Sleep(750);
          Mouse(92, 76, 5, 5, false);
          Sleep(500);
          MMouse(65, 152, 1, 1);
          Sleep(100);
          Mouse(65, 152, 1, 1, true);
          Sleep(750);
          hitkeys(true);
          if (Verbose) then writeln('Now we wait until we run out of silver bars.');
          while (true) do
          begin
            if (GetBlackChatMessage = 'You have run out of silver bars.') then
            begin
              if (Verbose) then writeln('We have don''t have anymore silver bars.');
              break;
            end;
            SleepAndMoveMouse(500);
          end;
        end else
        begin
          writeln('ERROR: Couldn''t find the furnace. Exiting...');
          exit;
        end;
        if (Verbose) then writeln('All Symbols have been made! Changing LOC to "BankJog".');
        if (not (Verbose)) then writeln('We have finished making symbols. Time to go to the bank.');
        Players[CurrentPlayer].Loc := 'BankJog';
        break;
      end;
    end;

    procedure BankJog;
    begin
      CheckStuff;
      HighestAngle;
      MakeCompass('n');
      SetRun(true);
      if (Verbose) then writeln('Moving to bank now...');
      Mouse(648, 147, 5, 5, true);
      SleepAndMoveMouse(2000);
      Flag;
      if (Verbose) then writeln('Looking for Bank Emblem...');
      while (true) do
      begin
        if (FindColorTolerance(FindColourX, FindColourY, 4706274, 627, 75, 661, 118, 20)) then
        begin
          if (Verbose) then writeln('Found it!');
          Mouse(FindColourX - 8, FindColourY, 2, 2, true);
          SleepAndMoveMouse(1000);
          Flag;
          break;
        end;
        SleepAndMoveMouse(1000);
      end;
      if (Verbose) then writeln('Arrived at bank. Setting LOC to "StoreInBank".');
      if (not (Verbose)) then writeln('We are here. We''re going to store our collectings now.');
      Players[CurrentPlayer].Loc := 'StoreInBank';
    end;

    procedure StoreInBank;
    begin
      CheckStuff;
      if (Verbose) then writeln('Let''s store our silver in the bank now.');
      MakeCompass('w');
      LowestAngle;
      OpenBankQuiet('akb');
      SleepAndMoveMouse(2000);
      Mouse(710, 444, 5, 5, false);
      Sleep(100);
      Mouse(710, 444, 2, 2, true);
      SleepAndMoveMouse(2000);
      CloseBank;
      if (InvCount > 1) then
      begin
        writeln('There is still something left in your inventory.');
        ItemCount := ItemCount + 1;
      end;
      if (Verbose) then writeln('Completely Done Now! Going back to LOC "GoToMine"...');
      if (not (Verbose)) then writeln('We have completely finished a round! Let''s do another...');
      Players[CurrentPlayer].Loc := 'GoToMine';
    end;

    procedure MyBitmaps;
    begin
      Mask := BitmapFromString(36, 36, 'z78DAEDD8C10900200C04C196' +
        'AC22FD97E45710443F428ED90E86FB84544992FE3596F24419BA7' +
        '111571711572F51AA8B888BC852962272FB59CA5296E222E27A75' +
        'A57E96AA79A9AE5D57928E4DF36DFB22');
      Mask2 := BitmapFromString(11, 10, 'z78DA3330000137B28001865' +
        'E03A2012ED34805A3260C4E13280100D8688F59');
    end;

    begin
      CharsNPC := LoadChars2(AppPath + 'Fonts\CharsNPC\');
      box := IntToBox(224, 135, 290, 207); // Box needed when mining to block your character
      SetupSRL; // Initialize SRL
      Configure; // Run Configuration at beginning
      MyBitmaps;
      GetAllLevels; // Just for reports
      ShowReport;

      while (true) do
      begin
        if (Players[0].Loc = 'FirstRun') then FirstRun;
        if (Players[0].Loc = 'GoToMine') then GoToMine;
        if (Players[0].Loc = 'GetMySilver') then GetMySilver;
        if (Players[0].Loc = 'GoToFurnace') then GoToFurnace;
        if (Players[0].Loc = 'SmeltMySilver') then SmeltMySilver;
        if (Players[0].Loc = 'SilverHolyize') then SilverHolyize;
        if (Players[0].Loc = 'BankJog') then BankJog;
        if (Players[0].Loc = 'StoreInBank') then StoreInBank;
        Collected := Collected + (27 - ItemCount);
        if (not (Error)) then Rounds := Rounds + 1;
        GetAllLevels;
        ShowReport;
        if (MaxRounds > Rounds) then exit;
        if (Error) then
        begin
          if (LogOutOnError) then Logout;
          exit;
        end;
      end;
    end.

    {.Script Info:
    # ScriptName  = Al Kharid SilverCrafter
    # Author      = Nontitle
    # Description =
    # Version     = 0.85
    # Date        = June 30, 2007
    # Comments    =
    /Script Info}
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  9. #9
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, I fixed up the first post and added a nice image i made with InkScape.

    Expect an update in about 2 days.

  10. #10
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I actually don't recommend using this script! It uses MoveMouseSmooth and ClickMouse, and honestly, that's instant ban.

  11. #11
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by IEatJ00erBaybees View Post
    I actually don't recommend using this script! It uses MoveMouseSmooth and ClickMouse, and honestly, that's instant ban.
    What?!?! Did you look at the older script? Look again because I didn't find any bad mouse functions...

    ~Stupedspam

  12. #12
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by stupedspam View Post
    What?!?! Did you look at the older script? Look again because I didn't find any bad mouse functions...

    ~Stupedspam
    I looked at .90. Is that the newest one??

  13. #13
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea sorry I must hove looked at the wrong version... Silly me...

    I would suggest replacing all the Banning mouse functions with ones that are in Srl (e.x. Mouse, MMouse...)

    ~Stupedspam

  14. #14
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank you for that. I don't know when I put those in, but I'll remove them now.

    And as JOOer said, don't use this script. I have some major changes to make, because this version only finds the "normal" randoms.

    Right now, the list of things I'm going to add are:
    *Anti Fighting Randoms
    *Replacing coordinate clicking with RadialWalk and anything else
    *more failsafes (for example, either exiting or walking back if you die)
    *Anything else that needs to be done.

    For now, though, don't use this version of the script.

    EDIT: Also, last time i used findsymbol, but it didn't work. I tried FindSymbol(FindColourX, FindColourY, "mining spot") with the mining symbol in sight, but it didn't detect it. Was there something I was doing wrong?

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

    Default

    -- plz NO ClickMouse and stuff --
    script does use lots of mouse clicking for walking, you search for color and only use it to get your current position, why not also clicking near that color instead of blind click?
    i think clicking near that color would be better though
    no repeat and no player switching, that's a must over here btw

    Other than that, for a dude with a post count of 3 this is good
    Are you arleady part from another community with scar? or were you already a member of this forum in past or so, cause that's actually good for someone with post count of 3..

    However, keep it up!
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

  16. #16
    Join Date
    Jun 2007
    Location
    Canuckistan
    Posts
    306
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think my first post here was this script, but in the first scripts section (it was 0.20) then I released 0.85, which I pretty much ended up just rearranging the script so each segment had it's own procedure instead of a bunch of if statements in a huge main loop. I also changed some of the colors to make the script work better. But the idiotic thing I did was release version 0.90, here I did two very stupid things:
    *Changed MMouse and Mouse to MoveMouseSmooth and ClickMouse. I think I did it because it was quicker or something. I forget, though.
    *Used this super complicated way of finding the furnace. Instead of just looking for the furnace emblem on the minimap, it would turn the compass west, go to the lowest angle and move down that area, looking for the furnace through the door. It didn't work at all, and because of that, this version doesn't work anymore.

    Right now, though I'm redoing the script so that it uses more accurate ways of going between the mine, the furnace and the bank (RadialWalk, FindSymbol if I ever get it to work, and others) and I'm also going to add anti-fighting randoms too, cause FindNormalRandoms doesn't seem to get them.

    Also, the scar noob, were you being sarcastic? I can't tell

    EDIT: Also, I've already implemented multiplayer in the new version, I even gave an option of how many rounds to do per player.

    Thank you very much for the help, people. I especially liked the help and suggestions from StupedSpam and the scar noob, those posts actually helped me out.

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

    Default

    Quote Originally Posted by Nontitle View Post
    I think my first post here was this script, but in the first scripts section (it was 0.20) then I released 0.85, which I pretty much ended up just rearranging the script so each segment had it's own procedure instead of a bunch of if statements in a huge main loop. I also changed some of the colors to make the script work better. But the idiotic thing I did was release version 0.90, here I did two very stupid things:
    *Changed MMouse and Mouse to MoveMouseSmooth and ClickMouse. I think I did it because it was quicker or something. I forget, though.
    *Used this super complicated way of finding the furnace. Instead of just looking for the furnace emblem on the minimap, it would turn the compass west, go to the lowest angle and move down that area, looking for the furnace through the door. It didn't work at all, and because of that, this version doesn't work anymore.

    Right now, though I'm redoing the script so that it uses more accurate ways of going between the mine, the furnace and the bank (RadialWalk, FindSymbol if I ever get it to work, and others) and I'm also going to add anti-fighting randoms too, cause FindNormalRandoms doesn't seem to get them.

    Also, the scar noob, were you being sarcastic? I can't tell
    about what? if it's about that it's actually good cause your new, no i'm super serial (>> hear that in south park )
    [QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
    [CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]

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

    Default

    Message me with the new version when it comes out.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Al Kharid Smelter
    By Bobzilla69 in forum First Scripts
    Replies: 20
    Last Post: 03-25-2008, 09:34 PM
  2. [SRL4] Al Kharid SilverCrafter
    By NxTitle in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 09-01-2007, 04:15 PM
  3. Al kharid miner
    By reaper92 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 08-01-2007, 11:01 AM
  4. Nontitle's Al Kharid SilverCrafter (Not Yet Done)
    By NxTitle in forum First Scripts
    Replies: 3
    Last Post: 07-14-2007, 08:55 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
  •