Results 1 to 5 of 5

Thread: my door opener is wigging out on me

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

    Default my door opener is wigging out on me

    ok well here it is
    SCAR Code:
    Function MyOpenDoor(Dir1:char):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(dir1);
       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);
                   Rmouse(x,y,0,0,true);
                   Doorfound := 'yes'; Result:=true;
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes'; Result:=true;
                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);
                   Rmouse(x,y,0,0,true);
                   Doorfound := 'yes'; Result:=true;
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes'; Result:=true;
                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);
                  Rmouse(x,y,0,0,true);
                   Doorfound := 'yes'; Result:=true;
                end;
                if (IsUpTextMulti('Close', 'lo', 'se') = true) then
                begin
                   Doorfound := 'yes'; Result:=true;
                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;

    i dont know if its that im running vista or, there is something not working right in there, but in srl 3.6-7 it ran like a champ, that was b4 divi also

  2. #2
    Join Date
    Jun 2007
    Location
    Greenville, SC
    Posts
    1,149
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    maybe make doorfound a boolean? im not sure tho

  3. #3
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What happens when you run the script? What is wigging? =\
    ~ Metagen

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

    Default

    ehm dude there no stuff in it to open the door if i am looking right :s
    ~Hermen

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

    Default

    yes there is, its a modified mouse procedure, Rmouse, and its on the first of the 3 mouse movements, it will sit there and shake the mouse very bot like

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Draynor Bank Opener
    By TViYH in forum Research & Development Lounge
    Replies: 6
    Last Post: 05-17-2008, 06:50 PM
  2. wigging out?
    By hyster456 in forum OSR Help
    Replies: 7
    Last Post: 12-05-2007, 03:04 AM
  3. Walking+Door Checker/Opener
    By yanix in forum OSR Help
    Replies: 6
    Last Post: 10-09-2007, 04:04 PM
  4. Door Opener Procedure?
    By USMC in forum OSR Help
    Replies: 17
    Last Post: 05-30-2007, 12:08 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
  •