Neeed Help Bad Plz

im new to scar and i need help really bad! im trying to do this scipt for draynor WC .
program willows;

{.include srl/srl.scar}

const
treecolor=5341817;
entcolor=514778;
symbolcolor=10089719;

var
x, y, dud, time, elapse, loads, h ,m ,s:integer;

procedure declareplayers;
begin
howmanyplayers:=3; // don't mess this up...
numberofplayers(howmanyplayers);
players[0].name:='Wazzupe01';
players[0].pass:='my pass ';
players[0].nick:='zupe';
players[0].active:=true;
players[0].worked:0=;
end;

procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;

procedure bank;
begin
if loggedin=false then
begin
exit;
end;
randoms;
if random(10)=0 then
begin
hoverskill('woodcutting',false);
end;
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-3,y-3,2,2,true);
time:=gettimerunning+13000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
repeat
openbank('db',false,false);
wait(100);
randoms;
until((bankscreen=true) or (loggedin=false))
if bankscreen=true then
begin
deposit(2,28,true);
wait(100+random(100));
closebank;
loads:=loads+1;
converttime(gettimerunning,h,m,s);
writeln('#### progress ####');
writeln('#### time: ' + inttostr(h) + ':' + inttostr(m) + ':' + inttostr(s));
writeln('#### loads:100 ' + inttostr(loads));
writeln('##################');
end;
end;
wait(100+random(100));
end;

procedure omfg_ent;
begin
makecompass('n');
mouse(MMCX+10,MMCY+10,2,2,true);
x:=MSCX;
y:=MSCY;
wait(random(100));
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
end;

procedure chop;
begin
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
x:=MSCX;
y:=MSCY;
repeat
randoms;
wait(100);
if findobjtpa(x,y,treecolor,20,-1,50,50,40,['Chop down Willow']) then
begin
mmouse(x,y,0,0);
wait(100+random(100));
if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=false then
begin
mouse(x,y,2,2,false);
wait(100+random(100));
if chooseoption('hop') then
begin
if flagpresent=true then
begin
time:=gettimerunning+4000+random(1000);
repeat
wait(100);
randoms;
until((flagpresent=false) or (gettimerunning>time))
wait(500);
end else
begin
mmouse(x,y,2,2);
wait(100);
time:=gettimerunning+20000+random(5000);
repeat
wait(100);
randoms;
until((startswith('Chop',getuptext)=false) or (invfull=true) or (findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true) or (gettimerunning>time))
if findcolortolerance(dud,dud,entcolor,80,10,130,20,40)=true then
begin
omfg_ent;
end;
end;
end;
end else
begin
omfg_ent;
end;
end else
begin
makecompass('n');
if findcolortolerance(x,y,symbolcolor,MMX1,MMY1,MMX2,MMY2,40) then
begin
mouse(x-40,y+40,10,10,true);
time:=gettimerunning+8000+random(2000);
repeat
wait(100);
randoms;
until((gettimerunning>time) or (flagpresent=false))
randoms;
end;
end;
until((loggedin=false) or (invfull=true))
wait(100+random(100));
end;

begin
cleardebug;
setupsrl;
activateclient;
lampskill:='woodcutting';
declareplayers;
currentplayer:=0;
loads:=0;
logout;
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
repeat
setangle(true);
elapse:=gettimerunning+2700000+random(1800000);
if invfull=true then
begin
bank;
end;
repeat
chop;
bank;
until((gettimerunning>elapse) or (loggedin=false))
logout;
currentplayer:=currentplayer+1;
if currentplayer>=howmanyplayers then
begin
currentplayer:=1;
end;
if (gettimerunning>players[currentplayer].worked) and (players[currentplayer].active=true) then
begin
closefile(rewritefile('C:\WINDOWS\.jagex_cache_32\uid.dat',true));
loginplayer;
players[currentplayer].worked:=gettimerunning+3600000+random(1800000);
end;
until(false)
end.

please someone help me!