home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / MCHAT.CTL < prev    next >
Encoding:
Text File  |  1992-08-05  |  1.2 KB  |  45 lines
  1.  DefPause ($7$&0&[Send more text?]$0$&3& (&11&S&3&)top, (&11&N&3&)onstop or (&11&C&3&)ontinue?&12&: &7&)
  2.  DefPif (s:stop,n:nonstop)
  3. if (%MULTI%)=(TRUE) then goto (start)
  4. say(&CR&&11&Sorry, %FNAME%, this system is not running the Multinode version of the)
  5. say(Powerboard BBS Package.&CR&&CR&&3&If you feel this would be a good addition to the BBS, please contact)
  6. say(your Sysop, %SYSOP%.&CR&)
  7. enter
  8. return
  9.  
  10. *start
  11. setactivity (Entering Chat)
  12. SetWho1(&7&)
  13. SetWho2(&11&)
  14. SetWho3(&3&)
  15. SetWho4(&10&)
  16. SetWho5(&15&)
  17. display(display\chatconf)
  18. menuask(&3&Please select a chat conference&12&: &15&*%CRON%)
  19. if (%RESP%)=(<CR>) then return
  20. number(%RESP%)
  21. ifnottrue(goto (badsel))
  22. setequal(a=%RESP%)
  23. setequal(c=%NAME%)
  24. setlen(c=20)
  25. setequal(d=%FROM%)
  26. setlen(d=21)
  27. display(display\chatopt)
  28. loadsub(control\macros\mwho.ctl)
  29. menuask(&3&Nodes you would like to chat with, seperated by spaces &11&(A=All)&12&: &15&*%MIN1%%CRON%)
  30. if (%RESP%)=(<CR>) then return
  31. if (%RESP%)=(A) then goto (all)
  32. setequal(b=%RESP% %NODE%)
  33. display(display\stchat)
  34. mChat(%var%a %var%b)
  35. Return
  36.  
  37. *all
  38. display(display\stchat)
  39. mchat(%var%a -1)
  40. return
  41.  
  42. *badsel
  43. loadsub(control\macros\badsel.ctl)
  44. return
  45.