2012-04-11 01:03:37
SRL Archive - RS3 Outdated / Broken Scripts
GOOGLE's DesertHornCrusher 100-400k|H
krasniy
2012-04-11 10:11:46
Thanks Google….and I love how you have the instructions inside your script… very helpful when you need to run a particular script that you have perhaps not run in quite a while….
2012-04-11 10:14:51
From: krasniy
Thanks Google….and I love how you have the instructions inside your script… very helpful when you need to run a particular script that you have perhaps not run in quite a while….
No problem man, happy botting.
suffrage
2012-04-11 11:55:42
I dunno why it seems like unstable , it will automatically stopped sometimes.
Sir Ducksworthy
2012-04-11 12:01:03
Nice google I actually Implemented this as an option into my crusher but didn't release it because I didn't want to effect the price anymore,
You really should put your Dragon Scale Crusher and Other's you have released into one script.
Here it is, look through and you'll see how to do it:
You really should put your Dragon Scale Crusher and Other's you have released into one script.
Here it is, look through and you'll see how to do it:
program LeetzCrusher;
{$DEFINE SMART}
{$i SRL/srl.simba}
{$i SRL/srl/misc/paintsmart.simba}
const
//////////////////////////////////////////IMPORTANT!!IMPORTANT!!IMPORTANT!!IMORTANT\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//Welcome to LeetzBarCrusher version 1.3 by Leetsxc, Please review the STEPS below and complete which are required before starting the script.\\
// \\ // \\
//////////////////////////////Start of $etup////////////////////////////////////
SERVER = 15; // Enter "0" to pick a random server. STEP 1 //
MEMBERS = False; //False if F2P True for P2P STEP 2 //
NumbOfPlayers = 1; //Dont touch Unless you wanna use multi player setup //
StartPlayer = 0; //Dont touch //
/////BREAKING SETUP\\\\\ //
UseBreaks = True; //Do you want to take breaks? STEP 3 \\
SwitchWorld = True; //Do you want to switch worlds after the break? STEP 4 \\
BreakIn = 290; //How many minutes until you take a break? STEP 5 \\
BreakInRandom = 10; //How many minutes should the "BreakIn" time be varied by? STEP 6 \\
BreakFor = 7; //How many minutes will you break for? STEP 7 \\
BreakForRandom = 7;//How many minutes should the "BreakFor" time be varied by? STEP 8 //\
///END OF BREAKING SETUP\\\ //\/\
// //\/\/\
////LeetzCrusher Setup\\\\ /\/\/\/\
Item = 'Chocolate'; // Goat Horn or Chocolate // \\
Location = 'VBANKWESTEASTSIDE'; // STEP 9 //\ \\ //
// 'VBANKWESTEASTSIDE'= Varrock Bank West East side of the bank \\/ // // SETUP
// 'VBANKWESTWESTSIDE'= Varrock Bank West West side of the bank \\ // //////////////////////////////////////
// 'Soul Wars'= New Location :) Soul Wars \\ //
Profit = 86; //Calculate your profit per bar through G.E and change it STEP 10 \\ // \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Howmany = 39000; //Type how many Cast's/Monster's if auto cast you would like to do before the script will END STEP 11 \\
///End of LeetzCrusher Setup\\\ \\
var
x1,y1,x2,y2,StartTime,AntiBans,Dust,Itemz,BankBooth,Crushes,x,y,breaktimer,BreaksTaken: integer;
Text:string;
procedure DeclarePlayers;
var
i:integer;
begin
NumberOfPlayers(NumbOfPlayers);
CurrentPlayer := StartPlayer;
for i := 0 to NumbOfPlayers-1 do
begin
Players[i].BoxRewards := ['amp'];
Players[i].LampSkill := 13;
end;
With Players[0] do
begin
Name := ''; //Username. STEP 12
Pass := ''; //Password. STEP 13
Active := True;
end;
{ With Players[1] do //For more players uncomment the {'s at top left and bottem right
begin
Name := ''; //Username.
Pass := ''; //Password.
Active := True;
end; }
end;
////////////////////////////// End of Setup////////////////////////////////////
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
procedure Proggy;
var
Crushrate,Sec:integer;
begin
Sec:=(1+((Getsystemtime-StartTime)/1000));
Crushrate:=(3600*(Crushes))/(Sec);
PrintOnSmart(['**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**',
' $$$$$$$$$LeetzCrusher v1.3$$$$$$$$$$',
' Time Running: ' + TimeRunning,
' Profit Gained: ' + IntToStr(Crushes*Profit) + ' GP',
' Profit Per Hour: ' + IntToStr(Crushrate*Profit) + ' GP',
' Chocolate Bars Crushed: ' + IntToStr(Crushes),
' Crushes Per Hour: ' + IntToStr(Crushrate),
' Anti-Bans Performed: ' + IntToStr(AntiBans),
'**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**'], Point(104, 201), 14884053);
Writeln('**/*/*/*/*/*/*/*/*/*/*\*\*\*\*\*\*\*\*\*\**');
Writeln(' $$$$$$$$$LeetzCrusher v1.3$$$$$$$$$$');
Writeln(' Time Running: ' + TimeRunning);
Writeln(' Profit Gained: ' + IntToStr(Crushes*Profit) + ' GP');
Writeln(' Profit Per Hour: ' + IntToStr(Crushrate*Profit) + ' GP');
Writeln(' Chocolate Bars Crushed: ' + IntToStr(Crushes));
Writeln(' Crushes Per Hour: ' + IntToStr(Crushrate));
Writeln(' Anti-Bans Performed: ' + IntToStr(AntiBans));
Writeln('**\*\*\*\*\*\*\*\*\*\*/*/*/*/*/*/*/*/*/*/**');
end;
procedure AntiBan;
begin
if(not(LoggedIn))then
exit;
FindNormalRandoms;
Findnoninventoryrandoms;
Case Random (2500) of
0..18: Begin SleepAndMoveMouse(5000 + Random(750)); AntiBans:=AntiBans+1; End;
19..24: Begin GameTab(tab_Inv) ExamineInv; GameTab(tab_Inv); SleepAndMoveMouse(2500 + Random(553)); AntiBans:=AntiBans+1; End;
25..42: Begin RandomAngle(1); AntiBans:=AntiBans+1; End;
55..60: Begin PickUpMouse; AntiBans:=AntiBans+1; End;
61..120: Begin RandomMovement; AntiBans:=AntiBans+1; End;
121..160: Begin BoredHuman; AntiBans:=AntiBans+1; End;
161..182: begin if(gametab(tab_inv))then Begin ExamineInv; AntiBans:=AntiBans+1; End; end;
End;
end;
function FindDustLastSlot: Boolean;
begin
Result:= Finddtm(Dust,x,y,686,432,733,464);
end;
function FindItemz: Boolean;
begin
Result:= Finddtm(Itemz,x,y,559,209,735,466);
end;
procedure CrushProcess;
var
Continuez:boolean;
begin
sleep(randomrange(50,200));
if(WaitFunc(@FindItemz, 50, 3000))then
begin
Mouseitem(Randomrange(1,28),0);
WaitOptionMulti(['rind','owder'], 3000);
if(WaitFindColor(x,y,2070783,221, 436,299, 452,4,3000))then
begin
Case Random (9) of
0..2: begin //30%
mouse(x,y,15,2,false);
if(Waitoption('All',2000))then
Continuez:=true;
end;
3..9: begin //70%
mmouse(x,y,15,15);
if(WaitUpText('ake',2000))then
begin
getmousepos(x,y);
mouse(x,y,0,0,true);
Continuez:=true;
end;
end;
End;
if(Continuez=true)then
begin
Antiban;
if(WaitFunc(@FindDustLastSlot, 50, 40000))then Crushes:=Crushes+28;
end;
end;
end;
end;
function CheckBankUp: Boolean;
begin
Result:= WaitFindColor(x,y,4106994,195,26,321,43,5,3000);
end;
procedure DTMZ;
begin
Case Location of
'VBANKWESTEASTSIDE': BankBooth:= DTMFromString('mQwAAAHicY2YAAkYgAuL/QGYlEHcCcT4Qt9SkMhQnGTNE+qgziAL5HEAsCFEOx0AAAPFJBeE=');
'VBANKWESTWESTSIDE': BankBooth:= DTMFromString('mQwAAAHicY2YAAkYgAuL/QGYlEHcCcT4Qt9SkMhQnGTNE+qgziAL5HEAsCFEOx0AAAPFJBeE=');
'Soul Wars': BankBooth := DTMFromString('mQwAAAHicY2ZgYLgNxLeg9EIgngrEG4A4PzmUYcvaNQwrFy1k4ADyuaCYEQkDAQCfPAm5');
End;
Case Item of
'Chocolate': begin
Dust:= DTMFromString('mbQAAAHicY2VgYMhiYmBIAuJCJgg7B4ifM0DwMyB+A8SPgDjUUBpIMqFgfgZMwIgFgwEAV7cHYg==');
Itemz:= DTMFromString('mbQAAAHicY2VgYMhhYmAoBOJUIE4H4jIgfgQUvwPEr4D4PhA/AWIfHQkgyYSC+RkwASMWDAYAUOoHRg==');
end;
'Goat Horn': begin
Dust:= DTMFromString('mlwAAAHicY2dgYMhkYmBIBuJEIM4C4mIgzgXiCiB+DpR/A8TPgPgtA4R/F4gfAnFqUjiQZMKKWXHKMDAw4sFQAAClYAqS');
Itemz:= DTMFromString('mwQAAAHic42RgYMhgYmDIAuIyIC4C4lwgLgTiTCBOgOKHQHW3gPgmEN8F4mdA/B6IXwHxIyB+AcTpKZFAkgkvZiWogoGBkQgMBwBy/g0p');
end;
END;
end;
procedure FREEDTMZ;
begin
FreeDtm(Bankbooth);
FreeDtm(Dust);
FreeDTM(Itemz);
end;
procedure CrushSetup;
begin
Case Location of
'VBANKWESTEASTSIDE': begin
Text:='ooth';
MakeCompass('E');
x1:=222;
y2:=81;
x2:=299;
y2:=189;
SetAngle(0);
end;
'VBANKWESTWESTSIDE': begin
Text:='ooth';
MakeCompass('W');
x1:=222;
y2:=81;
x2:=299;
y2:=189;
SetAngle(0);
end;
'Soul Wars': begin
Text:='hest';
MakeCompass('E');
x1:=177;
y2:=126;
x2:=258;
y2:=208;
SetAngle(0);
end;
End;
end;
procedure WithdrawProcess;
begin
if(CheckBankUp)then
begin
if(Finddtm(Dust,x,y,559,209,735,466))then
begin
mouse(x,y,5,5,false);
Waitoption('All',2000);
end;
mouse(439,185,10,10,false);
if(WaitOption('All',1000))then mouse(483,29,5,5,true);
end;
end;
procedure BankProcess;
var
found:boolean;
aFound: Extended;
begin
Crushsetup;
if(finddtmrotated(BankBooth,x,y,x1,y1,x2,y2,-Pi, Pi, Pi/30, aFound))then found:=true;
if(found=true)then
begin
mmouse(x,y,7,7);
if(WaitUpText(Text,1000))then
begin
getmousepos(x,y);
mouse(x,y,0,0,true);
end;
end;
end;
procedure TakeBreaks;
begin
if not LoggedIn then
Exit;
begin
if (GetSystemTime > BreakTimer) then
begin
WriteLn('Taking a break.');
Logout;
Wait(BreakFor * 60000 + Random(BreakForRandom * 60000));
WriteLn('Logging back in.');
Case (SwitchWorld) of
True: if LoginPlayerToLob then
ChangeWorld(RandomWorld(True, False));
False: LoginPlayer;
end;
Wait(2000);
BreaksTaken:=BreaksTaken+1;
BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
end;
end;
end;
begin
Smart_server := SERVER;
Smart_Signed := TRUE;
Smart_Members := MEMBERS;
Smart_SuperDetail := FALSE;
SetupSRL;
DeclarePlayers;
LoginPlayer;
smart_clearcanvas;
DTMZ;
CrushSetup;
Addonterminate('FREEDTMZ');
proggy;
mousespeed:=25;
Wait(2000);
BreakTimer := GetSystemTime + (BreakIn * 60000 + Random(BreakInRandom * 60000));
StartTime:=GetSystemTime;
repeat
CrushProcess;
Proggy;
if(Crushes+1>Howmany)then
begin
terminatescript();
end;
AntiBan;
BankProcess;
WithdrawProcess;
if (UseBreaks) then
TakeBreaks;
until (not Loggedin);
end.
2012-04-11 12:10:24
From: suffrage
I dunno why it seems like unstable , it will automatically stopped sometimes.
Whats it saying in the debug box is it terminating the script completely, or is the script just sitting there and pausing because one of the antibans is to sleep and move the mouse for 5 seconds so that could be what the stopping is.
To change this go to this line
0..18: Begin SleepAndMoveMouse(5000 + Random(750)); End;
// 5000 is in millaseconds so its set to 5 seconds, change it to 1000
// if you want to speed up that antiban, which will just sleep and move
// the mouse for a quick second then bank. From: leetsxc
Nice google I actually Implemented this as an option into my crusher but didn't release it because I didn't want to effect the price anymore,
You really should put your Dragon Scale Crusher and Other's you have released into one script.
Thanks for the idea I will take a look at it.
suffrage
2012-04-13 11:06:50
From: GOOGLE
Whats it saying in the debug box is it terminating the script completely, or is the script just sitting there and pausing because one of the antibans is to sleep and move the mouse for 5 seconds so that could be what the stopping is.
To change this go to this line0..18: Begin SleepAndMoveMouse(5000 + Random(750)); End;
// 5000 is in millaseconds so its set to 5 seconds, change it to 1000
// if you want to speed up that antiban, which will just sleep and move
// the mouse for a quick second then bank.
Thanks for the idea I will take a look at it.
it is working well now.
:spongebob:
2012-04-13 19:56:36
From: suffrage
it is working well now.
:spongebob:
Glad its working for you now :)
hodsi1
2012-05-09 12:45:51
Seems to get messed up when the camera is put at the angle its set to, works best for me when its set north but i dont know how to change it to do that in the script. :P
EDIT: Dont worry i fixed it myself:)
EDIT: Dont worry i fixed it myself:)
IamDom
2012-05-10 21:42:01
Nice script, has been working perfectly so far, Thank you :) I also like the little elephant behind the instructions ;)
IamDom
2012-05-10 21:49:24
Nice script, has been working perfectly so far, Thank you :)
Adobe
2012-05-10 22:00:51
Worked fine for me.. Did about 20k of them.. had 10k dust in bank and fell asleep. woke up and they dropped like 200gp -.-
2012-05-11 02:12:35
From: Adobe
Worked fine for me.. Did about 20k of them.. had 10k dust in bank and fell asleep. woke up and they dropped like 200gp -.-
Thats unfortunate :(
jogobella
2012-05-12 13:58:56
Dunno why so underrated, but I'll give you lots of love for this one!
Cheers!
Cheers!
spac3monk
2012-05-12 17:09:03
it loggs out my accounts after about 10-20 min of botting when breaks are on "false"
spac3monk
2012-05-12 17:20:30
correction* i have horns in 1st slot and some times it finds the horns and othe times it sayd wrong uptext and cant ifnd the horns and just logs out
spac3monk
2012-05-13 19:48:00
i moved the coordinate for the horns in bank to 48,106,9,9 and it seems to run flawless now but it might mess up in a few hours.
2012-05-14 02:46:56
From: spac3monk
it loggs out my accounts after about 10-20 min of botting when breaks are on "false"
Ill fix it tomorrow the its just not finding the DTM.
Jordan155
2012-05-14 04:09:59
Yeah just a little error that needs fixing is all, good work though!
2012-05-14 13:52:28
From: Jordan155
Yeah just a little error that needs fixing is all, good work though!
Updated.
michelser
2012-05-15 09:01:02
runs ok for a couple of minutes then Says it cant find the horns.. while i putted them in a tab at first bankslot..
PLEASE HELP
PLEASE HELP
2012-05-15 11:52:53
From: michelser
runs ok for a couple of minutes then Says it cant find the horns.. while i putted them in a tab at first bankslot..
PLEASE HELP
Download V2 and read the directions up at the top.
outbuster
2012-05-15 19:51:00
how much Gp/Hour is this at the moment? and do the horns buy fast? and how fast does the dust sell?
sorry for the many questions :d just curious if it's still worth it:)
sorry for the many questions :d just curious if it's still worth it:)
2012-05-15 23:00:46
From: outbuster
how much Gp/Hour is this at the moment? and do the horns buy fast? and how fast does the dust sell?
sorry for the many questions :d just curious if it's still worth it:)
They buy fast and sell slow, its good money still if your patient.
twinkii
2012-05-16 18:50:18
i needed that, thanks :D
3 6 M
2012-05-16 19:43:54
It doesnt work all it does is spin around the screen when it logs in, and then logs off immediately. I have followed the instructions and i use V2.
Edit: okay seems to be working but sometimes it withdraws then doesnt click on the grinding bit, even though it isnt grinding it still waits by default even when its not doing any grinding. i did lower the mouse speed to 15 to test that as well but same problem.
Edit: okay seems to be working but sometimes it withdraws then doesnt click on the grinding bit, even though it isnt grinding it still waits by default even when its not doing any grinding. i did lower the mouse speed to 15 to test that as well but same problem.
2012-05-19 11:35:29
From: 3 6 M
It doesnt work all it does is spin around the screen when it logs in, and then logs off immediately. I have followed the instructions and i use V2.
Edit: okay seems to be working but sometimes it withdraws then doesnt click on the grinding bit, even though it isnt grinding it still waits by default even when its not doing any grinding. i did lower the mouse speed to 15 to test that as well but same problem.
That's because its set at a certain wait time, I am going to rewrite both my crushers today.
michelser
2012-05-24 06:23:13
I get a problem with the script for the second time after exactly 1 hour and 57min.
The log reads : Exception in Script: The given DTM Index[2] doesn't exist
The log reads : Exception in Script: The given DTM Index[2] doesn't exist
Chry
2012-05-29 09:49:45
Thanks google.