GOOGLE'S DesertGoatHornCrusher
THREAD MOVED TO
http://villavu.com/forum/showthread.php?t=82811
![]()
GOOGLE'S DesertGoatHornCrusher
THREAD MOVED TO
http://villavu.com/forum/showthread.php?t=82811
![]()
Last edited by Google; 05-20-2012 at 06:54 PM.
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
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....
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
I dunno why it seems like unstable , it will automatically stopped sometimes.

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:
Simba Code: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.
"Previously known as Leetsxc''
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
Simba Code: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.
Thanks for the idea I will take a look at it.
Last edited by Google; 04-11-2012 at 04:47 PM.
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
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![]()
Last edited by hodsi1; 05-09-2012 at 05:52 PM.
Nice script, has been working perfectly so far, Thank youI also like the little elephant behind the instructions
![]()
Nice script, has been working perfectly so far, Thank you![]()
Worked fine for me.. Did about 20k of them.. had 10k dust in bank and fell asleep. woke up and they dropped like 200gp -.-
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
Dunno why so underrated, but I'll give you lots of love for this one!
Cheers!
it loggs out my accounts after about 10-20 min of botting when breaks are on "false"
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
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.
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
Yeah just a little error that needs fixing is all, good work though!
![]()
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
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
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
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![]()
Tutorials: Creating Custom SPS Minimap Maps + How to Use SPS | Bitmap Tutorial (For Finding Items In Inventory + Bank) + Implementing Into A Script
Private: RS3 AstralRcRunner
Currently: Looking for a script request
i needed that, thanks![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)