Open Door Function

it worked on everydoor that i have tried, everytime, wt-fakawi said that there will be some lag due to use of multi's but i havent had no problems with it.

Instructions for use
1. Dir = the direction your map has to be pointed, ex:'n'/'s'/'e'/'w'
2. the direction should be from the opposite side of the door from you, so
room<->door<->you
3. and then it does its job :-)

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.