Results 1 to 3 of 3

Thread: Help with tree Finder

  1. #1
    Join Date
    Dec 2006
    Location
    Birmingham/UK
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Help with tree Finder

    SCAR Code:
    procedure FindTreeColor;
    var TreeColor, TwoTree, MaxTolerance: integer;
    begin
      TwoTree := BitmapFromString(5, 7, 'z78DA33B3B07035323143' +
           '228DCD8D1C0D9C21A419862CF1A491ABA98BA1237E59235313474' +
           '3324DC0450200099C2E35');
      MaxTolerance := 40;
      TreeColor := AutoColorThis(TwoTree, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
      WriteLn('TreeColor: '+IntToStr(TreeColor));
      FreeBitmap(TwoTree);
    end;
    procedure WalkToTrees;
    var Trees: integer;
    begin
      Trees := FindTreeColor;
      if FindColorSpiral(x, y, Trees, MMX1, MMY1, MMX2, MMY2) then
      Mouse(x, y, 1, 1, True);
      Flag;
    end;

    im trying to get scar to move to the trees but it aint working i get this error

    Line 18: [Error] (17679:23): Type mismatch in script i

    i have no idea what the mismatch it can any1 help?
    If I see you autoing with level 3/default clothes/crap name I WILL report you. Auto Correctly. - put this in your sig<BR>
    http://www.draynor.net/skill/underse...dvance_war.png

  2. #2
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Witch one is line 18?
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  3. #3
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    SCAR Code:
    Function FindTreeColor: Integer;
    var
      TwoTree, MaxTolerance: integer;
    begin
      TwoTree := BitmapFromString(5, 7, 'z78DA33B3B07035323143' +
           '228DCD8D1C0D9C21A419862CF1A491ABA98BA1237E59235313474' +
           '3324DC0450200099C2E35');
      MaxTolerance := 40;
      Result := AutoColorThis(TwoTree, MaxTolerance, MMX1, MMY1, MMX2, MMY2);
      WriteLn('TreeColor: '+IntToStr(TreeColor));
      FreeBitmap(TwoTree);
    end;
    procedure WalkToTrees;
    var Trees: integer;
    begin
      Trees := FindTreeColor;
      if FindColorSpiral(x, y, Trees, MMX1, MMY1, MMX2, MMY2) then
      begin
        Mouse(x, y, 1, 1, True);
        Flag;
      end;
    end;

    I made FindTreeColor a Function, so now it results the treecolor
    Hup Holland Hup!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Creating a pick head finder, and gas finder
    By Tom_Gower in forum OSR Help
    Replies: 7
    Last Post: 11-07-2008, 07:06 AM
  2. SkullBr00d Tree Finder
    By skullbr00d in forum First Scripts
    Replies: 6
    Last Post: 10-31-2007, 10:23 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
  •