Onegoldjoe
2007-08-04 02:40:30
When I try to compile thr varrok auto mine I get this error "Failed when compiling" And I dont know why. Dose anyone know why?
SRL Archive - RS Scripts
Failed when compiling???
ZephyrsFury
2007-08-04 07:27:27
It means SCAR couldn't compile the script, meaning theres something wrong with it, meaning there's literally thousands of reasons why. Maybe you could post the script or part of the script so we could see what your problem is.
pure r4p3
2007-08-04 10:46:17
i keep getting like line 30: and stuff like that…i just need an auto yew cutter and banker
Markus
2007-08-04 13:28:23
Well, there are too many compiling errors to even guess which one you have.
Post full error and script please, so we can help you.
Post full error and script please, so we can help you.
IluvSCAR
2007-08-04 17:38:26
just go to file, then down to 'download srl' it solved my problem when this happened to me :D
Onegoldjoe
2007-08-04 21:10:07
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! //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
//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=4703451;//Highly Reccomended if varrok bank is crowded //
floorcolor=3825001; //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='76 lol';//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= false; //
////////////////////////////////////////////////////////////////////////
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,16777215,469,319,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: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,16777215,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('Mining');
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('mining');
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;
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)
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;
procedure backtobank;
begin
mouse(677,56,1,2,true)
flag;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
if(findcolorspiraltolerance(x,y,BankColor,561,4,719,167,5))or
(findcolorspiraltolerance(x,y,getbankcolor,561,4,719,167,5))then
Mouse(x,y,1,1,true)
wait(4500+random(500))
flag;
repeat
FindObj('Use',140598,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,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+27
timestalked:=timestalked+1
exp:=exp+135
c:=0;
end;
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 AROUND '+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('mining lvls');
If(b= 2)then
sendkeyssilent('dam i really want a random event'+chr(13))
If(b= 3)then
sendkeyssilent('i cant wait till next xmas'+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 for me'+chr(13))
If(b= 8)then
sendkeyssilent('allmost at my next lvl yay'+chr(13))
If(b= 9)then
sendkeyssilent('nice pick'+chr(13))
If(b= 10)then
sendkeyssilent('dam this is boring'+chr(13))
end;
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)
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.
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}
/////////////////////////////////////////////////////////////////////
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS! //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
//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=4703451;//Highly Reccomended if varrok bank is crowded //
floorcolor=3825001; //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='76 lol';//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= false; //
////////////////////////////////////////////////////////////////////////
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,16777215,469,319,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: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,16777215,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('Mining');
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('mining');
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;
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)
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;
procedure backtobank;
begin
mouse(677,56,1,2,true)
flag;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
if(findcolorspiraltolerance(x,y,BankColor,561,4,719,167,5))or
(findcolorspiraltolerance(x,y,getbankcolor,561,4,719,167,5))then
Mouse(x,y,1,1,true)
wait(4500+random(500))
flag;
repeat
FindObj('Use',140598,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,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+27
timestalked:=timestalked+1
exp:=exp+135
c:=0;
end;
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 AROUND '+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('mining lvls');
If(b= 2)then
sendkeyssilent('dam i really want a random event'+chr(13))
If(b= 3)then
sendkeyssilent('i cant wait till next xmas'+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 for me'+chr(13))
If(b= 8)then
sendkeyssilent('allmost at my next lvl yay'+chr(13))
If(b= 9)then
sendkeyssilent('nice pick'+chr(13))
If(b= 10)then
sendkeyssilent('dam this is boring'+chr(13))
end;
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)
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.
bullzeye95
2007-08-04 21:12:27
1. Wrong section.
2. Only use RS scripts that use SRL.
3. Scar tags next time please.
2. Only use RS scripts that use SRL.
3. Scar tags next time please.
spitfire1234
2007-08-12 07:21:58
hey i got almost the same problem only my script tells me: Failed when compiling
Line 522: [Error] (15554:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\luc\Desktop\FoursYewScript v2.scar
(yes i did file > download srl)
but i still get it this is the piece of script where its giving the error
Procedure StoreStuff;
Begin
If InventoryCount > 1 then
Begin
Repeat
ClickItemColorTol(65536, 10, False)
Wait(10)
ChooseOption(x, y, 'All')
Wait(1000 + Random(1000))
If Not(LoggedIn) then NextPlayer(False);
Until InventoryCount = 0
Wait(1000 + Random (1000))
Repeat
If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
Begin
Mouse(X, Y, 1, 1, True)
Wait(1000 + Random(1000))
end;
If Not(LoggedIn) then NextPlayer(False);
Until FindDtm(RegularAxeDTM, X, Y, MIX1, MIY1, MIX2, MIY2)
end;
end;
i hope you guys can help me
p.s. im running scar 3.11 (coz 2.03 doesnt work for me as it should work)
ty in advance
Line 522: [Error] (15554:1): Unknown identifier 'ClickItemColorTol' in script C:\Documents and Settings\luc\Desktop\FoursYewScript v2.scar
(yes i did file > download srl)
but i still get it this is the piece of script where its giving the error
Procedure StoreStuff;
Begin
If InventoryCount > 1 then
Begin
Repeat
ClickItemColorTol(65536, 10, False)
Wait(10)
ChooseOption(x, y, 'All')
Wait(1000 + Random(1000))
If Not(LoggedIn) then NextPlayer(False);
Until InventoryCount = 0
Wait(1000 + Random (1000))
Repeat
If FindDtm(RegularAxeDTM, X, Y, MSX1, MSY1, MSX2, MSY2) then
Begin
Mouse(X, Y, 1, 1, True)
Wait(1000 + Random(1000))
end;
If Not(LoggedIn) then NextPlayer(False);
Until FindDtm(RegularAxeDTM, X, Y, MIX1, MIY1, MIX2, MIY2)
end;
end;
i hope you guys can help me
p.s. im running scar 3.11 (coz 2.03 doesnt work for me as it should work)
ty in advance