i need help getting scar to do stuff...(im a nub)

Discussion in 'Archives' started by rando151, Jun 7, 2007.

i need help getting scar to do stuff...(im a nub)
  1. Unread #1 - Jun 7, 2007 at 9:36 PM
  2. rando151
    Referrals:
    0

    rando151 Guest

    i need help getting scar to do stuff...(im a nub)

    i cant get any script to work i've used a wide array of scripts but with each and everyone it finds a error, i am using all the newest versions of scar the srl ect ect but no script will work and for every one its a diffrent error i dont know if all of them r out dated, but others r using alot of them.... help please =[
     
  3. Unread #2 - Jun 7, 2007 at 9:45 PM
  4. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    i need help getting scar to do stuff...(im a nub)

    Post an error, I'll help you fix them one by one.
     
  5. Unread #3 - Jun 7, 2007 at 9:56 PM
  6. rando151
    Referrals:
    0

    rando151 Guest

    i need help getting scar to do stuff...(im a nub)

    for this script

    Code:
    ///////////////////////////////////////////////
    //    CHICKEN KILLER / FEATHER COLLECTOR     //
    //           + Walkback                      //
    //                   by Idiota               //
    ///////////////////////////////////////////////
    
    ///////////////////////////////////////////////
    //Version // Description                     //
    ///////////////////////////////////////////////
    // 1.1    //  First release                  //
    // 1.3    //  Ub3red up the attack procedure //
    // 1.5    //  Debugged FindObj3              //
    // 1.7    //  Sorted out Feather collecting  //
    ///////////////////////////////////////////////
    program New;
    {.include sslibrary.txt}
    {.include boxbreaker.txt}
    {.include PAr.txt}
    var attack,feather1,feather2 :integer;
    const
         ///////////////////////////////////////////////////////////
         collect  = true     ; // true to collect feathers. Otherwise, false.
         lampskill= 'strength' ; // skill to boost if get genie.
         fightmode= 3        ; // 0-4, top-bottom.
         ///////////////////////////////////////////////////////////
         chick1   = 14540514 ;
         chick2   = 14342879 ;
         chick3   = 14606307 ;
         feather  = 10240    ;
         water    = 13546165 ;
         walk1    = 1040     ;
         walk2    = 1067354  ;
         walk3    = 5395802  ;
         walk4    = 5395802  ;
         walk5    = 5395802  ;
         walk6    = 5395802  ;
         walk7    = 5395802  ;
         walk8    = 5395802  ;
         gate     = 7209     ;
         barn     = 1055785  ;
    
    function FindObj3(objtext:string; objcolor,objcolor2,objcolor3,tol:integer):boolean;
    var ax,ay:integer;
    xi,yi,TempHold2,i,TempHold:extended;
    begin
    ax:=257; ay:=168;
    repeat
    wait(1);
    i:=i+1
    yi:=0;
    repeat
    wait(1);
    yi:=yi+1;
    TempHold:=Trunc(i/2);
    TempHold2:=i/2;
    if(TempHold=TempHold2)then
    begin
    ay:=ay+10;
    end else ay:=ay-10;
    if(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))or
    (FindColorTolerance(x,y,objcolor2,ax-5,ay-5,ax+5,ay+5,tol))or
    (FindColorTolerance(x,y,objcolor3,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
    MMouse(x,y,1,1);
    wait(450);
    if(IsTextAt2(9,9,objtext,100))then
    result:=true;
    end;
    until(yi=i)or(result=true)
    xi:=0;
    repeat
    wait(1);
    xi:=xi+1;
    TempHold:=Trunc(i/2);
    TempHold2:=i/2;
    if(TempHold=TempHold2)then
    begin
    ax:=ax+10;
    end else ax:=ax-10;
    if(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))or
    (FindColorTolerance(x,y,objcolor2,ax-5,ay-5,ax+5,ay+5,tol))or
    (FindColorTolerance(x,y,objcolor3,ax-5,ay-5,ax+5,ay+5,tol))then
    begin
    
    MMouse(x,y,1,1);
    wait(450);
    if(IsTextAt2(9,9,objtext,100))then
    result:=true;
    end;
    until(xi=i)or(result=true)
    until(ax>=514)or(result=true)
    end;
    
    procedure KILLcutelilchick;
    var sx,sy,ix,iy,ifight:integer;
    begin
    if(FindObj3('Attack Chicken',Chick1,Chick2,Chick3,5))then
    if(Not FindColor(sx,sy,65280,x-30,y-30,x+30,y+30))and(Not FindColorTolerance(sx,sy,192,x-30,y-30,x+30,y+30,10))and(Not FindColorTolerance(sx,sy,11339523,x-30,y-30,x+30,y+30,15))then
    begin
    Mouse(x,y,1,1,false);
    if(FindBitmap(Attack,ix,iy))then
    begin
    sw(ix,iy);
    repeat
    wait(100+random(20));
    until(FindColorSpiral(x,y,65280,216,115,284,171))or(ifight>=35)
    ifight:=0;
    repeat
    ifight:=ifight+1;
    wait(100);
    until(not FindColorSpiral(x,y,65280,216,115,284,171))
    end;
    end;
    end;
    
    procedure getfeathers;
    begin
    if(FindColorSpiral(x,y,feather,181,109,334,237))then
    begin
    if(istextat2(9,9,'Take',0))then
    begin
    mouse(x,y,0,0,false);
    if(findbitmap(feather1,x,y))or
      (findbitmap(feather1,x,y))then
    sw(x,y);
    end;
    end;
    end;
    
    procedure demolishrandoms;
    begin
    check4randoms;
    findbox;
    Check4Lamp(LampSkill);
    end;
    
    procedure Walk(direction, color:integer);  // walks in the specifed direction until it sees a colour on the minimp
    begin
    repeat
    // dead center of minimap == (648,83)
    if (direction=0) then sw(648,28);     //north
    if (direction=1) then sw(687,44);
    if (direction=2) then sw(703,83);     //east
    if (direction=3) then sw(687,122);
    if (direction=4) then sw(648,138);    //south
    if (direction=5) then sw(609,122);
    if (direction=6) then sw(593,83);      //west
    if (direction=7) then sw(609,44);
    Check4Randoms;
    until (Findcolor(x,y,color,572,14,722,155)=true);
    end;
    
    procedure walkback;
    begin
    if(FindColorSpiral(x,y,water,638,53,667,81))then
    begin
    walk(2,walk1);
    walk(0,walk2);
    if(FindColorSpiral(x,y,walk3,710,78,717,83))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,walk4,674,17,680,27))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,walk5,605,23,613,30))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,walk6,625,13,633,18))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,walk7,607,26,613,33))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,walk8,643,34,651,43))then
    begin
    sw(x,y);
    if(FindColorSpiral(x,y,gate,160,127,343,217))then
    begin
    if(IsTextAt2(9,9,'Open',100))then
    begin
    sw(x,y);
    end;
    end;
    if(FindColorSpiral(x,y,barn,603,53,638,79))then
    begin
    sw(x,y);
    end; end; end; end; end;
    end; end; end; end;
    
    
    procedure findwater;
    begin
    if(findcolor(x,y,water,634,126,666,153))then
    begin
    walkback;
    end;
    end;
    
    procedure TheBitmaps;
    begin
    Attack := BitmapFromString(18, 2,
           'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
           '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447' +
           '0000000000000000005D5447FFFFFFFFFFFF000000000000000000' +
           '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
           '');
    feather1 := BitmapFromString(42, 2,
           '5D54475D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
           '5D5447FFFF00FFFF00FFFF00FFFF005D54475D54475D54475D5447' +
           '5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
           '5D54475D5447FF9040FF9040FF9040FF90405D54475D54475D5447' +
           '5D5447FF9040FF9040FF9040FF90405D54475D54475D5447FFFF00' +
           'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
           '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
           'FF9040FF90400000000000000000005D54475D5447FF9040FF9040' +
           '000000000000FF9040FF90405D54475D5447FF9040FF9040000000' +
           '000000FF9040FF9040')
    feather2 := BitmapFromString(47, 2,
           'FFFFFF0000000000005D5447FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF5D54475D54475D54475D54475D54475D5447FF9040FF9040' +
           '0000000000000000005D54475D5447FF9040FF9040000000000000' +
           'FF9040FF90405D54475D5447FF9040FF9040000000000000FF9040' +
           'FF90405D54475D5447FF9040FF90400000000000000000005D5447' +
           'FF9040FF90400000000000005D54475D5447FFFFFFFFFFFF000000' +
           '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447' +
           'FF9040FF90400000005D54475D54475D54475D5447FF9040FF9040' +
           '0000005D5447FF9040FF90400000005D54475D5447FF9040FF9040' +
           'FF9040FF9040FF90400000005D5447FF9040FF90400000005D5447' +
           '5D54475D5447FF9040FF9040');
    end;
    
    begin
    loadlibrary('MSN Messenger (BETA)')
    TheBitmaps;
    SetBrightness('vbright');
    SetChat('off');
    repeat
    findwater;
    KILLcutelilchick;
    findwater;
    demolishrandoms;
    if(collect = true)then;
    getfeathers;
    until(false)
    end.
    i get this error

    Failed when compiling
    Line 1136: [Error] (1153:4): Unknown identifier 'istextat2' in script C:\Program Files\SCAR 3.06\includes\sslibrary.txt
     
  7. Unread #4 - Jun 7, 2007 at 10:04 PM
  8. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    i need help getting scar to do stuff...(im a nub)

    Very old, get a new one.
     
  9. Unread #5 - Jun 7, 2007 at 10:06 PM
  10. rando151
    Referrals:
    0

    rando151 Guest

    i need help getting scar to do stuff...(im a nub)

    town can you please tell me how i can tell if it old?
     
  11. Unread #6 - Jun 7, 2007 at 11:41 PM
  12. rando151
    Referrals:
    0

    rando151 Guest

    i need help getting scar to do stuff...(im a nub)

    this is the error im getting with this auto fighter and people r still usin it

    http://www.srl-forums.com/forum/my-auto-fighter-t5588.html its the second download on that post =\
     
  13. Unread #7 - Jun 8, 2007 at 7:30 AM
  14. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    i need help getting scar to do stuff...(im a nub)

< selling combat 29 pure range | selling Tank Ranger / Mager >

Users viewing this thread
1 guest


 
 
Adblock breaks this site