SRL Archive - RS3 Outdated / Broken Scripts

You need to be able to craft Orbs..
I don't feel like spicing up the thread so yeah..
I've run it for multiple 6 hour runes so ……
Urgh, i'm so inarticulate right now :c

===================================
============S1NGlassblower==========
Time Running: 3 Hours, 25 Minutes and 1 Seconds
XP Earned: 299880
XP/h: 88005
===================================
===================================

Updated to run with EoC : 11/01/2013
Added a neat on screen proggy.

sorry sin I'm a little retarded how does it work?

===================================
============S1NGlassblower==========
Time Running: 3 Hours, 25 Minutes and 1 Seconds
XP Earned: 299880
XP/h: 88005
===================================
===================================

This is WITH crashsmart!
Add on another 480k xp + 6 hour time!

sin, Exactly what is needed for the glassblower? I can figure out the rest.

From: rol prodigy
sin, Exactly what is needed for the glassblower? I can figure out the rest.

Molten Glass and the level for crafting "Unfinished Orbs".

nice, cheap and good exp for a relatively expensive buyable

===================================
===================================
============S1NGlassblower==========
Time Running: 6 Hours, 49 Seconds
XP Earned: 526260
XP/h: 87718
===================================
===================================

runs very smoothly

it's just sitting at the bank, not doing anything. Is there any specific settings/place you need to be?

soul wars bank chest, have glass in bank space row 2 column 1 I believe. (first bank space = 0,0)

From: burni
soul wars bank chest, have glass in bank space row 2 column 1 I believe. (first bank space = 0,0)

Thanks, works well now.

did not see this thread. Gonna take a look through your code and see if I can get any idea's for improving my own one.

100% pro

nice but unfortunately molten glass prices are through the roof. If you decide to craft into air orbs then theres some profit to be made ;)

They're not that expensive lol, I buy 40K at a time and just chill the whole day with SmartManager.
94 Crafting atm.

is this still 80k/h? and how much does it cost to run/h?

It's 88k/h now.
And it costs roughly 1.3M/h WITHOUT the price of orbs, 600k with.

Gz me.

Thanks for making this and all your other crafting bots.
Will you ever make a battlestaff making one in the future?

===================================
============S1NGlassblower==========
Time Running: 1 Hours, 23 Minutes and 5 Seconds
XP Earned: 214950
XP/h: 155260
===================================

this is amazing i am getting around 88k xp/h :p

im getting 94k xp/hr

10% refer a friend boost?
Happened to me too :p
This script is stable, I assure you.
I got my 99 Crafting not two days ago.

From: Sin
10% refer a friend boost?
Happened to me too :p
This script is stable, I assure you.
I got my 99 Crafting not two days ago.

Exactly! Your script is what made me make an account and get on here… (pretty much)

Thanks a ton!

Great script! Ensures at least 80k/h exp, which is monster!

Second longest proggy on here?
Script works amazingly well.

script working great! tnx for it…but i dosent show xp/h and xp earned, i dont know why.

===================================
===================================
============S1NGlassblower==========
Time Running: 2 Hours, 29 Minutes and 35 Seconds
XP Earned: 0
XP/h: 0
===================================
===================================

Absolutely fantastic! If people don't take advantage of this script, they are idiots! Will post a proggy soon.


===================================
===================================
============S1NGlassblower==========
Time Running: 45 Minutes and 34 Seconds
XP Earned: 63315
XP/h: 83370
===================================
===================================

Great script! Runs very well but every so often it just stops. Even still It runs for a few hours anyway :) Here's a proggy:

============S1NGlassblower==========
Time Running: 4 Hours, 51 Minutes and 3 Seconds
XP Earned: 417480
XP/h: 86068
===================================

how much money you need for 99 craft?

From: xx blood xx
how much money you need for 99 craft?

Do the math yourself using the G E and a calculator.

Thank you kind sir! WORKS LIKE A BAWWS

ty S1N, awsome sript :)
gl with the max cape!

Why is it working only for 1 hour over night and when i went to school for like 30 min :(


** Warning in InvBox: Incorrect index: 0 **
Warning! You passed a wrong xs to a finder function: -1. That is below 0, thus out of bounds. Setting the value to 0 for now.
Warning! You passed a wrong ys to a finder function: -1. That is below 0, thus out of bounds. Setting the value to 0 for now.

how to buy ur priemere frost dragon scripts?

Doesnt work for me, i have managed to get it to click my molten glass but it doesnt withdraw any. Some ideas?


EDIT: Got it working, needed to update simba :)

Wish I had found this before using green dragon leathers for 90 craft :/

Great script but how's the antiban? I don't see much random movements.

Awesome script Sin been really enjoying it, I'll post a proggy soon

Time Running: 5 Hours, 10 Minutes and 24 Seconds
XP Earned: 417112
XP/h: 82428

i love using this

gonna use it tomorrow but people wanted to see the cost of it so here it is:
just multiply the xp u need with x2 and u got the cost. 26 million from 46-99. There is cost of 2gp per xp

Script has some trouble recently… spends like 20 secs - 40 secs just moving the camera angle without banking after an inventory is finished. Drastically affects xp rates only ggetting 50-60k an hour now.

Can't tell if its problem with Simba or the script

^ +1 can someone take a look this was my favorite script!

Edit: Ok it was an issue with SRL update, applied temp fix in the mean time, from thread in HELP.

From: oldgregg
^ +1 can someone take a look this was my favorite script!

Edit: Ok it was an issue with SRL update, applied temp fix in the mean time, from thread in HELP.

Thanks :D

do u make profit on this :D?

From: mikkelo22
do u make profit on this :D?

Not even close, but much cheaper than dragonhide bodies, gems etc

can anyone tell me how to do this ? sin u didnt write anyting of what u need and what to do :S
sorry for beeing a noob but, i need someone to explain me : s

Could you please make a setup?
I mean what to use, where it needs to be in your bank.

From: thomas1116
can anyone tell me how to do this ? sin u didnt write anyting of what u need and what to do :S
sorry for beeing a noob but, i need someone to explain me : s

From: GreenGang101
Could you please make a setup?
I mean what to use, where it needs to be in your bank.

Just have your molten glass in the first tab and first bank slot and start the script…

Updating the script at the moment.

Script now has SRL Stats + an option to change the bank slot.

Everytime after my script makes a whole invent it starts to turn the screen? it rotates the screen for about 20 seconds before it banks again. How do i fix this?

===================================
===================================
============S1NGlassblower==========
Time Running: 5 Hours, 53 Minutes and 24 Seconds
XP Earned: 470400
XP/h: 80193
===================================
===================================

Working perfectly as usual.
If you decide to update this soon maybe increase the anitban a bit? Otherwise perfect :)

does it matter which bank this is at?

Works perfect now :)

Got me 99 crafting on my main and on my zerker, thanks for a wonderful script Sin. :)

Loving the script, it's going to cost be around 16M to get from 75-99 crafting with this!

Also, do you think I should place the molten glass to the right side of my bank so that the mouse doesn't have to move as much, I thought this might give a little exp boost.

I can't even get it to withdraw the glass from the bank..

After multiple tries it worked, it kept attempting to click right above the molten glass..

you can craft at any bank right?

From: 900123ash
you can craft at any bank right?

Soul Wars bank only, I believe.

sexy script is sexy!

Hmmmm, Doesn't withdraw the glass for me, any ideas why?

From: Ecoalypse
Hmmmm, Doesn't withdraw the glass for me, any ideas why?

Do you have the molten glass in the correct bank slot?

YAY! This script got me from 75-98 crafting in no time! I'll get 99 tomorrow :) Thank you so much!

Would you advise adding anti-ban before we run Sin, or did you run it to 99 without?

http://imageshack.us/f/32/99craft.png/

Hope it not to blurry! But there is the 99 cape :D

used this from 61 to 70 ty :p
was like 2m

===================================
===================================
============S1NGlassblower==========
Time Running: 2 Hours, 38 Minutes and 54 Seconds
XP Earned: 204592
XP/h: 77816
===================================
===================================

===================================
============S1NGlassblower==========
Time Running: 5 Hours, 56 Minutes and 48 Seconds
XP Earned: 481372
XP/h: 80951
===================================

thx for the cheap crafting xp should be 99 soon:p

This script seems fantastaci. However after an hour and a half it stopped and logged me out. It said min spacing's are too wide?
===================================
===================================
===================================
============S1NGlassblower==========
Time Running: 19 Minutes and 35 Seconds
XP Earned: 25515
XP/h: 78507
===================================
===================================
Should i be getting more xp/h? My pc is slow.

Is this a mistake?

MouseBankSlot(22,0);
vs
MouseBankSlot(Slot,0);

Wouldn't figure it would be an Anti-Leech method considering
It would still work just by moving the object to Slot 22.
Anyways, great script. This just confused me when I
tried to change the bank slot :P

From: rowan131
This script seems fantastaci. However after an hour and a half it stopped and logged me out. It said min spacing's are too wide?
===================================
===================================
===================================
============S1NGlassblower==========
Time Running: 19 Minutes and 35 Seconds
XP Earned: 25515
XP/h: 78507
===================================
===================================
Should i be getting more xp/h? My pc is slow.

I am having the same problem as you but mine does a couple of inventories only.

This works great, but does it have an antiban?

Thanks!

mine just run around and stop after few invents but i made it to 98 thnx to you

Some people were having trouble with the withdrawing, so I fixed it up a bit. Works great now. Just put the molten glass in the first slot of any tab, make sure to have it selected before you run the script.

program GlassBlower;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}

const
  SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
  SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)

var
  StartTime,XPS:Integer;
  //progress variables
  XP,XPH,Sec,Slot:Integer;
  StatGain,XP1,XP2:Integer;

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players

procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
end;

procedure Proggy;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
statGain := XP;

writeLn('===================================');
writeLn('============S1NGlassblower==========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writelN('===================================');
writeLn('===================================');

  Stats_Commit;

end;

procedure CraftOrbs;
var
  x,y,DTM,t:Integer;
begin
DTM := DTMFromString('mlwAAAHicY2dgYLjAyMBwEYivA/E1ID4NxKeg7IVAvAKI5wPxTCBeBsQLgHgREHu4uwJ1M2HFRgy4ASMeDAUAQzsLUQ==');

  MouseItem(Random(25),1);
  if WaitColor(305,362,4543066,5,10000) then
  begin
    if FindDTM(DTm,x,y,MCX1,MCY1,MCX2,MCY2) then
    begin
      Mouse(x,y,1,1,True);
      MarkTime(t);
      repeat
        XP1 := GetXPBarTotal;
        wait(random(5000));
        Proggy;
        if Timefrommark(t) > 200000 then
          exit;
      until(FindDTM(DTM,x,y, 681,422,730,457));
    end;
  end;
end;

procedure BankChest;//Credits to the SRL Team :)
begin
  OpenBankChest(SRL_BANK_SW);
  if(PinScreen)then InPin(Players[CurrentPlayer].Pin);
  if (BankScreen) then
  begin
    Exit;
  end else
  BankChest;
end;

procedure HandleItem;
begin
  BankChest;

  if (BankScreen) then
    begin
      //Writeln('Depositing.');
      Deposit(4, 28, true);
      Wait(100);
      //Writeln('Withdrawing.');
      Withdraw(0, 0, 28);
      CloseBank;
      Wait(300+Random(300));
      Exit;
    end else

  if not (BankScreen) then
    begin
      repeat
        BankChest;
      until(BankScreen);
    HandleItem;
    end;
end;

begin
 ClearDebug;
  SetupLogin;
  DeclarePlayers;
  LoginPlayer;
    if (Players[CurrentPlayer].Integers[1] = 0) then
    begin
      if not IsXPBarOpen then ToggleXPBar(true);
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      XPS := GetXPBarTotal;
      Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
    end;
    StartTime:=GetSystemTime;
    SetupSRLStats(1068, SRLStats_User, SRLStats_Password);
  repeat
  BankChest;
  HandleItem;
  CraftOrbs;
  until(not LoggedIn);
  stats_IncVariable('Crafting EXP (Gained)', statGain);
  stats_Commit;
end.                                                                                     

Looks like after RS update this script no longer clicks "make all orbs".
It just clicks molten glass, then bank.

From: Legendscape
Looks like after RS update this script no longer clicks "make all orbs".
It just clicks molten glass, then bank.

Yeah because of the new interface, maybe you should pm S1N ;)

yo sin can u fix it tyty

What's wrong with it?
I'll get to it if I have some spare time.
Can you get me a screenshot of the new interface screen?

http://i.imgur.com/MGVTn.png
http://i.imgur.com/SbHia.png
Here you go.

Wow it looks pretty nice, I'll get on it soon :p

Thanks S1N :D would love to get myself 99 crafting thx to this :D

ETA on update? Wanna get dat 99!!

Sorry guys, I have exams this week, i'll get around to updating it after my Math exam tommorow :S

Good luck S1N! btw why are you Shay now? :p

Would be really nice to have this… I think ill pay for 99 if it gets fixed… I just read a DTM Tut but really struggled fixing it, to get it to click on the "make all orbs".

would love to use this before the 26th update :'(

plz update when u get the chance looks like a nice script would love to try it out.

its not working anymore?

it gets out of bank and then clicks glass but not make orb.. it then reclicks bank :(

I fixed the script on my own, not sure if i should upload a working version or just wait for shay to update this :o

gf 52k molten glass ;)

damienjp, you should tell us how you fixed it :D

yeah dude! :D

Yeah just upload it, I have no time too.

program GlassBlower;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}

const
  SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
  SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)

var
  StartTime,XPS:Integer;
  //progress variables
  XP,XPH,Sec,Slot:Integer;
  StatGain,XP1,XP2:Integer;
procedure DeclarePlayers;
begin

  Slot := 3; //choose your bank slot where the glass is at.

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players
procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
end;
procedure Proggy;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
statGain := XP;

writeLn('===================================');
writeLn('============S1NGlassblower==========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writelN('===================================');
writeLn('===================================');

  Stats_Commit;

end;
procedure CraftOrbs;
var
  x,y,DTM,t:Integer;
begin
DTM := DTMFromString('mlwAAAHicY2dgYLjAyMBwEYivA/E1ID4NxKeg7IVAvAKI5wPxTCBeBsQLgHgREHu4uwJ1M2HFRgy4ASMeDAUAQzsLUQ==');

  MouseItem(Random(25),1);
  if WaitColor(265,430,4141067,5,5000) then
  begin
    if FindDTM(DTm,x,y,MCX1,MCY1,MCX2,MCY2) then
    begin
      Mouse(x,y,1,1,True);
      MarkTime(t);
      repeat
        XP1 := GetXPBarTotal;
        wait(random(5000));
        Proggy;
        if Timefrommark(t) > 200000 then
          exit;
      until(FindDTM(DTM,x,y, 681,422,730,457));
    end;
  end;
end;
procedure Bank;
var
t:integer;
begin
  OpenBankChestEdge(SRL_BANK_SW);
  MarkTime(t);
  repeat
    wait(100);
    if PinScreen then
    begin
      InPin(Players[CurrentPlayer].Pin);
    end;
    if TimeFromMark(t) > 5999 then
    begin
      Bank;
      exit;
    end;
  until(BankScreen);
  if BankScreen then
  begin
    DepositAll;
    MouseBankSlot(Slot,0);
    WaitOption('All',4000);
    repeat
      wait(10);
    until(InvFull);
    if InvFull then
      CloseBank;
  end;
end;
begin
 ClearDebug;
  SetupLogin;
  DeclarePlayers;
  LoginPlayer;
    if (Players[CurrentPlayer].Integers[1] = 0) then
    begin
      if not IsXPBarOpen then ToggleXPBar(true);
      Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
      XPS := GetXPBarTotal;
      Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
    end;
    StartTime:=GetSystemTime;
    SetupSRLStats(1068, SRLStats_User, SRLStats_Password);
  repeat
    Bank;
    CraftOrbs;
  until(not LoggedIn);
  stats_IncVariable('Crafting EXP (Gained)', statGain);
  stats_Commit;
end.

was 2 minutes of work. Probably works now ;)

Yes it works:):

============S1NGlassblower==========
Time Running: 5 Minutes and 13 Seconds
XP Earned: 7350
XP/h: 84267
===================================

Edit: sometimes it randomly stops, but I don't know if I should try to fix this because it isn't my script…. ;)

============S1NGlassblower==========
Time Running: 40 Minutes and 31 Seconds
XP Earned: 57330
XP/h: 84863
==================================

From: MasterCrimez

Edit: sometimes it randomly stops, but I don't know if I should try to fix this because it isn't my script…. ;)

Ran mines strong for 6 hours last night… no issues

This is from todayz

============S1NGlassblower==========
Time Running: 2 Hours, 17 Minutes and 47 Seconds
XP Earned: 193725
XP/h: 84360
===================================

Thanks Crime, I'll update that as the main Simba file as soon as I get on my laptop.

worked well until this:

===================================
============S1NGlassblower==========
Time Running: 1 Hours, 42 Minutes and 45 Seconds
XP Earned: 136762
XP/h: 79873
===================================
===================================

was stuck for ~30 minutes, having clicked on the imp thing in SW
other than that, pretty much perfect script.

argh. it withdraws the glass and clicks on it, but instead of clicking on 'orbs' it just clicks on bank, empties, withdraws glass again and repeat.

EDIT - this is after using mastercrimez' fix.

got it working now i'm not sure how. i started making the orbs on my own for a few mins then let it take over and it seemed to carry on as normal. brilliant!

From: vaccinate
argh. it withdraws the glass and clicks on it, but instead of clicking on 'orbs' it just clicks on bank, empties, withdraws glass again and repeat.

EDIT - this is after using mastercrimez' fix.

Maybe you didnt have the slide menu of the things you can make all to the right… (I had it all the way to the right, but I don't know if that's needed)
But yea the script is good but it misses:
1 failsafes,
2 antiban

but that's not really needed so badly anyway, so still a good script :D

From: MasterCrimez
Maybe you didnt have the slide menu of the things you can make all to the right… (I had it all the way to the right, but I don't know if that's needed)
But yea the script is good but it misses:
1 failsafes,
2 antiban

but that's not really needed so badly anyway, so still a good script :D

yeah i think that was it mate. i clicked on the glass and then moved the slider to the right so that the orb selection was in the middle of the screen rather than on the right, once i did that the script seemed to pick it up and continue on as normal.

cheers :)

my fix doesn't really matter where the orb thingy is :D

============S1NGlassblower==========
Time Running: 1 Hours, 13 Minutes and 43 Seconds
XP Earned: 107310
XP/h: 87342
===================================
===================================

===================================
============S1NGlassblower==========
Time Running: 5 Hours, 50 Minutes and 7 Seconds
XP Earned: 505733
XP/h: 86672
===================================
===================================


perfect. cheers dude :D

I used it 65-75 but now whenever I try to use this script it withdraws glass but doesn't make orbs banks and withdraws more glass. How can i fix this?

From: rowan131
I used it 65-75 but now whenever I try to use this script it withdraws glass but doesn't make orbs banks and withdraws more glass. How can i fix this?

move the slide menu all to the right before starting, then it should work.
(also use the newest version)

I had the same problem, did as MasterCrimez said and still doesn't work:(

Edit: fixed:D

I changed this

if WaitColor(305,362,4543066,5,10000) then 

to this to fix it

   
if WaitColor(305,362,1972494,5,10000) then 

Line 64

Not sure what exactly it was looking for originally so I just picked the color at the position 305,362 when you open it up

Nice, Based Lord! :)
Maybe I will make some failsafes for this script soon because it also doesn't recover if it loses connection and other stuff…
If I get the time i'll make this script 100%

Edit: I'm now 78 crafting and I've just bought 200k molten glass :D:D So I can use some 24hour proggies, so I'll make it perfect when I start using it fulltime ;)

FIX
- Added failsafes
- Prevented unlimited loops
- Added antiban
- Added breaking
- And some more things
Shay, call this v1.3 if you like :)
not tested yet.

program GlassBlower;
{$include srl/srl/misc/smart.simba}
{$I SRL/SRL.simba}
{$I srl/srl/misc/debug.simba}

const
  SRLStats_User     = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
  SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
  AntiBanAmount     = 30; //1 = antiban very much, 100 = almost never. recommended 15-40.
  Slot              = 3;  //choose your bank slot where the glass is at.
  NoBreakRandom     = 180;//between 0 and <this> minutes we are playing before a break
  BreakRandom       = 30;//between 10 and 10+<this> minutes we are breaking when we have a break

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
end;// declare players


var
  StartTime,
  XPS,
  XP,
  XPH,
  Sec,
  StatGain,
  XP1,
  XP2,
  LastBreakTime,
  BreakNotMinutes,
  HowLong,
  Inventoriesdone,
  FailCraft,
  BankFails : integer;

  StopScript : boolean;
  StopReason : string;


procedure SetupLogin;
begin
  ClearDebug;
  Smart_Server := 87;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
end;


Procedure Antibans;
Begin

  Case Random(10) Of
    0: begin Writeln('hoverskill'); HoverSkill('crafting', False); FTab(tab_Inv); end;
    1: begin Writeln('boredhuman'); Boredhuman; ClickNorth(0); end;
    2..5: begin Writeln('wait 3-10s'); Wait(3000 + random(7000)); end;
    6: begin Writeln('pickupmouse'); PickUpMouse; end;
    7: begin Writeln('RandomMovement'); RandomMovement; ClickNorth(0); end;
    8: begin Writeln('RandomRClick'); RandomRClick; end;
    9: begin Writeln('MiniBreak 0-180s'); Wait(Random(180000)); end;
  end;
end;

Procedure TakeSomeBreaks;
//procedure takesomebreaks takes breaks for you if you are logged in too long.

Var
  TimeSinceLastBreak : integer;

Begin

  if(BreakNotMinutes <= 0) And (HowLong <= 0) then
  begin
    MarkTime(LastBreakTime);
    writeln('set BreakNotMinutes, because it is 0');
    BreakNotMinutes := (random(NoBreakRandom)+60)*60*1000+random(60000); //in ms
    writeln('BreakNotMinutes: ' + IntToStr(BreakNotMinutes/60000) + '.');
  end;


  TimeSinceLastBreak := TimeFromMark(LastBreakTime);


  if(TimeSinceLastBreak > BreakNotMinutes) then
  begin
    BreakNotMinutes := (random(NoBreakRandom)+60)*60*1000+random(60000); //in ms?
    HowLong := (random(BreakRandom)+10)*60*1000+random(60000); //in ms?

    writeln('We''re going to take a break for ' + IntToStr(HowLong/60000) + ' minutes');
    MarkTime(LastBreakTime);
    Logout;
    wait(HowLong);
    LoginPlayer;
    writeln('We''re now going to bot again, for ' + IntToStr(HowLong/60000) + ' minutes');

  end;


End;


procedure SolveProblems;
begin
  If LobbyScreen = True then LeaveLobby;
  If LoggedIn = False then LoginPlayer;

  TakeSomeBreaks;
  If random(AntiBanAmount) = 1 then Antibans;
end;

procedure Proggy;
begin
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (Sec);
statGain := XP;

writeLn('============S1NGlassblower==========');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
writeLn('Inventories: ' + IntToStr(InventoriesDone));
writelN('===================================');

  Stats_Commit;

end;


procedure CraftOrbs;
var
  x,y,DTM,t:Integer;
begin
DTM := DTMFromString('mlwAAAHicY2dgYLjAyMBwEYivA/E1ID4NxKeg7IVAvAKI5wPxTCBeBsQLgHgREHu4uwJ1M2HFRgy4ASMeDAUAQzsLUQ==');

  MouseItem(Random(28)+1,1);
  if WaitColor(305,362,1972494,5,10000) then //if WaitColor(265,430,4141067,5,5000) then
  begin
    if FindDTM(DTM,x,y,MCX1,MCY1,MCX2,MCY2) then //orbsdingetje in chatding
    begin
      MissMouse(x,y);
      Mouse(x,y,1,1,True);

      MarkTime(t);
      repeat
        XP1 := GetXPBarTotal;
        wait(1000);
        ClearDebug;
        Proggy;
        if Timefrommark(t) > 80000 then
        begin
          if(FailCraft <= 3) then Inc(FailCraft) else
          begin
            StopScript := True;
            StopReason := 'After 80 seconds we didn''t see the last orb being crafted (for the 4rd time)';
            exit;
          end;
        end;

      until(FindDTM(DTM,x,y, 681,422,730,457)); //orbsdingetje in laatste slot

      if FindDTM(DTM,x,y, 681,422,730,457) then FailCraft := 0;

      wait(random(1000));
      Inc(InventoriesDone);
      Proggy;
    end;
  end;
FreeDTM(DTM);
end;


procedure Bank;
var
t,u:integer;
begin
  SolveProblems;

  if BankFails > 10 then
  begin
  StopScript := True;
  StopReason := 'We failed to open the bank 10 times.';
  end;

  writeln('opening bank');
  OpenBankChestEdge(SRL_BANK_SW);
  MarkTime(t);
  repeat
    wait(100);
    if PinScreen then
    begin
      InPin(Players[CurrentPlayer].Pin);
    end;
    if TimeFromMark(t) > 4000 then
    begin
      Inc(BankFails);
      Bank; //if it takes too long, Restart function.
      exit;
    end;
  until(BankScreen);

  if BankScreen then
  begin
    BankFails := 0;
    DepositAll;
    MouseBankSlot(Slot,0);
    WaitOption('All',4000);

    repeat
      wait(10);
      inc(u);
    until(InvFull or (u > 1000));

    if InvFull then CloseBank else begin
      StopScript := True;
      StopReason := 'Could not fill inventory';
    end;
  end;
end;


//Here starts the script
begin

  SetupLogin;
  DeclarePlayers;
  LoginPlayer;
  if (Players[CurrentPlayer].Integers[1] = 0) then
  begin
    if not IsXPBarOpen then ToggleXPBar(true);
    Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
    XPS := GetXPBarTotal;
    Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
  end;

  StartTime:=GetSystemTime;

  SetupSRLStats(1068, SRLStats_User, SRLStats_Password);

  repeat
    Bank;
    CraftOrbs;
  until(StopScript = True);

  stats_IncVariable('Crafting EXP (Gained)', statGain);
  stats_Commit;

  writeln(StopReason);
  writeln('We stop the script now! Cya next time!');

end.

Got 99 from this, thanks:)

[php]
============S1NGlassblower==========
Time Running: 5 Hours, 29 Minutes and 35 Seconds
XP Earned: 458010
XP/h: 83379
Inventories: 311
===================================[/php]

<– still running

From: Based Lord
I changed this

if WaitColor(305,362,4543066,5,10000) then 

to this to fix it

   
if WaitColor(305,362,1972494,5,10000) then 

Line 64

Not sure what exactly it was looking for originally so I just picked the color at the position 305,362 when you open it up

+1 Rep, Beautiful Fix

E: Fix already mentioned

Got 99 a few days ago, forgot to say thanks! Great bot, and a cheap way to get 99.

Updated, requesting this to be moved back to Crafting section.

Moved.

Hey sin could you update this plox ;)
It doesn't work with eoc (opens that menu and stops, when I attempted to fix it myself I seemed to have gone nowhere -.-… I created a dtm for the "blow" button but I don't think it was finding the dtm..should of debugged more but was like meh he knows this better than I do :p)

Updated to run with EoC.

I seem to have a few problems :/
Sometimes (rare but it does happen for extended runs) it will click the orb and then try to click the bank (will cause nothing interesting happened) and it keeps doing this till the user fixes the problem. I also find if nomad is standing infront of the bank it will try to talk to him instead of clicking the chest.

Castle Wars chest :p

@Sin

Script is running as expected (Noticed you recently updated it too :P)

Noticed that every time it banked, it would toggle the xp bar because of the crafting screen would cover it for 1 tick after the 'Craft' button was clicked.

Ran for 10 minutes with no problem.

Here is the output:

===================================
============S1NGlassblower==========
Time Running: 10 Minutes and 6 Seconds
XP Earned: 13597
XP/h: 80641
===================================
===================================
Successfully executed.

heres my proggy:
===================================
============S1NGlassblower==========
Time Running: 5 Hours, 6 Seconds
XP Earned: 466265
XP/h: 93232
===================================
===================================
im using this script at sw bank and works flawless :) 1,4m xp till 99

Nice :)
@Justin
Can you elaborate?

did you last update this 11/01/2013 ?
it's working flawless still, only ran it for like 15minutes, but i can tell it wont fail ;)