Results 1 to 10 of 10

Thread: [REQUEST] Lumbridge Stair Handler

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

    Default [REQUEST] Lumbridge Stair Handler

    I'm currently working on a AutoCook Banker that cooks every kind of F2P food (and a few P2P foods), but I am having GREAT difficulty handling the stairs.

    Could someone please design a:

    LumbyStairs(dir:string);
    OR
    LumbyStairs(up:boolean)
    function.

    "dir" would be the LowerCase of which option it chooses after right-clicking.
    ..or something along those lines.

    so basically it needs to;
    - find the stairs
    - right-click it
    - choose option (dependant on "dir")
    - wait

    rep++ and credit in my script will be issued

    i want the function to be efficient, and low detectibility

    ps. Sorry if I'm not allowed to post requests in here... but i couldnt see anything that said not too
    Project: Welcome To Rainbow

  2. #2
    Join Date
    Jan 2007
    Posts
    8,876
    Mentioned
    123 Post(s)
    Quoted
    327 Post(s)

    Default

    maybe LumbyStairs(up:boolean); would be better?

    Edit: Omg wasted my 300th post on this...

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

    Default

    Quote Originally Posted by Zytex! View Post
    maybe LumbyStairs(up:boolean); would be better?

    Edit: Omg wasted my 300th post on this...
    uhh... thanks for the input...
    Project: Welcome To Rainbow

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

    Default

    Here take it from my lumby yewz script

    SCAR Code:
    Function FindStairCase: boolean;
    Begin
      If FindObjCustom(x,y,['imb','lad','der'],[603213,3751748,803168],20) then
       Begin
        Result :=True;
       end;
    end;

    Pretty easy and always works


    EDIT: You can make it simpler:

    SCAR Code:
    Function FindStairCase: boolean;
    Begin
        Result := FindObjCustom(x,y,['imb','lad','der'],[603213,3751748,803168],20);
    end;

    Hope I Helped

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

    Default

    woah... is it efficient??

    i thought i needed some 30 line code-age for it
    Project: Welcome To Rainbow

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

    Default

    this was my stairs procedure. a bit old and can be much shorter but here:
    SCAR Code:
    Procedure UpStairs(LeftClick,MiddleStair:Boolean);
    var i,x,y,color:integer;
        points:array of tpoint;
        point1:tpoint;
    Begin
      wait(250);
      point1.x:=MSCX;
      point1.y:=MSCY
      colortolerancespeed(2)
      FindColorsTolerance(Points,869474,MSx1,MSy1,MSCX-12,MSCY-10,15)
      writeln(inttostr(length(points)))
      SortTPAFrom(points,point1)
      Mousespeed:=25+random(10)
      wait(250)
      For i:=0 to (length(Points)-1) do
      begin
        wait(2)
        If FindColoredAreaTolerance(x,y,3752264,points[i].x-20,points[i].y-20,points[i].x+20,
        points[i].y+20,10,20) then
        begin
          MMouse(x,y,6,4)
          wait(100+random(100))
          If IsUpTextMulti('lim','tair','case') then
          Begin
            GetMousePos(x,y)
            Mouse(x,y,0,0,LeftClick)
            if LeftClick then
            begin
              Mousespeed:=MSpeed;
              if MiddleStair then
              begin
                repeat
                  wait(10)
                until (GetColor(37, 369)=10264383)
                wait(100)
                if not(ClickNpcChatText('up t',true)) then
                exit;
              end else
              begin
                wait(100)
                Repeat
                  wait(20)
                until(not(getcolor(377, 263)=16777215))
                wait(500)
              end;
            end else
            begin
              ChooseOption('mb-up')
            end;
            break;
          end;
        end;
      end;
      colortolerancespeed(1)
      wait(100)
    end;

    Procedure DownStairs(LeftClick,MiddleStair:boolean);
    var i,x,y,color:integer;
        points:array of tpoint;
        point1:tpoint;
    Begin
      wait(250);
      point1.x:=MSCX;
      point1.y:=MSCY
      colortolerancespeed(2)
      FindColorsTolerance(Points,869474,MSx1,MSy1,MSCX-12,MSCY-10,15)
      writeln(inttostr(length(points)))
      SortTPAFrom(points,point1)
      Mousespeed:=25+random(10)
      wait(250)
      For i:=0 to (length(Points)-1) do
      begin
        wait(2)
        If FindColoredAreaTolerance(x,y,3752264,points[i].x-20,points[i].y-20,points[i].x+20,
        points[i].y+20,10,20) then
        begin
          MMouse(x,y,6,4)
          wait(100+random(100))
          If IsUpTextMulti('lim','tair','case') then
          Begin
            GetMousePos(x,y)
            Mouse(x,y,0,0,LeftClick)
            if LeftClick then
            begin
              Mousespeed:=MSpeed;
              if middlestair then
              begin
                repeat
                  wait(10)
                until (GetColor(37, 369)=10264383)
                if not(ClickNpcChatText('b down',true)) then
                exit;
              end else
              begin
                wait(100)
                Repeat
                  wait(20)
                until(not(getcolor(377, 263)=16777215))
                wait(400)
              end;
            end else
            begin
              ChooseOption('mb-down')
            end;
            break;
          end;
        end;
      end;
      colortolerancespeed(1)
    end;

    Procedure Stairs(Up,LeftClick:boolean);
    Begin
      SetAngle(true);
      if (Up) then
      begin
        UpStairs(true,false)
        IdleTime(400, 400, 0.5);
        wait(600)
        UpStairs(LeftClick,true)
      end else
      begin
        DownStairs(true,false)
        IdleTime(400, 400, 0.5);
        wait(500)
        DownStairs(LeftClick,true)
        wait(500)
      end;
    End;

  7. #7
    Join Date
    Dec 2006
    Location
    Banville
    Posts
    3,914
    Mentioned
    12 Post(s)
    Quoted
    98 Post(s)

    Default

    Well, banjaa, FindObj functions are usually 50+ lines....
    The jealous temper of mankind, ever more disposed to censure than
    to praise the work of others, has constantly made the pursuit of new
    methods and systems no less perilous than the search after unknown
    lands and seas.

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

    Default

    [offtopic] nice dp r0b0t [/offtopic]

    yeah i suppose thats right

    XCanadamanX, i will test yours to see how well it works
    Project: Welcome To Rainbow

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

    Default

    it may need the colors changed...i havent used it for awhile

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

    Default

    Kk, thats sweet
    Project: Welcome To Rainbow

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Lumbridge Stair Climber
    By Dusk412 in forum Research & Development Lounge
    Replies: 3
    Last Post: 07-23-2008, 08:00 AM
  2. 6 stair talker!
    By sk8terbitu in forum First Scripts
    Replies: 8
    Last Post: 05-03-2008, 11:28 PM
  3. stair/ladder and door and gate finding help plz???
    By RudeBoiAlex in forum OSR Help
    Replies: 2
    Last Post: 06-13-2007, 04:57 PM
  4. My New Msn Handler
    By The Prince of Randomness? in forum News and General
    Replies: 9
    Last Post: 05-07-2006, 12:43 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
  •