home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / n / newsflash / !BBS / BBS / Scripts / PageSysop < prev    next >
Encoding:
Text File  |  1996-09-16  |  629 b   |  30 lines
  1. {
  2. | Page Sysop
  3. | Alex Howarth (13 September 1996)
  4.  
  5. REPORT "Page Sysop"
  6. STD LOCATE 0,DLINES-1
  7. NL
  8. BATTR 3,0
  9. }Why would you like to chat to the sysop?{
  10. BATTR 3,1 
  11. INPUTc reason,32
  12. IF reason<>"" THEN
  13.   | only start paging if they gave a reason 
  14.   SYSOPCHAT result%,reason,20
  15.   | 20 second timeout
  16.   | SYSOPCHAT returns 'result%' which we must interpret
  17.   IF result% = 2 THEN
  18.     STD BFG 2 NL
  19.     }Sorry the sysop is away,. leave a message?{STD
  20.     | could call the 'MailSysop' script here if you like
  21.   ENDIF
  22.   IF result% = 3 THEN
  23.     STD BFG 2 NL
  24.     }Sorry, the sysop is busy right now.{STD
  25.   ENDIF
  26.   NL
  27.   GOSUB anykey
  28. ENDIF
  29. }
  30.