home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SC22.ZIP / SC.ZIP / CHAT.SRC < prev    next >
Encoding:
Text File  |  1996-03-10  |  1.2 KB  |  88 lines
  1. #
  2. #  [syncchat seemless intregation module by enigma of .toz. 810-651-6472]
  3. #  Dox: put this in your \sbbs\exec directory, compile, and then edit the
  4. #  text.dat file in \sbbs\ctrl and change the following line:
  5. #
  6. #  "\r\n_yhChat: n"                                    506 ChatPrompt
  7. #  To:
  8. #  "@EXEC:chat@"                                           506 ChatPrompt
  9. #
  10. #  Thanks go to Prophet for letting me be a beta tester, i hope this  mod
  11. #  Will make it easier for sysops to use your product =]
  12. #
  13.  
  14. print "\r\n_nchChncat Mehnu: "
  15.  
  16. cmd_home
  17.  
  18. getkey
  19.  
  20. cmdkey J
  21.   exec_xtrn syncchat
  22.   setstr "?"
  23.   ungetstr
  24.   return
  25. end_cmd
  26.  
  27. cmdkey ?
  28.   setstr "?"
  29.   ungetstr
  30.   return
  31. end_cmd
  32.  
  33. cmdkey P
  34.   setstr "P"
  35.   ungetstr
  36.   return
  37. end_cmd
  38.  
  39. cmdkey S
  40.   setstr "S"
  41.   ungetstr
  42.   return
  43. end_cmd
  44.  
  45. cmdkey J
  46.   setstr "J"
  47.   ungetstr
  48.   return
  49. end_cmd
  50.  
  51. cmdkey C
  52.   setstr "C"
  53.   ungetstr
  54.   return
  55. end_cmd
  56.  
  57. cmdkey T
  58.   setstr "T"
  59.   ungetstr
  60.   return
  61. end_cmd
  62.  
  63. cmdkey D
  64.   setstr "D"
  65.   ungetstr
  66.   return
  67. end_cmd
  68.  
  69. cmdkey A
  70.   setstr "A"
  71.   ungetstr
  72.   return
  73. end_cmd
  74.  
  75. cmdkey Q
  76.   setstr "Q"
  77.   ungetstr
  78.   return
  79. end_cmd
  80.  
  81. cmdkey ^M
  82.   setstr "Q"
  83.   ungetstr
  84.   return
  85. end_cmd
  86.  
  87. return
  88.