Results 1 to 3 of 3

Thread: Need An Axe Head Finder/Color

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

    Default Need An Axe Head Finder/Color

    Well i know theres FindAxeHeadColor; But Is There a better way in geting the colors, And Also Could some1 show me a good Axe finder.?

    -kooldude

    Would This Work?

    SCAR Code:
    /////////////////BrokenAxe/////////////////////////
    Procedure BrokeAxePro;

    var
    m, n, x, y, l, k: integer;

    begin
     If FindDTM(BrokeAxe, l, k, 0, 0,765, 503) then
      begin
     If FindColorTolerance(m, n, 3458523, 0, 0, 515, 339, 2) then
      Mouse(m, n, 2, 2, true)
       Flag;
        if FindColorTolerance(x, y, 5593184, 0, 0, 766, 501, 2) then
    begin
          Mouse(x, y, 1, 1, False)
          if(isuptext('Use')) then
          begin
            mouse(x,y,2,2,false)
            wait(200+Random(200))
            ChooseOption(x, y, 'se-uickly')
            wait(200+Random(200))
          end;
       Mouse(94, 73, 1, 1, false)
        if(isuptext('ithdraw 1')) then
         begin
          Mouse(96, 101, 1, 1, true)
           wait(1000 +random(500))
            Deposit(1,1,28)
             WalkToOak;
    FreeDTM(BrokeAxe)
        end;
       end;
      end;
     end;


    It Finds that there is a broken Axe, than Returns to the bank and Wthdraws A new one fomr the first Bank slot


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  2. #2
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well there is this... (found it in SRL folders for 3.07...)
    SCAR Code:
    {*******************************************************************************
    function FindHead: Boolean;
    By: Liquid and Starblaster100
    Description: Will check if the axehead is still on the axe handle.  If not, it
                 will start to look for the head and if it finds it, it will reattach
                 the head
    *******************************************************************************}


    function FindHead: Boolean;
    var
      c, AxeHeadDTM, Tries, x, y: Integer;
      hStart: Boolean;
    begin
      AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' +
        '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' +
        'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' +
        '70300FB8311DF');
      GameTab(4);
      Result := True;

      c := CreateBitmapMaskFromText('You do not have an axe', SmallChars);
      if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then
      begin
        if ((EquipAxe = False) and
          not (GetColor(590, 220) = Head) or
          not (GetColor(587, 219) = Head2) or
          not (GetColor(588, 218) = Head3)) then
          hStart := True;
        if (EquipAxe) then
        begin
          GameTab(5);
          Wait(200 + Random(200));
          if not (GetColor(597, 294) = Head) or
            not (GetColor(600, 295) = Head2) or
            not (GetColor(599, 298) = Head3) then
          begin
            hStart := True;
            Mouse(592, 297, 2, 2, True);
            Wait(1000);
          end;
        end;
      end;
      if (hStart = True) then
      begin
        Result := False;
        Tries := 0;
        repeat
          if not LoggedIn then Exit;
          if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then
            Break;
          if not (FindObjMulti('Take', Head, Head2, Head3, 5)) then
          begin
            Tries := Tries + 1;
            WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries');
            Status('Axe Head not found - Rotating Screen');
            KeyDown(VK_LEFT);
            Wait(1000 + Random(1000));
            KeyUp(VK_LEFT);
            Wait(400 + Random(300));
            if not FindObjMulti('Take', Head, Head2, Head3, 5) then
            begin
              Status('Axe Head not found - Moving to Red Dot');
              x := 648;
              y := 83;
              FindColorSpiral(x, y, 241, 570, 5, 725, 155)
                Mouse(x + 3, y + 3, 2, 2, True);
              Flag;
              Wait(500 + Random(300));
            end;
          end;
          if FindObjMulti('Take', Head, Head2, Head3, 5) then
          begin
            Status('Found Axe Head');
            WriteLn('Axe head was found.  Picking it up');
            Wait(450 + Random(400));
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, True);
            Flag;
            Wait(500 + Random(300));
          end;
        until (tries > 9) or
          (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465))
          if not (tries > 9) then
          if (AttachHead) then
            Result := True;
      end;
      FreeBitmap(c);
      FreeDTM(AxeHeadDTM);
    end;

    There are others you just got to look though other peoles scripts to get ideas...As long as you credit them for giving you the idea

    Hope this helps
    ~Stupedspam

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

    Default

    Quote Originally Posted by stupedspam View Post
    Well there is this... (found it in SRL folders for 3.07...)
    SCAR Code:
    {*******************************************************************************
    function FindHead: Boolean;
    By: Liquid and Starblaster100
    Description: Will check if the axehead is still on the axe handle.  If not, it
                 will start to look for the head and if it finds it, it will reattach
                 the head
    *******************************************************************************}


    function FindHead: Boolean;
    var
      c, AxeHeadDTM, Tries, x, y: Integer;
      hStart: Boolean;
    begin
      AxeHeadDTM := DTMFromString('78DA63CC62626078C180021C2312191E02694' +
        '620FE0F048C694035CF18D000231209A473816A9E12A1E6150135' +
        'A94035AF09A801B9F9090135994498930C54F392809A3CCCF0415' +
        '70300FB8311DF');
      GameTab(4);
      Result := True;

      c := CreateBitmapMaskFromText('You do not have an axe', SmallChars);
      if (FindBitmapMaskTolerance(c, x, y, 17, 410, 495, 452, 10, 85)) then
      begin
        if ((EquipAxe = False) and
          not (GetColor(590, 220) = Head) or
          not (GetColor(587, 219) = Head2) or
          not (GetColor(588, 218) = Head3)) then
          hStart := True;
        if (EquipAxe) then
        begin
          GameTab(5);
          Wait(200 + Random(200));
          if not (GetColor(597, 294) = Head) or
            not (GetColor(600, 295) = Head2) or
            not (GetColor(599, 298) = Head3) then
          begin
            hStart := True;
            Mouse(592, 297, 2, 2, True);
            Wait(1000);
          end;
        end;
      end;
      if (hStart = True) then
      begin
        Result := False;
        Tries := 0;
        repeat
          if not LoggedIn then Exit;
          if (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465)) then
            Break;
          if not (FindObjMulti('Take', Head, Head2, Head3, 5)) then
          begin
            Tries := Tries + 1;
            WriteLn('Axe head not found. Taken ' + IntToStr(tries) + ' tries');
            Status('Axe Head not found - Rotating Screen');
            KeyDown(VK_LEFT);
            Wait(1000 + Random(1000));
            KeyUp(VK_LEFT);
            Wait(400 + Random(300));
            if not FindObjMulti('Take', Head, Head2, Head3, 5) then
            begin
              Status('Axe Head not found - Moving to Red Dot');
              x := 648;
              y := 83;
              FindColorSpiral(x, y, 241, 570, 5, 725, 155)
                Mouse(x + 3, y + 3, 2, 2, True);
              Flag;
              Wait(500 + Random(300));
            end;
          end;
          if FindObjMulti('Take', Head, Head2, Head3, 5) then
          begin
            Status('Found Axe Head');
            WriteLn('Axe head was found.  Picking it up');
            Wait(450 + Random(400));
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, True);
            Flag;
            Wait(500 + Random(300));
          end;
        until (tries > 9) or
          (FindDTM(AxeHeadDTM, x, y, 550, 200, 745, 465))
          if not (tries > 9) then
          if (AttachHead) then
            Result := True;
      end;
      FreeBitmap(c);
      FreeDTM(AxeHeadDTM);
    end;

    There are others you just got to look though other peoles scripts to get ideas...As long as you credit them for giving you the idea

    Hope this helps
    ~Stupedspam


    It says,
    Line 147: [Error] (14918:27): Unknown identifier 'Head' in script C:\Program Files\SCAR 3.06\Scripts\erayz oak banker.scar
    Failed when compiling


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

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. ow axe head finder!
    By macromacro123 in forum OSR Help
    Replies: 5
    Last Post: 08-23-2007, 09:09 PM
  3. color finder help
    By Jake_453 in forum OSR Help
    Replies: 19
    Last Post: 05-22-2007, 12:01 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
  •