SRL Archive - Bot Information and Spottings

I'm tempted to use this person's East Varrock Essence Mining script, but I'm not sure it's safe. Could someone with experience review his or her code?

[PHP]//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
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=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='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,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('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;
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(646,11,1,2,true)
flag;
wait(9000+random(1000))
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))
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 addy 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('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.[/PHP]

Yes, it looks safe. I suggest you stick with Simba scripts though, since you wouldn't have this dilemma with them :p

Thank you! As a matter of fact, I use Psyonity's script, even though it has several issues. I tried to repair the code, but I didn't get far on account of my inexperience. Still learning! :frusty:

That looks extremely outdated.

//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
program StrangeEssMiner;
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

Nostaliga X 9999.
www.rs101.info is a bull*** site that just copy/pastes scripts from all over and hosts them without any permission from the script writers.

99.99% of them are outdated and the site is completely idiotic.

Use scripts from here, or the OFFICIAL SCAR site.

You want Simba scripts, you look here. You want SCAR scripts, you look at scar-divi.com. I believe we have a SCAR section still though. As to your question, this script is outdated and I can guarantee you it won't work…just look here for more scripts :).

Thanks everyone. As you said, the script didn't work. I discarded it and, then, came back to check this thread. From now on, I'll use only Simba scripts. :p

SCAR scripts are fine too, that site is just old/outdated/useless.

From: NetbookPrice
Thanks everyone. As you said, the script didn't work. I discarded it and, then, came back to check this thread. From now on, I'll use only Simba scripts. :p

Remember to only get them from here, however. There's all sorts of sites out that that promise flawless scripts but instead try to steal your account.

Most SCAR scripts won't work.

SCAR is quite outdated on most things now..

scar is still up to date and osi is also being constantly developed.

Yes the script is safe as simbas, as well as whether it works or not. Depends case by case.