SRL Archive - First Scripts

Shilo Gemtacular

(Version 1.2)


Simply equip your pickaxe, and start at either Shilo Village bank or gem mines.


Features

• Working banking and pin entry
• Paths to and from mine
• Customizable extensive antiban procedures
• Calculates XP/HR and PROFIT/HR
• Downloads GE pricing for all gems
• Can make upwards of 300k/HR
• Average Profit/HR is around 150-200k though ;)

This is my first script and I plan to be as active as I can in the community :)

Known Bugs

• Occasional slow banking
• Paths fail occasionally
• If Prices arent received properly comment out 'GetPrices' on line 468

Changelog

Version 1.2 - Completely re-optimized. Cleaner code. Fixed the bug that breaks the script if GE prices aren't
received. Now left clicks to seem more human like. Slightly different timing on Anti ban procedures. New
Report with a list of gem quantities. SRL stats are working a bit better (still not completely functional for
some reason. Still working on that). More reliable in general. Thanks to MasterBB for the help :).

Version 1.1 - Cleaned up a few unused variables, banking doesn't run back to mine if it fails before retrying.
Also took my username and password out of the field (Thank you Fat Cookies haha)

Version 1.0 - OG!

program ShiloGemtacular;
{.DEFINE SMART}
{.DEFINE SRL5}
{.include srl/srl.simba}
{.include sps/sps.simba}

//  ------------------------------------------------------------------------ //
//    _________.__    .__.__                                                 //
//  /   _____/|  |__ |__|  |   ____     Shilo Gemtacular                     //
//  \_____  \ |  |  \|  |  |  /  _ \                                         //
//  /        \|   Y  \  |  |_(  <_> )                                        //
//  /_______  /|___|  /__|____/\____/         A DrFreshtacular Script        //
//          \/      \/                            (with help from masterBB)  //
//    ________                __                      .__                    //
//   /  _____/  ____   ______/  |______    ____  __ __|  | _____ _______     //
//  /   \  ____/ __ \ /     \   __\__  \ _/ ___\|  |  \  | \__  \\_  __ \    //
//  \    \_\  \  ___/|  Y Y  \  |  / __ \\  \___|  |  /  |__/ __ \|  | \/    //
//   \______  /\___  >__|_|  /__| (____  /\___  >____/|____(____  /__|       //
//          \/     \/      \/          \/     \/                \/           //
//                                                                           //
//   Version: 1.2                                                            //
// ------------------------------------------------------------------------- //
//                                                                           //
//                           ENTER PREFERENCES BELOW                         //
//                                                                           //

const
  Trips = 10; // How many trips would you like to make before logging out?
  LampXp = 'Prayer'; // What skill should XP lamps default to?
  LevelOfAntiBan = 3; // (1 being a ton of antiban, 5 being hardly any)
  MiniBreaks = 'Yes'; // Random 10-60 second breaks (Yes or No)
  SRLStats_Username = ''; // SRL Stats username
  SRLStats_Password = ''; // SRL Stats password

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

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from ingame username;
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Bank Pin
end;


//--------------------------------------------------------------------------//
//                                                                          //
//       !!!                TOUCH NOTHING UNDER HERE          !!!           //
//                   (unless you're Bart...you can touch me)                //
//--------------------------------------------------------------------------//

var
  xph, mineXp, profit, profith, sMineXP, lMineXp, sProfit, lProfit :Integer;
  bitmaps, gems, prices, sGems, lgems:Array of Integer;
  gemNames:Array of String;


//--------------------------------------------------------------------------//
// GetPrices     -     Grabs grand exchange prices from GlowBotting         //
//                     by ID #. Also converts diamond value to a            //
//                           rounded yet usable integer                     //
//--------------------------------------------------------------------------//
procedure GetPrices;
var
  url, strPrice : String;
  i:Integer;
  ids:Array of Integer;
begin
  ids := [1625,1627,1629,1623,1621,1619,1617];
  for i:=0 to high(ids) do
  begin
    try
      url := 'http://glowbotting.x10.mx/GEPriceChecker.php?id='+IntToStr(ids[i]);
      strPrice := Trim(GetPage(url));
      strPrice := Replace(strPrice,'k','00');
      strPrice := Replace(strPrice,'.','');
      prices[i] := StrToInt(strPrice);
      Writeln(gemNames[i] + ': ' + IntToStr(prices[i]));
    except
      Writeln('GE prices were not recieved. The server is either down or busy.');
      Writeln('Using estimated prices for profit calculations.');
      prices := [55,130,272,1293,2304,4562,20400];
      Exit;
    end;
  end;
end;



//------------------------------------------------------------------------------//
//  PerHourCalculations  - Uses standard hourly rate formulas on profit and xp  //
//------------------------------------------------------------------------------//
Procedure PerHourCalculations;
Begin
  XPH := Round((MINEXP * 3600) / (GetTimeRunning / 1000));
  PROFITH := Round((PROFIT * 3600) / (GetTimeRunning / 1000));
End;

//--------------------------------------------------------------------------//
// CalculateStats   -   Grabs the values for gems collected and             //
//                      total profit to display in a report later           //
//--------------------------------------------------------------------------//
procedure CalculateStats;                //Bart: cleaned and added the arrays
var
  i:Integer;
begin
  profit := 0;
  for i := 0 to High(gems) do
    profit := profit + gems[i] * prices[i];

  mineXp := 65 * SumIntegerArray(gems);
  PerHourCalculations;
end;

//--------------------------------------------------------------------------//
//  LoadBitmaps    -    Loads bitmaps for counting gems                     //
//--------------------------------------------------------------------------//
procedure LoadBitmaps;              //Bart: This wasn't a function!
begin
  setLength(bitmaps,7);
  bitmaps[0]:= BitmapFromString(5, 5, 'meJwram5OKy2Nz80FooDY2KLmZiCa' +         //opal
                     'vWVLTm0tnAtEyUVFwQkJxa1tEBSenALhAhlpZeUJ+flALgALFSFV');
  bitmaps[1]:= BitmapFromString(5, 5, 'meJxLLspMLsqMzUmGoPzGUjg3IDYU' +         //jade
                     'yAWiGRsWZFUXwLlAlFSUEZwQXtRcAUHhKdFALgC0CR/j');
  bitmaps[2]:= BitmapFromString(5, 5, 'meJzzFKr3FKp3FSiHoGCRCXCuFV8a' +         //topaz
                      'kAtEhdKH/YQ74Fwg8hCsteHLCBGZBEH2/LlALgAy/xXM');
  bitmaps[3] := BitmapFromString(5, 5, 'meJzLF+JPEeCL5ecBogAe7nwhfiCa' +        //sapphire
                        'JiGaKcgP5wJRIj9vIC93kRA/BIXx8UC4QEaaAF8cWBYA+LAMzw==');
  bitmaps[4]:= BitmapFromString(5, 5, 'meJzjj+bhDYEiHg9O/mgEG4gE0vjE' +         //emerald
                        'eoT5E3nhXCDii+Th8eYCIsEMPiDi8eOGcAGjLAsH');
  bitmaps[5]:= BitmapFromString(5, 5, 'meJzjEQzj4vfl5HMDIg4eGx7BMCDi' +         //ruby
                     'Fy/hFgiEc3lAarw5eOx4hMIhiJPXCcIFMrj5/Tj5PYBcAIFuCh8=');
  bitmaps[6] := BitmapFromString(6, 6, 'meJyrrm6sRkVr127BFIGgqqp6CIJw' +        //diamond
                        'O7smABGmCEQQTQSIAHrXPBc=');
end;


//--------------------------------------------------------------------------//
//  CountGems  -  Goes through each slot in the inventory and compares with //
//                loaded bitmaps for each gem. Then logs each gem           //
//--------------------------------------------------------------------------//
procedure CountGems;
var
  currentSlot : TBox;
  i, j, x, y : Integer;
begin
  LoadBitMaps;
  For i := 1 to 28 Do
  Begin
    currentSlot := InvBox(i);
    for j := 0 to High(gems) do
      If FindBitmapToleranceIn(bitmaps[j], x, y, currentSlot.X1, currentSlot.Y1, currentSlot.X2, currentSlot.Y2, 15) then
        Inc(gems[j]);
  end;
  CalculateStats;
  for i := 0 to high(bitmaps) do
    FreeBitmap(bitmaps[i]);
end;


//--------------------------------------------------------------------------//
//  SubmitStats     -    Submits stats to SRL Stats                         //
//--------------------------------------------------------------------------//
procedure SubmitStats;
var
  i : Integer;
begin
  sMineXP := (mineXp - lMineXp);
  sProfit := (profit - lProfit);
  for i:=0 to High(gems) do
  begin
    sGems[i] := (gems[i] - lgems[i]);
  end;
  stats_IncVariable('Gems (Mined)', SumIntegerArray(sGems));
  stats_IncVariable('Sapphires (Mined)', sgems[3]);
  stats_IncVariable('Emeralds (Mined)', sgems[4]);
  stats_IncVariable('Rubies (Mined)', sgems[5]);
  stats_IncVariable('Diamonds (Mined)', sgems[6]);
  stats_IncVariable('Mining EXP (Gained)', sMineXP);
  stats_IncVariable('Profit Gained', sprofit);
  Stats_Commit;
  lMineXp := mineXp;
  lprofit := profit;
  for i:=0 to high(gems) do
  begin
    lgems[i] := gems[i];
  end;
end;

//--------------------------------------------------------------------------//
//  Searches for Random Events and sets the lamp skill value to your choice //
//--------------------------------------------------------------------------//
procedure AntiRandom;
begin
  FindNormalRandoms;
  LampSkill := (LampXp);
  LevelUp;
end;

//--------------------------------------------------------------------------//
//  Antiban    -     Extensive antiban procedures (calls antirandom)        //
//--------------------------------------------------------------------------//
procedure Antiban;
begin
  case Random(75 * LevelOfAntiBan) of
    1: begin
        RandomRClick;
       end;
    2: begin
        HoverSkill('Mining', False);
       end;
    3: begin
        PickUpMouse;
       end;
    4: begin
        RandomMovement;
       end;
    5: begin
        BoredHuman;
       end;
    6: begin
        ExamineInv;
       end;
    7: begin
        HoverSkill('random', False);
       end;
  end;
  if (MiniBreaks = 'Yes') then
  Begin
  Case Random (750 * LevelOfAntiBan) Of
    1: begin
        Writeln('[' + TimeRunning + '] ~13 Second Mini Break');
        Wait(11111 + random(2000));
       end;
    2: begin
        Writeln('[' + TimeRunning + ']  20-30 Second Mini Break');
        Wait(21212 + random(8000));
       end;
    3: begin
        Writeln('[' + TimeRunning + '] 30-40 Second Mini Break');
        Wait(32323 + random(8000));
       end;
    4: begin
        Writeln('[' + TimeRunning + '] 45-50 Second Mini Break');
        Wait(43434 + random(8000));
       end;
    5: begin
        Writeln('[' + TimeRunning + '] 55-60 Second Mini Break');
        Wait(54545 + random(8000));
       end;
    end;
  end;
    AntiRandom;
end;

//--------------------------------------------------------------------------//
//  WalkToGemMine  -   Basic SPS path from bank to the mine                 //
//--------------------------------------------------------------------------//
function WalkToGemMine:Boolean;
Var
  myPath:TPointArray;
begin
SPS_Setup(RUNESCAPE_SURFACE, ['8_12','8_11','7_11']);
myPath := [Point(3242, 4847), Point(3241, 4833), Point(3236, 4820),
Point(3223, 4806), Point(3209, 4798), Point(3189, 4794), Point(3172, 4796),
Point(3163, 4794), Point(3163, 4782), Point(3163, 4766), Point(3156, 4743),
Point(3150, 4727), Point(3151, 4705), Point(3150, 4688), Point(3136, 4679),
Point(3132, 4668)];
SPS_WalkPath(myPath);
Result := True;
end;

//--------------------------------------------------------------------------//
//   WalkToBank    -   Basic SPS path from the mine to bank                 //
//--------------------------------------------------------------------------//
function WalkToBank:boolean;
Var
  myPath:TPointArray;
begin
Writeln('[' + TimeRunning + '] Walking to Bank');
SPS_Setup(RUNESCAPE_SURFACE,['7_11','8_11','8_12']);
myPath := [Point(3141, 4674), Point(3133, 4681), Point(3123, 4685),
Point(3135, 4694), Point(3151, 4711), Point(3156, 4761), Point(3165, 4762),
Point(3159, 4765), Point(3166, 4769), Point(3162, 4788), Point(3190, 4792),
Point(3196, 4795), Point(3200, 4799), Point(3204, 4794), Point(3219, 4795),
Point(3226, 4807), Point(3234, 4820), Point(3242, 4833), Point(3244, 4850),
Point(3248, 4857)];
SPS_WalkPath(myPath);
end;


//--------------------------------------------------------------------------//
//  Mining    -    Checks to see if player is currently mining              //
//--------------------------------------------------------------------------//
Function Mining: Boolean;
var
  PBox: TBox;
begin
  PBox := IntToBox(245, 130, 285, 195);
  Result := (AveragePixelShift(PBox, 250, 500) > 550);
end;


//--------------------------------------------------------------------------//
//  BankGems - Walks to the bank, searches for banker, enters PIN if needed //
//             deposits all gems, Walks back to gem mine. Failsafes include //
//             checking for pinscreen multiple times, checking to see if    //
//             inventory is still full at the end and repeating if so.      //
//                                MILDY BUGGY as of V0.1                    //
//--------------------------------------------------------------------------//
function BankGems: boolean;
var
  x, y : Integer;
  foundBanker : boolean;
begin
  Result := false;
  Antiban;
  WalktoBank;
  repeat
    MakeCompass('rand');
    Writeln('[' + TimeRunning + '] Searching For Banker...');
    if FindObj(x, y, 'anker', 16445433, 30) then
    begin
      MMouse(x, y, 5, 5);
      if isUpText('anker') then
      begin
        Mouse(x, y, 0, 0, false);
        ChooseOption('ank Banker');
        Wait(800+random(500));
        foundBanker := true;
        Wait(800+random(200));
        DepositAll;
        Wait(600+random(300));
        CloseBank;
      end;
      if (PinScreen) or (BankScreen) then
      begin
        wait(500+random(200));
        if PinScreen then
        begin
          Writeln('[' + TimeRunning + '] Entering Pin.');
          InPin(Players[CurrentPlayer].Pin);
        end;
        Wait(800+random(200));
        DepositAll;
        Wait(600+random(400));
        CloseBank;
        if (InvFull) then
          BankGems
        else
          Result := True;
          Writeln('[' + TimeRunning + '] Banking Complete.');
      end;
    end;

  wait(800+random(200));
  until foundBanker;
  Writeln('[' + TimeRunning + '] Walking to Gem Mine.');
  WalkToGemMine;
end;


//--------------------------------------------------------------------------//
//  Report    -   Simple ASCII report to track progress                     //
//--------------------------------------------------------------------------//
procedure Report;
var
  i:Integer;
begin
  Writeln('|---------------------------------------------------------------|');
  Writeln('|  SHILO GEMTACULAR V1.2 REPORT  | (' + TimeRunning + ') |');
  Writeln('|---------------------------------------------------------------|');
  Writeln('|  Mining XP: ' + IntToStr(mineXP) + '                   ' + SRLStats_Username);
  Writeln('|  Mining XP/HR: ' + IntToStr(xph));
  Writeln('|  Total Profit: ' + IntToStr(profit));
  Writeln('|  Profit/HR: ' + IntToStr(profith));
  Writeln('|---------------------------------------------------------------|');
  Writeln('|                           OTHER INFO                          |');
  Writeln('|---------------------------------------------------------------| ');
  Writeln('|         Gem                    |                   Profit     |');
  Writeln('|---------------------------------------------------------------| ');
  for i := 0 to High(gems) do
  begin
    Writeln('|   ' + gemNames[i] + '                  ' + IntToStr(gems[i]) + '           ' + IntToStr(gems[i] * prices[i]));
  end;
  Writeln('|---------------------------------------------------------------| ');
  SubmitStats;
  Writeln('Stats were commited!');
end;


function SearchAndClickGems:Boolean;
var
  x, y : integer;
begin
if (FindObj(x, y, 'ine', 13578450, 30)) or (FindObj(x, y, 'ine', 6364771, 30)) then
    begin
      Mouse(x, y, 6, 6, true);
      Writeln('[' + TimeRunning + '] Mining gem.');
    end;
end;


//--------------------------------------------------------------------------//
//  MineGems - If inventory isnt full, and not currently mining, searches   //
//             for gems, mines them using left and right clicks randomly    //
//--------------------------------------------------------------------------//
procedure MineGems;
begin
  if not (InvFull) then
  begin
    WalkToGemMine;
    Writeln('[' + TimeRunning + '] Arrived at mine. Searching for gems.');
    repeat;
    Antiban;
    while (Mining) do
    begin
      Wait(10);
    end;
    SearchAndClickGems;
    Wait(200+random(200));
    until(InvFull);
    CountGems;
    Report;
    BankGems;
  end;
end;


//--------------------------------------------------------------------------//
//  Loop    -                      Main loop of the script                  //
//--------------------------------------------------------------------------//
procedure Loop;
var
  i : Integer;
begin
  for i := 0 to Trips do
  begin
    AntiBan;
    if (InvFull) then
      BankGems
    else
      MineGems;
  end;
end;


//--------------------------------------------------------------------------//
//  StartRunescape    -    Starts runescape with typical client settings    //
//--------------------------------------------------------------------------//
procedure StartRunescape;
begin
  Smart_Server := 53;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  MouseSpeed := 10;
  SetupSRLStats(789, SRLStats_Username, SRLStats_Password);
  ClearDebug;
  DeclarePlayers;

  setLength(prices,7);
  setLength(gems,7);
  setLength(sGems,7);
  setLength(lgems,7);
  gemNames := ['opal','jade','red topaz','sapphire','emerald','ruby','diamond'];
end;

begin
  StartRunescape;
  GetPrices;
  LoginPlayer;
  SetAngle(SRL_ANGLE_HIGH);
  Loop;
  CountGems;
  Report;
end.

Reports

(Thank you for submitting!)

Fat Cookies (2-22-12)

|----------------------------------------------------------------------------------------|
| SHILO GEMTACULAR V1.0 REPORT | (3 Hours, 41 Minutes and 43 Seconds) |
|----------------------------------------------------------------------------------------|
|      Mining XP     |    Mining XP/Hour    |     Total Profit     |     Gold/Hour     |
|----------------------------------------------------------------------------------------|
|        47320                  12805                    623505                 154126         |
|----------------------------------------------------------------------------------------|

Would it be possible to make use of the Karamja gloves 3 and 4's ability to teleport to the underground mine an unlimited times?

As I don't have the Karamja gloves, development would be difficult for me :P. What exactly did you have in mind by making use?

i really wana try this because it is awesome but i dont like ur post count *sure mine isnt high either*

Then spend a few hours looking though my code. Trust is really the same thing as time ;)

Does gem mining give the ordinary gems (sap, ruby, emerald, diamonds)? If so, gem bag support may be interesting.

Yea this gives Diamond, Ruby, Emerald, Sapphire, Opal, Red Topaz, and Jade. But as 80% of these gems are the latter 3, it would save minimal time. Good Idea though :)

I am gunna give this a try hoping it works well thanks drfresh =]

Your welcome. I know the PIN system is acting up again - looking into it. Ive been running 2 hours strong on this run though. Post a proggy if you will?

I remember this gem bag holds a shit load of ordinary gems. In the long run it saves a lot of time going to and from the bank.

So it only banks uncut gems? I wouldn't have released that to the public, they're going to stop declining now :/

@nosaj: Yea - In this case though, you'd be saving maybe 1 bank trip every hour, which is about a minute, due to the fact that only 4-6 of the gems each load are one of the four the bag can hold. I don't actually have the bag, just looked into it but does it put them in automatically?

@Kyle: If you think this could be noticeably detrimental to gem economy in the hands of the public maybe I'll take it down and submit to members?

From: drfreshtacular
As I don't have the Karamja gloves, development would be difficult for me :P. What exactly did you have in mind by making use?

Using the gloves would remove the trip back from the bank as you teleport from the bank straight back to the gem mine.

ill post a proggy will be running it all night =]

Thanks :)

I wouldn't recommend that though :P That's one of the only ways to get banned using software like this. If Jagex sees that your playing relentlessly while its 4am at your timezone, its just yelling out FLAG ME!

thanks for the tip ;D, but i know i also feel it is worth the risk! =]

Haha alrighty. Enjoy

what a great script, im going to have a nice progie for you

|—————————————————————|
| SHILO GEMTACULAR V1.0 REPORT | (3 Hours, 41 Minutes and 43 Seconds) |
|—————————————————————|
| Mining XP | Mining XP/Hour | Total Profit | Gold/Hour |
|—————————————————————|
| 47320 12805 623505 -154126 |
|—————————————————————|

Thanks for the script.

while mining i suggest you use a charged ring of wealth and glory, it helps with profit.

I agree, I plan on adding equipment checks in later versions. What I put up is my first attempt at SIMBA scripting so its quite simplistic at times.

To implement use of the karamja gloves 3 and 4 you could have a const for it to be set up by the user. Then after banking If UseGloves = True then MouseBox(x1, y1, x2, y2);

The mousebox variables would be a box around the glove slot.

After banking:

If UseGloves = True Then
Begin
  GameTab(whatever the armour tab is);
  MouseBox(x1, y1, x2, y2);
  //Climb ladder or mine some gems down there.
End;

The gem bag could be used if the inventory is full. This might get a little tricky continueing xp/h and gp/h progress reports but I'm sure you can do it.

If InvFull Then
Begin
  If GemBag = True Then //Fill it up
End else DoBanking;

Or maybe you repeat mining to InvFull:

Repeat
  //Mining
Until(InvFull);
If InvFull And GemBag = True Then
//Fill it up and continue mining.

Theres a million ways you can go about it but those are just my ideas. It's all about logic really. I hope this helped you in some way. :P

People over-estimate the effect simba has on the economy. Yes it does effect price SOME but it wont kill prices. Now im not saying to take your script down or to leave it up thats your choice. Just saying releasing it to the public for a couple weeks wont crash prices anywhere near pre-bot nuke ;)

To add to that, most gems are still increasing. So far, nothing noticeable. Then again, only been a couple days

I keep getting this when I run it

Error: Exception: "<html>
<head><title> 302 Found
</title></head>
<body><h1> 302 Found
</h1>
The document has been temporarily moved to <A HREF="%s">here</A>.<hr />
Powered By <a href='http://www.litespeedtech.com'>LiteSpeed Web Server</a><br />
<font face="Verdana, Arial, Helvetica" size=-1>LiteSpeed Technologies is not responsible for administration and contents of this web site!</font></body></html>" is an invalid integer at line 74

Its because the prices from the GE arent being pulled down correctly. Their server was overloaded. In Version 1.2 im adding a failsafe for that. For now, change procedure GetPrices to:

procedure GetPrices;
var
  url, strPrice : String;
  i:Integer;
  ids:Array of Integer;
begin
  ids := [1625,1627,1629,1623,1621,1619,1617];
  for i:=0 to high(ids) do
  begin
    try
      url := 'http://glowbotting.x10.mx/GEPriceChecker.php?id='+IntToStr(ids[i]);
      strPrice := Trim(GetPage(url));
      strPrice := Replace(strPrice,'k','00');
      strPrice := Replace(strPrice,'.','');
      prices[i] := StrToInt(strPrice);
      Writeln(gemNames[i] + ': ' + IntToStr(prices[i]));
    except
      Writeln('GE prices were not recieved. The server is either down or busy');
      Exit;
    end;
  end;
end;

Mind you that the price calculations wont work if this is the case.

How come its not mineing that good it slow when finding the gem rocks

Nvm i had to change mineing break to no instead of yes lol my bad good script =)

From: drfreshtacular
Its because the prices from the GE arent being pulled down correctly. Their server was overloaded. In Version 1.2 im adding a failsafe for that. For now, change procedure GetPrices to:

procedure GetPrices;
var
  url, strPrice : String;
  i:Integer;
  ids:Array of Integer;
begin
  ids := [1625,1627,1629,1623,1621,1619,1617];
  for i:=0 to high(ids) do
  begin
    try
      url := 'http://glowbotting.x10.mx/GEPriceChecker.php?id='+IntToStr(ids[i]);
      strPrice := Trim(GetPage(url));
      strPrice := Replace(strPrice,'k','00');
      strPrice := Replace(strPrice,'.','');
      prices[i] := StrToInt(strPrice);
      Writeln(gemNames[i] + ': ' + IntToStr(prices[i]));
    except
      Writeln('GE prices were not recieved. The server is either down or busy');
      Exit;
    end;
  end;
end;

Mind you that the price calculations wont work if this is the case.

just incase you didn't know you can just use

GetGePrice(itemID);

to find the ge price of something

Oh wow, didn't know that lol. Thanks

great bot had it running all night

[6 Hours, 47 Minutes and 7 Seconds] Searching For Banker…
[6 Hours, 47 Minutes and 16 Seconds] Walking to Gem Mine.
[6 Hours, 47 Minutes and 42 Seconds] Walking to Bank
[6 Hours, 48 Minutes and 11 Seconds] Searching For Banker…
[6 Hours, 48 Minutes and 12 Seconds] Searching For Banker…
[6 Hours, 48 Minutes and 13 Seconds] Searching For Banker…
[6 Hours, 48 Minutes and 14 Seconds] Searching For Banker…

Great script for a first script, keep up the good work :) Though, an anti-leech method should have been implemented here, seeing as you're using banking .

woot mining exp and cash :D

craft exp as well if you craft without fail

Thanks guys :) Glad it's working out. Working on another script atm. Been a little busy with other things atm though. Loving the feedback

| SHILO GEMTACULAR V1.2 REPORT | (4 Hours, 14 Minutes and 13 Seconds) |
|—————————————————————|
| Mining XP: 73450
| Mining XP/HR: 17335
| Total Profit: 981392
| Profit/HR: -49954
|—————————————————————|
| OTHER INFO |
|—————————————————————|
| Gem | Profit |
|—————————————————————|
| opal 363 19965
| jade 519 67470
| red topaz 87 23664
| sapphire 63 81459
| emerald 24 55296
| ruby 49 223538
| diamond 25 510000
|—————————————————————|

I noticed the profit per hour isn't working correctly but other than that great script.

Quite a nice first script, I love how the whole script you note what each function does and explain the use of it ;) Quite funny. Your standards are a bit off at times, but I am not one to talk as I suck with them :P I would surely have added an antileach, as this is potent money making for sure.
Great job!
Anubis

Sounds interesting… Gratz on writing your first script….think you have a bright future here.

sometimes it doesn't bank the gems. it clicks on the bankers but doesn't deposit gems. other than that its great!

Could i use your script as a base for other scripts like fishing and woodcutting?

Nice script, better than mine, I just used the gem miner I found on here and added banking, works perfect but it isn't really my code just flights altered to bank, so in the end it isn't really mine haha.
Thanks for the script though will be sticking with the one I have since I cant see much off a difference between the two. I am interested in your next project however :).