a script help

i need help with this script, its for rsc and im using with the current version of scar... not sure if i need a older version or what but like every 10 lines something is wrong

//Ranger for coes
//Start in Place with lots of cows
//Script by: 6 Feet Under
//Modified by: StebenWulf
//Walking taked by 6 feet under script
//edited by SnowFly^ so u dont move


program CowRanger;
var
s: string;
x, y: Integer;
username, password: string;

procedure LogInIfNeeded; export;
begin
//if logged out press Cancel
if(LoginScreen)then
begin
Writeln('Clearing username, password fields');
ClickMouse(400,280,True);
Wait(2000);
end;
//If logged out select Existing User
if(StartScreen)then
begin
Writeln('Choosing existing user');
ClickMouse(340,280,True);
Wait(4000);
end;
//If logged out, log in
if(LoginScreen)then
begin
Writeln('Trying to log in');
ClickMouse(100,260,True);
Wait(500);
SendKeysSilent(username);
Wait(2000);
ClickMouse(120,310,True);
Wait(500);
SendKeysSilent(password);
Wait(2000);
ClickMouse(380,250,True);
Wait(6000);
end;
//If we have Welcome to RuneScape open, close it
if(GetColor(56,117)=16777215)and
(GetColor(57,118)=0)and
(GetColor(455,216)=16777215)and
(GetColor(454,215)=0)
then
begin
Writeln('Closing Welcome box');
ClickMouse(250,208,True);
Wait(2000);
end;
SetTimeOut(20,'LOGINIFNEEDED');
end;

procedure DoSleeping;
begin
Writeln('Time to sleep.');
Wait(200);
repeat
ClickMouse (498, 16, True);
Wait(200);
Movemouse (285, 47);
wait(200);
until(IsTextAt(6,2,'Sleeping Bag: sleep'));
ClickMouse(285, 46, True);
Wait(25000);
If(IsTextAt(168,293,'click here'))then
Begin
Writeln('new word 1');
ClickMouse(188,301,true);
Wait(25000);
If(IsTextAt(168,293,'click here'))then
Begin
Writeln('new word 2');
ClickMouse(188,301,true);
Wait(15000);
end;
end;
MoveMouse(25,25);
end;

procedure DoRanger;
begin
repeat
x:= 270;
y:= 150;
x:= x + Random(30)-15;
y:= y + Random(30)-15;
if(FindColorSpiral(x,y,14277082,x-100,y-100,x+100,y+100))then
begin
MoveMouse(x, y);
Wait(200);
if(IsTextAt(6,2,'cow'))then
begin
ClickMouse(x, y, True);
Wait(2800 + Random(200));
end;
end else
begin
MoveMouse(x, y);
Wait(1000);
end;
s:= GetChatMsg;
until(s = 'You are too tired to gain experience');
end;


begin
//Initialization stuff
username:= Readln('Enter your username: ');
password:= Readln('Enter your password: ');
SetTimeOut(20,'LOGINIFNEEDED');

//Main program loop (it never ends)
repeat
DoRanger;
DoSleeping;
until(False);
end.

 

Just try another one