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
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.
