m0u53m4t
06-28-2006, 12:35 PM
Im working on making Strangeessminer work with SRL, and this is the code so far:
program StrangeEssMiner;
{.include Srl\SRL.scar}
/////////////////////////////////////////////////////////////////////
// //
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// TWEAKED BY M0U53M4T //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// 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=982782;//Highly Reccomended if varrok bank is crowded //
floorcolor=5692; //Reccomended but not needed, used as a backup //
//
//
////////////////////////////////////////////////////////////////////////
//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 :) //
////////////////////////////////////////////////////////////////////////
TrialTimes= 10; // //
////////////////////////////////////////////////////////////////////////
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,tried :integer;
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,Certers2:integer;
procedure walktoaubury;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor(x,'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
writeln('should scroll down')
SendArrowSilentWait(0, 1200 + random(300));
mouse(677,56,1,2,true)
flag;
begin
bankcolor := 4703204
SendArrowSilentWait(0, 1200 + random(300));
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,71 9,167,5)then
Mouse(x,y,1,1,true)
wait(4500+random(500))
SendArrowSilentWait(0, 1200 + random(300));
flag;
repeat
tried := tried +1
if tried = 15 then
begin;
if(FindColorSpiralTolerance(x,y,BankColor,561,4,71 9,167,5))or
FindColorSpiralTolerance(x,y,getbankcolor,561,4,71 9,167,5)then
Mouse(x,y,1,1,true)
wait(4500+random(500))
end;
SendArrowSilentWait(0, 1200 + random(300));
FindObj('Use',609125,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(' ');
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
activateclient
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;
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.
Im working my way through editing the script as I go down, to see the errors it produces. This is the first error I've got that I dont know how to fix:
Failed when compiling
Line 438: [Error] (11006:1): Unknown identifier 'ProcessPicture' in script \\CHS-SVR-001\3TJS$\SCAR 2.03\includes\srl\srl\core\AntiRandoms.scar
What do I do?
program StrangeEssMiner;
{.include Srl\SRL.scar}
/////////////////////////////////////////////////////////////////////
// //
// VARROK ESSENCE MINER BY SOLEMN WISHES //
// TWEAKED BY M0U53M4T //
// //
/////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////
// 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=982782;//Highly Reccomended if varrok bank is crowded //
floorcolor=5692; //Reccomended but not needed, used as a backup //
//
//
////////////////////////////////////////////////////////////////////////
//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 :) //
////////////////////////////////////////////////////////////////////////
TrialTimes= 10; // //
////////////////////////////////////////////////////////////////////////
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,tried :integer;
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,Certers2:integer;
procedure walktoaubury;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor(x,'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
writeln('should scroll down')
SendArrowSilentWait(0, 1200 + random(300));
mouse(677,56,1,2,true)
flag;
begin
bankcolor := 4703204
SendArrowSilentWait(0, 1200 + random(300));
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,71 9,167,5)then
Mouse(x,y,1,1,true)
wait(4500+random(500))
SendArrowSilentWait(0, 1200 + random(300));
flag;
repeat
tried := tried +1
if tried = 15 then
begin;
if(FindColorSpiralTolerance(x,y,BankColor,561,4,71 9,167,5))or
FindColorSpiralTolerance(x,y,getbankcolor,561,4,71 9,167,5)then
Mouse(x,y,1,1,true)
wait(4500+random(500))
end;
SendArrowSilentWait(0, 1200 + random(300));
FindObj('Use',609125,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(' ');
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
activateclient
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;
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.
Im working my way through editing the script as I go down, to see the errors it produces. This is the first error I've got that I dont know how to fix:
Failed when compiling
Line 438: [Error] (11006:1): Unknown identifier 'ProcessPicture' in script \\CHS-SVR-001\3TJS$\SCAR 2.03\includes\srl\srl\core\AntiRandoms.scar
What do I do?