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.
Last edited by Legendscape; 06-19-2012 at 05:21 PM.
Thanks S1Nwould love to get myself 99 crafting thx to this
![]()
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?![]()
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".
Dani B trying to learn lots about scripting... FAILING
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
gf 52k molten glass![]()
Last edited by damienjp; 06-29-2012 at 04:35 AM.
damienjp, you should tell us how you fixed it![]()
yeah dude!![]()
Simba Code: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
==================================
Last edited by Master BAW; 06-29-2012 at 01:08 PM.
Former Name: MasterCrimeZ.
ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
If you have any questions about scripting, feel free to PM me
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!
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![]()
Former Name: MasterCrimeZ.
ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
If you have any questions about scripting, feel free to PM me
There are currently 1 users browsing this thread. (0 members and 1 guests)