It had a few errors. I put all the corrections in there that I could find. It still says there is a colon expected at line 207, but I'm too lazy to go see where you messed up. Here it is with some thing corrected.
SCAR Code:
program prayer2;
{.include SRL/SRL.scar}
{.Include SRL/SRL/extended/xAntiBan.scar}
Var
BoneColors: Array of Integer;
HaveBones: Integer;
w:Integer;
Const
Trips=1;//Didn't need the : on either of these
RunDir='n';//Forgot that ;
procedure DeclarePlayers;
Begin
HowManyPlayers := 6; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
//set all user names, passwords and nicks correctly please.
//If you don't, I will kill you in your sleep >=)
Players[0].Name := 'UserName';
Players[0].Pass := 'Password';
Players[0].Nick := '3-4 letters of UserName';
Players[0].Active := True;
Players[1].Name := 'UserName';
Players[1].Pass := 'Password';
Players[1].Nick := '3-4 letters of UserName';
Players[1].Active := False;
Players[2].Name := 'UserName';
Players[2].Pass := 'Password';
Players[2].Nick := '3-4 letters of UserName';
Players[2].Active := False;
Players[3].Name := 'UserName';
Players[3].Pass := 'Password';
Players[3].Nick := '3-4 letters of UserName';
Players[3].Active := False;
Players[4].Name := 'UserName';
Players[4].Pass := 'Password';
Players[4].Nick := '3-4 letters of UserName';
Players[4].Active := False;
Players[5].Name := 'UserName';
Players[5].Pass := 'Password';
Players[5].Nick := '3-4 letters of UserName';
Players[5].Active := False;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
End;
Procedure DeclareColors;
Begin
SetArrayLength(BoneColors,5);
BoneColors[0]:= 11842750;
BoneColors[1]:= 13487571;
BoneColors[2]:= 11382457;
BoneColors[3]:= 13355986;
BoneColors[4]:= 10329769;
End;
Procedure Randoms;
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
FindNormalRandoms;
If(FindFight)Then
RunAway(RunDir);//This is an invalid procedure for SCAR DIVI 3.11 and SRL 3.81. What version are you using?
Wait(1000+Random(2000));
RunBack;
End;
Function RandomDir: String;
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
Case (random(4)) of
0: Result:='n';
1: Result:='s';
2: Result:='e';
3: Result:='w';
End;
End;
Procedure ScrewyCompass(arrowkey:String; moveback:Boolean);//up, down, left, right, or ran
Var HoldingTime, WaitTime, RanDir, OppRanDir:Integer;
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
HoldingTime:= 500+random(1000);
WaitTime:= 500+random(250);
RanDir:= random(4);
Case (RanDir) of
0: OppRanDir:=2
1: OppRanDir:=3
2: OppRanDir:=0
3: OppRanDir:=1
End;
Case (arrowkey) of
'up': SendArrowWait(0,HoldingTime);
'down': SendArrowWait(2,HoldingTime);
'left': SendArrowWait(3,HoldingTime);
'right': SendArrowWait(1,HoldingTime);
'ran': SendArrowWait(RanDir,HoldingTime);
End;
If (moveback) Then
Begin
Wait(WaitTime);
Case (arrowkey) of
'up': SendArrowWait(2,HoldingTime);
'down': SendArrowWait(0,HoldingTime);
'left': SendArrowWait(1,HoldingTime);
'right': SendArrowWait(3,HoldingTime);
'ran': SendArrowWait(OppRanDir,HoldingTime);
End;
End;
End;
Procedure NevaBanMe;
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
Case (random(11)) of
0: RandomRClickEvery(2 + Random(4));
1: begin
HoverSkill('Prayer', false);
wait(1000+random(2000));
GameTab(4);
end;
2: ScrewyCompass('ran',True);
3: DontBanMe(2+random(3));
4: PickUpMouse;
5: LeaveScreenEvery(10 + Random(4));
6: BoredEvery(10 + Random(5));
7: begin
GameTab(1 + Random(12));
wait(1000+random(1000));
GameTab(4);
end;
8: begin
case random(4) of
0: TypeSend('Ugh, Prayer takes 4 eva 2 lvl!!!');
1: TypeSend('Bones Bones Bones...');
2: TypeSend('Hey all, wats ur prayer lvls?');
3: TypeSend('Prayer Pwnz!');
end;
end;
9: AntiBan;
10: SleepAndMoveMouse(600000+random(300000));
End;
End;
Function GetBones: Boolean;
Var
i,q :Integer;
coords: TPoint;
Begin
Result:=False;
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
For q:= 0 to 1 do
Begin
For i:= 0 to 3 do
Begin
Randoms;
If FindObjMultiText(coords.x,coords.y,'Bones','nes','ones',BoneColors[i],20) then //Forgot the s after BoneColor
Begin
Mouse(coords.x,coords.y,2,2,false);
If (PopUp('up Bones')) then
Begin
Result:=True;
Exit;
End;
End;
End;
End;
End;
Function BuryBones;
Var q:Integer;
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
If(InvFull)Then
For q:=1 to 28 do
Begin
Randoms;
MouseItem(q,False);
(PopUp('ury'));
Wait(500+random(1000));
End;
End;
begin
DeclarePlayers;
DeclareColors;
Repeat
Begin
For w :=0 to Trips do
Begin
If(Not(LoggedIn))Then
Begin
Players[CurrentPlayer].Active:=False;
Exit;
End;
GetBones;
NevaBanMe;
BuryBones;
NevaBanMe;
End;
NextPlayer(Players[CurrentPlayer].Active);
End;
Until(False);
end.