SRL Archive - RS3 Outdated / Broken Scripts

I have quit runescape. If anyone wants to take over this script/ fix it up a bit you have my permission!

http://villavu.com/forum/showthread.php?t=75295

I have taken over development, and will actively be maintaining Ryguy's Edgeville Gold Smither.


=====Setup=====
Start In Edgeville Bank, Have Gold Ore (Smithing, and Smithing/Crafting) in first slot. Gold Bars in first slot if Crafting.



—–Future Updates—–
~Other Bars
~CannonBalls
~More Crafting Options (Possibly AIO)



—–v1.5—–
~Fixed Problems With Banking
~Fixed Coordinate Problems

program EdgevilleGoldSmither;
//////////////////////////WRITTEN BY RYGUY, UPDATED AND MAINTAINED BY NOOB KING//////////////////////////////

////////////////////////////VERSION 1.6/////////////////////////////////
{$DEFINE SMART}
{$i SRL/srl.simba}

var
  TimeBegan, StartingXP, Stuck: integer;

  aFound: extended;

Const

///////////////////////////PLAYER SETUP//////////////////////////////////

                           // Smith for Gold Ore --> Gold Bars
Method = 'Craft';  // Craft for Gold Bars --> Gold Bracelets
                           // SmithAndCraft for Gold Ore --> Bracelets

// Gold ore MUST be in first bank slot! (top left) (for smith and smithandcraft)
// Gold bars MUST be in second bank slot! (for craft)

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

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

////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////

procedure AntiBan;
begin

  FindNormalRandoms;

  if not(LoggedIn)then
  begin
    Exit;
  end;

  case Random(80) of
    0: RandomRClick;
    1: HoverSkill('Smithing', false);
    2: PickUpMouse;
    3: RandomMovement;
    4: HoverSkill('Smithing', false);
    5: ExamineInv;
    6: RandomRClick;
    7: PickUpMouse;
    8: RandomMovement;
    9: BoredHuman;
  end;

end;



procedure WaitNone();
begin
end;



function SmithScreen: Boolean;
var
  x, y: integer;
begin

  if FindText(x, y, 'What would you like to make?', UpCharsEx, 160, 80, 360, 105)then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;

end;




procedure RunToBank;
var
  x, y, WalkToBank, Bank, Tried: integer;
begin

  Bank := DTMFromString('m6wAAAHic42ZgYFAD4kgGCNAAYiYg9gRieyAWQKLnATELAypgA2J2IOYAYlYgZoRikDpfT2uGD2/OM1y9uJ3hxdMTYD4ybu/qBWM3DwUGEaB6OSQsgoaRxUHmM0MxE5KdMMwExayoTgUA2PATHg==');
  FindNormalRandoms;

  if (BankScreen)then
  begin
    FreeDTM(Bank);
    Exit;
  end;

  if FindDTMRotated(Bank, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    repeat
    if FindDTMRotated(Bank, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
    begin
      FindNormalRandoms;
      Mouse(x, y, 10, 10, True);
      Flag;
      Wait(1000 + random(100));
      Inc(Tried);
    end;
    until (BankScreen) or (PinScreen) or (Tried > 5);
  end;

  if PinScreen then
    if (Players[CurrentPlayer].Pin <> '')then
      InPin(Players[CurrentPlayer].Pin)
    else
      begin
        FreeDTM(Bank);
        Logout;
        WriteLn('No pin given')
        TerminateScript;
      end;

  if not (BankScreen)then
  begin

    WalkToBank := DTMFromString('mrAAAAHic42BgYGAFYjUgVgBiNigfBliAWAaIdYFYHiqmCcVKULFAH3sG72IzBqVIITBOjvZleP+XE47/A9XIIWENND4jEDPhwTAAAHpLDRw=');

    begin
      if FindDTMRotated(WalkToBank, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
      begin
        Mouse(x, y, 2, 2, True);
        MakeCompass('N');
        SetAngle(SRL_ANGLE_HIGH);
        Wait(1000 + random(50));
        while (IsMoving) do (WaitNone);
      end;
    end;

    FreeDTM(WalkToBank);

  end else exit;

  FreeDTM(Bank);
  FindNormalRandoms;

end;



procedure OpenBankBooth;
var
  x, y, Bank, Tried: integer;
begin

  Bank := DTMFromString('m6wAAAHic42ZgYFAD4kgGCNAAYiYg9gRieyAWQKLnATELAypgA2J2IOYAYlYgZoRikDpfT2uGD2/OM1y9uJ3hxdMTYD4ybu/qBWM3DwUGEaB6OSQsgoaRxUHmM0MxE5KdMMwExayoTgUA2PATHg==');

  if (BankScreen)then
  begin
    FreeDTM(Bank);
    Exit;
  end;

  begin
    repeat
    Inc(Tried);
    Wait(150 + random(100));
    x := MSCX;
    y := MSCY;
    if FindDTMRotated(Bank, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
    begin
      Mouse(x, y, 10, 10, True);
      Flag;
      Wait(1000 + random(100));
      FindNormalRandoms;
    end;
    until (BankScreen) or (PinScreen) or (Tried > 10);
  end;

  begin
    if PinScreen then
      if (Players[CurrentPlayer].Pin <> '')then
        InPin(Players[CurrentPlayer].Pin)
      else
        begin
          FreeDTM(Bank);
          Logout;
          WriteLn('No pin given');
          TerminateScript;
        end;
  end;

  FreeDTM(Bank);

end;



procedure Banking;
var
  Tried, Tried2: integer;

begin

  if not(BankScreen)then
  begin
    Exit;
  end;

  DepositAll;

  repeat

    Inc(Tried);
    Wait(20);

    if (FindNormalRandoms)then
    begin
      ClickNorth(SRL_ANGLE_HIGH);
      OpenBankBooth;
    end;

  until (BankScreen) or (Tried > 15);

  case Lowercase(Method) of

    'smith':
    begin
      repeat
        Inc(Tried2);
        if(BankScreen) then
        begin
          MouseBankSlot(1, mouse_Right);
          WaitOption('ithdraw-All', 500);
          Wait(800 + random(50));
          FindNormalRandoms;
        end;
      until (InvCount = 28) or (Tried2 > 2);

      if(Tried2 > 2)then
      begin
        WriteLn('Failed to find Gold')
        Logout;
        TerminateScript;
      end;

    end;

    'smithandcraft':
    begin
      repeat
        Inc(Tried2);
        if(BankScreen)then
        begin
          MouseBankSlot(1, mouse_Right);
          WaitOption('ithdraw-All', 500);
          Wait(800 + random(50));
          FindNormalRandoms;
        end;
      until (InvCount = 28) or (Tried2 > 2);

      if(Tried2 > 2)then
      begin
        WriteLn('Failed to find Gold')
        Logout;
        TerminateScript;
      end;

    end;

    'craft':
    begin
      repeat
        Inc(Tried2);
        if(BankScreen)then
        begin
          MouseBankSlot(1, mouse_Right);
          WaitOption('ithdraw-All', 500);
          Wait(800 + random(50));
          FindNormalRandoms;
        end;
      until (InvCount = 28) or (Tried2 > 2);

      if(Tried2 > 2)then
      begin
        WriteLn('Failed to find Gold')
        Logout;
        TerminateScript;
      end;

    end;

  end;

end;



procedure RunToFurnace;
var
  x, y, WalkToFurnace: integer;
begin

  WalkToFurnace := DTMFromString('mlwAAAHicY2dgYDABYh0g5gZieSA2BWIlBgiQhtJcQGwExK5A7ATEQkD84cF9hsAALzA2ThBmaOudxuBTYMygHMbP8B8oL4eENZDYjEiYCQ1DAQDhRgvs');

  if not(InvCount = 28)then
  begin
    FreeDTM(WalkToFurnace);
    Exit;
  end;

  if(InvCount = 28)then
  begin
    if FindDTMRotated(WalkToFurnace, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
    begin
      Mouse(x, y, 0, 0, True);
      Wait(1000 + random(100));
      FindNormalRandoms;
      while (IsMoving) do (WaitNone);
    end;
  end;

  FreeDTM(WalkToFurnace);

end;



function BarsInInv: Boolean;
var
  x, y, GoldBar: integer;
begin

  GoldBar := DTMFromString('mlwAAAHicY2dgYHBiYmCwB2J3IHYFYmcgDgRiEyB+AJR/BsSPgfgWEH8A4odA/AKIFzWIMcR48jJcWi4L5DGhYBEgCcOsaJgRD4YCAN+0DAY=');

  if FindDTMRotated(GoldBar, x, y, MIX1, MIY1, MIX2, MIY2, -Pi, Pi, Pi/30, aFound)then
  begin
    Result := True;
  end;

  FreeDTM(GoldBar);
  FindNormalRandoms;

end;



function GoldInInv: Boolean;
var
  x, y, GoldOre: integer;
begin

  GoldOre := DTMFromString('mQwAAAHicY2ZgYDjMyMCwH4h3AnEOkF8KxHlAvKlXgiHaw4gh1suYQRLIh2FGJAwEADOOBuU=');

  if FindDTMRotated(GoldOre, x, y, MIX1, MIY1, MIX2, MIY2, -Pi, Pi, Pi/30, aFound)then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;

  FreeDTM(GoldOre);
  FindNormalRandoms;

end;



function IsCrafting: Boolean;
var
  GoldBracelet, T1, T2: integer;
begin

  GoldBracelet := DTMFromString('mbQAAAHicY2VgYGAFYm4GCOACYnaoGCNUjB0qfmGLLJBkYji1ToZhU58kw7w6MQY5oAg6ZsSCwQAAbswGmw==');

  T1 := CountItems('dtm', GoldBracelet, []);

  Wait(4000 + random(500));

  T2 := CountItems('dtm', GoldBracelet, []);

  if (T2 > T1)then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;

  FreeDTM(GoldBracelet);

end;



function IsSmithing: Boolean;
var
  GoldBar, T1, T2: integer;
begin

  GoldBar := DTMFromString('mlwAAAHicY2dgYHBiYmCwB2J3IHYFYmcgDgRiEyB+AJR/BsSPgfgWEH8A4odA/AKIFzWIMcR48jJcWi4L5DGhYBEgCcOsaJgRD4YCAN+0DAY=');

  T1 := CountItems('dtm', GoldBar, []);

  Wait(4000 + random(500));

  T2 := CountItems('dtm', GoldBar, []);

  if (T2 > T1)then
  begin
    Result := True;
  end else
  begin
    Result := False;
  end;

  FreeDTM(GoldBar);

end;



procedure Smithing;
var
  x, y, Furnace, GoldBar, NumOfBars, Count: integer;
label
  Start;
begin

  Start:

  Furnace := DTMFromString('mlwAAAHicY2dgYDBhZGBwAGJ7KO0NxAFAHAHEMxgguAmIVwPxdCCeAsTzgDgtKYKhV1aYwdragsHAQI+hUwbCnikvymAElMeFgcYyMOHAUAAAq60M0g==');

  GoldBar := DTMFromString('mlwAAAHicY2dgYHBiYmCwB2J3IHYFYmcgDgRiEyB+AJR/BsSPgfgWEH8A4odA/AKIFzWIMcR48jJcWi4L5DGhYBEgCcOsaJgRD4YCAN+0DAY=');

  if (GoldInInv)then
  begin
    if FindDTMRotated(Furnace, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
    begin
      Mouse(x, y, 15, 15, True);
      Flag;
      Wait(500 + random(100));
      Mouse(260, 480, 10, 10, True);
      FindNormalRandoms;
    end;
  end else
  begin
    Writeln('No Gold Found');
    FreeDTM(Furnace);
    FreeDTM(GoldBar);
    Exit;
  end;

  if (IsSmithing)then
  begin
    repeat
      begin
        Stuck := 0;
        AntiBan;
        Wait(2500 + random(1000));
        NumOfBars := CountItems('dtm', GoldBar, []);
        FindNormalRandoms;
      end;
    until (NumOfBars = 28) or not FindDTMRotated(Furnace, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound);
  end else
  begin
    RunToFurnace;
    FreeDTM(GoldBar);
    FreeDTM(Furnace);
    Inc(Count);
    if(Count > 3)then
    begin
      Exit;
    end;
    goto Start;
  end;

  FreeDTM(GoldBar);
  FreeDTM(Furnace);
  FindNormalRandoms;

end;



procedure Crafting;
var
  x, y, GoldBracelet, Furnace, GoldBar, NumOfBracelets, Count: integer;
label
  Start;
begin

  Start:

  Furnace := DTMFromString('mlwAAAHicY2dgYDBhZGBwAGJ7KO0NxAFAHAHEMxgguAmIVwPxdCCeAsTzgDgtKYKhV1aYwdragsHAQI+hUwbCnikvymAElMeFgcYyMOHAUAAAq60M0g==');

  GoldBracelet := DTMFromString('mbQAAAHicY2VgYGAFYm4GCOACYnaoGCNUjB0qfmGLLJBkYji1ToZhU58kw7w6MQY5oAg6ZsSCwQAAbswGmw==');

  GoldBar := DTMFromString('mlwAAAHicY2dgYHBiYmCwB2J3IHYFYmcgDgRiEyB+AJR/BsSPgfgWEH8A4odA/AKIFzWIMcR48jJcWi4L5DGhYBEgCcOsaJgRD4YCAN+0DAY=');

  FindNormalRandoms;

  if(BarsInInv) then
  begin
    if FindDTMRotated(Furnace, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
    begin

      if FindDTMRotated(GoldBar, x, y, MIX1, MIY1, MIX2, MIY2, -Pi, Pi, Pi/30, aFound)then
      begin
        Mouse(x, y, 5, 5, True);
        Wait(650 + random(150));
        FindNormalRandoms;
      end else
      begin
        WriteLn('Failed to find the bars, exiting');
        FreeDTM(GoldBracelet);
        FreeDTM(GoldBar);
        FreeDTM(Furnace);
        Exit;
      end;

      if FindDTMRotated(Furnace, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      begin
        Mouse(x, y, 15, 15, true);
        while(IsMoving) do (WaitNone);
        Wait(1000 + random(100));
        FindNormalRandoms;
      end else
      begin
        WriteLn('Failed to find furnace, exiting');
        FreeDTM(GoldBracelet);
        FreeDTM(GoldBar);
        FreeDTM(Furnace);
        Exit;
      end;

      if(SmithScreen)then
      begin
        Mouse(130, 340, 5, 5, false);
        WaitOption('All', 150 + random(50));
        FindNormalRandoms;
      end;

      if (IsCrafting)then
      begin
        repeat
          begin
            Stuck := 0;
            AntiBan;
            Wait(2500 + random(1000));
            NumOfBracelets := CountItems('dtm', GoldBracelet, []);
            FindNormalRandoms;
          end;
        until (NumOfBracelets = 28) or not FindDTMROTated(Furnace, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound);
      end else
      begin
        RunToFurnace;
        FreeDTM(GoldBracelet);
        FreeDTM(Furnace);
        FreeDTM(GoldBar);
        Inc(Count);
        if(Count > 3)then
        begin
          Exit;
        end;
        goto Start;
      end;

    end;

  end;

  FreeDTM(GoldBracelet);
  FreeDTM(GoldBar);
  FreeDTM(Furnace);
  FindNormalRandoms;

end;



procedure WhatMethod;
begin

  case Lowercase(Method) of
    'smith':
    begin
      Smithing;
    end;

    'smithandcraft':
    begin
      Smithing;
      Crafting;
    end;

    'craft':
    begin
      Crafting;
    end;

  end;

end;



procedure Report;
var
  SmithExp, SmithExpHr, CraftExp, CraftExpHr, TimeRan, BarsSmithed, BarsSmithedHr, BraceletsCrafted, BraceletsCraftedHr: integer;
begin

  case Lowercase(Method) of
    'smith':
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      SmithExp := (GetXPBarTotal - StartingXP);
      SmithExpHr := Round((SmithExp * 3600) / (TimeRan));
      BarsSmithed := Round(SmithExp / 56.2);
      BarsSmithedHr := Round(SmithExpHr / 56.2);
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('*RyGuys Edgeville Gold Smither Report, Updated By Noob King.');
      WriteLn('*Time: ' + TimeRunning);
      WriteLn('*We have gained ' + IntToStr(SmithExp) + ' Smithing Experience! (' + IntToStr(SmithExpHr) + ' per hour)');
      WriteLn('*We have smithed ' + IntToStr(BarsSmithed) + ' Gold Bars! (' + IntToStr(BarsSmithedHr) + ' per hour)');
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;

    'smithandcraft':
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      BraceletsCrafted := Round((GetXPBarTotal - StartingXP) / 81.2);
      SmithExp := Round(BraceletsCrafted * 56.2);
      SmithExpHr := Round((SmithExp * 3600) / (TimeRan));
      CraftExp := Round(BraceletsCrafted * 25);
      CraftExpHr := Round((CraftExp * 3600) / (TimeRan));
      BraceletsCraftedHr := Round((SmithExpHr + CraftExpHr) / 81.2);
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('*RyGuys Edgeville Gold Smither Report, Updated By Noob King.');
      WriteLn('*Time: ' + TimeRunning);
      WriteLn('*We have gained ' + IntToStr(SmithExp) + ' Smithing Experience! (' + IntToStr(SmithExpHr) + ' per hour)');
      WriteLn('*We have gained ' + IntToStr(CraftExp) + ' Crafting Experience! (' + IntToStr(CraftExpHr) + ' per hour)');
      WriteLn('*We have crafted ' + IntToStr(BraceletsCrafted) + ' Gold Bracelets! (' + IntToStr(BraceletsCraftedHr) + ' per hour)');
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;

    'craft':                                                                                 //81.2
    begin
      TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
      CraftExp := (GetXPBarTotal - StartingXP);
      CraftExpHr := Round((CraftExp * 3600) / (TimeRan));
      BraceletsCrafted := Round(CraftExp / 25);
      BraceletsCraftedHr := Round(CraftExpHr / 25);
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('*RyGuys Edgeville Gold Smither Report, Updated By Noob King.');
      WriteLn('*Time: ' + TimeRunning);
      WriteLn('*We have gained ' + IntToStr(CraftExp) + ' Craft Experience! (' + IntToStr(CraftExpHr) + ' per hour)');
      WriteLn('*We have crafted ' + IntToStr(BraceletsCrafted) + ' Gold Bracelets! (' + IntToStr(BraceletsCraftedHr) + ' per hour)');
      WriteLn('*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;

  end;

end;




begin
  SRL_SixHourFix := True;
  Smart_FixSpeed := True;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  ToggleXPBar(True);
  StartingXP := (GetXPBarTotal);

  ClickNorth(SRL_ANGLE_HIGH);
  TimeBegan := GetSystemTime;

  repeat

    if not (LoggedIn)then
    begin
      TerminateScript;
    end;

    Inc(Stuck);

    RunToBank;

    OpenBankBooth;

    Banking;

    RunToFurnace;

    WhatMethod;

    Report;

    if (Stuck > 3)then
    begin
      WriteLn('We are stuck, logging out')
      Logout;
      TerminateScript;
    end;

  until(AllPlayersInactive);

end.

I will test this once I get home. I used RyGuy's for 80-95 smithing and plan on using it for 99.

Will be trying this soon once I'm maxed and ready to move on…

From: Andres
I will test this once I get home. I used RyGuy's for 80-95 smithing and plan on using it for 99.

Let me know if you come across any bugs.

I'm running the "ghetto" brandon fix and the script fails after it clicks on the furnace. I'm unsure if its because rs isn't displaying a gold bar or if the script is moving to a spot that's a little higher than where it should click.

edit:
Ah I fixed that part. Unsure if its was antileech haha

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 1 Hours, 46 Minutes and 8 Seconds
*We have gained 118020 Smithing Experience! (66782 per hour)
*We have smithed 2100 Gold Bars! (1188 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: noob king
Let me know if you come across any bugs.

I haven't been able to get Brandon's fix to work so I am unable to test it right now. Once I get home from work, I'll try again. Otherwise, it will have to wait until an official Simba release.

From: nexusenvy
I'm running the "ghetto" brandon fix and the script fails after it clicks on the furnace. I'm unsure if its because rs isn't displaying a gold bar or if the script is moving to a spot that's a little higher than where it should click.

edit:
Ah I fixed that part. Unsure if its was antileech haha

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 1 Hours, 46 Minutes and 8 Seconds
*We have gained 118020 Smithing Experience! (66782 per hour)
*We have smithed 2100 Gold Bars! (1188 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I did not put anti leech in here, as per the creator not doing so. Did it click above the furnace? Or are your inventory items missing/obscured?

From: noob king
I did not put anti leech in here, as per the creator not doing so. Did it click above the furnace? Or are your inventory items missing/obscured?

I just changed line 449 to this

Mouse(260, 480, 10, 10, True);

The y coordinate was off around 50 pixels.


It basically clicked on the furnace and couldn't find the button to smelt gold bars because it was looking too high

thank you OP for replying to my script request with this. and so so happy its with DTM's so i can actually make changes to it. ive had a few issues with it, made a few new DTM's that work better for me. but i have to say baking in this script is absolutely flawless, probably the best banking i have ever seen on SRL. only thing i notice now is after a little bit it stops detecting the gold bars in bank? and logouts.

here is the longest proggy i have been able to get;

*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 1 Hours, 9 Minutes and 38 Seconds
*We have gained 33900 Craft Experience! (29492 per hour)
*We have crafted 1356 Gold Bracelets! (1179 per hour)

EDIT: wanted to add this proggy stopped because it couldn't find gold bars in bank. "failed to find gold"

From: nexusenvy
I just changed line 449 to this

Mouse(260, 480, 10, 10, True);

The y coordinate was off around 50 pixels.


It basically clicked on the furnace and couldn't find the button to smelt gold bars because it was looking too high

Ahh yes, I forgot about that. When I fixed it I was doing crafting, forgot the smithing is the other screen :duh:

From: mortino

EDIT: wanted to add this proggy stopped because it couldn't find gold bars in bank. "failed to find gold"

This script actually doesn't check the bank for the item, it will withdraw what is in the first bank slot, and then it will check the inventory to make sure it was gold ore/bars that it withdrew. For some reason inventory items have been distorted lately, which makes it different from the dtm.

From: noob king
Ahh yes, I forgot about that. When I fixed it I was doing crafting, forgot the smithing is the other screen :duh:




This script actually doesn't check the bank for the item, it will withdraw what is in the first bank slot, and then it will check the inventory to make sure it was gold ore/bars that it withdrew. For some reason inventory items have been distorted lately, which makes it different from the dtm.

is there a way to make it use first inventory slot instead of a DTM? to be honest i really only know DTM's. i dont claim to be a pro programer especially with pascal. lol :)

If you would like to learn how to make it use the first inventory slot your self, then go ahead and edit it for your own use. As for the public script I won't have it do that, since the dtm is so it is not trying to use anything else that might happen to get placed in the first inventory slot, thus would get you stuck.

The coordinate change can be reverted now with the updated simba. Im having issues with the crafting screen. Script is unable to find the bracelet there. I don't know how to fix dtms yet :(

Edit: From what I can tell with the DTM editor it looks like the last coordinate is off?

Ah I think the craft window uses a different image than the inventory window now (not sure if its just something i never noticed).

Edit 2: Now I think its SmithScreen thats making Crafting fail :/ Im too noob to make more progress

I've finally gotten a chance to test this. It has been working very well for me. Although, it was having some issues finding the banker when I first tried starting it. A backup wouldn't hurt. Otherwise, it has been flawless:

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 2 Hours, 59 Seconds
*We have gained 127461 Smithing Experience! (63229 per hour)
*We have smithed 2268 Gold Bars! (1125 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Edit: Script has been working great. The only issue that I've seen is that it occasionally clicks past the furnace causing it to walk to the east side of the building before clicking on the furnace to smelt.

Thanks for taking this over. Glad to see use coming from it!

I will fix all the bugs and add a bank fail safe this weekend when I go on vacation. I have been busy with my new job for the last few weeks so I haven't had much time.

From: noob king
I will fix all the bugs and add a bank fail safe this weekend when I go on vacation. I have been busy with my new job for the last few weeks so I haven't had much time.

There's no rush. The script works perfectly 95% of the time.

As for the bank issue, I think it might have something to do with the new camera zoom option. When I first tried to run the script today, I was experiencing the banking issue. I tried restarting the script and it still wouldn't work. So I tried zooming in the camera a bit and it started successfully. It may not be related, just thought it was noteworthy.

Also, it will occasionally attempt to remove ore twice from the bank. This doesn't stop the script, it just slows down the xp per hour.

I have encountered one more bug that is a little more serious because it actually breaks the script. Rarely, the script will not deposit the gold bars and won't be able to take out ore. It will then go to the furnace room, click the furnace, try to click "Make all", then click the furnace room again, and loop that. I've had this happen two times in 15+ hours of running the script.



Here's a proggy, the xp got bugged, but I got about 340k xp in this time:

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 5 Hours, 21 Minutes and 41 Seconds
*We have gained 56145446 Smithing Experience! (13533 per hour)
*We have smithed 999029 Gold Bars! (241 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Anyway, like I said, the script works perfectly most of the time. Thanks for all your work ;)

From: Andres
There's no rush. The script works perfectly 95% of the time.

As for the bank issue, I think it might have something to do with the new camera zoom option. When I first tried to run the script today, I was experiencing the banking issue. I tried restarting the script and it still wouldn't work. So I tried zooming in the camera a bit and it started successfully. It may not be related, just thought it was noteworthy.

Also, it will occasionally attempt to remove ore twice from the bank. This doesn't stop the script, it just slows down the xp per hour.

I have encountered one more bug that is a little more serious because it actually breaks the script. Rarely, the script will not deposit the gold bars and won't be able to take out ore. It will then go to the furnace room, click the furnace, try to click "Make all", then click the furnace room again, and loop that. I've had this happen two times in 15+ hours of running the script.



Here's a proggy, the xp got bugged, but I got about 340k xp in this time:

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 5 Hours, 21 Minutes and 41 Seconds
*We have gained 56145446 Smithing Experience! (13533 per hour)
*We have smithed 999029 Gold Bars! (241 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Anyway, like I said, the script works perfectly most of the time. Thanks for all your work ;)

Hmm I haven't been on rs in a few weeks, haven't seen this zoom thing. I will take a look at it this weekend and also add the banking fail safes.

As well, thank RyGuy for 99.9% of it, he created it. I have just been updating it when it breaks.


Edit: I am about to leave for a 3 hour road trip to Wyoming and I will be fixing up the script. I.started adding cannonballs last night and am almost done with it. If anyone has and ideas of new features please feel free to post and I will add them if they are reasonable, or will be used by more then just one person. Also, adding a paint progress report instead of just the debug one.

Great script, I have run for multiple 6 hour sessions. Thank you very much.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 4 Hours, 54 Minutes and 21 Seconds
*We have gained 325736 Smithing Experience! (66408 per hour)
*We have smithed 5796 Gold Bars! (1182 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

From: Solitude
Great script, I have run for multiple 6 hour sessions. Thank you very much.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 4 Hours, 54 Minutes and 21 Seconds
*We have gained 325736 Smithing Experience! (66408 per hour)
*We have smithed 5796 Gold Bars! (1182 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

That is a great proggy, Thank you :)

Bot goes crazy. It withdraws Gold ore then goes to furnace and it will just go back to bank and deposit my Ores and Withdraws it back:duh:

works wonders!
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 44 Minutes and 27 Seconds
*We have gained -47493743 Smithing Experience! (309659 per hour)
*We have smithed -845084 Gold Bars! (5510 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Successfully executed.

This script is failing to craft gold bracelets. It will use the gold bar on the furnace and once the option screen comes up the mouse will not move.

I am not sure if it is failing to find the DTM?

Otherwise smithing gold ores to bars works fine. Thanks.

Is this still working? I will consider using it after I get 99 mining and will have a lot of gold ore to smith.

Yes, this does currently work for smithing gold ores into bars. Although it does not work for smithing gold bars into bracelets which I will attempt to fix soon.

*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*RyGuys Edgeville Gold Smither Report, Updated By Noob King.
*Time: 44 Minutes and 39 Seconds
*We have gained 45757474 Smithing Experience! (582335 per hour)
*We have smithed 814190 Gold Bars! (10362 per hour)
*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Hahahaha ^_^' something seems a bit off about this proggy.

does this script still work for over 6 hours?

When crafting gold bars to bracelets the program stops at the bracelet selection screen.

Hello, this is my first time using Simba, so I'm not the most familiar with it. Firstly, the program runs. It brings up the runescape window, but does not automatically log me in. I have included the information on the script, except the nick field. I haven't changed that name, and am not quite sure what I'd put there, but I have filled in name, pass, and pin. I then turned off smart and logged in manually and opened my bank and entered the pin manually. I have 28 gold ore in my backpack, so there is gold ore in the first slot. I also have on the gold making gloves. After that I turned smart back on, and my player just stands there. Nothing happens. What should I do to fix that? Thanks a lot for your time!

From: fike13
Hello, this is my first time using Simba, so I'm not the most familiar with it. Firstly, the program runs. It brings up the runescape window, but does not automatically log me in. I have included the information on the script, except the nick field. I haven't changed that name, and am not quite sure what I'd put there, but I have filled in name, pass, and pin. I then turned off smart and logged in manually and opened my bank and entered the pin manually. I have 28 gold ore in my backpack, so there is gold ore in the first slot. I also have on the gold making gloves. After that I turned smart back on, and my player just stands there. Nothing happens. What should I do to fix that? Thanks a lot for your time!

Are you in fixed mode, max bright, srl updated, min settings, safe mode?

Ok I have all that now, thanks! and it runs, but he runs to the furnace, and runs back. He'll retrieve the ore, and deposit it and everything, just doesn't smelt it.

From: fike13
Ok I have all that now, thanks! and it runs, but he runs to the furnace, and runs back. He'll retrieve the ore, and deposit it and everything, just doesn't smelt it.

The script might be outdated. I will take a look at it tomorrow.

From: Noob King
The script might be outdated. I will take a look at it tomorrow.

Its not outdated. I'm running it now. just got 90 smithing too :)

any chance for EOC update?

^ What Bad Karma asked :)

If he has still abandoned this, i'm willing to update it if you guys want

It withdraws ores, runs to the furnace wait a second, runs back to bank and banks. I just want a simple gold ore smelter can you help please bro? I am currently doing the run myself and it bores the living life out of me, help please

From: DannyRS
If he has still abandoned this, i'm willing to update it if you guys want

I want :p

From: DannyRS
If he has still abandoned this, i'm willing to update it if you guys want

That would be amazing!

I'll take a look tomorrow guys :)

Thanks!

The SmithScreen function needs to be fixed me thinks

Moved to outdated.