Need Help With Scar Script

I'm trying to figure out this whole SCAR thing, and hopefully be able to just make my own scripts at some point... But in the mean time i need help with this script. Q: * What am i suppose to edit in the script below?? *

__<^ this script was found at runescape101.com ^>__




program DEssMiner;
{.include sslibrary.txt}
{.include par.txt}
{.include boxbreaker2.txt}
{.include AntiFord.txt}

var arrow, flags, Frog, bmpFreakyForester, TripsDone:integer;

{++++++++++++++++++++++++++++++SETUP++++++++++++++++++++++++++++++}
const
Username = 'username';
Password = 'password';
TripstoDo = 15; //how many trips do you wanna do?
{++++++++++++++++++++++++++++++END-SETUP++++++++++++++++++++++++++++++}

procedure Yay;
begin;
writeln('('+
'\'+
','+
'.'+
','+
'/'+
')');
Wait(500);
Writeln(' \'+
'O'+
'.'+
'O'+
'/');
Wait(500);
WriteLn(' W')
Wait(500);
WriteLn(' /'+
'U'+
' U'+
'\');
Wait(500);
WriteLn('('+
' _'+
'_'+
'_'+
' )');
Wait(500);
WriteLn(' \'+
'\'+
' \'+
'\');
Writeln('Thank You for Choosing Darippy9324s Ess Miner')
end;

procedure loadbmps;
begin
arrow := BitmapFromString(6, 11,
'A1A1A1A1A1A1A1A1A1BE4901BE4901BE4901A1A1A1A1A1A1A1A1A1' +
'BE49013A403EBE4901A1A1A1A1A1A1A1A1A1BE49011A3B2D3A403E' +
'BE4901BE4901BE4901BE49011A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
'1A3B2D3A403E1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
'070C06070C06070C06070C061A3B2D1A3B2DBE4901BE4901BE4901' +
'BE49011A3B2D1A3B2D818181818181818181BE4901070C06070C06' +
'A1A1A1A1A1A1A1A1A1BE4901070C06BE4901A1A1A1A1A1A1A1A1A1' +
'BE4901BE4901BE4901');
flags := BitmapFromString(2, 15,
'FF00005D3311FF00005D3311FF00005D3311FF00005D3311FF0000' +
'5D3311FF00005D3311FF00005D3311C656045D3311C656045D3311' +
'C656045D3311C656045D3311C656045D3311C656045D3311C65604' +
'5D3311C656045D3311');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
Writeln('-----------------------------------------------')
Writeln('Bitmaps Loaded')
Writeln('If You have a computer that cant recongnize')
Writeln('Bitmaps, Please Consult Me on Sythe.org')
Writeln('For a Custom Script')
Writeln('-----------------------------------------------')
end;

{ANTIRANDOMS}

procedure TalkToRand;
var
c:integer;
begin
repeat
c:=c+1;
if(FindColor(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
if(FindColor(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
begin
GetMousePos(x,y);
Mouse(x,y,50,2,true);
wait(500+random(500));
end;
until(GetColor(20,434)=0)or(c>=20)
end;


function IsTextUp(text:string):Boolean;
begin
result:= IsTextAt2(9,9,text,100)
end;

function FindDirObj(var cx,cy:Integer; Direction,Text:string; Steps, Tries:Integer):Boolean;
var
att:Integer;
x, y: Integer;
begin
x:=268
y:=160
att:=0
if(Direction='NW') then
repeat
att:=att+1
MMouse(x-Steps,y-Steps,0,0)
GetmousePos(x,y)
if(istextat2(9,9,Text,100)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='NE') then
repeat
att:=att+1
MMouse(x+Steps,y-Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SW') then
repeat
att:=att+1
MMouse(x-Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextup(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Direction='SE') then
repeat
att:=att+1
MMouse(x+Steps,y+Steps,0,0)
GetmousePos(x,y)
if(IsTextUp(Text)) then
begin
result:=true
end else
Wait(500)
until(IsTextUp(Text)or(att>=Tries))
if(Result=True)then
begin
cx:= x;
cy:= y;
end;
end;


procedure runaway;
begin
Run(true);
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
Writeln('Runaway')
end;

function Fight:boolean;
begin
if(FindColorSpiral(x,y,65280,216,115,284,171))then
Result:=true;
end;


Procedure CheckIfDead;
begin
if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
begin
LogOut;
Writeln('Dead')
end;
end;

Procedure FindMime;
var ax,ay:integer;
begin
if(FindColor(ax,ay,11503238,10,350,479,433))then
begin
LogOut;
Writeln('Mime')
end;
end;

function FindForester:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(bmpFreakyForester,x,y))then
begin
writeln('Freaky Forester found, logging out.');
LogOut;
TerminateScript;
end;
end;

function FindFrog:boolean;//A Stupid3ooo procedure
begin
if(FindBitmap(Frog,x,y))then
begin
writeln('Frog found, logging out.');
LogOut;
TerminateScript;
end;
end;


procedure golom;
begin
if(fight)then
runaway;
end;


procedure randoms;
begin
Login(Username,Password);
Check4Randoms;
Check4Lamp('mining');
EyeTest;
golom;
FindFrog;
FindForester;
checkifdead;
Check4mod;
FindMime;
FindStrangeBox;
end;

{END-RANDOMS}

{UBER ZONE DETECTION}
procedure zonedetection;
begin
Writeln('Finding Ess...')
randoms;
FindColorspiral(x,y,1557,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
flag;
wait(200+random(100));
FindColorspiral(x,y,9539482,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(800+random(125));
flag;
FindColorspiral(x,y,8092291,582,4,721,142);
clickmouse(x+random(2),y+random(2),true);
wait(2000+random(125));
flag;
end;
{lol not that Uber}

procedure mine;
begin;
Writeln('Mining Ess...')
randoms;
repeat
wait(500)
until(FindDirObj(x,y,'NW','Mine',30,4))or(FindDirObj(x,y,'NE','Mine',30,4))or(FindDirObj(x,y,'SE','Mine',30,4))or(FindDirObj(x,y,'SW','Mine',30,4));
Mouse(x,y,2,2,true);
repeat
wait(500+random(100));
randoms;
until(InventoryCount=28)
SetPublicChat('off');
end;

function center:boolean;
begin;
if(FindBitmap(arrow,x,y))then
result:=false;
end;


procedure portal;
begin;
Writeln('gottem coach')
randoms;
if(FindColorspiral(x,y,84414,582,4,721,142))then
mouse(x+15,y,1,1,true);
wait(5000+random(758));
if(FindColorspiral(x,y,2964250,582,4,721,142))then
mouse(x-5,y+5,1,1,true);
wait(5000+random(758));
repeat
wait(100)
until FindObj('Use',9806761,4);
mouse(x,y,1,1,true);
wait(2000);
if(FindColorspiral(x,y,2196626,582,4,721,142))then
mouse(x+44,y+19,1,1,true);
flag;
wait(1300);
randoms;
end;

Procedure WalktoBank;
begin
if(FindColorspiral(x,y,1452606,582,4,721,142))then
wait(50)
mouse(x,y,1,1,true);
flag;
wait(1300);
if(FindColorspiral(x,y,6776686,582,4,721,142))then
Wait(50)
mouse(x,y,1,1,true);
flag;
wait(3000);
end;


procedure tomine;
begin;
Mouse(659,138,1,1,true);
wait(14000)
flag;
wait(500);
if(FindColorspiral(x,y,65995,582,4,721,142))then
mouse(x+0,y+10,1,1,true);
flag;
wait(2000);
randoms;
end;

Procedure TalktoGuy;
Begin
Writeln('Finding Aubry...')
begin
repeat
wait(50)
if(Findobj('Talk',2186884,5))then
Mouse(x,y,1,1,false)
wait(500+random(100))
Mouse(x,y+55,1,1,true);
wait(1500+random(500));
until(findcolorspiral(x,y,12829386,582,4,721,142))or(findcolorspiral(x,y,2964250,582,4,721,142))
wait (3000+random(1000));
Writeln('Found Aubry... Teleporting...');
wait(500);
end;
end;

Procedure bank;
begin;
openbank;
deposit(1,2,27)
closewindow;
randoms;
writeln('Banked!')
end;


begin
LoadLibrary('AOL-MR.NICEGUY');
yay;
loadbmps;
repeat
SetPublicChat('off');
SetPrivateChat('off');
SetTradeDuel('off');
run(true);
tomine;
run(false);
TalktoGuy;
Zonedetection;
mine;
portal;
run(true);
walktobank;
run(false);
bank;
TripsDone:=TripsDone+1;
Writeln('--------=====DARIPPY9324s ESS MINER=====--------');
Writeln('Banked '+inttostr(TripsDone)+' Load(s) of 27 Ess');
Writeln('Any Errors? Please Report... Again Thanks For Your Support');
Writeln('===--------=====Progress**Report=====--------===');
Until(TripsDone=TripsToDo)Or(TripsDone>TripsTodo)
Logout;
Writeln('You have succesfully done '+inttostr(TripstoDo)+' Trips')
end.