For goodness sake, dont realse a script unless if has proper standards. People like me want to read you script before they run it. You should get into the habbit fo it now, if you need any help, let me know.
Of yeah, you missed a semi colon after "loginplayer'
SCAR Code:
program PieBoner;
{.include SRL/SRL.scar}
//Stand near a place with some monsters, that are not high level.
//Don't have anything with you, maybe just like a scimmy.
const
BoneColor = 14342878;//The color of the bones dont change.
BonesToBury = 10; //How many bones you want to bury.
MonsterColor = 0; //The color of the monster.
Monster = 'eag';//3 letters of the monster's name you want to fight
NumberOfUsers = 1; //How many players you are using.
var
BonesDone: integer;
procedure DeclarePlayers;
begin
HowManyPlayers := NumberOfUsers;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';//Your runescape username
Players[0].Pass := 'Password';//Your runescape password
Players[0].Nick := 'ser'; //3 Letters of your username.Username = ser.
Players[0].Loc := 'Bank';
Players[0].Active := True;
end;
procedure Kill;
begin
repeat
FindColor(x, y, MonsterColor, 0, 0, 450, 450);
MMouse(x, y, 1, 1);
until (IsUpText(Monster));
if (IsUpText(Monster)) then
Mouse(x, y, 2, 2, False);
Wait(1000 + random(450));
ChooseOption(x, y, 'ack');
end;
procedure FindBones;
begin
repeat
FindColor(x, y, BoneColor, 0, 0, 450, 450);
MMouse(x, y, 1, 1);
until (IsUpText('one'));
if (IsUpText('one')) then
Mouse(x, y, 1, 1, False);
Wait(1000 + random(300));
ChooseOption(x, y, 'ury');
end;
function FindFastRandoms: boolean; //By WT-Fakawi.
var
i: integer;
begin
for i := 1 to 8 do
begin
case I of
1:
if FindDead then
Result := True;
2:
if FindMod then
Result := True;
3:
if FindMime then
Result := True;
4:
if FindMaze then
Result := True;
5:
if FindQuiz then
Result := True;
6:
if FindDemon then
Result := True;
7:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7:
begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8:
RC;
end;
wait(1);
end;
end;
procedure FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
procedure Report;
begin
ClearDebug;
WriteLn('---PieBoner-----Report----------------');
WriteLn('Running Time: ' + (TimeRunning) + '');
WriteLn('Bones Buried: ' + IntToStr(BonesToBury) + '');
WriteLn('Monsters Pwned: ' + IntToStr(BonesToBury) + '');
WriteLn(':P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:');
end;
begin
SetupSRL;
DeclarePlayers;
if not LoggedIn then
LoginPlayer;
repeat
Kill;
FindRandoms;
FindBones;
until (BonesToBury = BonesDone);
if (BonesToBury = BonesDone) then
Report;
Exit;
TerminateScript;
end.