Jake
2012-06-22 18:22:14
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 used :D Good times…
SRL Archive - Bot Information and Spottings
Good old times on RSBots.net...
Jim
2012-06-22 19:00:04
I miss iDungeon and all the good rsbuddy scripts.
Based Lord
2012-06-22 19:10:41
I wish they would come back at some point :D
Jake
2012-06-22 19:32:05
From: Based Lord
I wish they would come back at some point :D
Alot of people do, but who knows :P
lilcmp1
2012-06-22 20:09:43
Is that a clue scroll solver? O_o
Jake
2012-06-22 20:18:56
From: lilcmp1
Is that a clue scroll solver? O_o
Yes Auto ClueScrollsPro was the first clue scroll solving bot if i can recall correctly.
It was for nexus, I bought it off RSBots.net. It was a flawless and amazing bot. It basically solved level 1 clue scrolls and went back to HAM to pickpocket for more.
Hunaja
2012-06-23 05:19:06
RSBots.net was just an overpriced reseller site..
The Killer
2012-06-23 07:02:47
From: Liimujx
I miss iDungeon and all the good rsbuddy scripts.
same rsbuddy was where it was at js
Jake
2012-06-23 10:08:02
From: Hunaja
RSBots.net was just an overpriced reseller site..
it was a pretty good community and wasnt bad at all.
I dont see how you're calling it "overpriced" when you goldfarm on several accounts daily, kind of ironic.. anyways lets not get offtopic.
ABC!
2012-06-23 11:41:49
From: Jakee
it was a pretty good community and wasnt bad at all.
I dont see how you're calling it "overpriced" when you goldfarm on several accounts daily, kind of ironic.. anyways lets not get offtopic.
^^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!
kardon
2012-06-23 17:54:39
ohhh the good old days
Main(unbanned):
Tank staker (unbanned Maxed)
Main(unbanned):
Tank staker (unbanned Maxed)
TehNeonFishy
2012-06-24 02:28:23
AutoSoulWars and AutoSlayer were so good. Just I shame I didn't manage to get 99 slayer before it went down. -.-
FloppyWien3r
2012-06-24 02:29:36
Ahhhhhh I have some 40 hour proggies lying around. I'll find it somewhere…
P1nky
2012-06-24 02:34:29
Haha not going to lie, but it was fun getting mad money by hunting and the garden ;)
FloppyWien3r
2012-06-24 02:42:29
44 hours of advanced gnome, solid :)
Sorry about the image, but yeah thats 2 days at livid farm
No ban ever. O wow…
ZMI 17 minutes off 99 baby…oh the days
NAutres, the list goes on and on…
Im New Sry
2012-06-25 06:11:39
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! :D
Jake
2012-06-25 13:15:34
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
these 2 arent mine (below)
16 Days Soul Wars
11 Days Sorc Garden
Based Lord
2012-06-25 14:43:25
16 days, just doesn't happen anymore :D
Silent
2012-06-25 18:45:36
Wow, those are some crazy long progress reports…
Jake
2012-06-25 19:50:15
Yep, rsbots.net had some hardcore botters :P
koage
2012-06-27 13:25:37
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.
Ashaman88
2012-06-27 13:33:10
From: koage
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.
===========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)
DaWu
2012-07-01 22:52:31
{
[==================================================]
[ 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.
Justin
2012-07-04 06:35:00
Ashaman88
2012-07-04 06:41:55
From: [J]ustin
Loved that one!
But
========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!
[S]paz
2012-07-04 07:07:09
From: ashaman88
Loved that one!
But========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!
The script was running 2 days and 2 hours ;)
Ashaman88
2012-07-04 07:41:14
From: [S]paz
The script was running 2 days and 2 hours ;)
Using new smart, simba and brandons fixes (and barring any failed randoms) that script could get that amount of time as well!
I ner was just saying that Simba has the capabilities to do it now too!
whaevr
2012-07-04 07:52:33
From: DaWu
{
[==================================================]
[ 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.
lmfao I remember using this exact script! Holllyyy shit that was way back in the day!
*saved for nostalgia*
…haha this script has an attachpick function. Most people that play rs now probably havent even seen those days
[S]paz
2012-07-04 07:56:48
From: ashaman88
I ner was just saying that Simba has the capabilities to do it now too!
Thanks Ashman for making me look like a dumbass ;)
From: whaevr
lmfao I remember using this exact script! Holllyyy shit that was way back in the day!
*saved for nostalgia*
…haha this script has an attachpick function. Most people that play rs now probably havent even seen those days
I remember gas from rocks, I could never get my script to detect that gas properly…
That and getting hit on the head whilst mining.
Ashaman88
2012-07-04 08:08:34
From: [S]paz
Thanks Ashman for making me look like a dumbass ;)
Hey you helped out with my altar script, so I call it even!
F33NY
2012-07-04 08:42:25
Had a 72hr on my old comp of AutoSoulWars, 100+ on Sorc Garden. Got my first ever 99 with that script :).
Actually registered on villavu originally (2007) a few days before I became an rscheata(rsbots.net) regular. You can instantly tell the difference in the communities though I must say. With SRL having the better one by far. And the community is why I left RSCA from time to time.
Actually registered on villavu originally (2007) a few days before I became an rscheata(rsbots.net) regular. You can instantly tell the difference in the communities though I must say. With SRL having the better one by far. And the community is why I left RSCA from time to time.
Jake
2012-07-04 10:23:24
Yeah I got 99 RC with slades runecrafter, 60-99 via zmi and natures, ah I miss the proft back then
Failedpure
2012-07-05 23:07:00
Terrible xp but 2.7 days lol. My computer is a whole lot happier now that I don't do that anymore:p
[XoL]
2012-07-06 11:07:59
Good times,
1 day, and 10 hours.
1 day, and 10 hours.
mynameisjoe
2012-07-06 12:11:33
From: DaWu
{
[==================================================]
[ 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.
Stupid3ooo, what a guy.
Used the powerminer for levels, and this for coal :staycool:
Luke L
2012-07-09 10:14:34
Oh boy oh boy…
I have some pretty crazy profiles, definitely had some of the best times on that site. I maxed 9 maulers with extras like 99 RC, etc etc.
That site saw birth of the greatest maxed mailer ever created :p. I'll post some pics when I'm back from vacation :D
I have some pretty crazy profiles, definitely had some of the best times on that site. I maxed 9 maulers with extras like 99 RC, etc etc.
That site saw birth of the greatest maxed mailer ever created :p. I'll post some pics when I'm back from vacation :D
Stray Bullets
2012-07-09 10:32:06
Since everyone's posting old proggies, just some ones I had sitting in my photobucket :P
Benny
2012-07-09 10:51:12
That's all nuts. I never ran for more than 18hours…
Avoiding the ban hammer ha
Avoiding the ban hammer ha
Jake
2012-07-10 17:02:53
From: -Benny
That's all nuts. I never ran for more than 18hours…
Avoiding the ban hammer ha
noob! Just kidding <3
But i respect you and understand where you're coming from.
Bennigan
2012-07-10 20:15:06
Had some good times before the bot nuke, used idung to 88 dungeoneering, than botted frosts and I managed to get 2 visages in one proggy. At first I could get a solid 1.5mil/hr for bones, but it slowly dropped due to overpopulation.
Brotein
2012-07-10 20:39:35
Almost 6 day proggy here, had to suicide it because it went from beta to paid, and if I stopped the bot the auth would of been removed. Could of probably ran that one 2 weeks straight.
How I got max combat, ran autosoulwars pro 24/7 last summer.
When I was getting turmoil.
How I got max combat, ran autosoulwars pro 24/7 last summer.
When I was getting turmoil.
Benny
2012-07-10 20:46:58
From: Jakee
noob! Just kidding <3
But i respect you and understand where you're coming from.
yeah it's not worth losing my account from '04
Jake
2012-07-11 02:03:55
From: -Benny
yeah it's not worth losing my account from '04
Nice :)
2006 here :P
@Brotein, wow, i wish i purchased auto sw pro, I was moe focused on botting skills instead of combat :P
Megahit
2012-07-11 10:56:30
Yea those were good times.
All those auths, nothing to do with them anymore :(
All those auths, nothing to do with them anymore :(
NKN
2012-07-11 12:31:47
Man, I had so many of those autos, 70+, all cracked, too. :D
Got me to around 95 mining, 70 slayer, and 100+ combat.
They had some pretty good bots, can't lie there. xD
Got me to around 95 mining, 70 slayer, and 100+ combat.
They had some pretty good bots, can't lie there. xD
Jake
2012-07-11 19:03:45
From: Megahit
Yea those were good times.
All those auths, nothing to do with them anymore :(
Wow O.O
Thats alot of runecrafters, soul war'ers and fighters
Jim
2012-07-11 19:13:52
From: Megahit
Yea those were good times.
All those auths, nothing to do with them anymore :(
Whoa, did you buy all those or was there a way to get them free?
Brotein
2012-07-12 01:39:21
F***jagex had a lot of auth dumps. There were also neXus authpanel dumps back in the day, which didn't get banned up until about 3 months before the nuke. I used to sell the soulwar bots on sites for 2m an auth, I had thousands in the panel.
Megahit
2012-07-14 15:40:39
From: Liimujx
Whoa, did you buy all those or was there a way to get them free?
Didn't buy any of them, but none got banned.
Jake
2012-07-14 16:29:34
From: Megahit
Didn't buy any of them, but none got banned.
You're so lucky. That auth limit thing pissed me off
Chen Monopoly
2012-07-22 22:33:41
iBot really brings back some memories..
Wetish
2012-08-25 03:50:49
These progress reports bring back great memories. Sadly I do not have any picture to share but I do have some of my old auth codes. I miss nexus.
71xz5SU57PPKD6JVF
435xz652RPYF5YU83V
1184xz1L319W8M72PDK
106xz75KDYEGPL3M3A
129xz2QM8AWHVQSNJG
581xz383RRDTQA0KMB
1192xz3B0QK61742HSE
129xz3WRAV7WDFCJPC
71xz5SU57PPKD6JVF
435xz652RPYF5YU83V
1184xz1L319W8M72PDK
106xz75KDYEGPL3M3A
129xz2QM8AWHVQSNJG
581xz383RRDTQA0KMB
1192xz3B0QK61742HSE
129xz3WRAV7WDFCJPC
Sneakily
2012-08-27 00:57:43
Got 99 mage with only this bot. 
and 99 Fish with that.
Wyn
2012-08-28 16:25:18
From: DaWu
{
[==================================================]
[ 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.
The good ol' days.
Valeyard
2012-08-29 23:12:55
iDun isn't exactly old but I used to run that for loooooong periods of time I will try and dig out some proggies and stuff and I'll edit this later
Jake
2012-09-14 13:13:40
From: Sneakily
Ah.. Phil[tomrstamp], that guy was one of the few amazing developers from rsb, along with Slade and Meth :)
Leonardo Da Vinci
2012-09-14 13:24:42
Isn't there a iDungeon script on there now?
I don't think I'd ever actually use any bots from there, though…
I don't think I'd ever actually use any bots from there, though…
Stray Bullets
2012-09-14 13:27:56
From: Leonardo Da Vinci
Isn't there a iDungeon script on there now?
On Powerbot, yes. Much of this thread is about Nexus though. Anyways, the new iDung is fine, although there are some ridiculous restrictions with the Powerbot client, and SDN itself. 85-102 dung with it thus far.
satkan
2012-09-14 13:44:38
From: -Benny
yeah it's not worth losing my account from '04
I'm also from '04! D:
Leonardo Da Vinci
2012-09-14 13:50:50
From: Stray Bullets
On Powerbot, yes. Much of this thread is about Nexus though. Anyways, the new iDung is fine, although there are some ridiculous restrictions with the Powerbot client, and SDN itself. 85-102 dung with it thus far.
Ahh okay, I didn't even know about that one.
feh55
2012-09-24 08:40:13
I miss the Soul Wars Bot. Have not been to SW since rsbots.net went down. And the AutoMiner.. Ah.. Good times..
Sogalishis
2012-10-02 13:51:49
awww this is sad loved perfs scrips and rsbot gotta say i reall ymiss those days
Jake
2012-10-02 17:21:21
From: Sogalishis
awww this is sad loved perfs scrips and rsbot gotta say i reall ymiss those days
Same feeling here bro :(
C3NTRIX5
2012-10-10 21:40:06
I've got a 5 day 12 hour SW proggy :P
The days when my computers each ran 25 Nexus Bots… and now they can only run 6 Simba clients :P
The days when my computers each ran 25 Nexus Bots… and now they can only run 6 Simba clients :P
Sean
2012-10-10 21:49:10
Kminer was the best site.. Rsbots.net sold it for 10$ more but kevin sold it for 10 off his site.
tristen8878
2012-10-11 12:43:01
Miss these days got me 99 fletch and strength
MasterXehanort
2013-01-04 11:29:19
From: lilcmp1
Is that a clue scroll solver? O_o
The Dev in charge was working on collecting level 2 scrolls from pyrfiends and level 3 scrolls from dwarf traders right before the nuke. Cash per hour would have been crazy D:
Jake
2013-01-04 15:18:30
From: MMOE
The Dev in charge was working on collecting level 2 scrolls from pyrfiends and level 3 scrolls from dwarf traders right before the nuke. Cash per hour would have been crazy D:
Feels good to know that more and more people have used rsbots.net and is still here :')
Meth was a funny, and awesome developer