home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / ENTER.CTL < prev    next >
Encoding:
Text File  |  1992-09-06  |  1.6 KB  |  70 lines
  1. ;modified for The Swing
  2.  
  3.   *enter
  4. setequal(k=0)
  5. setequal(y=0)
  6. setequal(d=1)
  7. say(&15&)
  8. setactivity(Message Entry)
  9. inittxt
  10. if (%AREAFPVT%)=(N) then say(Enter '&11&ALL&15&' to send to everyone; *)
  11. say(Enter '&11&?&15&' to list all users on the BBS.)
  12. cMenuAsk %NOCR%%CRON% (&CR&    &3&Who do you want us to send the message to?&12&: &15&*)
  13. if (%RESP%)=(SYSOP) then goto (sysn)
  14. *bk1
  15. if (%resp%)=(<CR>) then linefeed(1)
  16. if (%RESP%)=(<CR>) then Return
  17. setequal(a=%RESP%)
  18. setequal(c=0)
  19. if (%RESP%)=(ALL) then if (%AREAFPVT%)=(N) then goto (back)
  20. if (%RESP%)=(ALL) then goto (nall)
  21. if (%RESP%)=(?) then goto (lusers)
  22. setequal(g=%NAME%)
  23. upcase(g)
  24. seekfile(bad.to,%VAR%G;%RESP%)
  25. iftrue(return)
  26. seekuser(%RESP%)
  27. setequal(c=%NDNUMB%)
  28. ifnottrue(goto (notfound))
  29.  
  30.   *back
  31. cAsk %CRON% (&CR&&3&                   What is this message about?&12&: &15&*)
  32. if (%RESP%)=(<CR>) then Return
  33. setequal(b=%RESP%)
  34.  
  35.   *stenter
  36. if (%AREAPVT%)=(N) then goto (stenter1)
  37. if (%AREAFPVT%)=(Y) then goto (stenter1)
  38. say(&3&Would you like to make this a private message? &9&[   ]&14&*)
  39. back(4)
  40. yesnoask(*)
  41. setequal(k=%RESP%)
  42.         
  43.   *stenter1
  44. loadmem(control\macros\menter.ctl)
  45.  
  46. *nall
  47. say(&CR&&CR&&12&Messages cannot be sent to "ALL" in a private mail area.&CR&)
  48. enter
  49. return
  50.  
  51.   *notfound
  52. say(&CR&&14&Their name couldn't be found.  )
  53. setequal(c=0)
  54. say(    &3&Would you like to send the message anyway? &9&[   ]&14&*)
  55. back(4)
  56. yesnoask(*)
  57. if (%RESP%)=(No) then return
  58. goto (back)
  59.  
  60.   *lusers
  61. loadsub(control\macros\list.ctl)
  62. goto (Enter)
  63.  
  64.   *sysn
  65. len(%UARESP%)
  66. back(%ARESP%)
  67. setequal(/resp=%SYSOP%)
  68. say(%SYSOP%*)
  69. goto (bk1)
  70.