computer_genius
10-12-2006, 12:05 AM
Is there a rune essence autominer for members because members have to click on the essence and then select mine essence. Is there a script for this or is there a way to modify this script to do it?
program StrangeEssMiner;
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}
/////////////////////////////////////////////////////////////////////
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS! //
//This is Solemns script fith Wizeons fix to "coming back" problem //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
//Setup: //
//·Need scar 2.03 (reccomended) //
//.LOW OR HIGH detail //
//·V bright brightness //
//.Have map facing pretty much north and the highest point of view //
//.start in varrok bank (recomended near middle banker) //
//.No longer need to fill in color's bellow //
/////////////////////////////////////////////////////////////////////
const
////////////////////////////////////////////////////////////////////////
//
//
getbankcolor=4703451;//No longer need to change this setting at all //
floorcolor=3825001; //Reccomended but not needed, used as a backup //
//
//
// Updates //
//Version 3.2 Added x,x,color fixing many banking issues //
//Version 3.3 Fixed bank colloring for mor accurate return to bank //
//Version 3.4 Random walk fixed(nolonger gets lost) //
//Version 3.41 Enhancments to run in high detain or low //
//Version 3.5 Comming soon 1 click walk to aubury shop //
// Know Glitches //
// Color glitch causing random walking in bank does auto correct itself//
// Color glitch when walkign to aubury shop causing character stuck outside//
// Trip counter doesnt stop lopping after loads desired finished //
// Use At Own Risk //
// Special Thanks to Solemn for giving me a good starting script //
////////////////////////////////////////////////////////////////////////
TrialTimes= 10; //
CerterComments= true; //
////////////////////////////////////////////////////////////////////////
var
frmDesign : TForm;
usernamepanel : TPanel;
usernameenter : TEdit;
passwordtag : TPanel;
passwordenter : TEdit;
startbutton : TButton;
tripstodo : TPanel;
numberoftrips : TEdit;
tripsyouset,SWUsername,SWPassword:string;
UseQuicky,UseQuick,Handle:integer;
c,arrow,clickhere,timestalked,play,bankcolor:integ er;
runeshop,teleportbackup,teleport,login,logged: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,b mpCerterAxe,bmpSpade,
bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatC hars,Certers:integer;
Procedure checkifloged;
begin
if(FindDTM(logged,x,y,0,0,1024,768))then
begin
mouse(x,y,3,1,true)
repeat
wait(1000+random(500))
until(FindDTM(login,x,y,0,0,1024,768))
sendkeys(SWusername+chr(13));
sendkeys(SWpassword)
if(FindDTM(login,x,y,0,0,1024,768))then
Mouse(x,y,1,1,true)
repeat wait(500+random(500))
until(findcolorspiraltolerance(x,y,16777215,469,31 9,611,359,5))
mouse(x,y,1,2,true)
end;
end;
function CerterChooseOption(txt:string):boolean;
var
s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:intege r;
begin
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
'411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
'C5200D30002E35F8C501C9C013F0');
s:=CreateBitmapMaskFromText(txt,CerterUpChars);
cancel:=CreateBitmapMaskFromText('Cancel',CerterUp Chars);
if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(Rig htCorner,x2,y2))then
begin
if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,8 5))then
begin
Result:=True;
MOUSE(x+10+random(5),y+3,7,3,true);
end else if(FindBitmapMaskTolerance(cancel,x,y,x1,y1,x2,502 ,10,85))then
Mouse(x+10+random(5),y+3,7,3,true);
end;
FreeBitmap(LeftCorner);
FreeBitmap(RightCorner);
FreeBitmap(s);
FreeBitmap(cancel);
end;
function CerterFindObj(text:string;color,tolerance:integer) :boolean;
var
a,c,i,x1,y1,x2,y2:integer;
begin
if(FindColorTolerance(x,y,color,3,3,515,338,tolera nce))then
begin
x1:=245;
y1:=165;
x2:=277;
y2:=185;
repeat
a:=a+1;
if(a=1)then
c:=c+1;
if(a=3)then
c:=c+1;
for i:=1 to c do
begin
if(a=1)then
begin
x1:=x1+30;
x2:=x2+30;
end;
if(a=2)then
begin
y1:=y1-20;
y2:=y2-20;
end;
if(a=3)then
begin
x1:=x1-30;
x2:=x2-30;
end;
if(a=4)then
begin
y1:=y1+20;
y2:=y2+20;
end;
if(x1=485)and(x2=517)then
x2:=x2-2;
if(y1=325)and(y2=345)then
y2:=y2-7;
if(x2>515)then
Break;
if(FindColorTolerance(x,y,color,x1,y1,x2,y2,tolera nce))then
begin
MMouse(x,y,1,1);
if(IsTextAt2(9,9,text,100))then
begin
Result:=true;
Break;
end;
end;
end;
if(a=4)then
a:=0;
until(x2>515)or(Result=true)
end;
end;
function CerterTalkToRand:boolean;
var
c:integer;
begin
while(((FindColor(x,y,16711680,5,345,510,465))and( not(GetColor(20,434)=0)))or
((FindColor(x,y,16777215,5,345,510,465))and(not(Ge tColor(20,434)=0))))and
(not(GetColor(20,434)=0))or(c>50)do
begin
c:=c+1;
Result:=true;
Mouse(x,y,50,2,true);
Wait(500+random(500));
end;
end;
function CerterScreen:boolean;
begin
if(getcolor(359,37)=8168120)or(getcolor(163,167)=1 922399)or(getcolor(89,51)=879691)then
result:=true;
end;
function CountPixels:integer;
var
c,Average,ax,ay,BackgroundColor,PixelCount:integer ;
begin
for c:=1 to TrialTimes do
begin
BackgroundColor:=GetColor(151,151);
ax:=151;
ay:=151;
repeat
repeat
ax:=ax+1;
if(not(GetColor(ax,ay)=BackgroundColor))then
PixelCount:=PixelCount+1;
until(ax=376)
ax:=151;
ay:=ay+1;
until(ay=294)
if(not(CerterScreen))then
Break;
Average:=Average+PixelCount;
if(CerterComments)then
WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
PixelCount:=0;
end;
if(CerterScreen)then
Result:=(Average/TrialTimes);
end;
function SolveCerter:boolean;
var ResultCount:integer;
begin
if(CerterScreen)then
begin
if((not(FindBitmapSpiralTolerance(bmpNecklace,x,y, 99,36,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpSword,x,y,99,36, 324,140,50))))or
((not(FindBitmapSpiralTolerance(bmpShears,x,y,99,3 6,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,3 24,140,50))))or
((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,3 6,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99 ,36,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36, 324,140,50))))or
((not(FindBitmapSpiralTolerance(bmpFish,x,y,99,36, 324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpShield,x,y,99,36 ,324,140,50))))then
begin
Pixels:=CountPixels;
if(CerterComments)then
WriteLn(inttostr(Pixels)+' average pixels of non-background color.');
if(Pixels>=342-100)and(Pixels<342+100)then
begin
if(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36 ,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=442-100)and(Pixels<442+100)then
begin
if(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,32 4,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=715-100)and(Pixels<715+100)then
begin
if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=740-100)and(Pixels<740+100)then
begin
if(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324 ,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=990-100)and(Pixels<990+100)then
begin
if(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=1093-100)and(Pixels<1093+100)then
begin
if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,3 6,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=1173-100)and(Pixels<1173+100)then
begin
if(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,32 4,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=2256-100)and(Pixels<2256+100)then
begin
if(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324 ,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=2244-100)and(Pixels<2244+100)then
begin
if(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(CerterComments)then
Writeln('There is/are '+inttostr(ResultCount)+' possible items shown with'
+' this number of pixels.');
if(ResultCount=1)then
begin
Result:=true;
Mouse(100,y,1,1,true);
end;
end;
end;
end;
function FindCerter:boolean;
var
c:integer;
begin
if(CerterScreen)then
begin
CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
repeat
c:=c+1;
if(CerterScreen)then
begin
if(not(SolveCerter))then
begin
Mouse(449, 11,1,1,true);
if(CerterFindObj('Talk',7039859,15))then
begin
Mouse(x,y,1,1,false);
CerterChooseOption('Talk');
CerterTalkToRand;
Flag;
Wait(500+random(100));
end;
end else
Break;
end;
until(c>100)
if(c<100)then
begin
Certers:=Certers+1;
Result:=true;
end;
end;
end;
procedure solemnrandoms;
begin
checkifloged;
FindBox;
findtalk;
findpick;
FindDoctorFord;
FindCerter;
FindLamp('smithing');
FindMiscRandoms;
if(FindFight)then
begin
writeln('we are being attacked, running away')
RunAwayDirection('S')
RunBack;
randomfight:=randomfight+1
end;
end;
procedure walkingrandoms;
begin
checkifloged;
FindLamp('smithing');
findbox;
end;
procedure walktoaubury;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
mouse(650,158,4,3,true)
wait(15000+random(2000))
flag;
begin
magicthingy:=GetSymbolColor('magic shop');
writeln('magic shop color:'+inttostr(magicthingy));
if(findcolorspiraltolerance(x,y,floorcolor,576,10, 718,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))then
begin
mouse(x,y,1,2,true)
walkingrandoms;
flag;
end;
end;
end;
end;
procedure Randomwalkselecter;
var b:integer;
Begin
b:= random(2)+1
begin
If(b= 1)then
walktoaubury;
If(b= 2)then
walktoaubury;
end;
end;
procedure findandtalk;
begin
walkingrandoms;
repeat
FindObj('Talk',1914942,12)
wait(200+random(100))
mouse(x,y,1,1,false)
wait(1000+Random(500))
until(FindBitmapToleranceIn(teleport,x,y,5,5,512,3 34,50))or
(FindBitmapToleranceIn(teleportbackup,x,y,5,5,512, 334,50))
mouse(x,y,1,1,true)
flag;
wait(2500+random(2000))
end;
procedure detectroom2;
begin
if(findcolorspiraltolerance(x,y,10855856,561,4,719 ,167,14))then
begin
mouse(x,y,1,1,true)
wait(random(1000+800))
flag;
writeln('We have been teleported to the middle-room')
end;
end;
function detectrooms:boolean;
begin
walkingrandoms;
result:=false;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
result:=true;
if(result= false)then
detectroom2;
end;
procedure backtoshop;
begin
walkingrandoms;
repeat
wait(random(2500+500))
until(findbitmaptolerancein(arrow,x,y,543,3,760,16 5,50))
begin
Mouse(x,y,1,2,true)
flag;
repeat
FindObj('Use',11332846,80)
Mouse(x,y,3,2,true)
flag;
wait(2500+random(1000))
until(findcolorspiraltolerance(x,y,floorcolor,576, 10,718,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))
wait(1000+random(1000));
end;
end;
procedure backtobank;
begin
mouse(650,10,1,2,true)
flag;
wait(9000+random(1000))
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
repeat
FindObj('Use',607067,12)
Mouse(x,y,1,1,false)
wait(600+random(500))
if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757, 491,50))or
(FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,4 91,50))then
mouse(x,y,1,1,true)
flag;
wait(1000+random(500))
until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
begin
wait(700+random(600))
Deposit(2,28,2);
mined:=mined+28
timestalked:=timestalked+1
exp:=exp+140
c:=0;
end;
end;
end;
procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 4.1\\')
writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
SWusername:= usernameenter.text;
SWpassword:= passwordenter.text;
tripsyouset:= numberoftrips.text;
end;
procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 266;
frmDesign.Top := 277;
frmDesign.Width := 228;
frmDesign.Height := 259;
frmDesign.Caption := 'Solemn Wishes ess miner';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
usernamepanel := TPanel.Create(frmDesign);
usernamepanel.Parent := frmDesign;
usernamepanel.Left := 12;
usernamepanel.Top := 25;
usernamepanel.Width := 78;
usernamepanel.Height := 28;
usernamepanel.Caption := 'Username';
usernamepanel.Enabled := False;
usernamepanel.TabOrder := 8;
usernameenter := TEdit.Create(frmDesign);
usernameenter.Parent := frmDesign;
usernameenter.Left := 95;
usernameenter.Top := 26;
usernameenter.Width := 121;
usernameenter.Height := 21;
usernameenter.TabOrder := 9;
passwordtag := TPanel.Create(frmDesign);
passwordtag.Parent := frmDesign;
passwordtag.Left := 10;
passwordtag.Top := 68;
passwordtag.Width := 81;
passwordtag.Height := 27;
passwordtag.Caption := 'Password';
passwordtag.TabOrder := 10;
passwordenter := TEdit.Create(frmDesign);
passwordenter.Parent := frmDesign;
passwordenter.Left := 94;
passwordenter.Top := 68;
passwordenter.Width := 122;
passwordenter.Height := 21;
passwordenter.TabOrder := 11;
tripstodo := TPanel.Create(frmDesign);
tripstodo.Parent := frmDesign;
tripstodo.Left := 66;
tripstodo.Top := 106;
tripstodo.Width := 80;
tripstodo.Height := 24;
tripstodo.Caption := 'Trips To Do';
tripstodo.TabOrder := 13;
numberoftrips := TEdit.Create(frmDesign);
numberoftrips.Parent := frmDesign;
numberoftrips.Left := 36;
numberoftrips.Top := 130;
numberoftrips.Width := 141;
numberoftrips.Height := 21;
numberoftrips.TabOrder := 14;
startbutton := TButton.Create(frmDesign);
startbutton.Parent := frmDesign;
startbutton.OnClick:= @Start;
startbutton.Left := 62;
startbutton.Top := 169;
startbutton.Width := 75;
startbutton.Height := 25;
startbutton.Caption := 'Start';
startbutton.TabOrder := 12;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Procedure progressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*6000)then
begin
Seconds:=(GetSystemTime) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln('');
writeln('');
writeln(' WORKED FOR '+(TIME));
writeln(' <This essence miner was created by solemn wishes >');
writeln(' TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln(' MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln(' GAINED '+inttostr(exp)+' EXP SO FAR')
writeln(' FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
writeln('');
writeln('');
Report2:=GetSystemTime;
end;
end;
end;
Procedure LoadDTM;
Begin
logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A2 6C' +
'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C4767 5F54' +
'35FB812C1502EE5981A9C6C32B04450D00F097111D');
login := DTMFromString('78DA635465646070026224F0FFFF7F300D1 36' +
'5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A9 3107' +
'B2EE12501301643D4055E3E1158CA20600DD4710DE');
runeshop:= DTMFromString('78DA6364C004C91136609A1188FF0301001 8E' +
'604F6');
end;
procedure loadbitmaps;
begin
teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
'5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
'60700137208091A3AE1D58D722AB27462FF1EA8951499E69B 4162' +
'7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA76 78B8' +
'76A80000F0D74AB7');
play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
'57C5AAB2746EF60763F2DE28B780000AAE17B79');
clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000 A02B' +
'B79D');
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
Handle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
UseQuick := BitmapFromString(16, 6,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF');
UseQuickY := BitmapFromString(17, 5,
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000000000');
bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
'17235347002B39149A8B891A58BB9053289294EBC4A5C24F1 6602' +
'004B97286E');
bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
'35347002B37191986AC8137132B0743637838A83D9C8242E7 1141' +
'2BFF9785D8E8B4D6B370300B2B65059');
bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
'436378390C64488D042252EBDC8B2C86A88514F0B97E0720F 7EBB' +
'00EC754F5D');
bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
'5347002B37191B8D4902A4E892E52550E949B2122C8E20009 EF50' +
'B3');
bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
'431B740268D31C48D69A0923C1328318772B7916732008DB8 502F' +
'');
bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
'18B91A1A404862543A19583A9B9BE12231D510A30B8524C60 D186' +
'C6AB919BF7A94B042120700F0A05073');
bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
'35347002B33149A8AC91A58BB90532894B1C599612BD38453 0DD4' +
'6B19B91C569E16600F6AC50A3');
bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
'B18B91A1A505796787188087E5B2877157922A4BA190004CE 5092' +
'');
bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
'433B78490C64488381959BA985B40C5C16CE24528D78BD355 986E' +
'A692BD9498062101C5625087');
end;
procedure minethatess;
begin
repeat
FindObj('Mine',8553104,10)
if(IsTextAt2(9,9,'Mine',100))then
getmousepos(x,y)
Mouse(x,y,2,3,true)
begin
wait(8000+2000)
end;
solemnrandoms;
c:=c+1
until(c=15)or(inventoryfull= true)
end;
procedure SetupSSIcustom;
begin
LoadChars('');
DisguiseScar(MaskName);
UpChars:= LoadChars2(AppPath + 'CharsRS22\');
ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
'800170890F1420C63DB473333D4D264664342E06CACCE1111 7D4F' +
'2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD 928D' +
'76BA06BF083DE382F8D432506963A04488610FCE5C408C69F 87D3' +
'454E28276651D754B636A95F994E76E5AD49E002F369293') ;
MarkTime(LogOutMark);
MarkTime(RandomChatMark);
MarkTime(RotateMark);
MarkTime(KillScriptMark);
MarkTime(LeaveScreenMark);
GasColor:=8100004;//Reference color of gas.
LoadSSIBmps;
ST:=GetSystemTime;
SetMouseMode(false);
if(SetCamera='')then
SetCamera:='N';
if(LoggedIn)then
begin
{Face(SetCamera);
SendArrowSilentWait(0,1400+random(100)); }
end;
end;
begin;
SafeInitForm;
SafeShowFormModal;
activateclient;
wait(500+random(500))
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.
program StrangeEssMiner;
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}
/////////////////////////////////////////////////////////////////////
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS! //
//This is Solemns script fith Wizeons fix to "coming back" problem //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
//Setup: //
//·Need scar 2.03 (reccomended) //
//.LOW OR HIGH detail //
//·V bright brightness //
//.Have map facing pretty much north and the highest point of view //
//.start in varrok bank (recomended near middle banker) //
//.No longer need to fill in color's bellow //
/////////////////////////////////////////////////////////////////////
const
////////////////////////////////////////////////////////////////////////
//
//
getbankcolor=4703451;//No longer need to change this setting at all //
floorcolor=3825001; //Reccomended but not needed, used as a backup //
//
//
// Updates //
//Version 3.2 Added x,x,color fixing many banking issues //
//Version 3.3 Fixed bank colloring for mor accurate return to bank //
//Version 3.4 Random walk fixed(nolonger gets lost) //
//Version 3.41 Enhancments to run in high detain or low //
//Version 3.5 Comming soon 1 click walk to aubury shop //
// Know Glitches //
// Color glitch causing random walking in bank does auto correct itself//
// Color glitch when walkign to aubury shop causing character stuck outside//
// Trip counter doesnt stop lopping after loads desired finished //
// Use At Own Risk //
// Special Thanks to Solemn for giving me a good starting script //
////////////////////////////////////////////////////////////////////////
TrialTimes= 10; //
CerterComments= true; //
////////////////////////////////////////////////////////////////////////
var
frmDesign : TForm;
usernamepanel : TPanel;
usernameenter : TEdit;
passwordtag : TPanel;
passwordenter : TEdit;
startbutton : TButton;
tripstodo : TPanel;
numberoftrips : TEdit;
tripsyouset,SWUsername,SWPassword:string;
UseQuicky,UseQuick,Handle:integer;
c,arrow,clickhere,timestalked,play,bankcolor:integ er;
runeshop,teleportbackup,teleport,login,logged: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,b mpCerterAxe,bmpSpade,
bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatC hars,Certers:integer;
Procedure checkifloged;
begin
if(FindDTM(logged,x,y,0,0,1024,768))then
begin
mouse(x,y,3,1,true)
repeat
wait(1000+random(500))
until(FindDTM(login,x,y,0,0,1024,768))
sendkeys(SWusername+chr(13));
sendkeys(SWpassword)
if(FindDTM(login,x,y,0,0,1024,768))then
Mouse(x,y,1,1,true)
repeat wait(500+random(500))
until(findcolorspiraltolerance(x,y,16777215,469,31 9,611,359,5))
mouse(x,y,1,2,true)
end;
end;
function CerterChooseOption(txt:string):boolean;
var
s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:intege r;
begin
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
'411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
'C5200D30002E35F8C501C9C013F0');
s:=CreateBitmapMaskFromText(txt,CerterUpChars);
cancel:=CreateBitmapMaskFromText('Cancel',CerterUp Chars);
if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(Rig htCorner,x2,y2))then
begin
if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,8 5))then
begin
Result:=True;
MOUSE(x+10+random(5),y+3,7,3,true);
end else if(FindBitmapMaskTolerance(cancel,x,y,x1,y1,x2,502 ,10,85))then
Mouse(x+10+random(5),y+3,7,3,true);
end;
FreeBitmap(LeftCorner);
FreeBitmap(RightCorner);
FreeBitmap(s);
FreeBitmap(cancel);
end;
function CerterFindObj(text:string;color,tolerance:integer) :boolean;
var
a,c,i,x1,y1,x2,y2:integer;
begin
if(FindColorTolerance(x,y,color,3,3,515,338,tolera nce))then
begin
x1:=245;
y1:=165;
x2:=277;
y2:=185;
repeat
a:=a+1;
if(a=1)then
c:=c+1;
if(a=3)then
c:=c+1;
for i:=1 to c do
begin
if(a=1)then
begin
x1:=x1+30;
x2:=x2+30;
end;
if(a=2)then
begin
y1:=y1-20;
y2:=y2-20;
end;
if(a=3)then
begin
x1:=x1-30;
x2:=x2-30;
end;
if(a=4)then
begin
y1:=y1+20;
y2:=y2+20;
end;
if(x1=485)and(x2=517)then
x2:=x2-2;
if(y1=325)and(y2=345)then
y2:=y2-7;
if(x2>515)then
Break;
if(FindColorTolerance(x,y,color,x1,y1,x2,y2,tolera nce))then
begin
MMouse(x,y,1,1);
if(IsTextAt2(9,9,text,100))then
begin
Result:=true;
Break;
end;
end;
end;
if(a=4)then
a:=0;
until(x2>515)or(Result=true)
end;
end;
function CerterTalkToRand:boolean;
var
c:integer;
begin
while(((FindColor(x,y,16711680,5,345,510,465))and( not(GetColor(20,434)=0)))or
((FindColor(x,y,16777215,5,345,510,465))and(not(Ge tColor(20,434)=0))))and
(not(GetColor(20,434)=0))or(c>50)do
begin
c:=c+1;
Result:=true;
Mouse(x,y,50,2,true);
Wait(500+random(500));
end;
end;
function CerterScreen:boolean;
begin
if(getcolor(359,37)=8168120)or(getcolor(163,167)=1 922399)or(getcolor(89,51)=879691)then
result:=true;
end;
function CountPixels:integer;
var
c,Average,ax,ay,BackgroundColor,PixelCount:integer ;
begin
for c:=1 to TrialTimes do
begin
BackgroundColor:=GetColor(151,151);
ax:=151;
ay:=151;
repeat
repeat
ax:=ax+1;
if(not(GetColor(ax,ay)=BackgroundColor))then
PixelCount:=PixelCount+1;
until(ax=376)
ax:=151;
ay:=ay+1;
until(ay=294)
if(not(CerterScreen))then
Break;
Average:=Average+PixelCount;
if(CerterComments)then
WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
PixelCount:=0;
end;
if(CerterScreen)then
Result:=(Average/TrialTimes);
end;
function SolveCerter:boolean;
var ResultCount:integer;
begin
if(CerterScreen)then
begin
if((not(FindBitmapSpiralTolerance(bmpNecklace,x,y, 99,36,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpSword,x,y,99,36, 324,140,50))))or
((not(FindBitmapSpiralTolerance(bmpShears,x,y,99,3 6,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,3 24,140,50))))or
((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,3 6,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99 ,36,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36, 324,140,50))))or
((not(FindBitmapSpiralTolerance(bmpFish,x,y,99,36, 324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpShield,x,y,99,36 ,324,140,50))))then
begin
Pixels:=CountPixels;
if(CerterComments)then
WriteLn(inttostr(Pixels)+' average pixels of non-background color.');
if(Pixels>=342-100)and(Pixels<342+100)then
begin
if(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36 ,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=442-100)and(Pixels<442+100)then
begin
if(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,32 4,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=715-100)and(Pixels<715+100)then
begin
if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=740-100)and(Pixels<740+100)then
begin
if(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324 ,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=990-100)and(Pixels<990+100)then
begin
if(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=1093-100)and(Pixels<1093+100)then
begin
if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,3 6,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=1173-100)and(Pixels<1173+100)then
begin
if(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,32 4,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=2256-100)and(Pixels<2256+100)then
begin
if(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324 ,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=2244-100)and(Pixels<2244+100)then
begin
if(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,3 24,140,50))then
ResultCount:=ResultCount+1;
end;
if(CerterComments)then
Writeln('There is/are '+inttostr(ResultCount)+' possible items shown with'
+' this number of pixels.');
if(ResultCount=1)then
begin
Result:=true;
Mouse(100,y,1,1,true);
end;
end;
end;
end;
function FindCerter:boolean;
var
c:integer;
begin
if(CerterScreen)then
begin
CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
repeat
c:=c+1;
if(CerterScreen)then
begin
if(not(SolveCerter))then
begin
Mouse(449, 11,1,1,true);
if(CerterFindObj('Talk',7039859,15))then
begin
Mouse(x,y,1,1,false);
CerterChooseOption('Talk');
CerterTalkToRand;
Flag;
Wait(500+random(100));
end;
end else
Break;
end;
until(c>100)
if(c<100)then
begin
Certers:=Certers+1;
Result:=true;
end;
end;
end;
procedure solemnrandoms;
begin
checkifloged;
FindBox;
findtalk;
findpick;
FindDoctorFord;
FindCerter;
FindLamp('smithing');
FindMiscRandoms;
if(FindFight)then
begin
writeln('we are being attacked, running away')
RunAwayDirection('S')
RunBack;
randomfight:=randomfight+1
end;
end;
procedure walkingrandoms;
begin
checkifloged;
FindLamp('smithing');
findbox;
end;
procedure walktoaubury;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
mouse(650,158,4,3,true)
wait(15000+random(2000))
flag;
begin
magicthingy:=GetSymbolColor('magic shop');
writeln('magic shop color:'+inttostr(magicthingy));
if(findcolorspiraltolerance(x,y,floorcolor,576,10, 718,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))then
begin
mouse(x,y,1,2,true)
walkingrandoms;
flag;
end;
end;
end;
end;
procedure Randomwalkselecter;
var b:integer;
Begin
b:= random(2)+1
begin
If(b= 1)then
walktoaubury;
If(b= 2)then
walktoaubury;
end;
end;
procedure findandtalk;
begin
walkingrandoms;
repeat
FindObj('Talk',1914942,12)
wait(200+random(100))
mouse(x,y,1,1,false)
wait(1000+Random(500))
until(FindBitmapToleranceIn(teleport,x,y,5,5,512,3 34,50))or
(FindBitmapToleranceIn(teleportbackup,x,y,5,5,512, 334,50))
mouse(x,y,1,1,true)
flag;
wait(2500+random(2000))
end;
procedure detectroom2;
begin
if(findcolorspiraltolerance(x,y,10855856,561,4,719 ,167,14))then
begin
mouse(x,y,1,1,true)
wait(random(1000+800))
flag;
writeln('We have been teleported to the middle-room')
end;
end;
function detectrooms:boolean;
begin
walkingrandoms;
result:=false;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
result:=true;
if(result= false)then
detectroom2;
end;
procedure backtoshop;
begin
walkingrandoms;
repeat
wait(random(2500+500))
until(findbitmaptolerancein(arrow,x,y,543,3,760,16 5,50))
begin
Mouse(x,y,1,2,true)
flag;
repeat
FindObj('Use',11332846,80)
Mouse(x,y,3,2,true)
flag;
wait(2500+random(1000))
until(findcolorspiraltolerance(x,y,floorcolor,576, 10,718,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,159,5))
wait(1000+random(1000));
end;
end;
procedure backtobank;
begin
mouse(650,10,1,2,true)
flag;
wait(9000+random(1000))
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
repeat
FindObj('Use',607067,12)
Mouse(x,y,1,1,false)
wait(600+random(500))
if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757, 491,50))or
(FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,4 91,50))then
mouse(x,y,1,1,true)
flag;
wait(1000+random(500))
until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
begin
wait(700+random(600))
Deposit(2,28,2);
mined:=mined+28
timestalked:=timestalked+1
exp:=exp+140
c:=0;
end;
end;
end;
procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 4.1\\')
writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
SWusername:= usernameenter.text;
SWpassword:= passwordenter.text;
tripsyouset:= numberoftrips.text;
end;
procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 266;
frmDesign.Top := 277;
frmDesign.Width := 228;
frmDesign.Height := 259;
frmDesign.Caption := 'Solemn Wishes ess miner';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
usernamepanel := TPanel.Create(frmDesign);
usernamepanel.Parent := frmDesign;
usernamepanel.Left := 12;
usernamepanel.Top := 25;
usernamepanel.Width := 78;
usernamepanel.Height := 28;
usernamepanel.Caption := 'Username';
usernamepanel.Enabled := False;
usernamepanel.TabOrder := 8;
usernameenter := TEdit.Create(frmDesign);
usernameenter.Parent := frmDesign;
usernameenter.Left := 95;
usernameenter.Top := 26;
usernameenter.Width := 121;
usernameenter.Height := 21;
usernameenter.TabOrder := 9;
passwordtag := TPanel.Create(frmDesign);
passwordtag.Parent := frmDesign;
passwordtag.Left := 10;
passwordtag.Top := 68;
passwordtag.Width := 81;
passwordtag.Height := 27;
passwordtag.Caption := 'Password';
passwordtag.TabOrder := 10;
passwordenter := TEdit.Create(frmDesign);
passwordenter.Parent := frmDesign;
passwordenter.Left := 94;
passwordenter.Top := 68;
passwordenter.Width := 122;
passwordenter.Height := 21;
passwordenter.TabOrder := 11;
tripstodo := TPanel.Create(frmDesign);
tripstodo.Parent := frmDesign;
tripstodo.Left := 66;
tripstodo.Top := 106;
tripstodo.Width := 80;
tripstodo.Height := 24;
tripstodo.Caption := 'Trips To Do';
tripstodo.TabOrder := 13;
numberoftrips := TEdit.Create(frmDesign);
numberoftrips.Parent := frmDesign;
numberoftrips.Left := 36;
numberoftrips.Top := 130;
numberoftrips.Width := 141;
numberoftrips.Height := 21;
numberoftrips.TabOrder := 14;
startbutton := TButton.Create(frmDesign);
startbutton.Parent := frmDesign;
startbutton.OnClick:= @Start;
startbutton.Left := 62;
startbutton.Top := 169;
startbutton.Width := 75;
startbutton.Height := 25;
startbutton.Caption := 'Start';
startbutton.TabOrder := 12;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
Procedure progressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*6000)then
begin
Seconds:=(GetSystemTime) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln('');
writeln('');
writeln(' WORKED FOR '+(TIME));
writeln(' <This essence miner was created by solemn wishes >');
writeln(' TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln(' MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln(' GAINED '+inttostr(exp)+' EXP SO FAR')
writeln(' FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
writeln('');
writeln('');
Report2:=GetSystemTime;
end;
end;
end;
Procedure LoadDTM;
Begin
logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A2 6C' +
'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C4767 5F54' +
'35FB812C1502EE5981A9C6C32B04450D00F097111D');
login := DTMFromString('78DA635465646070026224F0FFFF7F300D1 36' +
'5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A9 3107' +
'B2EE12501301643D4055E3E1158CA20600DD4710DE');
runeshop:= DTMFromString('78DA6364C004C91136609A1188FF0301001 8E' +
'604F6');
end;
procedure loadbitmaps;
begin
teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
'5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
'60700137208091A3AE1D58D722AB27462FF1EA8951499E69B 4162' +
'7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA76 78B8' +
'76A80000F0D74AB7');
play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
'57C5AAB2746EF60763F2DE28B780000AAE17B79');
clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000 A02B' +
'B79D');
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
Handle := BitmapFromString(15, 27,
'564D41595145564D41544A3C544A3C595145564D41564D415 64D41' +
'564D41595145000001000001544A3C4F4538544A3C5951455 64D41' +
'544A3C544A3C544A3C5951455951455951455951450000012 F2000' +
'362400000001544A3C564D41544A3C544A3C564D41564D415 64D41' +
'5951455951455951450000012F20002F20003624000000013 02020' +
'564D41544A3C544A3C595145564D41595145564D415951455 95145' +
'0000012F2000362400362400000001302020564D41564D415 64D41' +
'564D41564D41544A3C544A3C544A3C0000012F20002F20003 62400' +
'362400000001302020544A3C544A3C544A3C544A3C544A3C5 44A3C' +
'544A3C544A3C0000012F20003624003624003624000000013 02020' +
'544A3C564D41564D41564D41544A3C564D41564D410000012 F2000' +
'2F2000362400362400000001302020302020564D41564D415 64D41' +
'595145564D41564D41564D410000012F20003624003624000 00001' +
'302020302020544A3C544A3C544A3C544A3C595145544A3C5 44A3C' +
'0000012F2000362400362400362400000001302020564D415 64D41' +
'544A3C544A3C544A3C564D41544A3C4F45380000012F20003 62400' +
'362400000001302020302020564D41564D41544A3C544A3C5 95145' +
'595145564D410000012F20003624003624003624000000013 02020' +
'564D41564D41544A3C544A3C564D41564D415951455951450 00001' +
'2F20002F20002F2000000001302020302020564D41564D415 44A3C' +
'564D41564D41544A3C564D410000012F20002F20002F20003 62400' +
'000001302020564D41544A3C544A3C544A3C595145544A3C5 44A3C' +
'564D410000012F20002F20002F20000000013020203020205 44A3C' +
'544A3C564D41564D41595145544A3C544A3C0000012F20002 F2000' +
'2F2000000001302020302020595145544A3C564D415951455 95145' +
'595145564D41564D410000012F20002F20002F20000000013 02020' +
'595145595145564D41564D415951455951455951455951450 00001' +
'2F20002F20002F20000000013020203020205951455951455 95145' +
'595145564D41564D41564D41564D410000012F20002F20002 F2000' +
'000001302020564D41595145595145595145595145564D415 64D41' +
'544A3C0000012F20002F20002F20000000013020203020205 64D41' +
'595145595145544A3C544A3C564D41595145564D410000012 F2000' +
'2F20002F2000000001302020544A3C564D415951455951455 44A3C' +
'544A3C564D41564D41564D410000012F20002F20000000013 02020' +
'302020544A3C564D41595145595145564D41544A3C544A3C4 F4538' +
'000001271B002F20002F2000000001302020595145544A3C5 64D41' +
'595145595145595145544A3C544A3C544A3C0000011D15002 71B00' +
'000001302020302020595145544A3C564D415951455951455 95145' +
'564D41564D41564D410000011D15001D15000000013020205 95145' +
'544A3C544A3C564D415951455951455951455951455951455 44A3C' +
'0000011D15001D1500000001302020564D415951455951455 95145' +
'595145564D41595145595145564D41544A3C564D410000010 00001' +
'302020302020595145595145595145595145544A3C564D415 95145' +
'544A3C544A3C4F4538564D41595145302020302020564D415 95145' +
'564D41564D41564D41544A3C544A3C564D41544A3C544A3C5 44A3C' +
'');
UseQuick := BitmapFromString(16, 6,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFF FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF');
UseQuickY := BitmapFromString(17, 5,
'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00F FFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000000000FFFF00F FFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00000000000000000000');
bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
'17235347002B39149A8B891A58BB9053289294EBC4A5C24F1 6602' +
'004B97286E');
bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
'35347002B37191986AC8137132B0743637838A83D9C8242E7 1141' +
'2BFF9785D8E8B4D6B370300B2B65059');
bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
'436378390C64488D042252EBDC8B2C86A88514F0B97E0720F 7EBB' +
'00EC754F5D');
bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
'5347002B37191B8D4902A4E892E52550E949B2122C8E20009 EF50' +
'B3');
bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
'431B740268D31C48D69A0923C1328318772B7916732008DB8 502F' +
'');
bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
'18B91A1A404862543A19583A9B9BE12231D510A30B8524C60 D186' +
'C6AB919BF7A94B042120700F0A05073');
bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
'35347002B33149A8AC91A58BB90532894B1C599612BD38453 0DD4' +
'6B19B91C569E16600F6AC50A3');
bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
'B18B91A1A505796787188087E5B2877157922A4BA190004CE 5092' +
'');
bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
'433B78490C64488381959BA985B40C5C16CE24528D78BD355 986E' +
'A692BD9498062101C5625087');
end;
procedure minethatess;
begin
repeat
FindObj('Mine',8553104,10)
if(IsTextAt2(9,9,'Mine',100))then
getmousepos(x,y)
Mouse(x,y,2,3,true)
begin
wait(8000+2000)
end;
solemnrandoms;
c:=c+1
until(c=15)or(inventoryfull= true)
end;
procedure SetupSSIcustom;
begin
LoadChars('');
DisguiseScar(MaskName);
UpChars:= LoadChars2(AppPath + 'CharsRS22\');
ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
'800170890F1420C63DB473333D4D264664342E06CACCE1111 7D4F' +
'2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD 928D' +
'76BA06BF083DE382F8D432506963A04488610FCE5C408C69F 87D3' +
'454E28276651D754B636A95F994E76E5AD49E002F369293') ;
MarkTime(LogOutMark);
MarkTime(RandomChatMark);
MarkTime(RotateMark);
MarkTime(KillScriptMark);
MarkTime(LeaveScreenMark);
GasColor:=8100004;//Reference color of gas.
LoadSSIBmps;
ST:=GetSystemTime;
SetMouseMode(false);
if(SetCamera='')then
SetCamera:='N';
if(LoggedIn)then
begin
{Face(SetCamera);
SendArrowSilentWait(0,1400+random(100)); }
end;
end;
begin;
SafeInitForm;
SafeShowFormModal;
activateclient;
wait(500+random(500))
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.