/* ------------------------------------------------------------------------- */
/*          NextMessage by Mirrorman of Soul Reflect BBS 1996!               */
/*                                                                           */
/*             The ideal message to next user for a S!X BBS!                 */
/* ------------------------------------------------------------------------- */
parse arg node
options results;signal on syntax;signal on error;signal on ioerr

nodeid = "AERexxControl"node

address command "c:copy doors:HenkNextMess/HenkNextMessage.TXT doors:HenkNextMess/Henk/"
address command "c:delete doors:HenkNextMess/HenkNextMessage.TXT"

tr=transmit
ss=sendstring
address value nodeid
getuser 100;name=result
getuser 142;chat=result
getuser 12; sys=result
cls = d2c("12")
 


 if exists("Doors:HenkNextMess/Henk.Cfg") then
  do
   open(config,("Doors:HenkNextMess/Henk.Cfg"),"R")
     log=word(readln(config),1)
    path=word(readln(config),1)
    menu=word(readln(config),1)
   close(config)
  end
 else call bye

jackass:
 tr CLS
 tr "        ______   ______   _____"
 tr "       / __  /\ /     /\ / ___/\"
 tr "      / /_/ / // / / / // ___/\/  __  __   _____   __       ___"
 tr "     /_____/ //_/_/_/ //____/\/  / /\/ /\ / ___/\ /  \     /  /\ "
 tr "     \_____\/ \_____\/ \____\/  / __  / // ___/\// /  \   /   \/_"
 tr "                               /_/\/_/ //____/\//_/___/\ /__/\__/\ "
 tr "                               \_\/\_\/ \____\/ \_\___\/ \__\/\_\/"
 tr ""
 tr "    Ome Henk Message to next user by Mirrorman - Version 1.0!"
 tr "               Copyright 1996 Koos Korswagen BV"
 tr ""
 tr "-----------------------------------------------------------------"
 if ~exists(menu) then
  do;tr "Sorry, can't find any message!";answer = 1;call music;end
   open("last",menu,R)
   do until eof("last")
   txt=readln("last")
  tr txt
 end
 tr "-----------------------------------------------------------------"
close(last)

reason:                                                               
 tr "What is your life's wisdom (Enter=None)?"                          
  ss ":) "                                                              
   query ; reason=trim(result)                                        
    if reason="" then do;tr ""sys" say's: Boring Deepshit!"
    address command "c:copy doors:HenkNextMess/Henk/HenkNextMessage.TXT doors:HenkNextMess/"
    call bye;end
     if exists(log) then                                              
    open(file,log,A)                                                  
   else                                                               
  open(file,log,W)
 writeln(file,"Today's word is to.... ")               
 writeln(file,""name": "reason"")               
 writeln(file," ")               
 tr ""
close(file)
call bye

ioerr:; tr "I/O Error: missing file/directory"
error:
syntax:;tr "Error in Line.. "sigl" Please Notify The Sysop Exiting ";tr errortext(sigl)
shutdown
exit


bye:
shutdown
exit

/* ------------------------------------------------------------------------- */
/*          NextMessage by Mirrorman of Soul Reflect BBS 1996!               */
/*                                                                           */
/*             The ideal message to next user for a S!X BBS!                 */
/* ------------------------------------------------------------------------- */