im new to this and need help.

[ultrakurby]

ok, so im using a script and its for the varrock zamorak monk curser. i keep getting this..

Include file C:\Program Files\SCAR 3.15\includes\srl\srl\misc\smart.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\srl\srl.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\srl\srl\skill\magic.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\srl\srl\reflection\reflection.scar does not exist.
Failed when compiling

anyone help?..

heres the script


program SZMC;
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/magic.scar}
{.include srl/srl/reflection/reflection.scar}

var
ExpChange, a, BreakTime : Integer;

const
VerNumber = '0.1';
{ ---------------------------------------------------------------------------- }
MySRLID = '';
MySRLPassword = '';
Members = 'yes';
TakeBreaks = True;
TotalPlayers = 5;
{ ---------------------------------------------------------------------------- }

procedure DeclarePlayers;
begin
NumberOfPlayers(TotalPlayers);
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].integers[0] := 1000; { Cast Count }
Players[0].Active:=True;

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].integers[0] := 1000; { Cast Count }
Players[1].Active:=True;

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].integers[0] := 1000; { Cast Count }
Players[2].Active:=True;

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].integers[0] := 1000; { Cast Count }
Players[3].Active:=True;

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].integers[0] := 1000; { Cast Count }
Players[4].Active:=True;
end;

procedure AntiBan;
begin
if (not(LoggedIn)) then Exit;
case Random(20) of
0, 1, 2, 3, 4: if (Random(20) < 6) then
MMouse(MSX1, MSY1, MSX2, MSY2);
5: if (Random(20) < 3) then
RandomRClick;
10: if (Random(20) < 3) then
HoverSkill('random', False);
15: if (Random(20) < 3) then
HoverSkill('magic', False);
else
Wait(500 + Random(150));
end;
end;

procedure UpdateDisguise;
begin
Disguise('Casted '+IntToStr(Players[CurrentPlayer].integers[1])+' curses.');
end;

function GetLvl: Integer;
begin
Result := SmartGetFieldArrayInt(0, MaxLevels, 6);
end;

function GetExp: Integer;
begin
Result := SmartGetFieldArrayInt(0, Experiences, 6);
end;

function CheckPos(x, y: Integer): Boolean;
var
MyLoc: TPoint;
begin
Result := False;
MyLoc := GetMyPos;
If (MyLoc.x = x) and (MyLoc.y = y) then
Result := True;
end;

procedure FixPos;
var
p : TPoint;
begin
if not(CheckPos(3214, 3476)) then
begin
if not(TileOnMS(IntToPoint(3214, 3476), 20)) then
WalkToTile(IntToPoint(3214+Random(3), 3476-Random(4)), 0, 0);
Flag;
p := TileToMS(IntToPoint(3214, 3476), 20);
Mouse(p.x, p.y, 5, 5, True);
end;
end;

function CastSpellOnMob(x, y, rx, ry, SpellNum: Integer; Monster: String): Boolean;
begin
Result := False;
CastSpell(SpellNum);
MMouse(x, y, rx, ry);
if (IsUpText(Monster)) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Result := True;
end;
end;

function SpellCastSuccess: Boolean;
begin
Result := False;
if GetExp>ExpChange then
Result := True;
ExpChange := GetExp;
end;


function FindZammyMonkLoc: TPoint;
var
NPCs : array of TNPC;
begin
if (not(LoggedIn)) then Exit;
NPCs := SortNPCs(GetNPCsByID(189));
Result := NPCs[0].Tile;
end;

function RandomWorld: String;
var
Worlds: TIntegerArray;
begin
if (Lowercase(Members) = 'no') then
begin
Worlds := [25, 81, 102, 11, 105, 16, 106, 80, 135, 152, 72, 113, 37, 75,
169, 34, 40, 128, 87, 41, 101, 43, 35, 93, 33, 73, 120, 95, 90,
86, 96, 85, 38, 55, 57, 94, 127, 20, 126, 74, 125, 50, 118,
119, 30, 13, 123, 62, 7, 149, 165, 49, 8, 63, 21, 136, 19, 109,
153, 161, 14, 150, 163, 167, 154, 108, 61, 29, 47, 134, 107,
155, 32];
end;
if (Lowercase(Members) = 'yes') then
begin
Worlds := [84, 92, 71, 129, 83, 82, 23, 143, 54, 130, 100, 45, 60, 44, 46,
97, 59, 78, 99, 36, 103, 98, 104, 77, 58, 88, 39, 91, 116, 115,
79, 114, 164, 89, 76, 132, 22, 69, 27, 168, 121, 67, 28, 166,
124, 70, 66, 48, 64, 12, 56, 133, 156, 162, 111, 117, 145, 137,
65, 138, 42, 110, 151, 148, 26, 159, 51, 112, 160, 15, 131, 52,
158, 157];
end;
result := 'world'+IntToStr(Worlds[Random(high(Worlds))]);
end;

procedure TurnOffAudio;
var
x, y : Integer;
begin
if (not(LoggedIn)) then
Exit;
GameTab(11);
Wait(200+random(100));
MMouse(642, 249, 10, 10);
Wait(50+random(50));
GetMousePos(x, y);
Wait(200+random(100));
if (IsUpTextMultiCustom(['udio', 'etting'])) then
Mouse(x, y, 0, 0, True);
Wait(500+random(100));
Mouse(194, 236, 1, 1, True);
Wait(200+random(100));
Mouse(194, 177, 1, 1, True);
Wait(200+random(100));
Mouse(194, 121, 1, 1, True);
Wait(200+random(100));
MMouse(328, 56, 5, 5);
Wait(50+random(50));
GetMousePos(x, y);
if (IsUpText('lose')) then
Mouse(x, y, 0, 0, True);
end;

procedure Setup;
begin
SetupSRL;
SmartSetup(RandomWorld, True, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
if (MySRLID = '') or (MySRLPassword = '') then
begin
SRLID := '6098';
SRLPassword := 'scripts0v3r9000';
end else
begin
SRLID := MySRLID;
SRLPassword := MySRLPassword;
end;
ScriptID := '1026';
DeclarePlayers;
if not(loggedin) then loginplayer;
Wait(200+Random(200));
TurnOffAudio;
end;

procedure SetupPlayer;
begin
if(not(LoggedIn)) then Exit;
SetAngle(True);
Wait(300+Random(200));
GameTab(4);
Wait(300+Random(200));
MakeCompass('e');
Wait(300+Random(200));
SetRun(True);
Wait(300+Random(200));
if Players[CurrentPlayer].integers[2]=0 then
Players[CurrentPlayer].integers[2] := GetExp;
if Players[CurrentPlayer].integers[3]=0 then
Players[CurrentPlayer].integers[3] := GetLvl;
ExpChange := GetExp;
BreakTime := GetSystemTime+(((25+Random(5))*60000)+Random(45000));
end;

procedure ProgressReport;
var
i, a : Integer;
begin
Players[CurrentPlayer].integers[5] := GetExp-Players[CurrentPlayer].integers[2];
a := 0;
SRLRandomsReport;
SendSRLReport;
If(Not(LoggedIn)) then Exit;
Writeln('-----------------------------------------------');
Writeln(' _______. _ ');
Writeln(' / ____/ ___________ ____ / | /\ ____ ');
Writeln(' \____ \ / __ \_ __ \ / \ | |/ / / \ ');
Writeln(' / \ ___/| | \/( () )| < ( () ) ');
Writeln('/______ /\___ \|__| \____/ |_|\ \ \____/ ');
Writeln(' \/ \/ \/ ');
Writeln(' Ver '+VerNumber+' Zamorak Monk Curser ');
Writeln('-----------------------------------------------');
Writeln(' o Ran for '+TimeRunning);
Writeln(' o Curses Cast: '+IntToStr(Players[CurrentPlayer].integers[1]));
Writeln(' o Starting experience: '+IntToStr(Players[CurrentPlayer].integers[2]));
Writeln(' o Experience gained: '+IntToStr(Players[CurrentPlayer].integers[5]));
Writeln(' o Starting level: '+IntToStr(Players[CurrentPlayer].integers[3]));
Writeln(' o Level(s) gained: '+IntToStr(GetLvl-Players[CurrentPlayer].integers[3]));
Writeln('-----------------------------------------------');
for i := 0 to GetArrayLength(Players)-1 do
begin
Writeln(IntToStr(i)+': '+Players.nick+' | '+Left(BoolToStr(Players.active),1)+' | '+IntToStr(Players.integers[1])+' cast | '+IntToStr(Players.integers[5])+' experience');
IncEx(a, Players.integers[5]);
end;
Writeln('Total experience gained: '+IntToStr(a));
end;

function TakeABreak: boolean;
var
H, M, S, BreakFor, T: integer;
begin
if ( GetSystemTime >= BreakTime ) then
begin
result := true;
ProgressReport;
BreakFor := ((5+Random(3))*60000)+Random(30000);
ConvertTime(BreakFor, H, M, S);
Writeln('Taking a '+inttostr(M)+ ' minute(s) and ' +inttostr(S)+ ' second(s) break.');
Logout;
MarkTime(T);
Repeat
ConvertTime(BreakFor - TimeFromMark(T), H, M, S)
Disguise(inttostr(M)+ 'mins' +inttostr(S)+ 'sec break');
wait(1000);
until (BreakFor < TimeFromMark(T))
Disguise('Break Finished, Resuming hunting...');
NextPlayer(true);
SetupPlayer;
end;
end;

function FindSomeRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 6 do
begin
case I of
1: Result := SolveNonTalkingRandoms;
2: Respond;
3: Result := FindTalk;
4: Result := FindDead;
5: Result := RC;
6: Result := FindMod;
end;
if Result then
Break;
//Wait(1);
end;
end;

function CurseZammyMonk: Boolean;
var
p : TPoint;
begin
Result := False;
p := TileToMS(FindZammyMonkLoc, 20);
if CastSpellOnMob(p.x, p.y, 7, 7, 12, 'amorak') then
begin
FixPos;
FindSomeRandoms;
Wait(500+Random(300));
MMouse(p.x+Random(300), p.y+Random(25), 5, 5);
Result := SpellCastSuccess;
end;
end;

procedure Intro;
begin
ClearDebug;
Status('Script Created by Seroko');
Writeln('-----------------------------------------------');
Writeln(' _______. _ ');
Writeln(' / ____/ ___________ ____ / | /\ ____ ');
Writeln(' \____ \ / __ \_ __ \ / \ | |/ / / \ ');
Writeln(' / \ ___/| | \/( () )| < ( () ) ');
Writeln('/______ /\___ \|__| \____/ |_|\ \ \____/ ');
Writeln(' \/ \/ \/ ');
Writeln(' Ver '+VerNumber+' Zamorak Monk Curser ');
Writeln('-----------------------------------------------');
end;

begin
Setup;
Intro;
SetupPlayer;
repeat
if not(loggedin) then exit;

if CurseZammyMonk then
begin
Inc(Players[CurrentPlayer].integers[1]);
Inc(ReportVars[0]);
IncEx(ReportVars[1], 29);
Inc(a);
end;

if Random(5)>3 then
AntiBan;

if (a>25+Random(15)) then
begin
a := 0;
ProgressReport;
FindNormalRandoms;
end;

if (Players[CurrentPlayer].integers[1]>=Players[CurrentPlayer].integers[0]) then
begin
ProgressReport;
NextPlayer(false);
end;

if TakeBreaks then
TakeABreak;
until(false);
end.

 

[Jethr0x]

install srl.

 

[ultrakurby]

im sorry.. but wats srl? wats it stand for... i got subversion if thats wat u mean