could sum1 plz tell me what i have to add or move around to solve this error:
line 42 identifier expected in script.
script is below
l
\/
Program AutoPickup;
{.include SRL/SRL.scar}
const
Color1 =2565932;//
Color2 =2829101;// >pick colors
Color3 =2565929;//
///////////If Login doesnt work tell me on srl or scar-scripts////////////
/////////until then delete it if it doesnt work or you dont want it////
///////remember to remove declare players from the last loop(line 71)//
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Signature;
begin
ClearDebug;
Writeln('My First Working Script!!!');
Writeln('Pickup Whatever item u set it to!');
Writeln(' Uses Colors and mouse commands');
Writeln(' By:Lilboy543');
Wait(2000 + random(550));
end;
procedure ClickColors;
begin
repeat
if(FindColor(x,y,Color1,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,Color2,MSX1,MSY1,MSX2,MSY2))or
(FindColor(x,y,Color3,MSX1,MSY1,MSX2,MSY2))then
begin
Mouse(x,y,2,2,true)
until(false);
end;
end;
begin
SetupSRL;
DeclarePlayers;
Signature;
ClickColors;
end.
also accepting all advice or constructive criticism.![]()


Reply With Quote

