/*==========================================================================*/
/*                OPERATOR PAGE 1.3    BY Mr HYDE/CHRYSEIS                  */
/*                                          A TIC TAC /X PRODUCTION         */
/*==========================================================================*/
parse arg node; options results; nodeid = "AERexxControl"node; address value nodeid
signal on syntax; signal on ioerr
JH_Sysop         =  12
BB_CHATFLAG      = 142
TIME             = 144
/*==========================================================================*/
tr = transmit   ;  gc = getchar ;  pm = prompt  ;  sendstring = sendmessage
ss = sendstring ;  gu = getuser ;  pu = putuser ;
NUL  = '0'X
OFF  = ''
CLS  = D2C(12) || OFF
CR   = D2C(10)
TAB  = D2C(9)
RED='';  GRN =''; YEL=''; BLU=''
MAG=''; CYN='';  REDYEL=''; blan='';
/*==========================================================================*/
TR cr""blu" OpErAtOr PaGe 1.3"red" By Mr HyDe/ChRySeIs"cr
TESTUSER:
    A=TIME('s')
    b = value('a')
    x= right(b,1)
    if ~exists('doors:OPAGE/sentence') then do
        call start
        end
    call open('sen','doors:opAGE/sentence','read')
    do until eof('sen')
       sena=readln('sen')
       if sena=x then do
          sena=readln('sen')
          tr cr" "blu""sena""cr""cr
          call star
          end
    end
star:
    user = getvar(100)
    if ~exists('doors:OPAGE/nouser') then do
        call start
        end
    call open('nopage','doors:opAGE/nouser','read')
    do until eof('nopage')
       fuser=readln('nopage')
       if fuser=user then do
          call sorry
          end
    end
start:
    if getvar(bb_chatflag) = "OFF" then
    do
sorry:
    tr red" "getvar(jh_sysop)" IS NOT HERE FOR THE MOMENT. DO YOU WANT LEAVE A MESSY ?"
    ss"    (Y,N)   RETURN=YES ";gc
    test=upper(strip(result));TR
    if test = "N" then do
        putvar("        TRY TO CHAT : NO MESSY  "GETVAR(time)""cr,150)
        call dexit
        end
        else
        putvar("c",136)
        putvar("        TRY TO CHAT : LOOK THE MESSY OF "GETVAR(time)""cr,150)
        call dexit
        end
    else do
yeps:
    tr MAG" PLEASE ENTER YOUR REASON TO CHAT WITH "cyn""getvar(jh_sysop)""cr
    tr blu" ]---------------------------------["
    hydebest=prompt(" "red,35)
    tr blan
    putvar("o",136)
    putvar("        CHAT WITH YOU : ",150)
    putvar(hydebest""cr,150)
    call dexit
/*==========================================================================*/
IOERR:;tr "I/O Error: Missing File/Directory"
ERROR:;SYNTAX:;tr "Error in Line.. #"sigl" Exiting..";tr errortext(sigl)
/*==========================================================================*/
DExit:
  ShutDown
exit
prompt: procedure;parse arg message,length;RECEIVE length;QUERY message;return result
putvar: procedure
parse arg string1,string2;PUTUSTR string1;PUTUSER string2;return 0
getvar: procedure;parse arg string1;getuser string1;return result
/*==========================================================================*/