This is the following error on scar 2.03 script for a chickenkiller, I kno its probably me, wat do u have to do to make it work
Failed when compiling
Include file C:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist.
Failed when compiling
This is the following error on scar 2.03 script for a chickenkiller, I kno its probably me, wat do u have to do to make it work
Failed when compiling
Include file C:\Program Files\SCAR 2.03\includes\srl/srl.scar does not exist.
Failed when compiling
Do you have SRL installed?
{.include srl/srl.scar}
const
TimePerPlayer=1200000;
var
PlayerBeginMark,AttMark:longint;
chx,chy,dfDtm,hbx,hby,bones,rx,ry:integer;
procedure FightMode;
var
FightModeInt,Training,str,att,def,ll,bfm:integer;
tstr,tatt,tdef:boolean;
begin
Status('Setting fight mode');
Training:=Players[CurrentPlayer].integer1;
if(Training=0) then begin
tstr:=true;
tatt:=true;
tdef:=true;
end;
if(Training=1) then begin
tstr:=true;
tatt:=true;
tdef:=false;
end;
if(Training=2) then begin
tstr:=false;
tatt:=true;
tdef:=true;
end;
if(Training=3) then begin
tstr:=true;
tatt:=false;
tdef:=true;
end;
if(Training=4) then begin
tstr:=true;
tatt:=false;
tdef:=false;
end;
if(Training=5) then begin
tstr:=false;
tatt:=true;
tdef:=false;
end;
if(Training=6) then begin
tstr:=false;
tatt:=false;
tdef:=true;
end;
str:=GetSkillLevel('Strength');
att:=GetSkillLevel('Attack');
def:=GetSkillLevel('Defence');
ll:=100;
if(tstr) then begin
if(str<ll) then begin
ll:=str;
bfm:=1;
end;
end;
if(tatt) then begin
if(att<ll) then begin
ll:=att;
bfm:=0;
end;
end;
if(tdef) then begin
if(def<ll) then begin
ll:=def;
bfm:=2;
end;
end;
FightModeInt:=bfm;
GameTab(1);
if(FightModeInt=0) then Mouse(585, 262,20,10,true);
if(FightModeInt=1) then Mouse(592, 317,20,10,true);
if(FightModeInt=2) then Mouse(674, 316,20,10,true);
GameTab(4);
end;
procedure SetupPlayer;
begin
Status('Setting up compass');
MakeCompass('N');
KeyDown(VK_UP);
wait(1400+random(200));
KeyUp(VK_UP);
Status('Setting run');
SetRun(true);
FightMode;
end;
function hBar:boolean;
begin
Result:=FindColor(x,y,65280 ,MSX1, MSY1 ,MSX2, MSY2)or FindColor(x,y,255 ,MSX1, MSY1 ,MSX2, MSY2);
end;
function FindNearestRed:boolean;
begin
rx:=MMCX;
ry:=MMCY;
Result:=FindColorSpiral(rx,ry,255,MSX1,MSY1,MSX2,M SY2);
end;
function DoneFight(UpdateNearestRed:boolean):boolean;
begin
if(UpdateNearestRed) then begin
if(not(FindNearestRed)) then Exit;
end;
Result:=FindDtm(dfDtm,x,y,rx-35, ry-20,rx+42, ry+20);
if(Result) then begin
rx:=x;
ry:=y;
hbx:=x;
hby:=y;
end;
end;
Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
if ( FindColor(dx, dy, 65280, x - 0, y - 10, x + 0, y + 10) or
FindColor(dx, dy, 255, x - 0, y - 10, x + 0, y + 10) or
FindColor(dx, dy, 16728128, x - 0, y - 10, x + 0, y + 10) or
FindColor(dx, dy, 192, x - 0, y - 10, x + 0, y + 10) ) then
Result:=True;
end;
function FindChicken:boolean;
var
ctol,i:integer;
begin
ctol:=0;
for i:=1 to 20 do begin
ctol:=0;
repeat
chx:=MSCX;
chy:=MSCY;
Status('Trying to find chicken color tol: '+inttostr(ctol));
if(FindColorSpiralTolerance(chx,chy,858755,MSX1,MS Y1,MSX2,MSY2,ctol)) then begin
Status('Found chicken color tol: '+inttostr(ctol));
chy:=chy+2;
if(not(InFightAt(chx,chy))) then begin
Status('Found chicken color with no fight');
MMouse(chx,chy,0,0);
wait(10);
if(IsUpText('ic')) then begin
Status('Found chicken text');
Result:=true;
Exit;
end;
end;
end;
ctol:=ctol+2;
until(ctol>60);
if(FindObjMultiText(chx,chy,'tta','hic','ken',1565 8736,20)) then Result:=true;
if(FindNormalRandoms) then Result:=true;
end;
end;
function FindBubble:boolean;
begin
Result:=FindColor(x,y,192 ,MSX1, MSY1 ,MSX2, MSY2) or FindColor(x,y,16728128 ,133, 84 ,407, 256);
end;
function KillChicken:boolean;
begin
if(not(FindChicken)) then Exit;
ClickMouse(chx,chy,true);
Result:=true;
MarkTime(AttMark);
repeat
Status('Waiting to attack chicken');
wait(100);
until(FindBubble or (TimeFromMark(AttMark)>4000));
if(hBar) then begin
Status('Found health bar, we are in a fight');
repeat
SleepAndMoveMouse(200+random(100));
if(FindTalk) then FindNormalRandoms;
Status('Fighting');
until(DoneFight(true) or not(hBar));
if(DoneFight(true)) then begin
Status('Chicken dead, waiting for it to fall');
while(DoneFight(false)) do wait(10);
Status('Chicken has fallen');
if(InventoryFull) then begin
if(Players[CurrentPlayer].boolean1=false) then Exit;
while(FindInvDtm(x,y,bones)) do begin
Status('Burying bones');
Mouse(x+3,y+3,8,8,true);
if(FindTalk) then FindNormalRandoms;
wait(1100+random(200));
end;
end;
Status('Taking bones');
MMouse(hbx+8,hby,10,7);
wait(100+random(50));
getmousepos(hbx,hby);
Mouse(hbx,hby,0,0,false);
wait(10+random(5));
if(ClickOption('ones',1)) then begin
Flag;
wait(300+random(100));
end else MMouse(hbx-20,hby-20,5,5);
end;
end;
end;
begin
SetupSRL;
WriteLn('boolean1: Train Prayer (Bury bones)');
WriteLn('integer1: Skills To Train');
WriteLn('0: Att Str Def 1: Att Str');
WriteLn('2: Att Def 3: Str Def 4: Str');
WriteLn('5: Att 6. Def');
StartPlayers(true,'boolean1 integer1');
dfDtm:=DTMFromString('78DA6314656460E8664001FFA134 238C3622A' +
'C060086EB0362');
bones:= DTMFromString('78DA634C67626060616440058C0C5C6012C A2' +
'B04AAF9CF805F4D1D500D07017372816AB8F0AB010018B903 18');
ActivateClient;
wait(500);
repeat
if(Not(LoggedIn)) then LoginPlayer;
SetupPlayer;
MarkTime(PlayerBeginMark);
repeat
if(not(KillChicken)) then Logout;
if(FindTalk) then FindNormalRandoms;
until((TimeFromMark(PlayerBeginMark)>TimePerPlayer ) or Not(LoggedIn));
wait(11000);
NextPlayer(LoggedIn);
until(false);
end.
This is the script
Ok thx, that might help =/
You either haven't downloaded SRL, or you haven't downloaded it in the right place. Download Divi and click "Download SRL" and it installs it for you.![]()
and next time use [scar][/ scar] without the space between the / and scar. put the script in between the tags
Try use srl 4 and scar 3.12
This is really good.
Thanks for this.
- Izzane
Nice. Im gonna use after i got some str lvls with autofighter.
- Izzane
Nice for beeing your first script.
Keep up good work
- Izzane
Nice. Is it banker too?
Just wondering
- Izzane
Very nice for being first script.
- Izzane
Nice. Very helpful
- Izzane
Nice!
Congratz with 3000 posts.
- Izzane
900x60, isnt it?
- Izzane
Nice! Im gonna use this.
- Izzane
Why dont use 'recover password' button?
- Izzane![]()
![]()
Sticky: Attention Spammers and Leechers...
RAM
There are currently 1 users browsing this thread. (0 members and 1 guests)