Results 1 to 8 of 8

Thread: My opendoor Function(worked on everydoor i tried)

  1. #1
    Join Date
    Nov 2006
    Location
    Bel Air, Maryland, USA
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My opendoor Function(worked on everydoor i tried)

    ive been through falador/vorrock/lumbridge, any door that is parrallel to n/w/e/s this function can open i believe(need others to test it out)

    instructions for use:
    1. when you put in the direction for it to face, make sure its from the opposite side of the person like you<>Door<>Camera angle (if that makes any sense) this stops npc's from jumping in the way most of the time.
    2. you have to be against the wall of the closed door and 1 block(or click) away from the door in order for this to work
    SCAR Code:
    program New;
    {.include srl/srl.scar}

    Function MyOpenDoor(Dir:string):boolean;
    var doorfound:string;i:integer;CoX:Array[0..8] of integer;
       CoY:Array[0..8] of integer;
    begin
       Cox[0]:=326;
       Coy[0]:=151;
       Cox[1]:=246;
       Coy[1]:=156;
       Cox[2]:=186;
       Coy[2]:=156;
       Cox[3]:=330;
       Coy[3]:=155;
       Cox[4]:=273;
       Coy[4]:=154;
       Cox[5]:=219;
       Coy[5]:=153;
       Cox[6]:=306;
       Coy[6]:=158;
       Cox[7]:=281;
       Coy[7]:=186;
       Cox[8]:=217;
       Coy[8]:=155;
       keydown(40);
       wait(1500);
       keyup(40);
       wait(500+random(+250));
       makecompass(dir);
       doorfound := 'no';
       repeat
          if (doorfound = 'no') then
          begin
             mmouse(Cox[i],Coy[i],3,3);
             if (IsUpTextMulti('Door', 'Doo', 'oor') = true) then
             begin
                if (IsUpTextMulti('Open', 'Op', 'en') = true) or (isuptextmulti('Ope', 'pen', 'Open') = true) then
                begin
                   GetMousePos(x,y);
                   mouse(x,y,0,0,true);
                   Doorfound := 'yes';
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes';
                end;
             end;
          end;
          i:= +1;
       until (i = 3) or (doorfound = 'yes');
       if (doorfound = 'no') then
       begin
          keydown(38);
          wait(200);
          keyup(38);
          wait(1000+random(250));
       end;
       repeat
          if (doorfound = 'no') then
          begin
             mmouse(Cox[i],Coy[i],3,3);
             if (IsUpTextMulti('Door', 'Doo', 'oor') = true) then
             begin
                if (IsUpTextMulti('Open', 'Op', 'en') = true) or (isuptextmulti('Ope', 'pen', 'Open') = true) then
                begin
                   GetMousePos(x,y);
                   mouse(x,y,0,0,true);
                   Doorfound := 'yes';
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes';
                end;
             end;
          end;
          i:= +1;
       until (i = 6) or (doorfound = 'yes');
       if (doorfound = 'no') then
       begin
          keydown(38);
          wait(200);
          keyup(38);
          wait(1000+random(250));
       end;
       repeat
          if (doorfound = 'no') then
          begin
             mmouse(Cox[i],Coy[i],3,3);
             if (IsUpTextMulti('Door', 'Doo', 'oor') = true) then
             begin
                if (IsUpTextMulti('Open', 'Op', 'en') = true) or (isuptextmulti('Ope', 'pen', 'Open') = true) then
                begin
                   GetMousePos(x,y);
                   mouse(x,y,0,0,true);
                   Doorfound := 'yes';
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes';
                end;
             end;
          end;
          i:= +1;
       until (i = 9) or (doorfound = 'yes');
       if (doorfound = 'no') then
          writeln('Couldnt open door, or door is allready open');
    end;

    begin
    setupsrl;
    activateclient;
    MyOpenDoor('n');
    end.

    hope thats better for all you NEAT FREAKS out there, lol j/k

  2. #2
    Join Date
    Nov 2006
    Location
    California, USA
    Posts
    336
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    No idea if it works because I can't test but use arrays, neater :P

  3. #3
    Join Date
    Nov 2006
    Location
    Bel Air, Maryland, USA
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    arrays for just the x,y axis right lol, working on that
    ::edit:: added arrays :-P just for TOB

  4. #4
    Join Date
    Mar 2006
    Posts
    795
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    isnt this posted on the wrong section ?



    Dont Steal..

  5. #5
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    You're probably thinking of the member forum, it can stay here.

  6. #6
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    There is no test section in the Public Forum, subin

    bramble: nice clean coding, though there will be some lag due to the use of all the multis good work.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  7. #7
    Join Date
    Nov 2006
    Location
    Bel Air, Maryland, USA
    Posts
    207
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it worked really fast for me, maybe its just my computer though

  8. #8
    Join Date
    Oct 2006
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. OpenDoor
    By n3ss3s in forum Research & Development Lounge
    Replies: 21
    Last Post: 12-29-2007, 02:15 PM
  2. My OpenDoor and BuyRune function
    By tim46 in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 06-14-2007, 08:01 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
  •