lawrencese
2007-01-18 19:19:25
Below is the script I need help with. I bought it and it doesn't work. It mines a full load of coal, and just keeps clicking it will not walk to bank. Can you please help me fix this.I know its probably old and useless, but is there any way you can update it or fix it? I have been trying ot get a working iron miner + banker and can't find one anywhere!
////////////////////////////////////////////////////
// Iron Miner & Banker 3.00 By:Lillunatic //
// //
////////////////////////////////////////////////////
//Setup: //
// ·Need Scar version 1.13 //
// ·High Details, V-Bright, Highest angle of view //
// ·Map pointing north //
// ·Pickaxe in the first bankslot //
// ·Take minimap colors //
// ·Mine at Varrock southeast or falador south //
////////////////////////////////////////////////////
//Other info: //
// ·Credits to RsCheatNet community! //
// ·Walking procedure supports map rotation. //
// ·If using WAAMP for talking NPC's and for //
// attacking NPC's if in falador //
////////////////////////////////////////////////////
program IronMinerBanker;
procedure CheckCommunication;
var
cont:boolean;
begin
cont:=true;
if (ReadInterSCARMessage('WAAMP')=('SCRIPT:PAUSE')) then
begin
wait(10)
SendInterScarMessage('WAAMP','SCRIPT:PAUSE:OK');
repeat
wait(50)
if (cont) then writeln('Paused By WAAMP. Waiting for WAAMP to continue…');
if (ReadInterSCARMessage('WAAMP')=('SCRIPT:RUN')) then cont:=true else cont:=false;
until (cont);
end;
end;
procedure PauseWAAMPScript;
var
cont:boolean;
begin
writeln('Pausing WAAMP script…');
SendInterScarMessage('WAAMP','WAAMP:PAUSE');
sleep(50)
repeat
if (ReadInterSCARMessage('WAAMP')=('WAAMP:PAUSE:OK')) then cont:=true else cont:=false;
sleep(100)
until (cont)
writeln('WAAMP has been paused, main script will now continue…');
end;
procedure UnPauseWAAMPScript;
begin
writeln('un-pausing WAAMP script');
SendInterScarMessage('WAAMP','WAAMP:RUN');
sleep(50)
end;
procedure Send(UserName,Password,str1,str2,str3,str4,str5,st r6,str7,str8,str9,str10:string);
var
count:integer;
cont:boolean;
massage:string;
begin
writeln('WaG scripting Sending and Reciveing');
writeln(' Concept by: Wallfire');
writeln(' Uber l33t Coding bY:');
writeln(' GenoDemoN');
writeln(' Made in a mear 47 minutes!');
SendInterSCARMessage('COMM2WAAMP', 'CLEAR');
SendInterSCARMessage('SHARE', 'CLEAR');
SendInterSCARMessage('COMM2MAIN', 'CLEAR');
wait(500);
repeat (* Only Clean Code GenoDemoN ever MADE!*)
sleep(10)
status('synching up…');
sleep(50)
cont:=false;
if ( ReadInterSCARMessage('COMM2MAIN')='READY' ) then
begin
writeln('ready')
SendInterSCARMessage('COMM2WAAMP','OK')
cont:=true
end;
until (cont)
sleep(2000)
count:=0;
repeat
count:=count+1;
IF (count>strtoint(ReadInterSCARMessage('Recivedd'))+ 1) and (count>1) then
count:=strtoint(ReadInterSCARMessage('Recivedd'))+ 1;
IF (count>12) then count:=1;
case count of
1:massage:=UserName;
2:massage:=Password;
3:massage:=str1;
4:massage:=str2; (* Only Clean Code GenoDemoN ever MADE!*)
5:massage:=str3;
6:massage:=str4;
7:massage:=str5;
8:massage:=str6;
9:massage:=str7;
10:massage:=str8;
11:massage:=str9;
12:massage:=str10;
end;
writeln('Sending packet #'+inttostr(count)+' Consists of:'+massage);
SendInterSCARMessage('COMM2WAAMP',inttostr(count)) ;
SendInterSCARMessage('SHARE',massage);
wait(1000);
repeat (* Only Clean Code GenoDemoN ever MADE!*)
wait(150);
until(ReadInterSCARMessage('Recived')='Yes')
until (ReadInterSCARMessage('COMM2MAIN')='DONE')
SendInterSCARMessage('SHARE','OK')
end;
var
a,b,c,d,l,p,x,y,m,n,flag,Talk,TalkY,box,trips,pick s,runs,talked,ore,Mine,MineY,Take,TakeY, RandomBox,boxcount,
rcmQuickBank,rcmQuickBankY,InBank,rcmStoreAll,rcmS toreAllY,Login,Yellowtext,FindingPick,gas,Pickmode ,ilamp,lamps,
PickAxe,PickAxeSteel,PickHead,PickHandle,Attached, drop,orebmp,hc1,hc2,hc3,hc4,hc5: Integer;
ST: LongInt;
Loged,Fight,swinging,ColorsFound,fixed:boolean;
const
{=================Setup================}
username = ''; //Enter Your Username
password = ''; //Enter Your Password
UseWAAMP = True; //use WAAMP over built in random event protection?
Town = 2; //1 to start in falador anything else to start at varrock
Pick = 2; //1 if you can't wield pickaxe 2 if you can
FindGaser = True; //Allows the script to look for steaming rocks but can slow down minning
PickFindCount = 20; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
Pickup = false; //Pick up ore other people have dropped or not?
Leftclick = True; // leftclick on the rocks when mining?
Screenshot = false; //Take screenshots of random events?
Screendir = ''; //Folder to take screenshots in, Make sure this folder exists in the scripts folder of you will get errors leave blank to take them in scripts folder
Tolerance = 0; //Tolerance to find the colors on the minimap, leave at 0!
{===========From Game Screen===========}
Ore1 = 2437970; //Rocks Colors
Ore2 = 1844542; //Rocks Colors
Ore3 = 2305871; //Rocks Colors
{=============From MiniMap=============}
banklogo = 3060683; //Minimaps banklogo color
roadcolor = 5592411; //Minimaps Roads color
miningspot = 15160927; //Minimaps Pick Head color
{===============End Setup==============}
Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:Lo ngInt; Time:String;
begin
if(Not Loged)then
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60; RHours:=Minutes
div 60; Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/trips;
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
If (Town = 1) then begin writeln('—–Progress Report for Ironmining at Falador—–');
end else writeln('—–Progress Report for Ironmining at Varrock—–');
writeln('Worked for '+Time);
If (UseWAAMP = True)and(not(town = 1))then writeln('Ran away from random events '+inttostr(runs)+' Time');
If (UseWAAMP = False)then writeln('Ran away from random events '+inttostr(runs)+' Time');
If (UseWAAMP = False)then writeln('Talked to random events '+inttostr(talked)+' time');
If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time');
If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time');
writeln('New Pick Taken '+inttostr(Picks)+' Time');
writeln('Fixed lamp '+inttostr(lamps)+' Time');
writeln('Mined '+inttostr(trips)+' Time '+inttostr(trips*(26+p))+' Iron Ores');
writeln('Gained '+inttostr(trips*35*(26+p))+' mining Experience');
writeln('Currently Averaging '+inttostr(3600/avtime*(26+p))+' Iron Ores and '+inttostr(3600/avtime*35*(26+p))+' Experience an Hour');
end;
end;
end;
procedure FindTextSpiral(txt: String; dx,dy: Integer; SpiralSize: Integer; step, SpiralWait: Integer); // By OhDearUrDead, MakeOver 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
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 GetScreenShot(reason:string; event:Integer);
var
x : string;
begin
if(screenshot)then
begin
x:=inttostr(Event)
SaveScreenshot(apppath+'Scripts\'+Screendir+'\Scre enCaptureFor'+reason+inttostr(strtoint((copy(x,len gth(x),1))))+'.bmp');
writeln('ScreenCaptureFor'+reason+inttostr(strtoin t((copy(x,length(x),1))))+'.bmp');
end;
end;
procedure sendkeysmooth(str:string);
var x:integer;
begin
repeat
x := x+1;
wait(10+random(200));
sendkeyssilent(copy(str,x,1));
until x > length(str)
end;
Procedure ClickMouseHuman(x,y,rx,ry: integer; left:boolean);
begin
x:=x+random(rx);
y:=y+random(ry);
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
MoveMouseSmoothEx(x,y,1,6,15,20,20);
wait(50+random(50))
holdmouse(x,y,left)
wait(5+random(80))
releasemouse(x,y,left)
wait(100+random(100))
end
end;
procedure ChatFix; //By Joolz
begin
if(not(GetColor(46,488)=255))then
begin
Status('Setting Public chat off…')
repeat
clickmousehuman(48,485,15,5,true);
Wait(400+random(200));
until((GetColor(46,488)=255));
end;
if(not(GetColor(175,488)=255))then
begin
Status('Setting Private chat off…')
repeat
clickmousehuman(175,485,15,5,true);
Wait(400+random(200));
until((GetColor(175,488)=255));
end;
if(not(GetColor(315,488)=255))then
begin
Status('Setting Trade/Duel off…')
repeat
clickmousehuman(315,485,15,5,true);
Wait(400+random(200));
until((GetColor(315,488)=255));
end;
Writeln('ChatFixing done!');
end;
procedure Checkloginscreen;
begin
if(FindBitmap(Login,x,y))then
begin
p:=0;
status('closing welcome box');
repeat
Wait(400+random(100));
ClickMouse(x+200,y-3,True);
Wait(500);
p:=p+1;
until(not(FindBitmap(LogIn,x,y))or(p>=3));
end;
end;
procedure LoginIfNeeded; //BumisD2YK4L's RS2 Login modified by Aton then by chriz
var o,p:integer;
begin
if(Not Loged)then
begin
Checkloginscreen;
if((GetColor(400,130)=1842201)and(GetColor(354,120 )=1842201))then
begin
repeat
Status('Trying to Loggin…')
Wait(100+random(50));
ClickMouseHuman(395,275,130,30,true);
Wait(1000+random(100));
if((Getcolor(279,220)=65535)and(GetColor(287,320)= 16777215))then
begin
ClickMouseHuman(370,253,40,5,true);
Wait(400+random(150));
sendkeysmooth(username);
Wait(400+random(150));
sendkeysmooth(chr(13));
Wait(400+random(150));
sendkeysmooth(password);
Wait(400+random(150));
if(GetColor(287,320)=16777215)then
begin
o:=0;
repeat
o:=o+1;
wait(100+random(10));
ClickMouseHuman(240,305,120,30,true);
Wait(2700+random(500));
until(Not (GetColor(287,320)=16777215))or(o=20+random(5));
if(o>=20)then
begin
p:=p+1;
if(p>=20)then break;
end;
if(not(o>=20))then
repeat
Wait(400+random(100));
until(FindBitmap(Login,x,y));
if(FindBitmap(Login,x,y))and(not(o>=20))then
repeat
Wait(400+random(100));
ClickMouseHuman(x+200,y-3,10,3,true);
Wait(500);
until(not FindBitmap(LogIn,x,y))or(p>=3);
end;
end;
until(not(GetColor(352,120)=1842201));
if(p>=20)then
begin
p:=0;
Writeln('Log in Failed');
Loged:=True
end
end
end;
end;
Procedure LogOut(why:string);
begin
Writeln(' ');
Writeln(why);
Writeln(' ');
Wait(100+random(10));
Loged:=true;
ClickMouseHuman(635,470,25,20,true);
Wait(100+random(10));
c:=0;
repeat
c:=c+1
ClickMouseHuman(586,370,119,10,true);
Wait(250+random(100));
until(GetColor(400,130)=1842201)and(GetColor(354,1 20)=1842201)or(c=15);
end;
procedure SetRunOff;
begin
Wait(50+random(50));
ClickMouseHuman(700,470,17,20,true);
Wait(100+random(50));
ClickMouseHuman(565,255,25,20,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
Wait(100+random(50));
end;
procedure SetRunOn;
begin
Wait(50+random(50));
ClickMouseHuman(705,470,17,20,true);
Wait(100+random(100));
ClickMouseHuman(610,252,25,25,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
Wait(100+random(50));
end;
Procedure MapFlag;
begin
Wait(200);
M:=0;
if(FindBitmapIn(flag,x,y,570,5,725,162))then
begin
repeat
wait(500);
M:=M+1;
until(FindBitmapIn(flag,x,y,633,64,665,90))and
(not(GetColor(200,148)=16777215))or
(not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
Wait(100);
end;
end;
procedure TakePickaxe;
begin
ClickMouseHuman(575,218,20,20,true);
Wait(400+random(150));
ClickMouseHuman(84,64,20,20,true);
Wait(500+random(150));
n:=0;
Picks:=Picks+1;
end;
Procedure TakeOff;
begin
if (PickMode=2) then
begin
ClickMouseHuman(674,174,20,20,true);
Wait(100+random(50));
ClickMouseHuman(580,290,20,20,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
wait(400+random(50));
end;
end;
Procedure PutOn;
begin
if (PickMode=2) then
begin
if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
Wait(50+random(50));
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,7 45,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,19 8,745,468,100))then
ClickMouseHuman(x,y,20,20,true);
Wait(3000+random(50));
If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
begin
Writeln('Cannot Equip that pick, switching pick mode')
Pickmode:=1
end
end;
end;
//=============================Anti Random Events=============================\\
procedure FindPickHeadColor(f:Boolean);
begin
if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,1 98,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,54 6,198,745,468,100)))then
begin
Clickmousehuman(675,175,15,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,1 98,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,54 6,198,745,468,100)))then
begin
If (f = True) Then
begin
writeln('');
writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
writeln('');
ColorsFound:=False;
end else
Logout('No Picks Left');
end;
end;
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,7 45,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,19 8,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);
ColorsFound:=True;
if not (getcolor(633,177)=2829182)then Clickmousehuman(635,175,20,25,true);
end;
end;
procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
begin
Clickmousehuman(x,y,1,1,true);
MapFlag;
Wait(5000+random(100));
FindTextSpiral('Take',240,180,50,5,10+random(10));
GetMousePos(x,y);
Clickmousehuman(x,y,0,0,true);
Wait(1000+random(100));
end;
end;
procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Status('Random Event Found');
Fight:=True;
GetScreenShot('RunFromFight',Runs);
Runs:=Runs+1;
SetRunOn;
Wait(50+random(10));
ClickMouseHuman(680,60,5,5,true);
Wait(100);
Mapflag;
Wait(10000+random(1000));
if(FindColorSpiralTolerance(x,y,miningspot,577,22, 746,164,Tolerance))Then
begin
ClickMousehuman(x,y,5,5,True);
MapFlag;
If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
end else
ClickMouseHuman(615,110,5,5,true);
Wait(100);
MapFlag;
SetRunOff;
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
Clickmousehuman(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(200)
if (FindColor(x,y,65535,0,0,515,338))then
begin
GetScreenShot('YellowtextFound',Yellowtext);
Yellowtext := Yellowtext + 1;
repeat
counter:=counter+2+random(1);
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15, 20,20);
wait(5);
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);
Clickmousehuman(x,y,1,1,false);
Wait(200+random(100));
if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))t hen
begin
Clickmousehuman(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
GetScreenShot('Talked',Talked);
Talked:=Talked+1
TalkToRand;
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
GetScreenShot('FixingPick',Attached);
Attached:=Attached+1
Clickmousehuman(x,y,5,5,true);
Wait(1000+random(100));
end;
if(FindBitmapSpiralTolerance(PickHandle,x,y,550,20 0,745,465,50))then
begin
clickmousehuman(x,y,5,5,true);
Wait(1000+random(100));
end;
end else
fixed := false;
end;
procedure FindPick;
var DropCount,Counter:integer;
begin
if((GetColor(387,382)=0)and(GetColor(485,413)=0))t hen
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,74 5,465,100))then
begin
Clickmousehuman(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Clickmousehuman(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);
Clickmousehuman(683,184,5,5,true);
wait(500+random(100));
Clickmousehuman(591,303,5,5,true);
wait(500+random(100));
Clickmousehuman(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200, 745,465,50))then
break;
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 Clickmousehuman(x,y,2,2,true);MapFlag;Wait(5000);e nd else itemgrab;
end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTo lerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;
procedure FindGas(findx,findy:integer); //By Stupid3ooo
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
if(FindGaser=true)then
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
begin
repeat
counter:=counter+1
begin
ClientCanvas:= GetClientCanvas;
bmap:= BitmapFromString(32,32,'');
BMapCanvas:= GetBitmapCanvas(bmap);
CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
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');
GetScreenShot('Gas',gas);
SetRunOn;
Gas:=Gas+1;
Wait(10000+random(2000));//Put thing you wanna do after gas here
FindGas(findx,findy);
break;
end;
until(counter>=10);
end;
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100))do
begin
Clickmousehuman(x,y,10,10,true);
wait(3000+random(1000));
Clickmousehuman(157,220,12,12,true)
wait(3000+random(1000));
Clickmousehuman(248,255,10,2,true);
wait(3000+random(1000));
Clickmousehuman(226,442,10,3,true);
wait(3000+random(1000));
Lamps:=Lamps+1;
end;
end;
procedure FindBox;
var f: integer;
begin
If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200 ,745,465,100))then
begin
ClickMousehuman(x,y,10,10,true);
wait(5000+random(5000));
GetScreenShot('Box',boxcount);
Boxcount := boxcount+1;
Writeln('Box Found');
f:=1+Random(3);
case f of
1: ClickMousehuman(130,290,40,20,true);
2: ClickMousehuman(255,290,40,20,true);
3: ClickMousehuman(365,290,40,20,true);
end;
wait(5000+random(5000));
If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200 ,745,465,100))then
Logout('Box Failed'+inttostr(f))
end;
end;
Procedure FindRandoms;
begin
if(Not Loged)then
begin
if(UseWAAMP=true)then
begin
If (not (town = 1))then findfight;
CheckCommunication;
end else
begin
LoginIfNeeded;
FindFight;
FindText;
FindBox;
FindLamp;
end;
end;
end;
Procedure PauseWaamp;
begin
for d := 1 to 5 do
begin
status('Doing a mass wait for WAAMP '+inttostr(d)+'/5');
CheckCommunication;
wait(1000);
end
PauseWAAMPScript;
end;
//================================================== ==========================\\
procedure Deposit;
begin
repeat
repeat
wait(121+random(65))
if(findColorSpiral(x,y,65536,565,250,730,460))and( PickMode=1)or
(FindColorSpiral(x,y,65536,611,215,730,245))and(Pi ckMode=1)or
(findColorSpiral(x,y,65536,570,235,745,485))and(Pi ckMode=2)then
begin
c:=c+1;
ClickMousehuman(x-5,y,5,5,False);
wait(227+random(33));
end;
if (FindBitmapIn(rcmStoreAllY,x,y,560,215,730,460))or
(FindBitmapIn(rcmStoreAll,x,y,560,215,730,460))the n
begin
c:=0;
ClickMousehuman(x,y,60,8,true);
wait(1046+random(42));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,46 0)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))a nd(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))a nd(PickMode=2)or (c>4)
if(c>4)then
begin
c:=0;
wait(121+random(65))
MoveMouseSmooth(573+random(10),189+random(10));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,46 0)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))a nd(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))a nd(PickMode=2)or (c>4)
end;
procedure CloseBank;
begin
ClickMousehuman(425,37,50,5,true);
wait(1565+random(65));
end;
Procedure Banking; //Made By Khain modified by Chriz
begin
if(Not Loged)then
begin
Status('Banking…')
repeat
repeat
begin
repeat
Wait(15+random(10));
while(not(IsTextAt2(9,9,'Use Bank booth', 100)))do
begin
LoginIfNeeded;
FindTextSpiral('Use Bank booth',240,200,110,20,100);
Wait(15+random(10));
If (Not(IsTextAt2(9,9,'Use Bank booth', 100)))then
begin
if(FindColorSpiralTolerance(x,y,banklogo,575,8,710 ,135,Tolerance))Then
begin
Status('Going In Bank')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(300)
end;
end;
end;
until (IsTextAt2(9,9,'Use Bank booth', 100))
or(findbitmap(InBank,x,y))
end;
ClickMousehuman(x,y,0,0,False);
wait(229+random(214));
until(FindBitMap(rcmQuickBank,x,y))or(FindBitMap(r cmQuickBanky,x,y))or(findbitmap(InBank,a,b))
wait(237+random(221));
ClickMousehuman(x,y,60,8,true);
c:=0;
repeat
c:=c+1;
wait(895+random(526));
until(c>5)or(findbitmap(InBank,x,y))
if(findbitmap(InBank,x,y))then Break;
until(findbitmap(InBank,x,y));
If(n=1)then
begin
TakePickaxe;
end else
Deposit;
CloseBank;
end;
end;
procedure ToRocksVarrock;
begin
Loginifneeded;
L:=0;
c:=0;
if(FindColorSpiralTolerance(x,y,banklogo,575,70,73 0,135,Tolerance))Then
begin
SetRunOn;
Wait(100)
Status('Going Out of bank');
ClickMousehuman(x+21,y-26,5,5,True)
MapFlag;
c:=1
end;
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,25,6 92,120,Tolerance))Then
begin
c:=c+1;
Status('Going Out Varrock '+inttostr©+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,585,1 08,710,110,Tolerance))and(c>2)or(L>30);
c:=1;
L:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,108, 710,110,Tolerance))Then
begin
Status('Going To Rocks '+inttostr©+'/9');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,miningspot,574, 8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('To center')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end;
If(L>30)then
begin
LogOut('Lost To Rocks Varrock')
end;
end;
procedure ToBankVarrock;
begin
Loginifneeded;
c:=0;
L:=0;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('Out of Mines')
ClickMousehuman(x+30,y-35,5,5,True)
MapFlag;
c:=1
end;
Loginifneeded;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,595,32,7 00,34,Tolerance))Then
begin
Status('Going To Varrock '+inttostr©+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,3 0,607,120,Tolerance))and(c>4)or(L>30)
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,6 07,120,Tolerance))Then
begin
Status('Going To Bank '+inttostr©+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,banklogo,575,60 ,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
If(FindColorSpiralTolerance(x,y,banklogo,575,60,71 0,135,Tolerance))Then
begin
Status('Going In Bank')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(7000)
end;
If(L>30)then
begin
LogOut('Lost To Bank Varrock')
end
Banking;
end;
procedure ToRocksFalador;
begin
Loginifneeded;
L:=0;
c:=0;
if(FindColorSpiralTolerance(x,y,banklogo,575,70,73 0,135,Tolerance))Then
begin
SetRunOn;
Wait(100)
Status('Going Out of bank');
ClickMousehuman(x-30,y+20,5,5,True)
MapFlag;
Wait(200)
c:=1
end;
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,120, 710,122,Tolerance))Then
begin
c:=c+1;
Status('Going South '+inttostr©+'/8');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(200)
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,3 0,607,120,Tolerance))and(c>7)or(L>30);
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,6 07,120,Tolerance))Then
begin
Status('Going West '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,roadcolor,585,1 15,710,117,Tolerance))and(c>2)or(L>30)
c:=0;
L:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,115, 710,117,Tolerance))Then
begin
c:=c+1;
Status('Going south '+inttostr©+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(c>=2);
L:=0;
repeat
begin
c:=c+1;
Status('Going south '+inttostr©+'/4');
wait(50)
ClickMousehuman(650,125,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,miningspot,574, 8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('To iron')
wait(50)
ClickMousehuman(x-15,y-15,10,10,True)
MapFlag;
end;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Wait(200)
ClickMousehuman(x-31,y,5,5,True)
MapFlag;
end;
If(L>30)then
begin
LogOut('Lost To Rocks Falador')
end;
end;
procedure ToBankFalador;
begin
Loginifneeded;
c:=0;
L:=0;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('Out of Mines')
ClickMousehuman(x-15,y-15,10,10,True)
MapFlag;
end
Loginifneeded;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
c:=1
Loginifneeded;
Status('Going north '+inttostr©+'/2');
wait(50)
ClickMousehuman(x-15,y-60,5,5,True)
MapFlag;
end
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,615,32,7 00,34,Tolerance))Then
begin
c:=c+1;
Status('Going north '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,690,4 0,692,120,Tolerance))and(c>1)or(c>4)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,40,6 92,120,Tolerance))Then
begin
c:=c+1;
Status('Going East '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,595,3 5,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,595,35,6 90,37,Tolerance))Then
begin
c:=c+1;
Status('Going North '+inttostr©+'/6');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,banklogo,574,45 ,722,160,Tolerance))and(c>4)or(c>8)or(L>30);
If(FindColorSpiralTolerance(x,y,banklogo,574,35,72 2,160,Tolerance))Then
begin
status('Going In Bank ')
wait(50)
ClickMousehuman(x,y,5,5,True)
Wait(4000)
MapFlag;
end
If(L>30)then
begin
LogOut('Lost To Bank Falador')
end
Banking;
end;
procedure ToBank;
begin
if(Not Loged)then
begin
If(Town=1)then
begin
ToBankFalador;
end else
ToBankVarrock;
end;
end;
procedure ToRocks;
begin
if(Not Loged)then
begin
If(Town=1)then
begin
ToRocksFalador;
end else
ToRocksVarrock;
end;
end;
Procedure SetRandom;
Var color,I:integer;
begin
Color:=1+Random(3);
I:=1+Random(2);
case Color of
1: Begin Ore:=Ore1; end;
2: Begin Ore:=Ore2; end;
3: Begin Ore:=Ore3; end;
end;
Case I of
1: Begin x:= 275+random(15); y:=180+random(15); I:=I+1; end;
2: Begin x:= 300-random(15); y:=195-random(15); I:=1;end;
end;
end;
procedure DoMining;
var ox,oy: integer;
begin
if(Not Loged)then
begin
L:= 0;
c:= 0;
repeat
swinging:=True;
Wait(250+random(600));
c:=0;
L:= L+1;
LoginIfNeeded;
FindRandoms;
SetRandom;
Status('Mining Iron');
If(FindColorSpiralTolerance(ox,oy,ore,x-270,y-175,x+270,y+175,5))Then
begin
FindGas(ox,oy);
Wait(50)
ox:=ox+random(3);
oy:=oy+random(3);
MoveMouseSmoothEx(ox,oy,1,6,15,20,20);
Wait(200+random(50));
If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))then
begin
Wait(50+random(50));
ClickMousehuman(ox,oy,0,0,Leftclick);
Wait(80+random(50));
If(FindBitmap(Mine,x,y))and(Leftclick=False)or(Fin dBitmap(MineY,x,y))and(Leftclick=False)or
(FindBitmap(Take,x,y))and(Leftclick=False)or(FindB itmap(TakeY,x,y))and(Leftclick=False)then
begin
If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))t hen swinging:=False;
ClickMouseHuman(x,y,60,10,true)
Wait(100);
Mapflag;
end else
If (Leftclick=False) then
begin
MoveMouseSmoothEx(400+Random(200),60+Random(200),1 ,6,15,20,20);
Wait(100+random(10))
end;
wait(1000+random(500));
If (Swinging=true) then
if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
begin
L:=0;
Repeat
C:= c+1;
Wait(100+random(20));
if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy); end;
Until(not ((GetColor(109,429)=0)and(GetColor(84,428)=0)))or( c>=30);
if(c>=30)then DoMining;
end;
end;
end;
until(L>30)or(GetColor(97,394)=0)and(getColor(423, 397)=0)or(getColor(486,413)=0)or(GetColor(30,418)= 0)and(GetColor(72,429)=0);
if(getColor(486,413)=0)then
begin
if(PickFindCount>0)then
FindPick;
if fixed = False then
begin
Fixed := True
n:= 1;
Writeln('Going For New Pickaxe');
Wait(100);
TakeOff;
if (UseWaamp = true) then PauseWaamp;
ToBank;
PutOn;
FindPickHeadColor(False);
ToRocks;
if (UseWaamp = true) then UnPauseWAAMPScript;
DoMining;
end;
end;
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
LogOut('You are dead!');
end;
If(L>30)then
begin
if(FindColorSpiralTolerance(x,y,miningspot,577,22, 746,164,Tolerance))Then
begin
Status('To center')
If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
If(not (Town=1))then ClickMousehuman(x,y,5,5,True);
MapFlag;
Wait(300)
end;
DoMining;
end;
End;
procedure BitMaps;
begin
Box := BitmapFromString(6, 3,
'0000000000005D54475D54470000000000000000000000005 D5447' +
'5D54470000000000000000000000005D54475D54470000000 00000' +
'');
Talk := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' );
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF000000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' );
Mine := BitmapFromString(14, 12,
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFF000000000000000000000000000000000000FFFFFFF FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'000000000000000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000000000000000FFFF00FFFF000000000000000000000 00000' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00000000000000000000000000000000000000FFFF00F FFF00' +
'FFFF00000000000000FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00F FFF00' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000FFFF00FFFF00000000FFFF00FFFF000000000 00000' +
'000000000000000000000000FFFF00FFFF000000000000000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475 D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF90400000000 00000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFF FFFFF' +
'0000000000005D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FF9040F F9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447F F9040' +
'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005 D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF90400 00000' +
'5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475 D5447' +
'FFFFFFFFFFFF0000000000000000000000005D54475D54475 D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040F F9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447F F9040' +
'FF9040');
TakeY := BitmapFromString(43, 4,
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF000 00000' +
'000000FFFF00FFFF005D54475D54475D54475D54475D54475 D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF90400000000 00000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447F FFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00F FFF00' +
'0000000000005D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FF9040F F9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447F F9040' +
'FF90400000005D5447FF9040FF9040FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005 D5447' +
'5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005 D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF90400 00000' +
'5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475 D5447' +
'FFFF00FFFF000000000000000000000000005D54475D54475 D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040F F9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447F F9040' +
'FF9040');
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
'FF981FFF981FFF981F0000000000000000000000000000000 00000' +
'000000FF981FFF981FFF981FFF981FFF981F0000000000000 00000' +
'000000FF981FFF981FFF981FFF981F000000000000000000F F981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FF F981F' +
'000000FF981FFF981F0000000000000000000000000000000 00000' +
'000000FF981FFF981FFF981FFF981F0000000000000000000 00000' +
'FF981FFF981F0000000000000000000000000000000000000 00000' +
'000000FF981FFF981F000000FF981FFF981F0000000000000 00000' +
'FF981FFF981F000000000000FF981FFF981F0000000000000 00000' +
'FF981FFF981F000000000000000000000000000000000000F F981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FF F981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FF F981F' +
'000000000000000000000000000000000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000000000000000FF981FF F981F' +
'000000000000000000000000000000000000000000000000F F981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000');
rcmQuickBank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF0 00000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'');
rcmQuickBankY := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00F FFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF000000000000000000000000000 00000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000000000FFFF00FFFF00FFFF000000000000000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF0000000000000000000 0FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF0 00000' +
'00000000FFFF00FFFF000000000000');
rcmStoreAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475 D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00F FFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00F FFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF000000000 00000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475 D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447F FFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00F FFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' );
rcmStoreAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475 D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFF FFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF0 00000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFF FFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447F FFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFF FFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5 D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Login := BitmapFromString(11, 7,
'000000000000FFFF000000000000000000000000000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00FFFF00000000000000FFFF000000000000000 00000' +
'000000FFFF00000000000000000000FFFF00000000FFFF000 00000' +
'000000000000000000FFFF00000000000000000000FFFF000 00000' +
'FFFF00000000000000000000000000FFFF000000000000000 00000' +
'FFFF00000000FFFF00000000000000000000000000FFFF000 00000' +
'000000000000FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000FFFF00FFFF00FFFF00000000');
Drop := BitmapFromString(20, 2,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 F2000' +
'2F20003625003D2900000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'000001000001392D1B44341E4D3B225441270000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D42000001000001392D1B3429183429183 42918' +
'34291834291834291834291834291834291840311E44341E4 D3B22' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B000001000001392D1B392D1B3 92D1B' +
'3429183429183429183429183429183429183429183429181 E1500' +
'271B005441274D3B22000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001392D1B3 92D1B' +
'392D1B392D1B392D1B3429183429183429183429183429183 42918' +
'3429181E1500271B002F2000513E254D3B2248382044341E0 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011E15002F20002F20004D3B224 D3B22' +
'48382044341E40311E44341E000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011E1500271B002 F2000' +
'2F20004D3B224D3B2248382044341E40311E392D1B40311E4 4341E' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1E15002F20002F20002F200000000100000100000144341E4 0311E' +
'392D1B342918392D1B40311E44341E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011E1500271B002F20002F20000000013020203 02020' +
'302020000001000001000001392D1B2F2515342918392D1B0 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011E15002F20002F20000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000012F2515392D1B000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011E15002 F2000' +
'2F20002F2000000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B30202030202000000100000140311E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011E15002F20002F2000000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011E15002F20002F20002F20000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'0000010000015C5656686060756D6C8278780000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D420000010000015953535953535953535 95353' +
'595353595353595353595353595353575151615A596A62627 56D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B0000010000015C56565953535 75151' +
'5751515751515751515751515751515751515751515751511 C1400' +
'251900827878756D6C000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595 F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E5 44E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A62620 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011C14002D1E002D1E007970707 56D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011C14002519002 D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C6 86060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1C14002D1E002D1E002D1E000000010000010000016860606 35D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011C14002519002D1E002D1E000000013020203 02020' +
'302020000001000001000001595353524B4B544E4E5953530 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000014D47465F5858000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002 D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B302020302020000001000001665E5E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002 E1F00' +
'352400000001483E331D14001D1400261A002E1F000000013 02020' +
'0000010000010000010000013020203020203020203020203 02020' +
'302020302020483E33');
Orebmp := BitmapFromString(10, 10,
'856C4B856C4B886E4D8B704F0000010000010000010000014 43827' +
'584731856C4B886E4D0000010000013020203020200000013 82D1E' +
'54442F68543B0000010000013020203020203020200000012 D2518' +
'483B296C573D6F593E302020302020302020544A3C544A3C0 00001' +
'3D31225847316F593E725C40302020544A3C564D41544A3C5 64D41' +
'0000014D3E2B6F593E755E43776044544A3C544A3C564D415 64D41' +
'564D41000001584731725C407760447A6346544A3C544A3C5 64D41' +
'564D41564D41000001655239755E437A6346806748544A3C5 64D41' +
'544A3C544A3C564D410000016F593E7A6346806748886E4D5 44A3C' +
'544A3C544A3C4F4538544A3C544A3C0000010000010000010 00001' +
'564D41564D41564D41544A3C4F4538544A3C564D413020203 02020' +
'302020');
RandomBox := BitmapFromString(14, 12,
'524B4B89883F89883F89883F89883F89883F89883F89883F8 9883F' +
'7169697169697169697169693732327169697169697169697 16969' +
'7169697169697169697169697169697169697169697169693 42E2E' +
'544E4E544E4E544E4E544E4E544E4E7169697169697169697 16969' +
'7169697169692B2929544E4E544E4E6C64646C64646C64646 C6464' +
'6C64646C6464544E4E544E4E544E4E544E4E544E4E544E4E5 44E4E' +
'6C64646C64646C64646C64646C64646C64646C64646C64646 C6464' +
'6C64646C64646C64646C64646C64646C64648D83838D83838 D8383' +
'8D8383544E4E524B4B524B4B524B4B4F48484F48486C64646 C6464' +
'6C64648D83838D83838D83838D83838D83838D83838D83838 D8383' +
'8D83838D83834A44446C64646C64646C64648D83838D83838 D8383' +
'8D83838D83838D83835457BA8D83838D83838D83834A44446 C6464' +
'6C64646C64648D8383BA5B545457BA8D83838D83835457BA5 457BA' +
'8D83838D83838D83834A44446C64646C64646C64648D8383B A5B54' +
'8D83835457BA5457BA5457BA5457BA8D83838D83838D83834 A4444' +
'6C64646C64646C64648D8383BA5B545457BA5457BA5457BA5 457BA' +
'5457BA5457BA5457BA8D83834A44446C64646C64646C64648 D8383' +
'BA5B545457BA5457BA5457BA5457BA5457BA8D83838D83838 D8383' +
'4A44446C64646C64646C64648D8383BA5B54');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' +
'9291128C8A1275740E000001000001000001000001000001D 0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' +
'000001000001C2C118');
end;
begin
BitMaps;
ST:=GetSystemTime;
LoadChars('')
SetMouseMode(False);
trips:=0; talked:=0; runs:=0
Loged:=false; Fixed:=True
Pickmode:=Pick
LoginIfNeeded;
Chatfix;
FindPickHeadColor(true);
if(ColorsFound=true)then
begin
If(FindColorSpiralTolerance(x,y,banklogo,574,8,722 ,160,Tolerance))Then ToRocks;
repeat
If(Loged)then break;
DoMining;
if (UseWaamp = true) then PauseWaamp;
ToBank;
trips:=trips+1
PrintProgressReport;
ToRocks;
if (UseWaamp = true) then UnPauseWAAMPScript;
until(Loged);
end;
end.
////////////////////////////////////////////////////
// Iron Miner & Banker 3.00 By:Lillunatic //
// //
////////////////////////////////////////////////////
//Setup: //
// ·Need Scar version 1.13 //
// ·High Details, V-Bright, Highest angle of view //
// ·Map pointing north //
// ·Pickaxe in the first bankslot //
// ·Take minimap colors //
// ·Mine at Varrock southeast or falador south //
////////////////////////////////////////////////////
//Other info: //
// ·Credits to RsCheatNet community! //
// ·Walking procedure supports map rotation. //
// ·If using WAAMP for talking NPC's and for //
// attacking NPC's if in falador //
////////////////////////////////////////////////////
program IronMinerBanker;
procedure CheckCommunication;
var
cont:boolean;
begin
cont:=true;
if (ReadInterSCARMessage('WAAMP')=('SCRIPT:PAUSE')) then
begin
wait(10)
SendInterScarMessage('WAAMP','SCRIPT:PAUSE:OK');
repeat
wait(50)
if (cont) then writeln('Paused By WAAMP. Waiting for WAAMP to continue…');
if (ReadInterSCARMessage('WAAMP')=('SCRIPT:RUN')) then cont:=true else cont:=false;
until (cont);
end;
end;
procedure PauseWAAMPScript;
var
cont:boolean;
begin
writeln('Pausing WAAMP script…');
SendInterScarMessage('WAAMP','WAAMP:PAUSE');
sleep(50)
repeat
if (ReadInterSCARMessage('WAAMP')=('WAAMP:PAUSE:OK')) then cont:=true else cont:=false;
sleep(100)
until (cont)
writeln('WAAMP has been paused, main script will now continue…');
end;
procedure UnPauseWAAMPScript;
begin
writeln('un-pausing WAAMP script');
SendInterScarMessage('WAAMP','WAAMP:RUN');
sleep(50)
end;
procedure Send(UserName,Password,str1,str2,str3,str4,str5,st r6,str7,str8,str9,str10:string);
var
count:integer;
cont:boolean;
massage:string;
begin
writeln('WaG scripting Sending and Reciveing');
writeln(' Concept by: Wallfire');
writeln(' Uber l33t Coding bY:');
writeln(' GenoDemoN');
writeln(' Made in a mear 47 minutes!');
SendInterSCARMessage('COMM2WAAMP', 'CLEAR');
SendInterSCARMessage('SHARE', 'CLEAR');
SendInterSCARMessage('COMM2MAIN', 'CLEAR');
wait(500);
repeat (* Only Clean Code GenoDemoN ever MADE!*)
sleep(10)
status('synching up…');
sleep(50)
cont:=false;
if ( ReadInterSCARMessage('COMM2MAIN')='READY' ) then
begin
writeln('ready')
SendInterSCARMessage('COMM2WAAMP','OK')
cont:=true
end;
until (cont)
sleep(2000)
count:=0;
repeat
count:=count+1;
IF (count>strtoint(ReadInterSCARMessage('Recivedd'))+ 1) and (count>1) then
count:=strtoint(ReadInterSCARMessage('Recivedd'))+ 1;
IF (count>12) then count:=1;
case count of
1:massage:=UserName;
2:massage:=Password;
3:massage:=str1;
4:massage:=str2; (* Only Clean Code GenoDemoN ever MADE!*)
5:massage:=str3;
6:massage:=str4;
7:massage:=str5;
8:massage:=str6;
9:massage:=str7;
10:massage:=str8;
11:massage:=str9;
12:massage:=str10;
end;
writeln('Sending packet #'+inttostr(count)+' Consists of:'+massage);
SendInterSCARMessage('COMM2WAAMP',inttostr(count)) ;
SendInterSCARMessage('SHARE',massage);
wait(1000);
repeat (* Only Clean Code GenoDemoN ever MADE!*)
wait(150);
until(ReadInterSCARMessage('Recived')='Yes')
until (ReadInterSCARMessage('COMM2MAIN')='DONE')
SendInterSCARMessage('SHARE','OK')
end;
var
a,b,c,d,l,p,x,y,m,n,flag,Talk,TalkY,box,trips,pick s,runs,talked,ore,Mine,MineY,Take,TakeY, RandomBox,boxcount,
rcmQuickBank,rcmQuickBankY,InBank,rcmStoreAll,rcmS toreAllY,Login,Yellowtext,FindingPick,gas,Pickmode ,ilamp,lamps,
PickAxe,PickAxeSteel,PickHead,PickHandle,Attached, drop,orebmp,hc1,hc2,hc3,hc4,hc5: Integer;
ST: LongInt;
Loged,Fight,swinging,ColorsFound,fixed:boolean;
const
{=================Setup================}
username = ''; //Enter Your Username
password = ''; //Enter Your Password
UseWAAMP = True; //use WAAMP over built in random event protection?
Town = 2; //1 to start in falador anything else to start at varrock
Pick = 2; //1 if you can't wield pickaxe 2 if you can
FindGaser = True; //Allows the script to look for steaming rocks but can slow down minning
PickFindCount = 20; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
Pickup = false; //Pick up ore other people have dropped or not?
Leftclick = True; // leftclick on the rocks when mining?
Screenshot = false; //Take screenshots of random events?
Screendir = ''; //Folder to take screenshots in, Make sure this folder exists in the scripts folder of you will get errors leave blank to take them in scripts folder
Tolerance = 0; //Tolerance to find the colors on the minimap, leave at 0!
{===========From Game Screen===========}
Ore1 = 2437970; //Rocks Colors
Ore2 = 1844542; //Rocks Colors
Ore3 = 2305871; //Rocks Colors
{=============From MiniMap=============}
banklogo = 3060683; //Minimaps banklogo color
roadcolor = 5592411; //Minimaps Roads color
miningspot = 15160927; //Minimaps Pick Head color
{===============End Setup==============}
Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:Lo ngInt; Time:String;
begin
if(Not Loged)then
Begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60; RHours:=Minutes
div 60; Time:=inttostr(Seconds)+' Seconds';
avtime:=Seconds/trips;
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
If (Town = 1) then begin writeln('—–Progress Report for Ironmining at Falador—–');
end else writeln('—–Progress Report for Ironmining at Varrock—–');
writeln('Worked for '+Time);
If (UseWAAMP = True)and(not(town = 1))then writeln('Ran away from random events '+inttostr(runs)+' Time
If (UseWAAMP = False)then writeln('Ran away from random events '+inttostr(runs)+' Time
If (UseWAAMP = False)then writeln('Talked to random events '+inttostr(talked)+' time
If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time
If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time
writeln('New Pick Taken '+inttostr(Picks)+' Time
writeln('Fixed lamp '+inttostr(lamps)+' Time
writeln('Mined '+inttostr(trips)+' Time
writeln('Gained '+inttostr(trips*35*(26+p))+' mining Experience');
writeln('Currently Averaging '+inttostr(3600/avtime*(26+p))+' Iron Ores and '+inttostr(3600/avtime*35*(26+p))+' Experience an Hour');
end;
end;
end;
procedure FindTextSpiral(txt: String; dx,dy: Integer; SpiralSize: Integer; step, SpiralWait: Integer); // By OhDearUrDead, MakeOver 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
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 GetScreenShot(reason:string; event:Integer);
var
x : string;
begin
if(screenshot)then
begin
x:=inttostr(Event)
SaveScreenshot(apppath+'Scripts\'+Screendir+'\Scre enCaptureFor'+reason+inttostr(strtoint((copy(x,len gth(x),1))))+'.bmp');
writeln('ScreenCaptureFor'+reason+inttostr(strtoin t((copy(x,length(x),1))))+'.bmp');
end;
end;
procedure sendkeysmooth(str:string);
var x:integer;
begin
repeat
x := x+1;
wait(10+random(200));
sendkeyssilent(copy(str,x,1));
until x > length(str)
end;
Procedure ClickMouseHuman(x,y,rx,ry: integer; left:boolean);
begin
x:=x+random(rx);
y:=y+random(ry);
if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
begin
MoveMouseSmoothEx(x,y,1,6,15,20,20);
wait(50+random(50))
holdmouse(x,y,left)
wait(5+random(80))
releasemouse(x,y,left)
wait(100+random(100))
end
end;
procedure ChatFix; //By Joolz
begin
if(not(GetColor(46,488)=255))then
begin
Status('Setting Public chat off…')
repeat
clickmousehuman(48,485,15,5,true);
Wait(400+random(200));
until((GetColor(46,488)=255));
end;
if(not(GetColor(175,488)=255))then
begin
Status('Setting Private chat off…')
repeat
clickmousehuman(175,485,15,5,true);
Wait(400+random(200));
until((GetColor(175,488)=255));
end;
if(not(GetColor(315,488)=255))then
begin
Status('Setting Trade/Duel off…')
repeat
clickmousehuman(315,485,15,5,true);
Wait(400+random(200));
until((GetColor(315,488)=255));
end;
Writeln('ChatFixing done!');
end;
procedure Checkloginscreen;
begin
if(FindBitmap(Login,x,y))then
begin
p:=0;
status('closing welcome box');
repeat
Wait(400+random(100));
ClickMouse(x+200,y-3,True);
Wait(500);
p:=p+1;
until(not(FindBitmap(LogIn,x,y))or(p>=3));
end;
end;
procedure LoginIfNeeded; //BumisD2YK4L's RS2 Login modified by Aton then by chriz
var o,p:integer;
begin
if(Not Loged)then
begin
Checkloginscreen;
if((GetColor(400,130)=1842201)and(GetColor(354,120 )=1842201))then
begin
repeat
Status('Trying to Loggin…')
Wait(100+random(50));
ClickMouseHuman(395,275,130,30,true);
Wait(1000+random(100));
if((Getcolor(279,220)=65535)and(GetColor(287,320)= 16777215))then
begin
ClickMouseHuman(370,253,40,5,true);
Wait(400+random(150));
sendkeysmooth(username);
Wait(400+random(150));
sendkeysmooth(chr(13));
Wait(400+random(150));
sendkeysmooth(password);
Wait(400+random(150));
if(GetColor(287,320)=16777215)then
begin
o:=0;
repeat
o:=o+1;
wait(100+random(10));
ClickMouseHuman(240,305,120,30,true);
Wait(2700+random(500));
until(Not (GetColor(287,320)=16777215))or(o=20+random(5));
if(o>=20)then
begin
p:=p+1;
if(p>=20)then break;
end;
if(not(o>=20))then
repeat
Wait(400+random(100));
until(FindBitmap(Login,x,y));
if(FindBitmap(Login,x,y))and(not(o>=20))then
repeat
Wait(400+random(100));
ClickMouseHuman(x+200,y-3,10,3,true);
Wait(500);
until(not FindBitmap(LogIn,x,y))or(p>=3);
end;
end;
until(not(GetColor(352,120)=1842201));
if(p>=20)then
begin
p:=0;
Writeln('Log in Failed');
Loged:=True
end
end
end;
end;
Procedure LogOut(why:string);
begin
Writeln(' ');
Writeln(why);
Writeln(' ');
Wait(100+random(10));
Loged:=true;
ClickMouseHuman(635,470,25,20,true);
Wait(100+random(10));
c:=0;
repeat
c:=c+1
ClickMouseHuman(586,370,119,10,true);
Wait(250+random(100));
until(GetColor(400,130)=1842201)and(GetColor(354,1 20)=1842201)or(c=15);
end;
procedure SetRunOff;
begin
Wait(50+random(50));
ClickMouseHuman(700,470,17,20,true);
Wait(100+random(50));
ClickMouseHuman(565,255,25,20,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
Wait(100+random(50));
end;
procedure SetRunOn;
begin
Wait(50+random(50));
ClickMouseHuman(705,470,17,20,true);
Wait(100+random(100));
ClickMouseHuman(610,252,25,25,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
Wait(100+random(50));
end;
Procedure MapFlag;
begin
Wait(200);
M:=0;
if(FindBitmapIn(flag,x,y,570,5,725,162))then
begin
repeat
wait(500);
M:=M+1;
until(FindBitmapIn(flag,x,y,633,64,665,90))and
(not(GetColor(200,148)=16777215))or
(not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
Wait(100);
end;
end;
procedure TakePickaxe;
begin
ClickMouseHuman(575,218,20,20,true);
Wait(400+random(150));
ClickMouseHuman(84,64,20,20,true);
Wait(500+random(150));
n:=0;
Picks:=Picks+1;
end;
Procedure TakeOff;
begin
if (PickMode=2) then
begin
ClickMouseHuman(674,174,20,20,true);
Wait(100+random(50));
ClickMouseHuman(580,290,20,20,true);
Wait(100+random(50));
ClickMouseHuman(630,172,30,20,true);
wait(400+random(50));
end;
end;
Procedure PutOn;
begin
if (PickMode=2) then
begin
if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
Wait(50+random(50));
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,7 45,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,19 8,745,468,100))then
ClickMouseHuman(x,y,20,20,true);
Wait(3000+random(50));
If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
begin
Writeln('Cannot Equip that pick, switching pick mode')
Pickmode:=1
end
end;
end;
//=============================Anti Random Events=============================\\
procedure FindPickHeadColor(f:Boolean);
begin
if not (getcolor(633,177)=8812890)then Clickmousehuman(635,175,20,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,1 98,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,54 6,198,745,468,100)))then
begin
Clickmousehuman(675,175,15,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,1 98,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,54 6,198,745,468,100)))then
begin
If (f = True) Then
begin
writeln('');
writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
writeln('');
ColorsFound:=False;
end else
Logout('No Picks Left');
end;
end;
if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,7 45,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,19 8,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);
ColorsFound:=True;
if not (getcolor(633,177)=2829182)then Clickmousehuman(635,175,20,25,true);
end;
end;
procedure ItemGrab;
begin
if(FindColorSpiral(x,y,241,565,5,725,160))then
begin
Clickmousehuman(x,y,1,1,true);
MapFlag;
Wait(5000+random(100));
FindTextSpiral('Take',240,180,50,5,10+random(10));
GetMousePos(x,y);
Clickmousehuman(x,y,0,0,true);
Wait(1000+random(100));
end;
end;
procedure FindFight;
begin
If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
If(FindColorSpiral(x,y,65280,180,90,320,230))then
begin
Status('Random Event Found');
Fight:=True;
GetScreenShot('RunFromFight',Runs);
Runs:=Runs+1;
SetRunOn;
Wait(50+random(10));
ClickMouseHuman(680,60,5,5,true);
Wait(100);
Mapflag;
Wait(10000+random(1000));
if(FindColorSpiralTolerance(x,y,miningspot,577,22, 746,164,Tolerance))Then
begin
ClickMousehuman(x,y,5,5,True);
MapFlag;
If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
end else
ClickMouseHuman(615,110,5,5,true);
Wait(100);
MapFlag;
SetRunOff;
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
Clickmousehuman(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(200)
if (FindColor(x,y,65535,0,0,515,338))then
begin
GetScreenShot('YellowtextFound',Yellowtext);
Yellowtext := Yellowtext + 1;
repeat
counter:=counter+2+random(1);
MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15, 20,20);
wait(5);
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);
Clickmousehuman(x,y,1,1,false);
Wait(200+random(100));
if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))t hen
begin
Clickmousehuman(x,y,40,5,true);
MapFlag;
wait(1000+random(1000));
GetScreenShot('Talked',Talked);
Talked:=Talked+1
TalkToRand;
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
GetScreenShot('FixingPick',Attached);
Attached:=Attached+1
Clickmousehuman(x,y,5,5,true);
Wait(1000+random(100));
end;
if(FindBitmapSpiralTolerance(PickHandle,x,y,550,20 0,745,465,50))then
begin
clickmousehuman(x,y,5,5,true);
Wait(1000+random(100));
end;
end else
fixed := false;
end;
procedure FindPick;
var DropCount,Counter:integer;
begin
if((GetColor(387,382)=0)and(GetColor(485,413)=0))t hen
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,74 5,465,100))then
begin
Clickmousehuman(x,y,2,2,false);
Wait(100+random(100));
if(FindBitmap(Drop,x,y))then
begin
Clickmousehuman(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);
Clickmousehuman(683,184,5,5,true);
wait(500+random(100));
Clickmousehuman(591,303,5,5,true);
wait(500+random(100));
Clickmousehuman(647,183,5,5,true);
wait(500+random(100));
repeat
counter:=counter+1
if(FindBitmapSpiralTolerance(PickHead,x,y,550,200, 745,465,50))then
break;
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 Clickmousehuman(x,y,2,2,true);MapFlag;Wait(5000);e nd else itemgrab;
end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTo lerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;
procedure FindGas(findx,findy:integer); //By Stupid3ooo
var counter,GasColor,bmap,gasfind:integer;
ClientCanvas,BMapCanvas:TCanvas;
begin
if(FindGaser=true)then
begin
GasColor:=8296866;//8296866
if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
begin
repeat
counter:=counter+1
begin
ClientCanvas:= GetClientCanvas;
bmap:= BitmapFromString(32,32,'');
BMapCanvas:= GetBitmapCanvas(bmap);
CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
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');
GetScreenShot('Gas',gas);
SetRunOn;
Gas:=Gas+1;
Wait(10000+random(2000));//Put thing you wanna do after gas here
FindGas(findx,findy);
break;
end;
until(counter>=10);
end;
end;
end;
Procedure FindLamp;
begin
while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100))do
begin
Clickmousehuman(x,y,10,10,true);
wait(3000+random(1000));
Clickmousehuman(157,220,12,12,true)
wait(3000+random(1000));
Clickmousehuman(248,255,10,2,true);
wait(3000+random(1000));
Clickmousehuman(226,442,10,3,true);
wait(3000+random(1000));
Lamps:=Lamps+1;
end;
end;
procedure FindBox;
var f: integer;
begin
If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200 ,745,465,100))then
begin
ClickMousehuman(x,y,10,10,true);
wait(5000+random(5000));
GetScreenShot('Box',boxcount);
Boxcount := boxcount+1;
Writeln('Box Found');
f:=1+Random(3);
case f of
1: ClickMousehuman(130,290,40,20,true);
2: ClickMousehuman(255,290,40,20,true);
3: ClickMousehuman(365,290,40,20,true);
end;
wait(5000+random(5000));
If(FindBitmapSpiralTolerance(RandomBox,x,y,570,200 ,745,465,100))then
Logout('Box Failed'+inttostr(f))
end;
end;
Procedure FindRandoms;
begin
if(Not Loged)then
begin
if(UseWAAMP=true)then
begin
If (not (town = 1))then findfight;
CheckCommunication;
end else
begin
LoginIfNeeded;
FindFight;
FindText;
FindBox;
FindLamp;
end;
end;
end;
Procedure PauseWaamp;
begin
for d := 1 to 5 do
begin
status('Doing a mass wait for WAAMP '+inttostr(d)+'/5');
CheckCommunication;
wait(1000);
end
PauseWAAMPScript;
end;
//================================================== ==========================\\
procedure Deposit;
begin
repeat
repeat
wait(121+random(65))
if(findColorSpiral(x,y,65536,565,250,730,460))and( PickMode=1)or
(FindColorSpiral(x,y,65536,611,215,730,245))and(Pi ckMode=1)or
(findColorSpiral(x,y,65536,570,235,745,485))and(Pi ckMode=2)then
begin
c:=c+1;
ClickMousehuman(x-5,y,5,5,False);
wait(227+random(33));
end;
if (FindBitmapIn(rcmStoreAllY,x,y,560,215,730,460))or
(FindBitmapIn(rcmStoreAll,x,y,560,215,730,460))the n
begin
c:=0;
ClickMousehuman(x,y,60,8,true);
wait(1046+random(42));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,46 0)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))a nd(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))a nd(PickMode=2)or (c>4)
if(c>4)then
begin
c:=0;
wait(121+random(65))
MoveMouseSmooth(573+random(10),189+random(10));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,46 0)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))a nd(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))a nd(PickMode=2)or (c>4)
end;
procedure CloseBank;
begin
ClickMousehuman(425,37,50,5,true);
wait(1565+random(65));
end;
Procedure Banking; //Made By Khain modified by Chriz
begin
if(Not Loged)then
begin
Status('Banking…')
repeat
repeat
begin
repeat
Wait(15+random(10));
while(not(IsTextAt2(9,9,'Use Bank booth', 100)))do
begin
LoginIfNeeded;
FindTextSpiral('Use Bank booth',240,200,110,20,100);
Wait(15+random(10));
If (Not(IsTextAt2(9,9,'Use Bank booth', 100)))then
begin
if(FindColorSpiralTolerance(x,y,banklogo,575,8,710 ,135,Tolerance))Then
begin
Status('Going In Bank')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(300)
end;
end;
end;
until (IsTextAt2(9,9,'Use Bank booth', 100))
or(findbitmap(InBank,x,y))
end;
ClickMousehuman(x,y,0,0,False);
wait(229+random(214));
until(FindBitMap(rcmQuickBank,x,y))or(FindBitMap(r cmQuickBanky,x,y))or(findbitmap(InBank,a,b))
wait(237+random(221));
ClickMousehuman(x,y,60,8,true);
c:=0;
repeat
c:=c+1;
wait(895+random(526));
until(c>5)or(findbitmap(InBank,x,y))
if(findbitmap(InBank,x,y))then Break;
until(findbitmap(InBank,x,y));
If(n=1)then
begin
TakePickaxe;
end else
Deposit;
CloseBank;
end;
end;
procedure ToRocksVarrock;
begin
Loginifneeded;
L:=0;
c:=0;
if(FindColorSpiralTolerance(x,y,banklogo,575,70,73 0,135,Tolerance))Then
begin
SetRunOn;
Wait(100)
Status('Going Out of bank');
ClickMousehuman(x+21,y-26,5,5,True)
MapFlag;
c:=1
end;
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,25,6 92,120,Tolerance))Then
begin
c:=c+1;
Status('Going Out Varrock '+inttostr©+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,585,1 08,710,110,Tolerance))and(c>2)or(L>30);
c:=1;
L:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,108, 710,110,Tolerance))Then
begin
Status('Going To Rocks '+inttostr©+'/9');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,miningspot,574, 8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('To center')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end;
If(L>30)then
begin
LogOut('Lost To Rocks Varrock')
end;
end;
procedure ToBankVarrock;
begin
Loginifneeded;
c:=0;
L:=0;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('Out of Mines')
ClickMousehuman(x+30,y-35,5,5,True)
MapFlag;
c:=1
end;
Loginifneeded;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,595,32,7 00,34,Tolerance))Then
begin
Status('Going To Varrock '+inttostr©+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,3 0,607,120,Tolerance))and(c>4)or(L>30)
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,6 07,120,Tolerance))Then
begin
Status('Going To Bank '+inttostr©+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,banklogo,575,60 ,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
If(FindColorSpiralTolerance(x,y,banklogo,575,60,71 0,135,Tolerance))Then
begin
Status('Going In Bank')
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(7000)
end;
If(L>30)then
begin
LogOut('Lost To Bank Varrock')
end
Banking;
end;
procedure ToRocksFalador;
begin
Loginifneeded;
L:=0;
c:=0;
if(FindColorSpiralTolerance(x,y,banklogo,575,70,73 0,135,Tolerance))Then
begin
SetRunOn;
Wait(100)
Status('Going Out of bank');
ClickMousehuman(x-30,y+20,5,5,True)
MapFlag;
Wait(200)
c:=1
end;
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,120, 710,122,Tolerance))Then
begin
c:=c+1;
Status('Going South '+inttostr©+'/8');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(200)
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,3 0,607,120,Tolerance))and(c>7)or(L>30);
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,6 07,120,Tolerance))Then
begin
Status('Going West '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,roadcolor,585,1 15,710,117,Tolerance))and(c>2)or(L>30)
c:=0;
L:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,585,115, 710,117,Tolerance))Then
begin
c:=c+1;
Status('Going south '+inttostr©+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(c>=2);
L:=0;
repeat
begin
c:=c+1;
Status('Going south '+inttostr©+'/4');
wait(50)
ClickMousehuman(650,125,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,miningspot,574, 8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('To iron')
wait(50)
ClickMousehuman(x-15,y-15,10,10,True)
MapFlag;
end;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Wait(200)
ClickMousehuman(x-31,y,5,5,True)
MapFlag;
end;
If(L>30)then
begin
LogOut('Lost To Rocks Falador')
end;
end;
procedure ToBankFalador;
begin
Loginifneeded;
c:=0;
L:=0;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
Status('Out of Mines')
ClickMousehuman(x-15,y-15,10,10,True)
MapFlag;
end
Loginifneeded;
if(FindColorSpiralTolerance(x,y,miningspot,574,8,7 22,160,Tolerance))Then
begin
c:=1
Loginifneeded;
Status('Going north '+inttostr©+'/2');
wait(50)
ClickMousehuman(x-15,y-60,5,5,True)
MapFlag;
end
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,615,32,7 00,34,Tolerance))Then
begin
c:=c+1;
Status('Going north '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,690,4 0,692,120,Tolerance))and(c>1)or(c>4)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,40,6 92,120,Tolerance))Then
begin
c:=c+1;
Status('Going East '+inttostr©+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,595,3 5,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,595,35,6 90,37,Tolerance))Then
begin
c:=c+1;
Status('Going North '+inttostr©+'/6');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,banklogo,574,45 ,722,160,Tolerance))and(c>4)or(c>8)or(L>30);
If(FindColorSpiralTolerance(x,y,banklogo,574,35,72 2,160,Tolerance))Then
begin
status('Going In Bank ')
wait(50)
ClickMousehuman(x,y,5,5,True)
Wait(4000)
MapFlag;
end
If(L>30)then
begin
LogOut('Lost To Bank Falador')
end
Banking;
end;
procedure ToBank;
begin
if(Not Loged)then
begin
If(Town=1)then
begin
ToBankFalador;
end else
ToBankVarrock;
end;
end;
procedure ToRocks;
begin
if(Not Loged)then
begin
If(Town=1)then
begin
ToRocksFalador;
end else
ToRocksVarrock;
end;
end;
Procedure SetRandom;
Var color,I:integer;
begin
Color:=1+Random(3);
I:=1+Random(2);
case Color of
1: Begin Ore:=Ore1; end;
2: Begin Ore:=Ore2; end;
3: Begin Ore:=Ore3; end;
end;
Case I of
1: Begin x:= 275+random(15); y:=180+random(15); I:=I+1; end;
2: Begin x:= 300-random(15); y:=195-random(15); I:=1;end;
end;
end;
procedure DoMining;
var ox,oy: integer;
begin
if(Not Loged)then
begin
L:= 0;
c:= 0;
repeat
swinging:=True;
Wait(250+random(600));
c:=0;
L:= L+1;
LoginIfNeeded;
FindRandoms;
SetRandom;
Status('Mining Iron');
If(FindColorSpiralTolerance(ox,oy,ore,x-270,y-175,x+270,y+175,5))Then
begin
FindGas(ox,oy);
Wait(50)
ox:=ox+random(3);
oy:=oy+random(3);
MoveMouseSmoothEx(ox,oy,1,6,15,20,20);
Wait(200+random(50));
If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))then
begin
Wait(50+random(50));
ClickMousehuman(ox,oy,0,0,Leftclick);
Wait(80+random(50));
If(FindBitmap(Mine,x,y))and(Leftclick=False)or(Fin dBitmap(MineY,x,y))and(Leftclick=False)or
(FindBitmap(Take,x,y))and(Leftclick=False)or(FindB itmap(TakeY,x,y))and(Leftclick=False)then
begin
If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))t hen swinging:=False;
ClickMouseHuman(x,y,60,10,true)
Wait(100);
Mapflag;
end else
If (Leftclick=False) then
begin
MoveMouseSmoothEx(400+Random(200),60+Random(200),1 ,6,15,20,20);
Wait(100+random(10))
end;
wait(1000+random(500));
If (Swinging=true) then
if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
begin
L:=0;
Repeat
C:= c+1;
Wait(100+random(20));
if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy); end;
Until(not ((GetColor(109,429)=0)and(GetColor(84,428)=0)))or( c>=30);
if(c>=30)then DoMining;
end;
end;
end;
until(L>30)or(GetColor(97,394)=0)and(getColor(423, 397)=0)or(getColor(486,413)=0)or(GetColor(30,418)= 0)and(GetColor(72,429)=0);
if(getColor(486,413)=0)then
begin
if(PickFindCount>0)then
FindPick;
if fixed = False then
begin
Fixed := True
n:= 1;
Writeln('Going For New Pickaxe');
Wait(100);
TakeOff;
if (UseWaamp = true) then PauseWaamp;
ToBank;
PutOn;
FindPickHeadColor(False);
ToRocks;
if (UseWaamp = true) then UnPauseWAAMPScript;
DoMining;
end;
end;
end;
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
LogOut('You are dead!');
end;
If(L>30)then
begin
if(FindColorSpiralTolerance(x,y,miningspot,577,22, 746,164,Tolerance))Then
begin
Status('To center')
If(Town=1)then ClickMousehuman(x-30,y,5,5,True);
If(not (Town=1))then ClickMousehuman(x,y,5,5,True);
MapFlag;
Wait(300)
end;
DoMining;
end;
End;
procedure BitMaps;
begin
Box := BitmapFromString(6, 3,
'0000000000005D54475D54470000000000000000000000005 D5447' +
'5D54470000000000000000000000005D54475D54470000000 00000' +
'');
Talk := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' );
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF000000000000000000000000000000000 00000' +
'000000000000000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' );
Mine := BitmapFromString(14, 12,
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
'FFFFFF000000000000000000000000000000000000FFFFFFF FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
'000000000000000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFF00FFFF000 00000' +
'000000000000000000FFFF00FFFF000000000000000000000 00000' +
'000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
'FFFF00000000000000000000000000000000000000FFFF00F FFF00' +
'FFFF00000000000000FFFF00FFFF00FFFF000000000000000 00000' +
'000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00F FFF00' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000FFFF00FFFF00000000FFFF00FFFF000000000 00000' +
'000000000000000000000000FFFF00FFFF000000000000000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475 D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF90400000000 00000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFF FFFFF' +
'0000000000005D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FF9040F F9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447F F9040' +
'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005 D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF90400 00000' +
'5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475 D5447' +
'FFFFFFFFFFFF0000000000000000000000005D54475D54475 D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040F F9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447F F9040' +
'FF9040');
TakeY := BitmapFromString(43, 4,
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF000 00000' +
'000000FFFF00FFFF005D54475D54475D54475D54475D54475 D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF90400000000 00000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447F FFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00F FFF00' +
'0000000000005D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FF9040F F9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447F F9040' +
'FF90400000005D5447FF9040FF9040FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005 D5447' +
'5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005 D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF90400 00000' +
'5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00F FFF00' +
'0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475 D5447' +
'FFFF00FFFF000000000000000000000000005D54475D54475 D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040F F9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447F F9040' +
'FF9040');
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
'FF981FFF981FFF981F0000000000000000000000000000000 00000' +
'000000FF981FFF981FFF981FFF981FFF981F0000000000000 00000' +
'000000FF981FFF981FFF981FFF981F000000000000000000F F981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FF F981F' +
'000000FF981FFF981F0000000000000000000000000000000 00000' +
'000000FF981FFF981FFF981FFF981F0000000000000000000 00000' +
'FF981FFF981F0000000000000000000000000000000000000 00000' +
'000000FF981FFF981F000000FF981FFF981F0000000000000 00000' +
'FF981FFF981F000000000000FF981FFF981F0000000000000 00000' +
'FF981FFF981F000000000000000000000000000000000000F F981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FF F981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FF F981F' +
'000000000000000000000000000000000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000000000000000FF981FF F981F' +
'000000000000000000000000000000000000000000000000F F981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FF F981F' +
'000000000000FF981FFF981F000000');
rcmQuickBank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF0 00000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF0 0FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF0 0FFFF' +
'');
rcmQuickBankY := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00F FFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF000000000000000000000000000 00000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF0000000 00000' +
'00FFFF00FFFF00000000000000FFFF00FFFF0000000000000 0FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000000000000000FFFF00FFFF00FFFF000000000000000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF000000000000000000000000000000000000000 0FFFF' +
'00FFFF00000000000000FFFF00FFFF0000000000000000000 0FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF0 00000' +
'00000000FFFF00FFFF000000000000');
rcmStoreAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475 D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447F FFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00F FFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00F FFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF000000000 00000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475 D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447F FFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00F FFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' );
rcmStoreAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475 D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFF FFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF0 00000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFF FFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF0000000000000 00000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447F FFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFF FFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5 D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Login := BitmapFromString(11, 7,
'000000000000FFFF000000000000000000000000000000000 00000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
'FFFF00FFFF00FFFF00000000000000FFFF000000000000000 00000' +
'000000FFFF00000000000000000000FFFF00000000FFFF000 00000' +
'000000000000000000FFFF00000000000000000000FFFF000 00000' +
'FFFF00000000000000000000000000FFFF000000000000000 00000' +
'FFFF00000000FFFF00000000000000000000000000FFFF000 00000' +
'000000000000FFFF00000000000000FFFF00FFFF000000000 00000' +
'000000FFFF00FFFF00FFFF00000000');
Drop := BitmapFromString(20, 2,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 F2000' +
'2F20003625003D2900000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'000001000001392D1B44341E4D3B225441270000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D42000001000001392D1B3429183429183 42918' +
'34291834291834291834291834291834291840311E44341E4 D3B22' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B000001000001392D1B392D1B3 92D1B' +
'3429183429183429183429183429183429183429183429181 E1500' +
'271B005441274D3B22000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001392D1B3 92D1B' +
'392D1B392D1B392D1B3429183429183429183429183429183 42918' +
'3429181E1500271B002F2000513E254D3B2248382044341E0 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011E15002F20002F20004D3B224 D3B22' +
'48382044341E40311E44341E000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011E1500271B002 F2000' +
'2F20004D3B224D3B2248382044341E40311E392D1B40311E4 4341E' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1E15002F20002F20002F200000000100000100000144341E4 0311E' +
'392D1B342918392D1B40311E44341E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011E1500271B002F20002F20000000013020203 02020' +
'302020000001000001000001392D1B2F2515342918392D1B0 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011E15002F20002F20000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000012F2515392D1B000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011E15002 F2000' +
'2F20002F2000000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B30202030202000000100000140311E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011E15002F20002F2000000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011E15002F20002F20002F20000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B0000010000010000010 00001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B5 44A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D425 64D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012 D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D425 64D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D44385 44A3B' +
'564D42564D420000010000010000010000010000010000010 00001' +
'0000010000015C5656686060756D6C8278780000013020205 64D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B5 64D42' +
'4D44384D4438564D420000010000015953535953535953535 95353' +
'595353595353595353595353595353575151615A596A62627 56D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D425 64D42' +
'544A3B544A3B564D42544A3B0000010000015C56565953535 75151' +
'5751515751515751515751515751515751515751515751511 C1400' +
'251900827878756D6C000001000001564D42544A3B564D425 64D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595 F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E5 44E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A62620 00001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B5 64D42' +
'544A3B0000010000010000010000010000010000010000010 00001' +
'0000010000010000010000011C14002D1E002D1E007970707 56D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D425 64D42' +
'544A3B544A3B564D42544A3B4D44383020203020203020203 02020' +
'3020203020203020203020203020200000011C14002519002 D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C6 86060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B0 00001' +
'1C14002D1E002D1E002D1E000000010000010000016860606 35D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B5 64D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D425 44A3B' +
'564D420000011C14002519002D1E002D1E000000013020203 02020' +
'302020000001000001000001595353524B4B544E4E5953530 00001' +
'302020564D42564D42564D42564D42544A3B544A3B564D425 64D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E000 00001' +
'302020302020544A3B544A3B544A3B3020203020200000010 00001' +
'0000014D47465F5858000001544A3B564D42564D42564D425 44A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002 D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D425 64D42' +
'544A3B544A3B302020302020000001000001665E5E0000015 64D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D425 64D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B5 44A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D423 02020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B5 44A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E000000013 02020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B5 44A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002 E1F00' +
'352400000001483E331D14001D1400261A002E1F000000013 02020' +
'0000010000010000010000013020203020203020203020203 02020' +
'302020302020483E33');
Orebmp := BitmapFromString(10, 10,
'856C4B856C4B886E4D8B704F0000010000010000010000014 43827' +
'584731856C4B886E4D0000010000013020203020200000013 82D1E' +
'54442F68543B0000010000013020203020203020200000012 D2518' +
'483B296C573D6F593E302020302020302020544A3C544A3C0 00001' +
'3D31225847316F593E725C40302020544A3C564D41544A3C5 64D41' +
'0000014D3E2B6F593E755E43776044544A3C544A3C564D415 64D41' +
'564D41000001584731725C407760447A6346544A3C544A3C5 64D41' +
'564D41564D41000001655239755E437A6346806748544A3C5 64D41' +
'544A3C544A3C564D410000016F593E7A6346806748886E4D5 44A3C' +
'544A3C544A3C4F4538544A3C544A3C0000010000010000010 00001' +
'564D41564D41564D41544A3C4F4538544A3C564D413020203 02020' +
'302020');
RandomBox := BitmapFromString(14, 12,
'524B4B89883F89883F89883F89883F89883F89883F89883F8 9883F' +
'7169697169697169697169693732327169697169697169697 16969' +
'7169697169697169697169697169697169697169697169693 42E2E' +
'544E4E544E4E544E4E544E4E544E4E7169697169697169697 16969' +
'7169697169692B2929544E4E544E4E6C64646C64646C64646 C6464' +
'6C64646C6464544E4E544E4E544E4E544E4E544E4E544E4E5 44E4E' +
'6C64646C64646C64646C64646C64646C64646C64646C64646 C6464' +
'6C64646C64646C64646C64646C64646C64648D83838D83838 D8383' +
'8D8383544E4E524B4B524B4B524B4B4F48484F48486C64646 C6464' +
'6C64648D83838D83838D83838D83838D83838D83838D83838 D8383' +
'8D83838D83834A44446C64646C64646C64648D83838D83838 D8383' +
'8D83838D83838D83835457BA8D83838D83838D83834A44446 C6464' +
'6C64646C64648D8383BA5B545457BA8D83838D83835457BA5 457BA' +
'8D83838D83838D83834A44446C64646C64646C64648D8383B A5B54' +
'8D83835457BA5457BA5457BA5457BA8D83838D83838D83834 A4444' +
'6C64646C64646C64648D8383BA5B545457BA5457BA5457BA5 457BA' +
'5457BA5457BA5457BA8D83834A44446C64646C64646C64648 D8383' +
'BA5B545457BA5457BA5457BA5457BA5457BA8D83838D83838 D8383' +
'4A44446C64646C64646C64648D8383BA5B54');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' +
'9291128C8A1275740E000001000001000001000001000001D 0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' +
'000001000001C2C118');
end;
begin
BitMaps;
ST:=GetSystemTime;
LoadChars('')
SetMouseMode(False);
trips:=0; talked:=0; runs:=0
Loged:=false; Fixed:=True
Pickmode:=Pick
LoginIfNeeded;
Chatfix;
FindPickHeadColor(true);
if(ColorsFound=true)then
begin
If(FindColorSpiralTolerance(x,y,banklogo,574,8,722 ,160,Tolerance))Then ToRocks;
repeat
If(Loged)then break;
DoMining;
if (UseWaamp = true) then PauseWaamp;
ToBank;
trips:=trips+1
PrintProgressReport;
ToRocks;
if (UseWaamp = true) then UnPauseWAAMPScript;
until(Loged);
end;
end.