home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 September / PCO_0998.ISO / filesbbs / dos / sbbs230b.exe / EXEC.LZH / MAJOR.SRC < prev    next >
Encoding:
Text File  |  1995-09-04  |  4.3 KB  |  346 lines
  1. # MAJOR.SRC
  2.  
  3. # MajorBBS Clone Command Shell for Synchronet
  4.  
  5. !include sbbsdefs.inc
  6.  
  7. :main
  8. cmd_home
  9. menu MAJOR\MAIN
  10. getstr 10
  11. compare_str ""
  12. if_true
  13.     end_cmd
  14.     end_if
  15. ungetstr
  16. getkey
  17. node_action node_main
  18. logkey_comma
  19.  
  20. cmdkey ?
  21.     end_cmd
  22.  
  23. cmdkey T
  24.     chat_section
  25.     end_cmd
  26.  
  27. cmdkey I
  28.     text_file_section
  29.     end_cmd
  30.  
  31. cmdkey F
  32.     call message
  33.     end_cmd
  34.  
  35. cmdkey E
  36.     cmd_home
  37.     menu MAJOR\EMAIL
  38.     getstr 10
  39.     compare_str ""
  40.     if_true
  41.         end_cmd
  42.         end_if
  43.     ungetstr
  44.     getkey
  45.         logkey
  46.  
  47.     cmdkey R
  48.         mail_read
  49.         end_cmd
  50.  
  51.     cmdkey W
  52.         print "_\r\nbhE-mail (User name or number): w"
  53.         getname 25
  54.         compare_str ""
  55.         if_true
  56.             end_cmd
  57.             end_if
  58.         compare_str "SYSOP"
  59.         if_true
  60.             setstr "1"
  61.             end_if
  62.         mail_send
  63.         end_cmd
  64.  
  65.     cmdkey S
  66.         no_yes "\r\nAttach a file"
  67.         if_true
  68.             mail_send_netmail
  69.         else
  70.             mail_send_netfile
  71.             end_if
  72.         end_cmd
  73.  
  74.     cmdkey U
  75.         print "_\r\nbhE-mail (User name or number): w"
  76.         getname 25
  77.         compare_str ""
  78.         if_true
  79.             end_cmd
  80.             end_if
  81.         compare_str "SYSOP"
  82.         if_true
  83.             setstr "1"
  84.             end_if
  85.         mail_send_file
  86.         end_cmd
  87.  
  88.     cmdkey E
  89.         mail_read_sent
  90.         end_cmd
  91.  
  92.     cmdkey X
  93.         cmd_pop
  94.         end_cmd
  95.  
  96.     end_cmd
  97.  
  98. cmdkey L
  99.     call transfers
  100.     end_cmd
  101.  
  102. cmdkey D
  103.     xtrn_section
  104.     end_cmd
  105.  
  106. cmdkey A
  107.     cmd_home
  108.     menu MAJOR\USERDEFS
  109.     getstr 10
  110.     compare_str ""
  111.     if_true
  112.         end_cmd
  113.         end_if
  114.     ungetstr
  115.     getkey
  116.         logkey
  117.  
  118.     cmdkey S
  119.         info_user
  120.         end_cmd
  121.  
  122.     cmdkey A
  123.         user_defaults
  124.         end_cmd
  125.  
  126.     cmdkey X
  127.         cmd_pop
  128.         end_cmd
  129.  
  130.     end_cmd
  131.  
  132. cmdkey R
  133.     print "\r\nchList Users\r\n"
  134.     mnemonics "\r\n~Logons Today, ~Sub-board, or ~All: "
  135.     getcmd LSA\r
  136.  
  137.     cmdkey L
  138.         userlist_logons
  139.         end_cmd
  140.     cmdkey S
  141.         userlist_sub
  142.         end_cmd
  143.     cmdkey A
  144.         userlist_all
  145.         end_cmd
  146.  
  147.     # fall-through for CR, Ctrl-C, etc
  148.         end_cmd
  149.  
  150. cmdkey S
  151.     compare_ars SYSOP or exempt Q or I or N
  152.     if_true
  153.         call sysop
  154.         end_if
  155.     end_cmd
  156.  
  157. cmdkey X
  158.     file_download_batch
  159.     if_true
  160.         end_cmd
  161.                 end_if
  162.     logoff
  163.     end_cmd
  164.  
  165. end_cmd
  166.  
  167. ############################### Message Section ###############################
  168.  
  169. :message
  170. cmd_home
  171. menu MAJOR\MSG
  172. getstr 10
  173. compare_str ""
  174. if_true
  175.     end_cmd
  176.         end_if
  177. ungetstr
  178. getkey
  179.  
  180. # Update node status
  181. node_action node_main
  182. logkey_comma
  183.  
  184. cmdkey ?
  185.     end_cmd
  186.  
  187. cmdkey X
  188.     cmd_pop
  189.     return
  190.     end_cmd
  191.  
  192. cmdkey R
  193.     msg_read
  194.     end_cmd
  195.  
  196. cmdkey W
  197.     msg_post
  198.     end_cmd
  199.  
  200. cmdkey Q
  201.     cmd_home
  202.     menu MAJOR\QUICKSCN
  203.     getstr 10
  204.     compare_str ""
  205.     if_true
  206.         end_cmd
  207.         end_if
  208.     ungetstr
  209.     getkey
  210.         logkey
  211.  
  212.     cmdstr S
  213.                 msg_new_scan
  214.                 end_cmd
  215.  
  216.     cmdstr L
  217.         msg_your_scan
  218.                 end_cmd
  219.  
  220.     cmdstr K
  221.         msg_find_text
  222.                 end_cmd
  223.  
  224.     cmdstr C
  225.         cmd_home
  226.         menu MAINCFG
  227.         async
  228.         print "\r\nyhConfig: n"
  229.         getcmd ?QNPIS
  230.         logkey
  231.  
  232.         cmdkey ?
  233.             compare_ars expert
  234.             if_true
  235.                 menu MAINCFG
  236.                 end_if
  237.             end_cmd
  238.  
  239.         cmdkey N
  240.             msg_new_scan_cfg
  241.             end_cmd
  242.  
  243.         cmdkey S
  244.             msg_your_scan_cfg
  245.             end_cmd
  246.  
  247.         cmdkey P
  248.             msg_ptrs_cfg
  249.             end_cmd
  250.  
  251.         cmdkey I
  252.             msg_ptrs_reinit
  253.             end_cmd
  254.  
  255.         cmdkey Q
  256.             cmd_pop
  257.             end_cmd
  258.  
  259.         end_cmd
  260.         cmd_pop
  261.         end_cmd
  262.  
  263. cmdkey T
  264.     chat_section
  265.     end_cmd
  266.  
  267. cmdkey S
  268.     msg_select_area
  269.     end_cmd
  270.  
  271. cmdkey F
  272.     call transfers
  273.         end_cmd
  274.  
  275. cmd_pop
  276. return
  277.  
  278. ############################ Transfer Menu Commands ###########################
  279. :transfers
  280. cmd_home
  281. menu MAJOR\FILE
  282. getstr 10
  283. compare_str ""
  284. if_true
  285.     end_cmd
  286.     end_if
  287. ungetstr
  288. getkey
  289. logkey
  290.  
  291. cmdkey F
  292.     print "\r\nchList Files\r\n"
  293.     getfilespec
  294.     if_true
  295.         file_list
  296.         end_if
  297.     end_cmd
  298.  
  299. cmdkey D
  300.     print "\r\nchDownload File(s)\r\n"
  301.     file_download_batch
  302.     if_true
  303.         end_cmd
  304.                 end_if
  305.     getfilespec
  306.     if_true
  307.         file_download
  308.         end_if
  309.     end_cmd
  310.  
  311. cmdkey U
  312.     print "\r\nchUpload File\r\n"
  313.     chkfile "..\text\menu\upload.*"
  314.     if_true
  315.         menu upload
  316.                 end_if
  317.     file_upload
  318.     end_cmd
  319.  
  320. cmdkey S
  321.     file_select_area
  322.     end_cmd
  323.  
  324. cmdkey X
  325.     cmd_pop
  326.     return
  327.     end_cmd
  328.  
  329. end_cmd
  330.  
  331. ############################## Sysop Commands #################################
  332.  
  333. :sysop
  334. menu sysmain
  335. print "n\r\nchSelect an option (or X to exit): n"
  336. getstrupr 40
  337.  
  338. compare_str "X"
  339. if_true
  340.         return
  341.     end_if
  342.  
  343. exec_bin str_cmds
  344. goto sysop
  345.  
  346.