Results 1 to 4 of 4

Thread: AntiRandom Didnt Catch Ent

  1. #1
    Join Date
    Mar 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    AntiRandom Didnt Catch Ent

    The Script Didnt Catch An Ent, And Yet It Did Go Through The Antirandom/Antiban Stage, Im Not Sure If Its My Code, Or If Its A Bug, And After A Couple Times, I Get This Error
    ERROR! cannot find axe in screen, please put axe in inventory or your equip page and restart the script!

    Thanks for any help

    My Unfinished Code (still have to do walk back to bank)

    SCAR Code:
    //This Script Made By Marneus901
    //First Script Made By Me, And Tanks To Communities
    //Such As Sythe.org And SRL-forums.com For Tutorials
    //And Inspiration


    //NOTE:: Does Not Do Randoms Yet

    //(FOR PROGRAMMING PURPOSES) Then Make -Y CORD Directly Abouve Shope Inside Castle Garden
    //Then More Up But To The Left (-X)
    //Then Directly Abouve Again (-Y)
    //If Cannot Find Tree, Then Head East (X)
    //If Already Moved East, And Cannot Find Tree, Move West (-X)
    //If West, Full Load, Head To Bank
    //If East, Full Load, Head West, Then Move To Bank
    //Use Shotcut Symbol
    //Then Directly South
    //Repeat
    //Repeat (Should Be Out Of Varrock Gardens After This)
    //Click On BankSymbol

    program AutoYewCutter;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\extended\xAntiBan.scar}
    {.include SRL\SRL\extended\xAntiRandoms.scar}
    {.include SRL\SRL\skill\WoodCutting.scar}
    var
    myx,myy:Integer;
    InfoManSymbol:Integer;
    SmithSymbol:Integer;
    AbleToFindBmps:Integer;
    SmithPlace:Integer;
    TreeMini:Integer;
    YewTree:Integer;

    const
    Username='username';
    Password='password';
    BankIconColor= 4048866; //Get The Yellow Part Of Symbol In Mini-Map
    //InfoGuySymbol= 7755818; //The Blue Color Of Information Guide Below Bank (On Mini-Map)
    StaffShopIcon= 1200010; //Brown Color Of Staff Shop Symbol In MiniMap
    ShortcutSymbol= 2395905; //On MiniMap
    YewTreeSymbol= 95746;//WellGee?
    YewTreeColor= 1986624;

    procedure WalkToTrees;
    begin
    HighestAngle;
    Wait(2000);
    {MakeCompass('S');
    MakeCompass('N');    }

       //Wait(1500);
       //Well, Your Character Is Always At The Cordinate 268, 170
       //North Square Is 270, 150 = y cord - 20
       //West 230, 185
       //South 265, 225 = y cord + 40
       //East 305, 185
       {     repeat
     if (FindBitmap(InfoManSymbol, myx, myy)) then
      begin
        AbleToFindBmps := 1;
      end else
        AbleToFindBmps := 0;
      if (FindBitmap(SmithSymbol, myx, myy)) then
      begin
        AbleToFindBmps := 1;
      end else
        AbleToFindBmps := 0;
        if (FindBitmap(TreeMini, myx, myy)) then
      begin
        AbleToFindBmps := 2;
      end else
        AbleToFindBmps := 0;
        Writeln('Unable To Find SmithSymbol Or InfoManSymbol');
        wait(2000);
        until(AbleToFindBmps=1);
      Mouse(myx, myy -10, 0, 0, True);
                if(not(AbleToFindBmps=2))then
                begin
              repeat
     if (FindBitmap(SmithPlace, myx, myy)) then
      begin
        AbleToFindBmps := 1;
      end else
        AbleToFindBmps := 0;
        wait(2000);
        Writeln('Unable To Find SmithPlace');
        until(AbleToFindBmps=1);
        Mouse(myx+26, myy-86, 0, 0, true);
        end;            }

        Wait(500);
        Mouse(269+420, 156-119, 0, 0, true);
        Wait(20000);
        Mouse(655, 19, 0, 0, true);
        Wait(30000);
        Mouse(650, 19, 0, 0, true);
        Wait(15000);
        Mouse(655, 19, 0, 0, true);
        Wait(15000);
        repeat
     if (FindBitmap(YewTree, myx, myy)) then
      begin
        AbleToFindBmps := 1;
      end else
        AbleToFindBmps := 0;
        wait(2000);
        Writeln('Unable To Find YewTree');
        until(AbleToFindBmps=1);
        Writeln('Found Yew Tree');
        Mouse(myx, myy, 0, 0, true);
        Wait(10000);
        { FindColor(x,y,YewTree,0,0,518,340)
         repeat
         if(IsUpText('Chop Down Yew')=true) then
         begin
         end else
         Writeln('Sorry Cannot Find Yew Tree ATM, Trying Again...');
         until(IsUpText('Chop Down Yew')=false)
         Mouse(myx, myy, 0, 0, false);}

         
    end;


    Procedure ChoptheTrees;
    begin

        if (FindMSColor(x,y,3438704))or
        (FindMSColor(x,y,3887184))or
        (FindMSColor(x,y,1925200))then
         MMouse(x,y,1,1)
          If IsUpText('Chop down Yew') then
           Mouse(x,y,1,1,true)
           wait(5000)

    end;



    procedure LetsLogin;
    begin
    Mouse(457, 290, 0, 0, true);
    Wait(2000);
    SendKeys(Username+chr(13));
    SendKeys(Password);
    Wait(2000);
    Mouse(304,325,0,0,true);
    Wait(6000);
    Mouse(392, 338, 0, 0, true);
    Wait(3000);
    end;

    procedure LetsLogout;
    begin
    Wait(1000);
    Mouse(645, 485, 0, 0, true);
    Wait(3000);
    Mouse(629, 377, 0 ,0 ,true);
    end;

    procedure GetAllBmps;
    begin
    InfoManSymbol := BitmapFromString(7, 10, 'z78DA333040006347' +
           '33370B3364D2000310238E4B8D010EBB885149891AEADA45AA4AE' +
           '2012E330185155263');
    SmithSymbol := BitmapFromString(9, 7, 'z78DA33300001130B132' +
           '76337032436B548030C80DF2E03A201A9EAC9D345AA0B890F0D00' +
           '16CA4D55');
      SmithPlace := BitmapFromString(20, 21, 'z78DA33353531377435' +
           '0593AEE66E666EE6A64822D42521E69BBB989B19B998D2CC5E886' +
           '998242E7B7191B84C26D9BFE6E646C616A6F40FE7517B47ED1DB5' +
           '7708DA0B2147ED1DAEF68EE47C84BFCE2586A4967FCDCDCD5C8C2' +
           'D68490EA4BD007C502882');
      TreeMini := BitmapFromString(1, 26, 'z78DA33753277367435059' +
           '326AEE62EC626986C086966446F1200DF4E2342');
      YewTree := BitmapFromString(17, 17, 'z78DAE5944112C3200845A' +
           'FF445D39025439AFB1FA9D3B8314331D4B49B9605E3E8F0DFF811' +
           '81FF0A655575F3679513CD193911AF90368F110F55F769061DF46' +
           '5D99E3B5DD682157489E264615109517C7D87B2DF8B481929EEDE' +
           '18C57AF82EE5C4318752DD1BA544BB13A75856AD2D25035B5D7BF' +
           'A91576D59AD424BB1A7F1A9E94FBAA55CF90D5ED4EE535029B752' +
           '98E47BBF4DEB4FBFCBBF1A0F883166A0');
    end;

    Procedure AntiRandomsandAntiBan;
    begin
     // SRLRandomsReport;
      FindNormalRandoms;
      FindAxeHeadColor;
      AttachHead;
      DontBanMe(2);
      If (FindEnt (3438704)) then
       begin
        Logout;
        Wait(30000)
        LoginPlayer;
       end
    end;


    begin
    SetupSRL;
    GetAllBmps;
    //LetsLogin;
    //Wait(4000);
    WalkToTrees;
    repeat
    ChoptheTrees;
    AntiRandomsandAntiBan;
    until(invfull = true);
    Wait(500);
    LetsLogout;
    FreeBitmap(InfoManSymbol);
    end.

  2. #2
    Join Date
    Sep 2006
    Posts
    916
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's not a bug, call FindEnt;.

  3. #3
    Join Date
    Jun 2006
    Posts
    366
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Error Can not find axe, I hae noticed also.. i guess u can call it several times until it finds it.. If u need me to clear on how u do that let me know..

    About the ent thing. If u have noticed, when an ent comes the colour the word "ent" is on the top left corner of the screen turns yellow. This is how srl finds out if there is an ent. So for your ent procedure you will first have to make sure the mouse is on the tree, and if it does find the ent (by calling procedure FindEnt(TreeColor: Integer)) what to do.. So for example, if findent(treecolor) then Mouse (500,500,2,3,true); This will make sure that it stops chopping if it finds the ent..
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig (I did, so should u )

  4. #4
    Join Date
    Mar 2007
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea i made it work, TreeColor was capitolized, i made it lowercase and it worked; thanks!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. For those of u that didnt no
    By Tom_Gower in forum News and General
    Replies: 16
    Last Post: 11-09-2008, 11:39 PM
  2. Replies: 22
    Last Post: 07-22-2007, 03:37 AM
  3. try/catch
    By del_signo in forum OSR Help
    Replies: 2
    Last Post: 03-25-2007, 02:38 PM
  4. incase u didnt no...
    By the blah in forum News and General
    Replies: 6
    Last Post: 10-21-2006, 08:33 PM

Posting Permissions

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