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?
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?






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.
i keep getting like line 30: and stuff like that...i just need an auto yew cutter and banker
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.
I made a new script, check it out!.
just go to file, then down to 'download srl' it solved my problem when this happened to me![]()
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: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('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,7 18,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,7 50,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,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,3 34,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,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,546, 1,750,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,75 0,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,71 9,167,5))or
(findcolorspiraltolerance(x,y,getbankcolor,561,4,7 19,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,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+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('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;
////////////////////////////////////////////////////
// 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' +
'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.



1. Wrong section.
2. Only use RS scripts that use SRL.
3. Scar tags next time please.
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
There are currently 1 users browsing this thread. (0 members and 1 guests)