blacKSIMON
2007-03-03 11:32:48
blacKSIMON - SRL Member Application Form
blacKSIMON
What is the meaning to life?
42
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Vb, dotnet 03, pascal, python
Other Communitys
Was member at old SRL forums
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I work for a private jet charter company as a lead developer, I created and maintain our booking engive an our app which is based in dotnet. I havent created scripts in a while and Im not too use to SRL. Ive been scripting since 2002, helping people work out errors in thier scripts, but never selling or sharing scripts (Safer for me). I plan to make an array of SRL agility scripts for the community. What ill submit is my only shared script ever, my varrock east and west iron miner and banker, as you can tell, the randoms and the script in general is ancient, so bear with me. If i get accepted into the SRL area, i plan to make this into a fully functional SRl script. Hopefully removing a lot of un-needed code
Thanks for taking the time to look at this.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
blacKSIMON
What is the meaning to life?
42
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Vb, dotnet 03, pascal, python
Other Communitys
Was member at old SRL forums
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I work for a private jet charter company as a lead developer, I created and maintain our booking engive an our app which is based in dotnet. I havent created scripts in a while and Im not too use to SRL. Ive been scripting since 2002, helping people work out errors in thier scripts, but never selling or sharing scripts (Safer for me). I plan to make an array of SRL agility scripts for the community. What ill submit is my only shared script ever, my varrock east and west iron miner and banker, as you can tell, the randoms and the script in general is ancient, so bear with me. If i get accepted into the SRL area, i plan to make this into a fully functional SRl script. Hopefully removing a lot of un-needed code
Thanks for taking the time to look at this.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
////////////////////////////////////////////////////
// I Mine Iron Plocks ver. 4.1 by simon //
// Special thanks to squig for un-northed walker //
////////////////////////////////////////////////////
//Setup: //
// Need Scar 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: //
// Thank you runeCMS //
// Walking procedure supports map rotation. //
////////////////////////////////////////////////////
program ImineIronPlocks;
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,str6,str7,str8,str9,str10:string);
var
count:integer;
cont:boolean;
massage:string;
begin
writeln('WaG scripting Sending and Reciveing');
writeln(' Concept by: cody');
writeln(' Uber l33t Coding bY:');
writeln(' GenoDemoN and BlackSimon');
writeln(' we own your moms');
SendInterSCARMessage('COMM2WAAMP', 'CLEAR');
SendInterSCARMessage('SHARE', 'CLEAR');
SendInterSCARMessage('COMM2MAIN', 'CLEAR');
wait(500);
repeat
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; (
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
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,picks,runs,talked,ore,Mine,MineY,Take,TakeY, RandomBox,boxcount,
rcmQuickBank,rcmQuickBankY,InBank,rcmStoreAll,rcmStoreAllY,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 = False; //use WAAMP over built in random event protection?
Town = 1; //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 = 2174538; //Rocks Colors
Ore2 = 2503250; //Rocks Colors
Ore3 = 2635350; //Rocks Colors
{=============From MiniMap=============}
banklogo = 3060683; //Minimaps banklogo color
roadcolor = 5592411; //Minimaps Roads color
miningspot = 5658197; //Minimaps Pick Head color
{===============End Setup==============}
Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; 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[s]');
If (UseWAAMP = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
If (UseWAAMP = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
writeln('Mined '+inttostr(trips)+' Time[s] '+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);
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+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
writeln('ScreenCaptureFor'+reason+inttostr(strtoint((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));
ClickMouseHuman(x+200,y-3,40,4,true);
Wait(500);
p:=p+1;
until(not FindBitmap(LogIn,x,y))or(p>=3);
end;
end;
procedure LoginIfNeeded; //BlackSimon's RS2 Login modified by Aton then by cody
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,120)=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,745,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,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,198,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
begin
Clickmousehuman(675,175,15,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,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,745,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
begin
hc1:=GetColor(x+6,y+3);
hc2:=GetColor(x+18,y+7);
hc3:=GetColor(x+20,y+6);
hc4:=GetColor(x+19,y+6);
hc5:=GetColor(x+16,y+5);
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))then
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,200,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))then
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,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);end else itemgrab;
end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;
procedure FindGas(findx,findy:integer); //stupid3000s gasfinder, im too lazy to make my own
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(PickMode=1)or
(findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=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))then
begin
c:=0;
ClickMousehuman(x,y,60,8,true);
wait(1046+random(42));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))and(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,460)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)
end;
procedure CloseBank;
begin
ClickMousehuman(425,37,50,5,true);
wait(1565+random(65));
end;
Procedure Banking; //Made By Blacksimon 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(rcmQuickBanky,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,730,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,692,120,Tolerance))Then
begin
c:=c+1;
Status('Going Out Varrock '+inttostr(c)+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,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(c)+'/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,722,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,722,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,700,34,Tolerance))Then
begin
Status('Going To Varrock '+inttostr(c)+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
begin
Status('Going To Bank '+inttostr(c)+'/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,710,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,730,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(c)+'/8');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(200)
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
begin
Status('Going West '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,roadcolor,585,115,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(c)+'/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(c)+'/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,722,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,722,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,722,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,722,160,Tolerance))Then
begin
c:=1
Loginifneeded;
Status('Going north '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x-15,y-60,5,5,True)
MapFlag;
end
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
begin
c:=c+1;
Status('Going north '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))and(c>1)or(c>4)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
begin
c:=c+1;
Status('Going East '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
begin
c:=c+1;
Status('Going North '+inttostr(c)+'/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,722,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(FindBitmap(MineY,x,y))and(Leftclick=False)or
(FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
begin
If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then 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,
'0000000000005D54475D54470000000000000000000000005D5447' +
'5D54470000000000000000000000005D54475D5447000000000000' +
'');
Talk := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
Mine := BitmapFromString(14, 12,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000000000000000FFFF00FFFF00000000000000000000000000' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
'0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
'5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
'FF9040');
TakeY := BitmapFromString(43, 4,
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
'000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
'0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
'5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
'FF9040');
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
'FF981FFF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
'000000FF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000000000' +
'000000FF981FFF981F000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000FF981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
'000000000000000000000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000000000FF981FFF981F' +
'000000000000000000000000000000000000000000000000FF981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000');
rcmQuickBank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'');
rcmQuickBankY := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF0000000000000000000000000000000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000000000FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000' +
'00000000FFFF00FFFF000000000000');
rcmStoreAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF00000000000000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00');
rcmStoreAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Login := BitmapFromString(11, 7,
'000000000000FFFF00000000000000000000000000000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00FFFF00000000000000FFFF00000000000000000000' +
'000000FFFF00000000000000000000FFFF00000000FFFF00000000' +
'000000000000000000FFFF00000000000000000000FFFF00000000' +
'FFFF00000000000000000000000000FFFF00000000000000000000' +
'FFFF00000000FFFF00000000000000000000000000FFFF00000000' +
'000000000000FFFF00000000000000FFFF00FFFF00000000000000' +
'000000FFFF00FFFF00FFFF00000000');
Drop := BitmapFromString(20, 2,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
'2F20003625003D2900000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'000001000001392D1B44341E4D3B22544127000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001392D1B342918342918342918' +
'34291834291834291834291834291834291840311E44341E4D3B22' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
'3429183429183429183429183429183429183429183429181E1500' +
'271B005441274D3B22000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
'392D1B392D1B392D1B342918342918342918342918342918342918' +
'3429181E1500271B002F2000513E254D3B2248382044341E000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011E15002F20002F20004D3B224D3B22' +
'48382044341E40311E44341E000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011E1500271B002F2000' +
'2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1E15002F20002F20002F200000000100000100000144341E40311E' +
'392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011E1500271B002F20002F2000000001302020302020' +
'302020000001000001000001392D1B2F2515342918392D1B000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011E15002F20002F2000000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
'2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B30202030202000000100000140311E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011E15002F20002F2000000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'0000010000015C5656686060756D6C827878000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001595353595353595353595353' +
'595353595353595353595353595353575151615A596A6262756D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
'5751515751515751515751515751515751515751515751511C1400' +
'251900827878756D6C000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011C14002D1E002D1E00797070756D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011C14002519002D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011C14002519002D1E002D1E00000001302020302020' +
'302020000001000001000001595353524B4B544E4E595353000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B302020302020000001000001665E5E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
'564D41595145000001000001544A3C4F4538544A3C595145564D41' +
'544A3C544A3C544A3C5951455951455951455951450000012F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
'5951455951455951450000012F20002F2000362400000001302020' +
'564D41544A3C544A3C595145564D41595145564D41595145595145' +
'0000012F2000362400362400000001302020564D41564D41564D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
'544A3C544A3C0000012F2000362400362400362400000001302020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
'2F2000362400362400000001302020302020564D41564D41564D41' +
'595145564D41564D41564D410000012F2000362400362400000001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
'0000012F2000362400362400362400000001302020564D41564D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
'362400000001302020302020564D41564D41544A3C544A3C595145' +
'595145564D410000012F2000362400362400362400000001302020' +
'564D41564D41544A3C544A3C564D41564D41595145595145000001' +
'2F20002F20002F2000000001302020302020564D41564D41544A3C' +
'564D41564D41544A3C564D410000012F20002F20002F2000362400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
'564D410000012F20002F20002F2000000001302020302020544A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
'2F2000000001302020302020595145544A3C564D41595145595145' +
'595145564D41564D410000012F20002F20002F2000000001302020' +
'595145595145564D41564D41595145595145595145595145000001' +
'2F20002F20002F2000000001302020302020595145595145595145' +
'595145564D41564D41564D41564D410000012F20002F20002F2000' +
'000001302020564D41595145595145595145595145564D41564D41' +
'544A3C0000012F20002F20002F2000000001302020302020564D41' +
'595145595145544A3C544A3C564D41595145564D410000012F2000' +
'2F20002F2000000001302020544A3C564D41595145595145544A3C' +
'544A3C564D41564D41564D410000012F20002F2000000001302020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
'000001271B002F20002F2000000001302020595145544A3C564D41' +
'595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
'000001302020302020595145544A3C564D41595145595145595145' +
'564D41564D41564D410000011D15001D1500000001302020595145' +
'544A3C544A3C564D41595145595145595145595145595145544A3C' +
'0000011D15001D1500000001302020564D41595145595145595145' +
'595145564D41595145595145564D41544A3C564D41000001000001' +
'302020302020595145595145595145595145544A3C564D41595145' +
'544A3C544A3C4F4538564D41595145302020302020564D41595145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
'352400000001483E331D14001D1400261A002E1F00000001302020' +
'000001000001000001000001302020302020302020302020302020' +
'302020302020483E33');
Orebmp := BitmapFromString(10, 10,
'856C4B856C4B886E4D8B704F000001000001000001000001443827' +
'584731856C4B886E4D000001000001302020302020000001382D1E' +
'54442F68543B0000010000013020203020203020200000012D2518' +
'483B296C573D6F593E302020302020302020544A3C544A3C000001' +
'3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
'0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
'564D41000001584731725C407760447A6346544A3C544A3C564D41' +
'564D41564D41000001655239755E437A6346806748544A3C564D41' +
'544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
'544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
'564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
'302020');
RandomBox := BitmapFromString(14, 12,
'524B4B89883F89883F89883F89883F89883F89883F89883F89883F' +
'716969716969716969716969373232716969716969716969716969' +
'716969716969716969716969716969716969716969716969342E2E' +
'544E4E544E4E544E4E544E4E544E4E716969716969716969716969' +
'7169697169692B2929544E4E544E4E6C64646C64646C64646C6464' +
'6C64646C6464544E4E544E4E544E4E544E4E544E4E544E4E544E4E' +
'6C64646C64646C64646C64646C64646C64646C64646C64646C6464' +
'6C64646C64646C64646C64646C64646C64648D83838D83838D8383' +
'8D8383544E4E524B4B524B4B524B4B4F48484F48486C64646C6464' +
'6C64648D83838D83838D83838D83838D83838D83838D83838D8383' +
'8D83838D83834A44446C64646C64646C64648D83838D83838D8383' +
'8D83838D83838D83835457BA8D83838D83838D83834A44446C6464' +
'6C64646C64648D8383BA5B545457BA8D83838D83835457BA5457BA' +
'8D83838D83838D83834A44446C64646C64646C64648D8383BA5B54' +
'8D83835457BA5457BA5457BA5457BA8D83838D83838D83834A4444' +
'6C64646C64646C64648D8383BA5B545457BA5457BA5457BA5457BA' +
'5457BA5457BA5457BA8D83834A44446C64646C64646C64648D8383' +
'BA5B545457BA5457BA5457BA5457BA5457BA8D83838D83838D8383' +
'4A44446C64646C64646C64648D8383BA5B54');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'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.[/scar]
------------------------------------------------------ blacKSIMON - SRL Member Application Form
blacKSIMON
What is the meaning to life?
42
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Vb, dotnet 03, pascal, python
Other Communitys
Was member at old SRL forums
How Long have You Played Runescape
Since 2001
Are you affilated in anyway with Jagex LTD?
No
-----------------------------------------------------
Please write down a paragraph about Yourself.
I work for a private jet charter company as a lead developer, I created and maintain our booking engive an our app which is based in dotnet. I havent created scripts in a while and Im not too use to SRL. Ive been scripting since 2002, helping people work out errors in thier scripts, but never selling or sharing scripts (Safer for me). I plan to make an array of SRL agility scripts for the community. What ill submit is my only shared script ever, my varrock east and west iron miner and banker, as you can tell, the randoms and the script in general is ancient, so bear with me. If i get accepted into the SRL area, i plan to make this into a fully functional SRl script. Hopefully removing a lot of un-needed code
Thanks for taking the time to look at this.
------------------------------------------------------
Please Post a Sample of your Work. Only SCAR Scripts Accepted
[scar] ////////////////////////////////////////////////////
// I Mine Iron Plocks ver. 4.1 by simon //
// Special thanks to squig for un-northed walker //
////////////////////////////////////////////////////
//Setup: //
// Need Scar 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: //
// Thank you runeCMS //
// Walking procedure supports map rotation. //
////////////////////////////////////////////////////
program ImineIronPlocks;
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,str6,str7,str8,str9,str10:string);
var
count:integer;
cont:boolean;
massage:string;
begin
writeln('WaG scripting Sending and Reciveing');
writeln(' Concept by: cody');
writeln(' Uber l33t Coding bY:');
writeln(' GenoDemoN and BlackSimon');
writeln(' we own your moms');
SendInterSCARMessage('COMM2WAAMP', 'CLEAR');
SendInterSCARMessage('SHARE', 'CLEAR');
SendInterSCARMessage('COMM2MAIN', 'CLEAR');
wait(500);
repeat
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; (
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
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,picks,runs,talked,ore,Mine,MineY,Take,TakeY, RandomBox,boxcount,
rcmQuickBank,rcmQuickBankY,InBank,rcmStoreAll,rcmStoreAllY,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 = False; //use WAAMP over built in random event protection?
Town = 1; //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 = 2174538; //Rocks Colors
Ore2 = 2503250; //Rocks Colors
Ore3 = 2635350; //Rocks Colors
{=============From MiniMap=============}
banklogo = 3060683; //Minimaps banklogo color
roadcolor = 5592411; //Minimaps Roads color
miningspot = 5658197; //Minimaps Pick Head color
{===============End Setup==============}
Procedure PrintProgressReport;
var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; 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[s]');
If (UseWAAMP = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
If (UseWAAMP = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
writeln('Mined '+inttostr(trips)+' Time[s] '+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);
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+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
writeln('ScreenCaptureFor'+reason+inttostr(strtoint((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));
ClickMouseHuman(x+200,y-3,40,4,true);
Wait(500);
p:=p+1;
until(not FindBitmap(LogIn,x,y))or(p>=3);
end;
end;
procedure LoginIfNeeded; //BlackSimon's RS2 Login modified by Aton then by cody
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,120)=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,745,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,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,198,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
begin
Clickmousehuman(675,175,15,25,true);
if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
(not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,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,745,468,100))or
(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
begin
hc1:=GetColor(x+6,y+3);
hc2:=GetColor(x+18,y+7);
hc3:=GetColor(x+20,y+6);
hc4:=GetColor(x+19,y+6);
hc5:=GetColor(x+16,y+5);
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))then
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,200,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))then
begin
GetScreenShot('FindingPick',FindingPick);
FindingPick := FindingPick + 1;
repeat
DropCount:=DropCount+1
If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,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);end else itemgrab;
end else itemgrab;
until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
AttachPick;
PutOn;
end;
end;
procedure FindGas(findx,findy:integer); //stupid3000s gasfinder, im too lazy to make my own
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(PickMode=1)or
(findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=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))then
begin
c:=0;
ClickMousehuman(x,y,60,8,true);
wait(1046+random(42));
end;
until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))and(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,460)))and(PickMode=1)and
(not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
(not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)
end;
procedure CloseBank;
begin
ClickMousehuman(425,37,50,5,true);
wait(1565+random(65));
end;
Procedure Banking; //Made By Blacksimon 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(rcmQuickBanky,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,730,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,692,120,Tolerance))Then
begin
c:=c+1;
Status('Going Out Varrock '+inttostr(c)+'/3');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,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(c)+'/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,722,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,722,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,700,34,Tolerance))Then
begin
Status('Going To Varrock '+inttostr(c)+'/4');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
begin
Status('Going To Bank '+inttostr(c)+'/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,710,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,730,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(c)+'/8');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
Wait(200)
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
c:=1;
L:=0;
repeat
If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
begin
Status('Going West '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
c:=c+1;
end;
Loginifneeded;
L:=L+1;
until(FindColorSpiralTolerance(x,y,roadcolor,585,115,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(c)+'/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(c)+'/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,722,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,722,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,722,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,722,160,Tolerance))Then
begin
c:=1
Loginifneeded;
Status('Going north '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x-15,y-60,5,5,True)
MapFlag;
end
Loginifneeded;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
begin
c:=c+1;
Status('Going north '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))and(c>1)or(c>4)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
begin
c:=c+1;
Status('Going East '+inttostr(c)+'/2');
wait(50)
ClickMousehuman(x,y,5,5,True)
MapFlag;
end
Loginifneeded;
L:=L+1;
Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
c:=0;
repeat
if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
begin
c:=c+1;
Status('Going North '+inttostr(c)+'/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,722,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(FindBitmap(MineY,x,y))and(Leftclick=False)or
(FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
begin
If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then 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,
'0000000000005D54475D54470000000000000000000000005D5447' +
'5D54470000000000000000000000005D54475D5447000000000000' +
'');
Talk := BitmapFromString(17, 10,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000000000000000' +
'000000000000000000000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000000000000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
TalkY := BitmapFromString(17, 10,
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000000000000000' +
'000000000000000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000000000000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000000000000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
Mine := BitmapFromString(14, 12,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'000000000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
'000000000000000000000000FFFFFFFFFFFF000000000000000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000');
MineY := BitmapFromString(14, 12,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000FFFF00FFFF00000000' +
'000000000000000000FFFF00FFFF00000000000000000000000000' +
'000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
'000000000000000000000000FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000000000')
Take := BitmapFromString(43, 4,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
'0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
'5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
'0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
'FF9040');
TakeY := BitmapFromString(43, 4,
'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
'000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
'5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
'0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
'0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
'5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
'5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
'0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
'5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
'0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
'FF9040');
flag := BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
InBank := BitmapFromString(79, 2,
'FF981FFF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
'000000FF981FFF981F000000000000000000000000000000000000' +
'000000FF981FFF981FFF981FFF981F000000000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000000000' +
'000000FF981FFF981F000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
'FF981FFF981F000000000000000000000000000000000000FF981F' +
'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
'000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
'000000000000000000000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000000000000000FF981FFF981F' +
'000000000000000000000000000000000000000000000000FF981F' +
'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
'000000000000FF981FFF981F000000');
rcmQuickBank := BitmapFromString(63, 6,
'FFFFFF000000000000FFFFFFFFFFFF000000000000000000000000' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00FFFF00000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000000000000000000000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFF000000' +
'00000000000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000000000000000FFFF00FFFF00FFFF00FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF' +
'');
rcmQuickBankY := BitmapFromString(70, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000000000000000000000FFFF00FFFF00FFFF00FFFF00' +
'000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000000000000000' +
'00000000FFFF00FFFF00000000000000FFFF00FFFF000000000000' +
'00FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF' +
'00FFFF00FFFF00000000FFFF00FFFF000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'000000000000000000FFFF00FFFF00FFFF00000000000000000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF0000000000000000000000000000000000000000FFFF' +
'00FFFF00000000000000FFFF00FFFF00000000000000000000FFFF' +
'00FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF000000' +
'00000000FFFF00FFFF000000000000');
rcmStoreAllY := BitmapFromString(8, 10,
'5D54475D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447' +
'5D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447FFFF00' +
'FFFF000000000000005D5447FFFF00FFFF005D5447FFFF00FFFF00' +
'0000005D54475D5447FFFF00FFFF005D5447FFFF00FFFF00FFFF00' +
'FFFF00FFFF00FFFF00FFFF005D5447FFFF00FFFF00000000000000' +
'000000FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447' +
'FFFF00FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00' +
'FFFF005D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF00');
rcmStoreAll := BitmapFromString(8, 11,
'5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
'5D54475D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447' +
'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF' +
'0000000000005D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFF000000' +
'5D54475D5447FFFFFFFFFFFF5D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
'FFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF000000000000000000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFF' +
'FFFFFF5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF' +
'5D5447FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF5D5447' +
'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFF');
Login := BitmapFromString(11, 7,
'000000000000FFFF00000000000000000000000000000000000000' +
'000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
'FFFF00FFFF00FFFF00000000000000FFFF00000000000000000000' +
'000000FFFF00000000000000000000FFFF00000000FFFF00000000' +
'000000000000000000FFFF00000000000000000000FFFF00000000' +
'FFFF00000000000000000000000000FFFF00000000000000000000' +
'FFFF00000000FFFF00000000000000000000000000FFFF00000000' +
'000000000000FFFF00000000000000FFFF00FFFF00000000000000' +
'000000FFFF00FFFF00FFFF00000000');
Drop := BitmapFromString(20, 2,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
'5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
'FFFFFFFFFFFFFFFFFF000000');
PickAxe := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
'2F20003625003D2900000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'000001000001392D1B44341E4D3B22544127000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001392D1B342918342918342918' +
'34291834291834291834291834291834291840311E44341E4D3B22' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
'3429183429183429183429183429183429183429183429181E1500' +
'271B005441274D3B22000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
'392D1B392D1B392D1B342918342918342918342918342918342918' +
'3429181E1500271B002F2000513E254D3B2248382044341E000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011E15002F20002F20004D3B224D3B22' +
'48382044341E40311E44341E000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011E1500271B002F2000' +
'2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1E15002F20002F20002F200000000100000100000144341E40311E' +
'392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011E1500271B002F20002F2000000001302020302020' +
'302020000001000001000001392D1B2F2515342918392D1B000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011E15002F20002F2000000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
'2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B30202030202000000100000140311E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011E15002F20002F2000000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickAxeSteel := BitmapFromString(30, 14,
'564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
'544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
'564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
'544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
'2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
'564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
'564D42564D42000001000001000001000001000001000001000001' +
'0000010000015C5656686060756D6C827878000001302020564D42' +
'544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
'4D44384D4438564D42000001000001595353595353595353595353' +
'595353595353595353595353595353575151615A596A6262756D6C' +
'000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
'544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
'5751515751515751515751515751515751515751515751511C1400' +
'251900827878756D6C000001000001564D42544A3B564D42564D42' +
'564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
'5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
'544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
'000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
'544A3B000001000001000001000001000001000001000001000001' +
'0000010000010000010000011C14002D1E002D1E00797070756D6C' +
'6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
'544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
'3020203020203020203020203020200000011C14002519002D1E00' +
'2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
'000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
'544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
'1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
'5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
'564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
'564D420000011C14002519002D1E002D1E00000001302020302020' +
'302020000001000001000001595353524B4B544E4E595353000001' +
'302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
'564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
'302020302020544A3B544A3B544A3B302020302020000001000001' +
'0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
'544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
'2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
'544A3B544A3B302020302020000001000001665E5E000001564D42' +
'544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
'0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
'564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
'000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
'544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
'4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
'544A3B544A3B544A3B564D42302020544A3B');
PickHandle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
'564D41595145000001000001544A3C4F4538544A3C595145564D41' +
'544A3C544A3C544A3C5951455951455951455951450000012F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
'5951455951455951450000012F20002F2000362400000001302020' +
'564D41544A3C544A3C595145564D41595145564D41595145595145' +
'0000012F2000362400362400000001302020564D41564D41564D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
'544A3C544A3C0000012F2000362400362400362400000001302020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
'2F2000362400362400000001302020302020564D41564D41564D41' +
'595145564D41564D41564D410000012F2000362400362400000001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
'0000012F2000362400362400362400000001302020564D41564D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
'362400000001302020302020564D41564D41544A3C544A3C595145' +
'595145564D410000012F2000362400362400362400000001302020' +
'564D41564D41544A3C544A3C564D41564D41595145595145000001' +
'2F20002F20002F2000000001302020302020564D41564D41544A3C' +
'564D41564D41544A3C564D410000012F20002F20002F2000362400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
'564D410000012F20002F20002F2000000001302020302020544A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
'2F2000000001302020302020595145544A3C564D41595145595145' +
'595145564D41564D410000012F20002F20002F2000000001302020' +
'595145595145564D41564D41595145595145595145595145000001' +
'2F20002F20002F2000000001302020302020595145595145595145' +
'595145564D41564D41564D41564D410000012F20002F20002F2000' +
'000001302020564D41595145595145595145595145564D41564D41' +
'544A3C0000012F20002F20002F2000000001302020302020564D41' +
'595145595145544A3C544A3C564D41595145564D410000012F2000' +
'2F20002F2000000001302020544A3C564D41595145595145544A3C' +
'544A3C564D41564D41564D410000012F20002F2000000001302020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
'000001271B002F20002F2000000001302020595145544A3C564D41' +
'595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
'000001302020302020595145544A3C564D41595145595145595145' +
'564D41564D41564D410000011D15001D1500000001302020595145' +
'544A3C544A3C564D41595145595145595145595145595145544A3C' +
'0000011D15001D1500000001302020564D41595145595145595145' +
'595145564D41595145595145564D41544A3C564D41000001000001' +
'302020302020595145595145595145595145544A3C564D41595145' +
'544A3C544A3C4F4538564D41595145302020302020564D41595145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
'');
PickHead := BitmapFromString(6, 5,
'2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
'352400000001483E331D14001D1400261A002E1F00000001302020' +
'000001000001000001000001302020302020302020302020302020' +
'302020302020483E33');
Orebmp := BitmapFromString(10, 10,
'856C4B856C4B886E4D8B704F000001000001000001000001443827' +
'584731856C4B886E4D000001000001302020302020000001382D1E' +
'54442F68543B0000010000013020203020203020200000012D2518' +
'483B296C573D6F593E302020302020302020544A3C544A3C000001' +
'3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
'0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
'564D41000001584731725C407760447A6346544A3C544A3C564D41' +
'564D41564D41000001655239755E437A6346806748544A3C564D41' +
'544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
'544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
'564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
'302020');
RandomBox := BitmapFromString(14, 12,
'524B4B89883F89883F89883F89883F89883F89883F89883F89883F' +
'716969716969716969716969373232716969716969716969716969' +
'716969716969716969716969716969716969716969716969342E2E' +
'544E4E544E4E544E4E544E4E544E4E716969716969716969716969' +
'7169697169692B2929544E4E544E4E6C64646C64646C64646C6464' +
'6C64646C6464544E4E544E4E544E4E544E4E544E4E544E4E544E4E' +
'6C64646C64646C64646C64646C64646C64646C64646C64646C6464' +
'6C64646C64646C64646C64646C64646C64648D83838D83838D8383' +
'8D8383544E4E524B4B524B4B524B4B4F48484F48486C64646C6464' +
'6C64648D83838D83838D83838D83838D83838D83838D83838D8383' +
'8D83838D83834A44446C64646C64646C64648D83838D83838D8383' +
'8D83838D83838D83835457BA8D83838D83838D83834A44446C6464' +
'6C64646C64648D8383BA5B545457BA8D83838D83835457BA5457BA' +
'8D83838D83838D83834A44446C64646C64646C64648D8383BA5B54' +
'8D83835457BA5457BA5457BA5457BA8D83838D83838D83834A4444' +
'6C64646C64646C64648D8383BA5B545457BA5457BA5457BA5457BA' +
'5457BA5457BA5457BA8D83834A44446C64646C64646C64648D8383' +
'BA5B545457BA5457BA5457BA5457BA5457BA8D83838D83838D8383' +
'4A44446C64646C64646C64648D8383BA5B54');
iLamp := BitmapFromString(17, 6,
'000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
'9291128C8A1275740E000001000001000001000001000001D0CE18' +
'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
'99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
'9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
'88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
'79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
'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.——————————————————