SCAR Code:
[SIZE="3"]Code:
//Hosted by Runescape 101
//Download more free scar scripts from [url]www.rs101.info[/url]
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 detail //
//·V bright brightness //
//.Have map facing pretty much north and the highest point of view //
//.start in varrok bank (recomended near middle banker) //
//.fill in the two (optional) color's bellow //
/////////////////////////////////////////////////////////////////////
const
////////////////////////////////////////////////////////////////////////
//
//
getbankcolor=1629418;//Highly Reccomended if varrok bank is crowded //
floorcolor=6909553; //Reccomended but not needed, used as a backup //
//
//
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
// ANTIBAN OPTION'S AND SETUP //
////////////////////////////////////////////////////////////////////////
antibantrue='true';//do you want to use antiban //
messages='Mining';//what is the message that you want to respond to //
respondwith='70';//what you want to respond with //
randomwords='1';//do you want to say some random words //
// 1=true 2=false //
////////////////////////////////////////////////////////////////////////
//REMEMBER THE FOLLOWING... //
//1)The first letter in the chat box starts with a capital, if my //
//anti-ban is not working this could be why. //
//2)leave feedback and comments pl0z :) //
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
// LEAVE ME ALONE :) //
////////////////////////////////////////////////////////////////////////
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:integer;
runeshop,teleportbackup,teleport,login,logged: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,bmpCerterAxe,bmpSpade,
bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatChars,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,1611007,469,319,611,359,5)) //runeshop symbol color made change
mouse(x,y,1,2,true)
end;
end;
function CerterChooseOption(txt:string):boolean;
var
s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:integer;
begin
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
'411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
'C5200D30002E35F8C501C9C013F0');
s:=CreateBitmapMaskFromText(txt,CerterUpChars);
cancel:=CreateBitmapMaskFromText('Cancel',CerterUpChars);
if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(RightCorner,x2,y2))then
begin
if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,85))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,tolerance))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,tolerance))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,1611007,5,345,510,465))and(not(GetColor(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)=1922399)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,36,324,140,50)))and
(not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324,140,50))))or
((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,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,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=715-100)and(Pixels<715+100)then
begin
if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,324,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,324,140,50))then
ResultCount:=ResultCount+1;
end;
if(Pixels>=1093-100)and(Pixels<1093+100)then
begin
if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,36,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,324,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,324,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(664,131,4,3,true)
wait(12000+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,576,10,718,159,5))then
begin
mouse(x,y,1,2,true)
walkingrandoms;
flag;
end;
end;
end;
end;
procedure walktoauburyrandom;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
mouse(610,88,4,3,true)
flag;
mouse(644,144,4,3,true)
flag;
wait(13000+random(2000)) //by snaes needed to wait so it had time to move south enough for find magicthingy to work
begin
magicthingy:=GetSymbolColor('magic shop');
writeln('magic shop color:'+inttostr(magicthingy));
begin
if(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))then
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
walktoauburyrandom;
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,334,50))or
(FindBitmapToleranceIn(teleportbackup,x,y,5,5,512,334,50))
mouse(x,y,1,1,true)
flag;
wait(4000+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(500+500))
until(findbitmaptolerancein(arrow,x,y,543,3,760,165,50))
begin
Mouse(x,y,1,2,true)
flag;
repeat
FindObj('Use',11332846,80) //portal color mabye in setup so easily found if color change?
Mouse(x,y,3,2,true)
flag;
wait(2500+random(1000))
until(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))
wait(1000+random(1000));
end;
end;
//---------------------------------------------------------------------------------------------------------------------------------------
//--------------------------------PROBLEM PROCEDURE------------------------------------------------------------------------------------
//-----------------------------hope this got your attention--------------------------------------------------------------------------------
procedure backtobank; //BACK TO BANK PROCEDURE DOESNT WORK NEED HELP!?!?!?
begin
mouse(646,11,1,2,true) //clicks top right in mini map to go to bankworks great
flag;
wait(9000+random(1000)) //waits about 9 secs so character gets in bank
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
repeat
FindObj('Use',140598,12)
Mouse(x,y,1,1,false)
wait(600+random(500)) //wont open bank usually follows players in bank??
if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757,491,50))or
(FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,491,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 3.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*60000)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('78DA63DCCCC8C0A008C448E0FFFFFF601A26C' +
'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C47675F54' +
'35FB812C1502EE5981A9C6C32B04450D00F097111D');
login := DTMFromString('78DA635465646070026224F0FFFF7F300D136' +
'5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A93107' +
'B2EE12501301643D4055E3E1158CA20600DD4710DE');
runeshop:= DTMFromString('78DA6364C004C91136609A1188FF03010018E' +
'604F6');
end;
procedure loadbitmaps;
begin
teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
'5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
'60700137208091A3AE1D58D722AB27462FF1EA8951499E69B4162' +
'7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA7678B8' +
'76A80000F0D74AB7');
play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
'57C5AAB2746EF60763F2DE28B780000AAE17B79');
clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000A02B' +
'B79D');
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
Handle := 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' +
'');
UseQuick := BitmapFromString(16, 6,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
'000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
'000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF');
UseQuickY := BitmapFromString(17, 5,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
'000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
'000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
'FFFF00000000000000000000');
bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
'17235347002B39149A8B891A58BB9053289294EBC4A5C24F16602' +
'004B97286E');
bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
'35347002B37191986AC8137132B0743637838A83D9C8242E71141' +
'2BFF9785D8E8B4D6B370300B2B65059');
bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
'436378390C64488D042252EBDC8B2C86A88514F0B97E0720F7EBB' +
'00EC754F5D');
bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
'5347002B37191B8D4902A4E892E52550E949B2122C8E20009EF50' +
'B3');
bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
'431B740268D31C48D69A0923C1328318772B7916732008DB8502F' +
'');
bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
'18B91A1A404862543A19583A9B9BE12231D510A30B8524C60D186' +
'C6AB919BF7A94B042120700F0A05073');
bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
'35347002B33149A8AC91A58BB90532894B1C599612BD384530DD4' +
'6B19B91C569E16600F6AC50A3');
bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
'B18B91A1A505796787188087E5B2877157922A4BA190004CE5092' +
'');
bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
'433B78490C64488381959BA985B40C5C16CE24528D78BD355986E' +
'A692BD9498062101C5625087');
end;
////////////////////////////////////////////////////
// AUTO RESPONDER BY SOLEMN WISHES //
// THIS IS THE NEW WAVE OF ANTIBAN FEATURES //
////////////////////////////////////////////////////
//UNDER CONSTRUCTION* started work on the 21st of //
//december this is a working version but not yet //
//complete. //
////////////////////////////////////////////////////
procedure respond;
begin
writeln('Responding to the question')
sendkeyssilent(respondwith)
wait(100+random(50))
sendkeys(chr(13));
end;
procedure createtext;
var s:integer;
begin
s:=CreateBitmapMaskFromText(messages,ChatChars);
if(FindBitmapMaskTolerance(s,x,y,8,346,211,477,10,85))then
begin
FreeBitmap(s);
writeln('succesfully found a possible question')
respond;
end;
end;
procedure RandomTalk;
var b:integer;
Begin
if(randomwords='1') then
b:= random(100) + 1;
begin
If(b= 1)then
sendkeyssilent('lvls, mines 39'+chr(13));
If(b= 2)then
sendkeyssilent('need 2800 ess more'+chr(13))
If(b= 3)then
sendkeyssilent('i cant wait till holidays'+chr(13))
If(b= 4)then
sendkeyssilent('im saving for full rune'+chr(13))
If(b= 5)then
sendkeyssilent('cool'+chr(13))
If(b= 6)then
sendkeyssilent('how long have you been playing'+chr(13))
If(b= 7)then
sendkeyssilent('mining essence is slow cuz i have bad pic... could some1 give me rune? XD'+chr(13))
If(b= 8)then
sendkeyssilent('200xp to my next lvl!!'+chr(13))
If(b= 9)then
sendkeyssilent('nice pick'+chr(13))
If(b= 10)then
sendkeyssilent('dang this is boring but it be necessary'+chr(13))
end;
end;
procedure minethatess;
begin
repeat
FindObj('Mine',8553104,10) //8553104
if(IsTextAt2(9,9,'Mine',100))then
getmousepos(x,y)
Mouse(x,y,2,3,true)
if (antibantrue='true')then
begin
createtext;
RandomTalk;
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' +
'800170890F1420C63DB473333D4D264664342E06CACCE11117D4F' +
'2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD928D' +
'76BA06BF083DE382F8D432506963A04488610FCE5C408C69F87D3' +
'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.[/SIZE]