Make sure the Color tolerance speed is the normal CTS. otherwise scar can't read 
so on the begin
SCAR Code:
procedure OpenDoor;
var
Boo,x, y, fs, fs2, CTS: Integer;
begin
if (not(LoggedIn)) then Exit;
CTS := GetcolorToleranceSpeed;
ColorToleranceSpeed(2);
repeat
if NearestObjMT(x, y, 'oor', 'Door', 'Door','oor', 'Door', 'oor', 4347489, 3823463, 3886680, 20) then
Mouse(x,y,0,0,False);
Wait(50);
ColorToleranceSpeed(CTS);
if(ChooseOption('Open Door')) then Boo:=1;
Wait(100)
if(ChooseOption('Walk here'))then FFlag(0) Wait(100) Break;
FFlag(0)
if not loggedin then break;
ColorToleranceSpeed(2);
fs2 := fs2 + 1;
until( fs2 > 5 ) or ( Boo = 1 );
ColorToleranceSpeed(CTS)
end;