//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// <---Check to see if door is open
// by Chipy
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
function CheckDoorOpen: boolean;
var tP : Tpoint;
begin
MakeCompass('n');
tP := TileToMS(Point(3684, 3476), 2);
MMouse(tP.x, tP.y, 8, 12);
wait(100+random(100));
if IsUpText('pen') then
begin
result := false;
exit;
end;
MakeCompass('n');
tP := TileToMS(Point(3684, 3477), 2);
MMouse(tP.x, tP.y, 8, 12);
wait(100+random(100));
if IsUpText('pen') then
begin
result := false;
exit;
end;
result:=true;
end;