Results 1 to 7 of 7

Thread: cooking script; finding fire

  1. #1
    Join Date
    Oct 2007
    Location
    Florida
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default cooking script; finding fire

    I'm currently working on a Rogue's Den cooking script, however I'm having trouble finding the fire

    I've tried using DTMs and normal colour but the script still can't find it, is there anything you suggest I use to find the fire accurately?

    thanks
    mute;

  2. #2
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    put your script on..
    I will see what you are doing wrong
    DTM is probably out or something

    T~M

  3. #3
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    SCAR Code:
    Function FindFire(var Fire: TPoint): Boolean;
    Var
      CTS, I: Integer;
      TPAFire: TPointArray;
      ATPA: Array of TPointArray;
    begin
      if not loggedin then exit;
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.05, 1.33);
      FindColorsSpiralTolerance(MSCX, MSCY, TPAFire, 7914985 , MSX1, MSY1, MSX2, MSY2, 21);
      DebugTPA(TPAFire, '');
      If Length(TPAFire) < 1 then
      begin
        writeln('No Fire Colours found!');
        Loc('Fire');
        Result := False;
        exit;
      end;
      ColorToleranceSpeed(CTS);

      ATPA := TPAToATPAEx(TPAFire, 7, 9);

      For I := 0 to High(ATPA) do
      begin
        MiddleTPAEx(ATPA[i], Fire.x, Fire.y);
        MMouse(Fire.x, Fire.y, 2, 2);
        wait(100+random(100));
        If(IsUpText('more options'))or isuptext('se Raw') then
        begin
          Result := True;
          GetMousePos(Fire.x, Fire.y);
          Break;
        end;
      end;
    end;
    I made this like two months ago. If you use, please credit
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

  4. #4
    Join Date
    Oct 2007
    Location
    Florida
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'll give your function a try.
    Last edited by Mute; 05-17-2009 at 04:36 AM.

  5. #5
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    Quote Originally Posted by noidea View Post
    SCAR Code:
    Function FindFire(var Fire: TPoint): Boolean;
    Var
      CTS, I: Integer;
      TPAFire: TPointArray;
      ATPA: Array of TPointArray;
    begin
      if not loggedin then exit;
      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.05, 1.33);
      FindColorsSpiralTolerance(MSCX, MSCY, TPAFire, 7914985 , MSX1, MSY1, MSX2, MSY2, 21);
      DebugTPA(TPAFire, '');
      If Length(TPAFire) < 1 then
      begin
        writeln('No Fire Colours found!');
        Loc('Fire');
        Result := False;
        exit;
      end;
      ColorToleranceSpeed(CTS);

      ATPA := TPAToATPAEx(TPAFire, 7, 9);

      For I := 0 to High(ATPA) do
      begin
        MiddleTPAEx(ATPA[i], Fire.x, Fire.y);
        MMouse(Fire.x, Fire.y, 2, 2);
        wait(100+random(100));
        If(IsUpText('more options'))or isuptext('se Raw') then
        begin
          Result := True;
          GetMousePos(Fire.x, Fire.y);
          Break;
        end;
      end;
    end;
    I made this like two months ago. If you use, please credit
    personally mute i dont think you should use it, you need to learn how to make it, learn from what NoIdea posted but dont just copy and paste
    other wise you wont learn anything

    T~M

  6. #6
    Join Date
    Oct 2007
    Location
    Florida
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not interested in keeping his function in my script, I just want to know what he used to find the fire, and until I can get my own functions to find the fire I'll use his and of course credit him

  7. #7
    Join Date
    Jan 2008
    Location
    NC, USA.
    Posts
    4,429
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Quote Originally Posted by Mute View Post
    I'm not interested in keeping his function in my script, I just want to know what he used to find the fire, and until I can get my own functions to find the fire I'll use his and of course credit him
    Thats the right mentality!
    Reped!
    Quote Originally Posted by irc
    [00:55:29] < Guest3097> I lol at how BenLand100 has become noidea
    [01:07:40] <@BenLand100> i'm not noidea i'm
    [01:07:44] -!- BenLand100 is now known as BenLand42-
    [01:07:46] <@BenLand42-> shit
    [01:07:49] -!- BenLand42- is now known as BenLand420
    [01:07:50] <@BenLand420> YEA

Thread Information

Users Browsing this Thread

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

Posting Permissions

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