NEED HELP---unknown error

Failed when compiling
Line 52: [Error] (5059:1): Identifier expected in script C:\Program Files\SCAR 2.03\Scripts\Chaos.scar

my bro made this script and it worked well for liek ages i got a guy to lvl 23 prayer overnight.... but now cos of all the graphics updates and stuff it doesn't work aswell..... so i added a few things to make it better, they all ran cleanly but now something has gone wrong with the parts he made(in the prechanged one there is no problem) :s please help

Code:

program Bones;

var x,y,ST,Exp,Inventory,leveled,Picked,Buried,Take,TakeY:integer;
const
Bone1=10987442;
Bone2=10856112;
Bone3=11250613;
BoneInv=11447992;
Prayer2=14151649;
Lumbydoor=1399937;
Lumbysheildblue=12804914;
Lumbydoorhandlegold=3191801;
MouseEase=4;
MouseSpeed=10;
Howmanyinvos=1;

{.include squig.txt}

function dist2(x1,y1,x2,y2:Integer):Integer;
begin
 result:=Trunc(Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))+0.999999);
end;

{-----------------------------------------------------------------------+
  Moves the mouse human-like and undetectably to the specified Location
+-----------------------------------------------------------------------}

procedure MMouse(dx,dy,rx,ry:Integer);
var
  fx, fy, x, y:Integer;
  step:Extended;
begin
 step:=MouseEase;
 fx:=random(rx); fy:=random(ry);
 dx:=dx+fx-rx/2; dy:=dy+fy-ry/2;
 GetMousePos(x,y);
 repeat
if(dist2(x,y,dx,dy)<100)then
  begin
   if(not(dist2(x,y,dx,dy)=0))then
   begin
   step:=step-(10/dist2(x,y,dx,dy));
  if(step<1)then
  begin
  step:=1;
  x:=x+Round((dx-x)/step);
  y:=y+Round((dy-y)/step);
  MoveMouse(x,y);
  Wait(15-MouseSpeed);
  end;
  end;
 until(dist2(x,y,dx,dy)=0);
end;

procedure Mouse(x,y,rx,ry:Integer; left:Boolean);
var a:Integer;
begin
  MMouse(x,y,rx,ry);
  Wait(10+random(25));
  GetMousePos(x,y);
  Wait(50+random(25));
  HoldMouse(x-1,y+1,left);
  repeat
    Wait(10+Random(1));
    a:=a+1;
  until(a>4);
  GetMousePos(x,y);
  ReleaseMouse(x,y,left);
  Wait(100+random(250));
  MMouse(x,y,2,2);
  Wait(50+random(200));
end;


Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;

Begin
  Exp:=Buried*4+(Buried/2);
  Seconds:=(GetSystemTime-ST) 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)+' minute(s) '+inttostr(RSeconds)+' seconds ';
     end;
  if RHours<>0 then
     begin
       RMinutes:=Minutes Mod (RHours*60);
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=inttostr(RHours)+' hour(s) '+inttostr(RMinutes)+' minute(s) '+inttostr(RSeconds)+' seconds';
     end;
  writeln('|==============Chaos Altar================|');
  writeln('|PROGRESS REPORT:');
  writeln('|Worked for '+Time+'');
  Writeln('|Picked '+inttostr(Picked)+' Bone(s)');
  Writeln('|Buried '+inttostr(Buried)+' Bone(s)');
  Writeln('|Only Gained  '+inttostr(Exp)+' Bloody Exp!');
  Writeln('|Gained '+inttostr(Leveled)+' Levels');
  writeln('|=========================================|');
End;

procedure SetRun;
begin
Mouse(711,483,5,5,True);
wait(50+random(50));
if(GetColor(573,275)=2106259)then
begin
Mouse(623,267,5,5,True);
wait(50+random(50));
end;
end;

Procedure Randoms;
begin
if((FindColorSpiral(x,y,16711423,563,3,732,82))or(FindColorSpiral(x,y,16711423,575,87,720,161))) then
begin
logout;
wait(120000+random(1000));
Login;
If(GetColor(433,62)=8421504)then
begin
Mouse(433,62,5,2,True);
end;
end;
end;




procedure Pick;
var F,G:integer;
begin
F:=0;
G:=0;

Take := BitmapFromString(32, 3, 'z78DA737343000330307531353' +
       '1314726DDF002645DB864314D26C6045CEE21C61C5CB21040BCFB' +
       '2180BC30A185FB4915C7E50B5CAE25DEE51012004FA9874C');
TakeY := BitmapFromString(29, 4, 'z78DA33753135313177030203' +
       '03080901A66071531CB210802C8E4B3D2EBDE4996C4A846BF1BB0' +
       '1531731EEC46F2FA9A1476AD8E2772D31A144B91FC90B014C7162' +
       'D20C2E80AC1E00755E9B63');
repeat
F:=F+5;
G:=G+5;
wait(100);
if((F>230)or(G>140))then
begin
F:=0;
G:=0;
end;
until((FindColorSpiral(x,y,Bone1,265-F,168-G,520+F,340-G))or(FindColorSpiral(x,y,Bone2,265-F,168-G,520+F,340-G))or(FindColorSpiral(x,y,Bone3,265-F,168-G,520+F,340-G)))
Mouse(x,y,5,5,False);
if((FindBitmapSpiral(Take,x,y,0,0,520,340))or(FindBitmapSpiral(TakeY,x,y,0,0,520,340))) then
begin
MMouse(x,y,0,0);
wait(100+random(100));
Mouse(x,y,0,0,True);
mapFlagging;
wait(100+random(100));
mapFlagging;
Picked:=Picked+1;
end else
begin
MMouse(0,0,5,5);
wait(100+random(100));
end;
F:=0;
G:=0;
end;

procedure checkforlumbridge;
begin
if (FindColorSpiral(x,y,lumbysheildblue,0,0,515, 338)and
(FindColorSpiral(x,y,Lumbydoor,0,0,515, 338)and
(FindColorSpiral(x,y,Lumbydoorhandlegold,0,0,515, 338)
Begin
logout;
WriteLn('Found lumbridge, logged out');
end;

Procedure Bury;
begin
Repeat
FindColorSpiral(x,y,BoneInv,566,214,744,468);
Mouse(x,y,5,5,True);
Mouse(x,y,5,5,True);
Wait(1000+random(300));
FindRandoms;
randoms;
Wait(500+random(300));
if(FindColorSpiral(x,y,837337,7,373,518,493))then
begin
leveled:=leveled+1;
end;
Buried:=Buried+1;
PrintProgressReport;
until Not(FindColorSpiral(x,y,BoneInv,552,205,744,468))
end;

Procedure DoAll;
begin
Setrun;
Mouse(647,186,5,5,True);
repeat
pick;
PrintProgressReport;
FindRandoms;
randoms;
checkforlumbridge;

Until Not(GetColor(710,265)=Inventory)
Bury;
FindRandoms;
randoms;
PrintProgressReport;
end;

begin
User:='please help';
pass:='please';
LogIn;
If(GetColor(433,62)=8421504)then
begin
Mouse(433,62,5,2,True);
end;
SetRun;
Mouse(652,186,5,5,True);
St:=GetSystemTime;
Bury;
Inventory:=GetColor(710,265);
repeat
PrintProgressReport;
DoAll;
a:=a+1
until(a=Howmanyinvos or (FindColorSpiral(x,y,lumbysheild(blue),0,0,515, 338)and
(FindColorSpiral(x,y,Lumbydoor,0,0,515, 338)and
(FindColorSpiral(x,y,Lumbydoorhandle(gold),0,0,515, 338)
then Mouse(x,y,648, 485,true)
Mouse(x,y,645, 378,true)WriteLn('you were logged out because the script found lumbridge'))
end.

 

Burn
Ur
Mum
Please

B
U
M
P

 

Get a new script, that one is too old.

 

Yeah, use SCAR DIVI. . .

 

i just got scar divi... but please i would give anyone a mega big ass vouch if they helped or even made the script for me

 

anyone?