Results 1 to 17 of 17

Thread: Phasmatys Furnace Door

  1. #1
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Phasmatys Furnace Door

    Can someone please help me with a door handler, specific to Port Phasmatys Furnace Door?

    This is my attempt, it works pretty well, but could be better...
    SCAR Code:
    procedure LookForDoor;
    var
      x, y : integer;
    begin
      MakeCompass('s');
      Wait(Random(200));
      SetAngle(True);
      Wait(100+Random(200));
      x:=MSCX;
      y:=MSCY;
      repeat
        FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6);
        MMouse(x, y, 2, 2);
        Wait(200+Random(100));
      until IsUpText('pen') or IsUpText('lose');
      if IsUpText('pen') then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, true);
        Wait(100+Random(100));
      end;
    end;

    Any Ideas?
    Ive tried DTMs, colorfind with tol,
    Project: Welcome To Rainbow

  2. #2
    Join Date
    Oct 2006
    Location
    Ontario,Canada
    Posts
    1,718
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe post a picture of the door to see what it looks like (for all us f2p) id use color search and tpas

  3. #3
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oh ok, i will when i get home

    btw, what is tpa?
    Project: Welcome To Rainbow

  4. #4
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    We call it tpa finding but the term is WRONG we just use it me to but what we say is

    tpointarray finding you better say Color tpa finding or something
    ~Hermen

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Try This Instead Of all that:

    SCAR Code:
    If (FindObjTPA(X, Y, 1121670, 15, 3, 5, 5, 1, ['melt', 'nace'])) then
      Mouse(x,y,5,5,true);


    Hope I Helped

  6. #6
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Try This Instead Of all that:

    SCAR Code:
    If (FindObjTPA(X, Y, 1121670, 15, 3, 5, 5, 1, ['melt', 'nace'])) then
      Mouse(x,y,5,5,true);


    Hope I Helped
    STOP this haves to stop NAUMAN LEARN READING POSTS!
    It is not an furnace finder...
    ~Hermen

  7. #7
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    STOP this haves to stop NAUMAN LEARN READING POSTS!
    It is not an furnace finder...
    Lol , then just change the uptext and color..
    Thats not a good door finder you have up there.

    You have


    SCAR Code:
    repeat
        FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6);
        MMouse(x, y, 2, 2);
        Wait(200+Random(100));
      until IsUpText('pen') or IsUpText('lose');

    One i think its an infinitive loop and if your not near the door then bad things would happen. Try this

    SCAR Code:
    repeat
        if FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6)then
        MMouse(x, y, 2, 2);
        Wait(200+Random(100));
        i:=i+1;
      until IsUpText('pen') or IsUpText('lose')or (I>6);

    And set this up as a variable

    var
    I:integer;

  8. #8
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cnr sport, and then do what if it fails??
    Project: Welcome To Rainbow

  9. #9
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by benjaa View Post
    cnr sport, and then do what if it fails??
    Then you have to see if it failed:
    SCAR Code:
    If (I >= 5) Then
    Begin
      Writeln('Couldnt find the door!');
      NextPlayer(False);// If you are using multiplayer
      Exit;
    End;
    //The rest of the script


  10. #10
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    but thats full annoying..
    i want it to look for the door, if it doesnt find, look again (different procedure), then nextplayer if it needs to
    Project: Welcome To Rainbow

  11. #11
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by benjaa View Post
    but thats full annoying..
    i want it to look for the door, if it doesnt find, look again (different procedure), then nextplayer if it needs to
    SCAR Code:
    Repeat
        if FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6) Then
        Begin
          MMouse(x, y, 2, 2);
          Wait(200+Random(100));
          If (IsUpText('pen') )or (IsUpText('lose')) Then
            Break;
          Else
            Inc(I);
          Case I Of
            1: FindObjTPA(...);
            2: ......
            3: .....
            4: SetAngle(True);
      End;
    until (I > 6);

    Or something like that


  12. #12
    Join Date
    Dec 2007
    Location
    Wizzup?'s boat
    Posts
    1,013
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm... that is good Cazax
    thankyou for that, i will test it, and post results here
    Project: Welcome To Rainbow

  13. #13
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    Lol , then just change the uptext and color..
    Thats not a good door finder you have up there.

    You have


    SCAR Code:
    repeat
        FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6);
        MMouse(x, y, 2, 2);
        Wait(200+Random(100));
      until IsUpText('pen') or IsUpText('lose');

    One i think its an infinitive loop and if your not near the door then bad things would happen. Try this

    SCAR Code:
    repeat
        if FindColorTolerance(x, y, 1652274, MSCX-180, MSCY-110, MSCX+180, MSCY+110, 6)then
        MMouse(x, y, 2, 2);
        Wait(200+Random(100));
        i:=i+1;
      until IsUpText('pen') or IsUpText('lose')or (I>6);

    And set this up as a variable

    var
    I:integer;

    HaHa Hermpie lacks common sense

  14. #14
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    HaHa Hermpie lacks common sense
    No, you're trying or tryed getting the helper cup and you posted here and there and this is not like just change the uptext, it is U not reading.

    Ps. i don't freaking care about my grammar.
    ~Hermen

  15. #15
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    SCAR Code:
    Function LocateFurnaceDoor:Boolean;
    Var
      TPA: TPointArray;
      Temp: T2DPointArray;
      h, x, y, MouseSpeed2, z, t, cts: Integer;
    begin
      If not LoggedIn then Exit;
      MouseSpeed2 := MouseSpeed;
      MouseSpeed := 25;
      MarkTime(t);
      cts := ColorToleranceSpeed;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, TPA, 1652274, MSX1, MSY1, MSX2, MSY2, 6);
      Temp := TPAtoATPAex(TPA, 10, 10);//Don't know how big the door is so change if you need to
      SortATPASize(Temp, True);
      h := High(Temp);
      For z := 0 to h do
      Begin
        MiddleTPAex(Temp[z], x, y);
        MMouse(x, y, 5, 5);
        Result := IsUpText('pen');
        If Result then
        break;
        Wait(100);
      end;
      If Result then
      Begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        WriteLN('Found the furnace door in '+IntToStr(TimeFromMark(t)- 100)+' msecs');
      end;
      If Not Result then
      WriteLN('Couldn'#39't find the furnace door');
      MouseSpeed := MouseSpeed2;
      ColorToleranceSpeed(cts);
    end;

    Hermpie-style TPA

    I don't know how big this door is so it might not find it properly because I don't know my way around that place. I have absolutely no idea if that would work because I haven't tested it, you could test it and if it doesn't work I'll see what I can do.

  16. #16
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Dude Richard View Post
    SCAR Code:
    Function LocateFurnaceDoor:Boolean;
    Var
      TPA: TPointArray;
      Temp: T2DPointArray;
      h, x, y, MouseSpeed2, z, t: Integer;
    begin
      If not LoggedIn then Exit;
      MouseSpeed2 := MouseSpeed;
      MouseSpeed := 25;
      MarkTime(t);
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, TPA, 1652274, MSX1, MSY1, MSX2, MSY2, 6);
      Temp := TPAtoATPAex(TPA, 10, 10);//Don't know how big the door is so change if you need to
      SortATPASize(Temp, True);
      h := High(Temp);
      For z := 0 to h do
      Begin
        MiddleTPAex(Temp[z], x, y);
        MMouse(x, y, 5, 5);
        Result := IsUpText('pen');
        If Result then
        break;
        Wait(100);
      end;
      If Result then
      Begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        WriteLN('Found the furnace door in '+IntToStr(TimeFromMark(t)- 100)+' msecs');
      end;
      If Not Result then
      WriteLN('Couldn'#39't find the furnace door');
      MouseSpeed := MouseSpeed2;
    end;

    Hermpie-style TPA

    I don't know how big this door is so it might not find it properly because I don't know my way around that place. I have absolutely no idea if that would work because I haven't tested it, you could test it and if it doesn't work I'll see what I can do.
    You never set the ColorToleranceSpeed back as it was .
    SCAR Code:
    Var
      tcts : Integer;
    SCAR Code:
    tcts := GetColorToleranceSpeed;
    SCAR Code:
    ColorToleranceSpeed(tcts);


  17. #17
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Quote Originally Posted by Cazax View Post
    You never set the ColorToleranceSpeed back as it was .
    SCAR Code:
    Var
      tcts : Integer;
    SCAR Code:
    tcts := GetColorToleranceSpeed;
    SCAR Code:
    ColorToleranceSpeed(tcts);
    Doesit really matter that much. Done it anyway though.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. from furnace to bank and back
    By markmccain in forum OSR Help
    Replies: 40
    Last Post: 06-04-2008, 10:53 PM
  2. Handle Furnace
    By Richard in forum Research & Development Lounge
    Replies: 15
    Last Post: 05-17-2008, 04:47 PM
  3. Blast Furnace CokeFiller!
    By drnewheart in forum RS3 Outdated / Broken Scripts
    Replies: 14
    Last Post: 09-03-2007, 09:18 PM
  4. Furnace color has changed.
    By WT-Fakawi in forum RS has been updated.
    Replies: 9
    Last Post: 05-13-2006, 03:36 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
  •