Program SPY;
var
 Mess : string;
 dmess: integer;
 
const
loc='   in TombOfKings'; 
 
Begin

SetARStatus(true);
SetPauseScriptOnDisconnectStatus(true);

while true do
  begin
  If not Dead Then
    begin 
    If not hidden Then
        begin 
            UseSkill ('Hiding');
            wait(10000);
        end; 
    end;  
    if (InJournal('You see:')<>-1)then 
        begin     
        if (InJournal('[TB]')<>-1)then  
             begin 
                Mess := Copy(LastJournalMessage, 9, 255); 
                dmess := pos('[TB]', Mess);
                delete(Mess,dmess,4);
                uosay('\ '+Mess+loc );
                AddToSystemJournal(LastJournalMessage); 
                ClearJournal;
                wait(250);
            end;   
        if (InJournal('[SL]')<>-1)then  
             begin 
                Mess := Copy(LastJournalMessage, 9, 255); 
                dmess := pos('[SL]', Mess);
                delete(Mess,dmess,4);
                uosay('\ '+Mess+loc );
                AddToSystemJournal(LastJournalMessage); 
                ClearJournal;
                wait(250);
            end; 
        if (InJournal('[Min]')<>-1)then  
             begin 
                Mess := Copy(LastJournalMessage, 9, 255);
                dmess := pos('[Min]', Mess);
                delete(Mess,dmess,5);
                uosay('\ '+Mess+loc );
                AddToSystemJournal(LastJournalMessage); 
                ClearJournal;
                wait(250);
            end; 
        if (InJournal('[CoM]')<>-1)then  
             begin 
                Mess := Copy(LastJournalMessage, 9, 255); 
                dmess := pos('[CoM]', Mess);
                delete(Mess,dmess,5);
                uosay('\ '+Mess+loc );
                AddToSystemJournal(LastJournalMessage); 
                ClearJournal;
                wait(250);
            end;            
        end;    
        
    wait(1000);
    end;
    

  
End.