Results 1 to 8 of 8

Thread: How do i get chickenkiller to work?

  1. #1
    Join Date
    May 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default How do i get chickenkiller to work?

    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

  2. #2
    Join Date
    Apr 2007
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do you have SRL installed?

  3. #3
    Join Date
    May 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    {.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

  4. #4
    Join Date
    May 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thx, that might help =/

  5. #5
    Join Date
    Jan 2007
    Location
    Toronto.
    Posts
    150
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.

  6. #6
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    and next time use [scar][/ scar] without the space between the / and scar. put the script in between the tags

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  7. #7
    Join Date
    Oct 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default SPAMMING is not an acceptable way to rasie postcount !

    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

  8. #8
    Join Date
    Oct 2006
    Location
    MI USA
    Posts
    3,166
    Mentioned
    6 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by izzane View Post
    Try use srl 4 and scar 3.12
    try checking the dates.... 05-26-2007 05:18 PM


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. ChickenKiller
    By Fasga in forum First Scripts
    Replies: 15
    Last Post: 02-28-2009, 10:25 AM
  2. First script~ ChickenKiller
    By UNo in forum First Scripts
    Replies: 20
    Last Post: 02-01-2009, 12:09 AM
  3. I am Making a chickenkiller
    By Wade007 in forum OSR Help
    Replies: 4
    Last Post: 01-03-2008, 02:33 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •