Simba Code:
procedure OpenDoor;
var
DPoint:Tpoint;
aFound:Extended;
x, y, ClosedDoor,Door:Integer;
Box:TBox;
Begin
ClickNorth(SRL_ANGLE_HIGH);
Door := DTMFromString('mQwAAAHicY2ZgYPgMxJ+A+CMQHwDidUB8GYjT46wY/n67DcZcQD4rFDMiYSAAAO3kC80=');
ClosedDoor:= DTMFromString('mbQAAAHicY2VgYBADYlEgFgZiaSgGsVUZIABEswCxtZUZQ16iMkNSjDZDpJMMGBsBxbnQMCMWDAYAOXoFLg==');
WriteLn('Search For The Door');
WriteLn('Beginning To Search For The Door In The MiniMap');
If FindDTMRotated(ClosedDoor, x, y, MMX1, MMY1, MMX2, MMY2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
WriteLn('Outside DTM Found');
DPoint := MMToMS(Point(x,y));
MMouse(DPoint.x,DPoint.y,0,0);
Box := IntToBox(DPoint.x - 100, DPoint.y - 100, DPoint.x + 100, DPoint.y + 100);
If FindDTMRotated(Door, x, y, Box.X1, Box.Y1, Box.X2, Box.Y2, -Pi/4, Pi/4, Pi/60, aFound) then
Begin
WriteLn('Searching For The Door In The Box');
If (FindObjCustom(x, y, ['pen Do', 'Do'], [{AutoColorDoor,}403503, 4023404, 2507337, 5726053, 8420363], 15)) then
begin
WriteLn(GetUpText);
ClickMouse2(mouse_right);
Wait(RandomRange(480, 530));
ChooseOption('pen');
Writeln('Opening door');
Wait(RandomRange(1500, 1600));
end else
Begin
WriteLn(GetUpText);
Writeln('The Door Is Already Opened.');
End;
end else
Writeln('The Door Is Already Opened.');
End;
FreeDTM(ClosedDoor);
FreeDTM(Door);
End;