home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / PAGE.CTL < prev    next >
Encoding:
Text File  |  1992-10-15  |  2.5 KB  |  107 lines
  1. lines(psys.%NODE%)
  2. if (%ARESP%)=(3) then goto (enuf)
  3. appendto(psys.%NODE%,)
  4. setequal(a=%ARESP%)
  5. inc(a)
  6. if (&a)=(0) then setequal(a=1)
  7. jump (snds)
  8. say(&CR&&14&The Sysop has been paged.  &7&If he is available, he will enter chat with you.  If)
  9. say(the Sysop is not available, please consider leaving a comment and he will get)
  10. say(back to you as soon as possible.&CR&)
  11. requested(Chat Requested (%VAR%A))
  12. log(--,Chat Requested)
  13. enter
  14. return
  15.  
  16. *snds
  17. sound(200,2)
  18. sound(220,1)
  19. sound(200,1)
  20. sound(300,2)
  21. sound(320,1)
  22. sound(300,1)
  23. sound(400,2)
  24. sound(420,1)
  25. sound(400,1)
  26. ret
  27.  
  28. *enuf
  29. say(&CR&&14&You have paged the Sysop enough!  &7&If he was available, he would have answered)
  30. say(the first time!  Please leave a comment and he will get back to you as)
  31. say(soon as he can.&CR&)
  32. enter
  33. loadmem(control\macros\comment.ctl)
  34.  
  35. setequal(a=/:CHATREQ/)
  36. inc(a)
  37. setequal(/chatreq=%var%a)
  38. say(&14&&CR&Paging %SYSOP% for a chat, one moment please...*)
  39. checkhours
  40. if (%ARESP%)=(No) then goto (badhours)
  41. if (%CHAT%)=(No) then goto (notHere)
  42. seek(psys.%node%)
  43. iftrue(goto (psys))
  44. *beginPage
  45. appendto(psys.%node%,)
  46. setequal(n=OK)
  47. savescreen(scr1.%NODE%)
  48. inpopen (pagebell.dat)
  49. localwrite(1,1,7,0,┌──────────────────────────────────────────────────────────────────────────────┐)
  50. localwrite(1,2,7,0,│                                                                              │)
  51. localwrite(1,3,7,0,└──────────────────────────────────────────────────────────────────────────────┘)
  52. localwrite(2,2,14,1,        Paging SysOp ... Press (SPACE) to accept; (ESC) to toggle page        )
  53. if (%ARESP%)=(ERROR) then goto (nothere)
  54. setequal(h=0)
  55.  
  56. setequal(v=%CACT%)
  57. setactivity(Paging Sysop)
  58.  
  59. do
  60. if (&n)=(PROB) then goto (absound)
  61. inpread
  62. sound (%ARESP%)
  63.  
  64.         *absound
  65. localkey(1)
  66. if (%ARESP%)=( ) then goto (spacehit)
  67. if (%aresp%)=() then goto (tpg)
  68. eofloop
  69.  
  70.         *nothere
  71. restscreen(scr1.%NODE%)
  72. inpclose
  73. requested (Chat Requested)
  74. display (display\page)
  75. log(--,Chat with Sysop Requested)
  76. Enter
  77. setactivity(%VAR%V)
  78. loadsub(control\macros\comment.ctl)
  79. return
  80.  
  81.         *spacehit
  82. restscreen(scr1.%NODE%)
  83. linefeed(1)
  84. kill(psys.%node%)
  85. inpclose
  86. norest
  87. setactivity(%VAR%V)
  88. sysopchat
  89. return
  90.  
  91.         *badhours
  92. requested (Chat Requested)
  93. display (display\hours)
  94. log(--,Chat with Sysop Requested)
  95. setactivity(%VAR%V)
  96. loadsub(control\macros\comment.ctl)
  97. return
  98.  
  99. *tpg
  100. tpage ;toggle page
  101. goto (nothere)
  102.  
  103. *psys
  104. lines(psys.%node%)
  105. notif (%aresp%)=(3) then goto (beginpage)
  106. goto (nothere)
  107.