Just a few of my progress reports from the two bots i purchased from them. All this was done on my main which is still being usedGood times...
![]()
Just a few of my progress reports from the two bots i purchased from them. All this was done on my main which is still being usedGood times...
![]()
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
I miss iDungeon and all the good rsbuddy scripts.
I wish they would come back at some point![]()
Mostly Inactive, School
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
Is that a clue scroll solver? O_o
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
RSBots.net was just an overpriced reseller site..
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
^^This, Me an my irl mate spent alot of money buying most of them (by the end) and I would say it was worth it, however we did run a powerleveling service.
But, with that said they were the most flawless, accurate bots i've ever used. I miss them ;( But SRL has a MUCH better community!
BOT TILL YOU DROP!
ohhh the good old days
Main(unbanned):
Tank staker (unbanned Maxed)![]()
AutoSoulWars and AutoSlayer were so good. Just I shame I didn't manage to get 99 slayer before it went down. -.-
Ahhhhhh I have some 40 hour proggies lying around. I'll find it somewhere...
It aint easy being cheasy
Haha not going to lie, but it was fun getting mad money by hunting and the garden![]()
Good old times, I remember when people were sharing auth codes alot... I used to grab a couple and train some F2P skills... From them kMiner was my favorite. That shit was amazing!![]()
There was a thread that had around 20+ pages on the longest proggies for each script :P
these 2 arent mine (below)
16 Days Soul Wars
11 Days Sorc Garden
![]()
Last edited by Jake; 06-25-2012 at 05:19 PM.
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
16 days, just doesn't happen anymore![]()
Mostly Inactive, School
Wow, those are some crazy long progress reports...
I'm Silent SPYSecret project: 0%Need help? Send me a PM
Yep, rsbots.net had some hardcore botters :P
All of my guides (Over 100k+ Views!)
[RS3] 375K+ Range xp/hour| [RS3] 500k+ Mage xp/hour| [RS3] Drop Logs/Fish/ETC |Runetracker Guide
1-99 Herblore Guide| 1-99 Thieving Guide| Livid Farm Guide | 1-60 Farm guide | Double XP Everyday
Charm Sprite Guide | Charm Collecting Guide| 99 Summoning (Crimson Charms)
Authenticator Guide
Proud RSBots.net member for about 3 years, Jakee, i miss having proggies that last over weeks :-) To bad it had to shut down, 200$ of bots down the drain, hehe.
Progress Report:===========AshamanSuperheat============ Time Running: 37 Hours, 14 Minutes and 53 Seconds Magic XP: 3481146 Magic XP/Hour: 93458 Smithing XP: 3678192 Smithing XP/Hour: 98748 Bars/Hour: 1830 =======================================
Ran out of nats :/ actually could actually run forever since it doesn't rely on hooks (even after rs updates)
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
SCAR Code:{
[==================================================]
[ Stupid3ooo's GuildMiner ]
[ version:1.4 ]
[==================================================]
| Instructions: |
| 1.Add Colors/Setup Lines 33-52 |
| 2.Do not rotate camera, keep relativly north |
| 3.Highest angle of view, look Ffrom above |
| 4.V-bright,32bit colors |
| 5.Public Chat OFF |
| 6.SCAR version 1.13 |
| 7.Silent Mouse OFF |
| 8.Have pickaxes in first bank slot |
[==================================================]
[ Thanks to, RSCheating community ]
[ *PLEASE POST ANY BUGS/HELP IN THE FORUMS ]
[==================================================]
}
program StupidGuildMiner;
var x,y,a,b,flag,Talkto,PickHead,PickHandle,Ore,Drop,Talked,Ran,Attached,count,
banks,PickFindCounter,PickAxe,hc1,hc2,hc3,hc4,hc5,OreColor,PickAxeSteel,xc,yc,
box,UseQuick,UseQuickY,StoreAll,StoreAllY,Stuck:integer;
ST:LongInt;
ColorsFound,EndScript:Boolean;
{.include WAAMPinclude.txt}
const
////======================Setup=======================\\\\
UseWAAMP = false;//to use WAAMP over built in random event protection, go to line 598 and remove the "//" if true
Username = '';
Password = '';
FindGaser = true;//true/false, this allows the script to look for steaming rocks but can slow down minning
PickFindCount = 5;//number of times script looks for a broken pickhead untill giving up and withdrawing a new one
//=\\================================================//=\\
////======================Colors======================\\\\
//Main Screen Colors
OreColor1= 857879;//darkest
OreColor2= 2043181;//medium
OreColor3= 3098182;//lightest
//Minimap Colors
BankColor= 3918295;//Bank symbol color
StatueColor= 10066341;//Minimap statue gray area color
LadderColor= 9030;//Color of minimap ladder INSIDE the guild
MapOreColor= 4213570;//Color of minimap ore
MapPickColor= 6779754;//color of pickaxe symbol in guild
//=\\================================================//=\\
Procedure PrintProgressReport; //modified from Phalanx's script
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/Banks;
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('<=================Progress Report================>');
writeln('Worked for '+Time);
writeln('Ran '+inttostr(ran)+' time[s]');
writeln('Talked '+inttostr(talked)+' time[s]');
writeln('Attached '+inttostr(attached)+' time[s]');
writeln('Mined and banked about '+inttostr(banks*27)+' ore[s]');
writeln('Currently Averaging about '+inttostr(3600/avtime*27)+' ores an hour');
writeln('<================================================>');
end;
end;
procedure Mouse(mx, my, ran, ran2: Integer; Mbtn: boolean); //By OhDearUrDead(x,y,ran1,ran2,left/right)
begin
Wait(20+random(50));
mx:=mx+random(ran)
my:=my+random(ran2)
MoveMouseSmooth(mx,my);
Wait(100+random(100));
ClickMouse(mx,my,mbtn);
wait(50+random(50));
end;
procedure FindTextSpiral(txt: String; dx,dy: Integer; SpiralSize: Integer; step, SpiralWait: Integer); // By OhDearUrDead, Edited By Khain
var px, py, qx, qy: Integer;
FoundText: Boolean;
begin
FoundText:= false;
px:= dx; py:= dy; qx:= dx; qy:= dy;
x:= dx;
y:= dy;
MoveMouseSmooth(x,y);
repeat
Spiralwait:= Spiralwait+random(50);
MoveMouse(x,y)
px:= px + 20; py:= py + 20;
qx:= qx - 20; qy:= qy - 20;
repeat
getmousepos(x,y)
x:= x + step;
MoveMouseSmooth(x,y);
Wait(SpiralWait);
if(IsTextAt2(9,9,txt,100))then FoundText:= true;
Until(x >= px)or(FoundText);
if(FoundText)then Break;
repeat
getmousepos(x,y)
y:= y + step;
MoveMouseSmooth(x,y);
Wait(SpiralWait);
if(IsTextAt2(9,9,txt,100))then FoundText:= true;
Until(y >= py)or(FoundText);
if(FoundText)then Break;
repeat
getmousepos(x,y)
x:= x - step;
MoveMouseSmooth(x,y);
Wait(SpiralWait);
if(IsTextAt2(9,9,txt,100))then FoundText:= true;
Until(qx >= x)or(FoundText);
if(FoundText)then Break;
repeat
getmousepos(x,y)
y:= y - step;
MoveMouseSmooth(x,y);
Wait(SpiralWait);
if(IsTextAt2(9,9,txt,100))then FoundText:= true;
Until(qy >= y)or(FoundText);
Until(px > dx + SpiralSize)or(FoundText);
end;
procedure RWait (ranlength: string);
begin
if(ranlength = 'xxshort') then wait(15+random(15)+random(15))
if(ranlength = 'xshort') then wait(50+random(25)+random(25))
if(ranlength = 'short') then wait(100+random(50)+random(50))
if(ranlength = 'medium') then wait(200+random(100)+random(100))
if(ranlength = 'long') then wait(500+random(250)+random(250))
if(ranlength = 'xlong') then wait(1000+random(500)+random(500))
if(ranlength = 'xxlong') then wait(1000+random(500)+random(500)+random(500)+random(500))
end;
procedure SetRunOn;
begin
Wait(50+random(5));
Mouse(708,475,5,5,true);
Wait(100+random(100));
Mouse(614,260,5,5,true);
Wait(100+random(10));
Mouse(644,178,5,5,true);
Wait(100+random(10));
End;
procedure SetRunOff;
begin
Wait(50+random(5));
Mouse(708,475,5,5,true);
Wait(100+random(100));
Mouse(569,256,5,5,true);
Wait(100+random(10));
Mouse(644,178,5,5,true);
Wait(100+random(10));
End;
Procedure MapFlag;
begin
Wait(200);
if(FindBitmapIn(flag,a,b,565,5,725,160))then
begin
repeat
wait(1000);
until(not FindBitmapIn(flag,a,b,565,5,725,160));
Wait(100);
end;
End;
Procedure LogOut(why:string);
var c:integer;
begin
Writeln(' ');
Writeln(why);
Writeln(' ');
Wait(100+random(10));
Mouse(635,470,25,20,true);
Wait(100+random(10));
c:=0;
repeat
c:=c+1
Mouse(586,370,119,10,true);
Wait(250+random(100));
until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
end;
//=============Banking Procedures by Stupid based off Khain's=================\\
procedure OpenBank;
begin
FindTextSpiral('Use Bank booth',258,169,110,30,100);
rwait('medium');
if(IsTextAt2(9,9,'Use Bank booth', 100))then
begin
GetMousePos(x,y);
Mouse(x,y,2,2,false);
rwait('medium');
if(FindBitmap(UseQuick,x,y))or(FindBitmap(UseQuickY,x,y))then
begin Mouse(x,y,10,2,true);end;
end;
end;
procedure Deposit;
var counter:integer;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
begin
repeat
counter:=counter+1;
if(FindColorSpiral(x,y,65536,550,200,745,465))then
begin
Mouse(x,y,1,1,false);
rwait('medium');
if(FindBitmap(StoreAll,x,y))or(FindBitmap(StoreAllY,x,y))then
begin Mouse(x,y,10,2,true);end;
rwait('long');
MoveMouseSmooth(650+random(5),185+random(5));
end;
until(not(FindColorSpiral(x,y,65536,550,200,745,465)))or(counter>=28);
end;
end;
procedure CloseBank;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
begin
Stuck:=0;
Banks:=Banks+1;
PrintProgressReport;
Mouse(430,39,5,5,true);
rwait('xlong');
end
else
Stuck:=Stuck+1;
end;
procedure Bank;
begin
OpenBank;
MapFlag;
rwait('medium');
Deposit;
rwait('medium');
if(FindBitmapSpiralTolerance(PickAxe,x,y,0,0,515,338,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,0,0,515,338,100))then
begin
Mouse(x,y,5,5,true);
end
else
Mouse(80,65,5,5,true);
rwait('medium');
CloseBank;
end;
//==========================Map Walking Procedures============================\\
procedure ClimbLadder(color:integer);
var waitcount:integer;
begin
FindTextSpiral('Climb',258,169,110,30,100);
rwait('medium');
if(IsTextAt(9,9,'Climb'))then GetMousePos(x,y);Mouse(x,y,1,1,true);
rwait('medium');
repeat waitcount:=waitcount+1;Rwait('long');
until(FindColorSpiral(x,y,color,565,5,725,160))or(waitcount=10)
end;
procedure BankToGuild;
begin
if(FindColorSpiral(x,y,BankColor,565,5,725,160))then
begin
Mouse(680,100,1,1,true);
MapFlag;
Rwait('medium');
end;
if(FindColorSpiral(x,y,StatueColor,565,5,725,160))then
begin
Mouse(x-10,y,1,1,true);
MapFlag;
Rwait('medium');
ClimbLadder(MapOreColor);
end;
end;
procedure GuildToBank;
begin
if(FindColorSpiral(x,y,StatueColor,565,5,725,160))then
begin
Mouse(x,y,1,1,true);
MapFlag;
Rwait('medium');
Mouse(655,35,5,5,true);
MapFlag;
rwait('medium');
end;
if(FindColorSpiral(x,y,BankColor,565,5,725,160))then
begin
Mouse(x,y,1,1,true);
MapFlag;
Rwait('medium');
MapFlag;
rwait('medium');
end;
end;
procedure ToLadder(climb:boolean);
var counter:integer;
begin
if(FindColor(x,y,MapOreColor,565,5,725,160))then
begin
repeat
counter:=counter+1
Mouse(x+10,y,1,1,true);
MapFlag;
Rwait('medium');
until(FindColorSpiral(x,y,LadderColor,565,5,725,160))or(counter=5)
if(FindColorSpiral(x,y,LadderColor,565,5,725,160))then
begin
Mouse(x,y,1,1,true);
MapFlag;
Rwait('medium');
if(climb=true)then begin ClimbLadder(StatueColor);end;
end;
end;
end;
procedure ToCenter;
begin
if(not(FindColorSpiral(x,y,MapPickColor,565,65,725,160)))then
begin
if(FindColorSpiral(x,y,MapOreColor,565,65,725,160))then
begin
Mouse(x-5,y,1,1,true);
MapFlag;
Rwait('medium');
end;
end;
if(FindColorSpiral(x,y,MapPickColor,565,65,725,160))then
begin
Mouse(x,y,20,20,true);
MapFlag;
Rwait('medium');
end;
end;
//=============================Anti Random Events=============================\\
procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
var counter:integer;
begin
if(IsTextAt2(293,251,'Username',10))then
begin Mouse(460,322,10,2,true);Wait(500+random(500));;end;
if(IsTextAt2(309,241,'Welcome to RuneScape',10))then
begin
Mouse(453,292,20,5,true);
Wait(500+random(500));
end;
if(IsTextAt2(293,251,'Username',10))then
begin
Mouse(400,256,20,5,true);
Wait(500+random(500));
SendKeysSilent(username);
Wait(500+random(500));
Mouse(400,270,20,5,true);
Wait(500+random(500));
SendKeysSilent(password);
Wait(1000+random(500));
Mouse(300,322,20,5,true);
repeat
counter:=counter+1
wait(100);
until(FindColorSpiral(x,y,8421504,0,0,515,338))or(counter=60)
end;
if(FindColorSpiral(x,y,8421504,400,0,515,338))then
begin
wait(100+random(100));
Mouse(x,y,2,1,true);
wait(100+random(100));
end;
end;
procedure FindPickHeadColor;
begin
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
begin
hc1:=GetColor(x+6,y+3);
hc2:=GetColor(x+18,y+7);
hc3:=GetColor(x+20,y+6);
hc4:=GetColor(x+19,y+6);
hc5:=GetColor(x+16,y+5);
writeln('Pick axe colors are...');
writeln(inttostr(hc1));
writeln(inttostr(hc2));
writeln(inttostr(hc3));
writeln(inttostr(hc4));
writeln(inttostr(hc5));
WriteLn('Begin mining.');
ColorsFound:=True;
end
else
begin
writeln('');
writeln('ERROR! cannot find pick in screen, please put pick in inventory or go to your equip page and restart the script!');
writeln('');
ColorsFound:=False;
end;
end;
procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
begin
Mouse(x,y,1,1,true);
MapFlag;
Wait(100+random(100));
FindTextSpiral('Take',258,169,50,5,10+random(10));
GetMousePos(x,y);
Mouse(x,y,0,0,true);
Wait(1000+random(100));
end;
end;
Procedure FindFight;
begin
if(FindColorSpiral(x,y,65280,180,90,320,230))then begin wait(1000) end;
if(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
ran:=ran+1;
SetRunOn;
rwait('medium');
ToLadder(false);
rwait('medium');
end;
end;
procedure TalkToRand;
begin
repeat
if (FindColorSpiral(x,y,16711680,5,345,510,465))or
(FindColorSpiral(x,y,16777215,5,345,510,465))then
begin
Mouse(x,y,50,2,true);
wait(2000+random(1000));
end;
until(GetColor(20,434)=0)
end;
procedure FindText;
var counter:integer;
begin
if (FindColor(x,y,65535,0,0,515,338))then wait(500)
if (FindColor(x,y,65535,0,0,515,338))then
begin
repeat
counter:=counter+2+random(1);
MoveMouse(x+counter,y+15+random(1));
wait(10+random(10));
if(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
FindFight;
break;
end;
if(IsTextAt2(9,9,'Ta',100))then
begin
GetMousePos(x,y);
Mouse(x,y,1,1,false);
Wait(200+random(100));
if(FindBitmap(Talkto,x,y))then
begin
Mouse(x,y,10,2,true);
MapFlag;
wait(1000+random(1000));
TalkToRand;
Talked:=Talked+1
end;
end;
until(counter>=250);
end;
end;
procedure AttachPick;
begin
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
begin
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
begin
Attached:=Attached+1
Mouse(x,y,5,5,true);
Wait(1000+random(100));
end;
if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
begin
Mouse(x,y,5,5,true);
Wait(1000+random(100));
end;
end;
end;
procedure FindPick;
var DropCount,Counter:integer;
begin
if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))or
(GetColor(485,414)=0)and(GetColor(227,376)=0)then
begin
PickFindCounter:=PickFindCounter+1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Ore,x,y,550,200,745,465,100))then
begin
Mouse(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Mouse(x,y,10,2,true);
Wait(100+random(100));
MoveMouseSmooth(648+random(10),186+random(10));
Wait(500+random(100));
end;
end;
until(DropCount=2);
Mouse(683,184,5,5,true);
wait(500+random(100));
Mouse(591,303,5,5,true);
wait(500+random(100));
Mouse(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
begin break;end;
if(FindColorSpiral(x,y,hc1,0,0,515,338))or
(FindColorSpiral(x,y,hc2,0,0,515,338))or
(FindColorSpiral(x,y,hc3,0,0,515,338))or
(FindColorSpiral(x,y,hc4,0,0,515,338))or
(FindColorSpiral(x,y,hc5,0,0,515,338))then
begin
MoveMouseSmooth(x,y);
wait(100+random(100));
if(IsTextAt2(9,9,'Take', 100))then
begin Mouse(x,y,2,2,true);MapFlag;end else itemgrab;
end else itemgrab;
until(counter=10);
AttachPick;
end;
end;
Procedure SetRandom;
Var color:integer;
begin
Color:=1+Random(3);
case Color of
1: Begin OreColor:=OreColor1; end;
2: Begin OreColor:=OreColor2; end;
3: Begin OreColor:=OreColor3; end;
end;
end;
procedure FindRock(var xstart,ystart:integer);
var xs,ys,currenty,currentx,ax,ay,similarcount,
color,counter,dircount:integer;
found:boolean;
dir:string;
begin
ys:=338;
xs:=515;
SetRandom;
if(FindColorSpiral(x,y,OreColor,23,23,495,318))or//Find ore far
(FindColorSpiral(x,y,OreColor,100,66,415,276))or//Find ore medium
(FindColorSpiral(x,y,OreColor,210,130,300,220))then//Find ore close
begin
xc:=x;
yc:=y;
repeat
dircount:=dircount+1;
if(dircount=1)then dir:='north east';
if(dircount=2)then dir:='north west';
if(dircount=3)then dir:='west south';
repeat
counter:=counter+1;
found:=false;
similarcount:=0;
if(dir='north east')then ax:=x+counter;
if(dir='north east')then ay:=y;
if(dir='north west')then ax:=x-counter;
if(dir='north west')then ay:=y;
if(dir='west south')then ax:=x;
if(dir='west south')then ay:=ys+counter;
repeat
if(dir='north east')or(dir='north west')then ay:=ay-1;
if(dir='west south')then ax:=ax-1;
color:=GetColor(ax,ay);
if(similarcolors(OreColor1,color,10)=true)or
(similarcolors(OreColor2,color,10)=true)or
(similarcolors(OreColor3,color,10)=true)then
begin
found:=true;
similarcount:=0;
end
else
similarcount:=similarcount+1;
until(similarcount=10)
if(found=true)then
begin
if(dir='north east')or(dir='north west')then
begin
currenty:=ay+10;
if(currenty<ys)then
ys:=currenty;
end;
if(dir='west south')then
begin
currentx:=ax+10;
if(currentx<xs)then
xs:=currentx;
end;
end;
until(counter>=40)
counter:=0;
until(dircount=3)
xstart:=xs;
ystart:=ys;
end;
end;
function FindGas(findx,findy:integer):boolean;
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
GasColor:=8100004;//8100004
if(FindColorSpiralTolerance(x,y,GasColor,findx-20,findy-20,findx+20,findy+20,20))then
begin
repeat
counter:=counter+1
begin
ClientCanvas:= GetClientCanvas;
bmap:= BitmapFromString(40,40,'');
BMapCanvas:= GetBitmapCanvas(bmap);
CopyCanvas(ClientCanvas,BMapCanvas,findx-20,findy-20,findx+20,findy+20,0,0,40,40);
wait(100);
if(FindBitmap(bmap,x,y))then
begin gasfind:=0;end
else
gasfind:=gasfind+1;
FreeBitmap(bmap);
end;
if(gasfind=5)then
begin
WriteLn('Found Gas');
result:=true;
Wait(1000);
break;
end;
until(counter>=10);
end;
end;
procedure FindBox;
begin
If(FindBitmapSpiralTolerance(Box,x,y,550,200,745,465,25))then
begin
LogOut('Found Box!!!!!!');
EndScript:=True;
end;
end;
Procedure FindRandoms;
begin
//if(UseWAAMP=true)then begin CheckCommunication;end;
if(UseWAAMP=false)then
begin
LoginIfNeeded;
FindFight;
FindText;
FindBox;
if(PickFindCounter<=PickFindCount)then FindPick;
if(FindGaser=True)then
if(FindGas(x+18,y+9)=True)then
begin
SetRunOn;
ToLadder(false);
end;
end;
end;
//============================================================================\\
procedure ClickMine;
begin
FindRandoms;
MoveMouseSmooth(xc,yc);
wait(50+random(10));
if(IsTextAt2(9,9,'Mine',100))or(IsTextAt2(9,9,'Ta',100))then
begin
Mouse(xc,yc,2,2,true);
end;
wait(100+random(100));
end;
Procedure MineOre;
var counter:integer;
begin
FindRock(x,y);
if(FindGas(x+18,y+9)=False)then
begin
ClickMine;
MapFlag;
wait(500);
FindRock(x,y);
repeat
counter:=counter+1
FindRandoms;
Wait(500);
until not((GetColor(195,426)=0)and(GetColor(109,430)=0))or(counter>=10);
end;
end;
Procedure LoadBmps;
begin
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
Talkto := BitmapFromString(18, 2,
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D54475D54475D5447' +
'5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000000000' +
'');
Drop := BitmapFromString(20, 2,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF000000');
Ore := BitmapFromString(10, 10,
'856C4B856C4B886E4D8B704F000001000001000001000001443827' +
'584731856C4B886E4D000001000001302020302020000001382D1E' +
'54442F68543B0000010000013020203020203020200000012D2518' +
'483B296C573D6F593E302020302020302020544A3C544A3C000001' +
'3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
'0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
'564D41000001584731725C407760447A6346544A3C544A3C564D41' +
'564D41564D41000001655239755E437A6346806748544A3C564D41' +
'544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
'544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
'564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
'302020');
UseQuick := BitmapFromString(16, 6,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF');
UseQuickY := BitmapFromString(17, 5,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000');
StoreAllY := BitmapFromString(15, 6,
'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'');
StoreAll := BitmapFromString(15, 6,
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'');
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
'564D41595145000001000001544A3C4F4538544A3C595145564D41' +
'544A3C544A3C544A3C5951455951455951455951450000012F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
'5951455951455951450000012F20002F2000362400000001302020' +
'564D41544A3C544A3C595145564D41595145564D41595145595145' +
'0000012F2000362400362400000001302020564D41564D41564D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
'544A3C544A3C0000012F2000362400362400362400000001302020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
'2F2000362400362400000001302020302020564D41564D41564D41' +
'595145564D41564D41564D410000012F2000362400362400000001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
'0000012F2000362400362400362400000001302020564D41564D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
'362400000001302020302020564D41564D41544A3C544A3C595145' +
'595145564D410000012F2000362400362400362400000001302020' +
'564D41564D41544A3C544A3C564D41564D41595145595145000001' +
'2F20002F20002F2000000001302020302020564D41564D41544A3C' +
'564D41564D41544A3C564D410000012F20002F20002F2000362400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
'564D410000012F20002F20002F2000000001302020302020544A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
'2F2000000001302020302020595145544A3C564D41595145595145' +
'595145564D41564D410000012F20002F20002F2000000001302020' +
'595145595145564D41564D41595145595145595145595145000001' +
'2F20002F20002F2000000001302020302020595145595145595145' +
'595145564D41564D41564D41564D410000012F20002F20002F2000' +
'000001302020564D41595145595145595145595145564D41564D41' +
'544A3C0000012F20002F20002F2000000001302020302020564D41' +
'595145595145544A3C544A3C564D41595145564D410000012F2000' +
'2F20002F2000000001302020544A3C564D41595145595145544A3C' +
'544A3C564D41564D41564D410000012F20002F2000000001302020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
'000001271B002F20002F2000000001302020595145544A3C564D41' +
'595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
'000001302020302020595145544A3C564D41595145595145595145' +
'564D41564D41564D410000011D15001D1500000001302020595145' +
'544A3C544A3C564D41595145595145595145595145595145544A3C' +
'0000011D15001D1500000001302020564D41595145595145595145' +
'595145564D41595145595145564D41544A3C564D41000001000001' +
'302020302020595145595145595145595145544A3C564D41595145' +
'544A3C544A3C4F4538564D41595145302020302020564D41595145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
'352400000001483E331D14001D1400261A002E1F00000001302020' +
'000001000001000001000001302020302020302020302020302020' +
'302020302020483E33');
PickAxe := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
'2F20003625003D2900000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'000001000001392D1B44341E4D3B22544127000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001392D1B342918342918342918' +
'34291834291834291834291834291834291840311E44341E4D3B22' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
'3429183429183429183429183429183429183429183429181E1500' +
'271B005441274D3B22000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
'392D1B392D1B392D1B342918342918342918342918342918342918' +
'3429181E1500271B002F2000513E254D3B2248382044341E000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011E15002F20002F20004D3B224D3B22' +
'48382044341E40311E44341E000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011E1500271B002F2000' +
'2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1E15002F20002F20002F200000000100000100000144341E40311E' +
'392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011E1500271B002F20002F2000000001302020302020' +
'302020000001000001000001392D1B2F2515342918392D1B000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011E15002F20002F2000000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
'2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B30202030202000000100000140311E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011E15002F20002F2000000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'0000010000015C5656686060756D6C827878000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001595353595353595353595353' +
'595353595353595353595353595353575151615A596A6262756D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
'5751515751515751515751515751515751515751515751511C1400' +
'251900827878756D6C000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011C14002D1E002D1E00797070756D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011C14002519002D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011C14002519002D1E002D1E00000001302020302020' +
'302020000001000001000001595353524B4B544E4E595353000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B302020302020000001000001665E5E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
Box := BitmapFromString(10, 10,
'8D83838D83838D83838D8383554E4E524C4C524C4C524C4C504949' +
'5049498D83838D83838D83838D83838D83838D83838D83838D8383' +
'8D83834A45458D83838D83838D83838D83838D83835557BB8D8383' +
'8D83838D83834A45458D83835557BB8D83838D83835557BB5557BB' +
'8D83838D83838D83834A45458D83838D83835557BB5557BB5557BB' +
'5557BB8D83838D83838D83834A45458D83835557BB5557BB5557BB' +
'5557BB5557BB5557BB5557BB8D83834A45458D83835557BB5557BB' +
'5557BB5557BB5557BB8D83838D83838D83834A45455557BB5557BB' +
'8D83838D83835557BB5557BB8D83838D83838D83834A45458D8383' +
'8D83838D83838D83838D83835557BB8D83838D83838D83834A4545' +
'8D83838D83838D83838D83838D83835557BB8D83838D83838D8383' +
'4A4545');
end;
begin
LoadBmps;
LoadChars('')
ST:=GetSystemTime;
LoginIfNeeded;
FindPickHeadColor;
if(ColorsFound=true)then
begin
repeat
LoginIfNeeded;
FindText;
SetRunOn;
BankToGuild;
if(FindColorSpiral(x,y,MapOreColor,565,5,725,160))then
begin
repeat
if(not(FindColorSpiral(x,y,OreColor1,3,3,515,338)))or
(not(FindColorSpiral(x,y,OreColor2,3,3,515,338)))or
(not(FindColorSpiral(x,y,OreColor3,3,3,515,338)))then ToCenter;
count:=count+1
if(EndScript=True)then break;
MineOre;
rwait('xshort');
until((GetColor(422,398)=0)and(GetColor(205,392)=0))or//full invi
(PickFindCounter>=PickFindCount)or(count=250)//no pickaxe/mined too long
end;
SetRunOff;
ToLadder(true);
GuildToBank;
FindText;
Bank;
PickFindCounter:=0;
if(Stuck>=10)then break;
if(EndScript=True)then break;
rwait('xshort');
until(false)
end;
end.
Newfags don't remember, old dawgs remember with love.
Shit was just so much more awsome in the early years of RS2, the real "good old times" when it was all about beating the system rather than just farming gold levels.

Loved that one!
But
Progress Report:========AshamanggzzLRC========= =========Version: 2.55========= Time Running: 2 Hours, 7 Minutes and 23 Seconds Ores Mined: 1400 Experience Earned: 89610 Experience/Hour: 42208 Ores/H: 659 ===============================
Using new smart, simba and brandons fixes (and barring any failed randoms) that script could get that amount of time as well!
Red & Green Salamander Hunter // Construction // Gilded Altar // Major help w/ Kyles Runespan // VWB Smither // PhoenixFeathers // GemCutter // Bonfire // LRC Miner // Spell Tab Maker // ApeAtollAgility // IvyWC // RoguesCooker // Herblore // AshamanButterfly // AshamanPowerMiner // Fletcher // LividFarm
There are currently 1 users browsing this thread. (0 members and 1 guests)