home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / XMASHELL.ZIP / XMAS.SRC < prev    next >
Text File  |  1994-11-28  |  12KB  |  763 lines

  1. # TAG BBS CHRISTMAS CLONE SHELL MODIFIED FROM BOTH OF THE BELOW NAMED:
  2. # TAG BBS HALLOWEEN CLONE SHELL MODEDIFIED FROM CHRIS BOURNE'S PROGRAMING
  3. # TAG BBS Clone for Synchronet BBS v2.00x
  4.  
  5. # XMAS.SRC
  6. # WEEN.SRC
  7. # TABBBS.SRC
  8.  
  9.  
  10. ############################################################################
  11. #CHRISTMAS VERSION BY                                                      #
  12. #                           Thing-Fish                                     #
  13. #                           The Anonymous BBS                              #
  14. #                           1:3636/16                                      #
  15. #                                                                          #
  16. #                                                                          #
  17. #               Please fix any errors or bugs yourself!                    #
  18. #                                                                          #
  19. ############################################################################
  20. ############################################################################
  21. #HALOWEEN VERSION BY                                                       #
  22. #                           By: Justin Roberts                             #
  23. #                           Wizards Realm BBS                              #
  24. #                           813-942-9020                                   #
  25. #                                                                          #
  26. #                                                                          #
  27. #               Please report any errors or bugs to the above.             #
  28. #                                                                          #
  29. ############################################################################
  30. ############################################################################
  31. #ORIGIONAL AUTHOR                                                          #
  32. #                           By: Chris Bourne                               #
  33. #                           Excalibur BBS                                  #
  34. #                           810-739-4586                                   #
  35. #                           1:120/452 - FidoNet                            #
  36. #                                                                          #
  37. #                                                                          #
  38. #                                                                          #
  39. ############################################################################
  40.  
  41. :main
  42. cmd_home
  43. inc_main_cmds
  44. node_action main
  45. compare_user_misc EXPERT
  46.     if_false
  47.     cls
  48.     menu \xmas\main
  49.     end_if
  50.  
  51. async
  52. crlf
  53. print "hgM E R R Y  C H R I S T M A S"
  54. print " nrFile Library(h@LN@nr) File Dir(h@DN@nr) @TLEFT@: G"
  55. compare_user_misc COLDKEYS
  56.     if_false
  57.     getkeye
  58.     else
  59.     getstrupr 40
  60.     end_if
  61.  
  62. cmdkey  "
  63. end_cmd
  64.  
  65. cmdkey ^M
  66. end_cmd
  67.  
  68. cmdkey ^@
  69. end_cmd
  70.  
  71. cmdkey ^S
  72. end_cmd
  73.  
  74. compare_user_misc COLDKEYS
  75.     if_false
  76.     printkey
  77.     end_if
  78.  
  79. cmdkey ;
  80.     compare_user_misc COLDKEYS
  81.     if_true
  82.         shift_str 1
  83.     else
  84.         getstrupr 40
  85.     end_if
  86.     exec_bin str_cmds
  87. end_cmd
  88.  
  89. cmdkey A
  90.     cls
  91.     Print "\r\nrhRead/Write Yule Tide Greeting\n"
  92.     auto_message
  93. end_cmd
  94.  
  95. cmdkey B
  96.     cls
  97.     text_file_section
  98. end_cmd
  99.  
  100. cmdkey C
  101.     cls
  102.     Print "rhChat with Santa!\r\n"
  103.     pause
  104.     chat_section
  105. end_cmd
  106.  
  107. cmdkey D
  108.     cls
  109.     Print "rhExternhell Door Selections\r\n"
  110.     pause
  111.     xtrn_section
  112. end_cmd
  113.  
  114. cmdkey F
  115.     cls
  116.     Print "rhCozy up to the File-Place!\r\n
  117.     pause
  118.     call files
  119. end_cmd
  120.  
  121. cmdkey G
  122.     cls
  123.     Print "rhBe a Scrooge?\r\n"
  124.     logoff
  125. end_cmd
  126.  
  127. cmdkey /G
  128.     logoff_fast
  129. end_cmd
  130.  
  131. cmdkey K
  132.     CLS
  133.     Print "rLeaving message to Santa\r\n"
  134.     setstr 1
  135.     mail_send_feedback
  136. end_cmd
  137.  
  138. cmdkey M
  139.     cls
  140.     Print "rhHeading to the Message Section!\r\n"
  141.     pause
  142.     call message
  143. end_cmd
  144.  
  145. cmdkey O
  146.     cls
  147.     Print "rhChecking out Other BBSes\r\n"
  148.     pause
  149.     exec_xtrn SBL
  150. end_cmd
  151.  
  152. cmdkey P
  153.     user_defaults
  154. end_cmd
  155.  
  156. cmdkey R
  157.     printfile ..\text\menu\xmas\text.asc
  158.     crlf
  159.     pause
  160. end_cmd
  161.  
  162. cmdkey S
  163.     CLS
  164.     Print "rhLook Into Santa's Book\r\n"
  165.     info_user
  166.     pause
  167. end_cmd
  168.  
  169. cmdkey T
  170.     CLS
  171.     Print "rhNorth Pole Bank\r\n"
  172.     minute_bank
  173. end_cmd
  174.  
  175. cmdkey U
  176.     CLS
  177.     PRINT "rhSee Santa's Other Helpers\r\n"
  178.     userlist_all
  179.     pause
  180. end_cmd
  181.  
  182. cmdkey V
  183.     CLS
  184.     Print "rhThe Voting Booth\r\n"
  185.     exec_xtrn VOTING
  186. end_cmd
  187.  
  188. cmdkey W
  189.     CLS
  190.     Print "rhOther Elves Online\r\n"
  191.     nodelist_all
  192.     pause
  193. end_cmd
  194.  
  195. cmdkey !
  196.     compare_ARS LEVEL 90
  197.     if_true
  198.     cls
  199.     menu sysmain
  200.     end_if
  201. end_cmd
  202.  
  203. cmdkey ?
  204.     compare_user_misc EXPERT
  205.     if_true
  206.         menu \xmas\main
  207.     end_if
  208. end_cmd
  209.  
  210. print "\r\nnihrGo Rudolph!n"
  211.     compare_user_misc EXPERT
  212.     if_true
  213.         print "\r\nnhgHit \"c?g\" for menu.n"
  214.         crlf
  215.     end_if
  216.  
  217. end_cmd
  218.  
  219. Print "\r\nnhError in Command Shell!"
  220. print "\r\nPlease Notify Santa Claus!"
  221. crlf
  222. pause
  223. hangup
  224.  
  225. ########################################################################
  226. # FILE TRANSFER MENU
  227. ########################################################################
  228.  
  229. :files
  230. cmd_home
  231. inc_file_cmds
  232. compare_user_misc EXPERT
  233.     if_false
  234.     cls
  235.     menu \xmas\file
  236.     crlf
  237.     end_if
  238.  
  239. async
  240. crlf
  241. print "hgM E R R Y  C H R I S T M A S"
  242. print " ng(h@LN@ng) @LIB@ (h@DN@ng) @DIR@: n"
  243.  
  244. compare_user_misc COLDKEYS
  245.     if_false
  246.     getkeye
  247.     else
  248.     getstrupr 40
  249.     end_if
  250.  
  251. logkey_comma
  252.  
  253. cmdkey digit
  254.     compare_user_misc COLDKEYS
  255.     if_false
  256.         ungetkey
  257.     end_if
  258.     file_get_dir_num
  259. end_cmd
  260.  
  261. cmdkey edigit
  262.     compare_user_misc COLDKEYS
  263.     if_false
  264.         ungetkey
  265.     else
  266.         shift_str 1
  267.     end_if
  268.      file_get_lib_num
  269. end_cmd
  270.  
  271. cmdkey  "
  272. end_cmd
  273.  
  274. cmdkey ^S
  275. end_cmd
  276.  
  277. cmdkey ^@
  278. end_cmd
  279.  
  280. cmdkey ^M
  281. end_cmd
  282.  
  283. compare_user_misc COLDKEYS
  284.     if_false
  285.     printkey
  286.     end_if
  287.  
  288. cmdkey ;
  289.     compare_user_misc COLDKEYS
  290.     if_true
  291.         shift_str 1
  292.     else
  293.         getstrupr 40
  294.     end_if
  295.     exec_bin str_cmds
  296. end_cmd
  297.  
  298.  
  299. cmdkey A
  300.     PRINT "yhT H E  F I L E  P L A C E \r\n"
  301.     file_select_area
  302. end_cmd
  303.  
  304. cmdkey B
  305.     getfilespec
  306.     if_true
  307.         file_list
  308.     end_if
  309. end_cmd
  310.  
  311. cmdkey C
  312.     CLS
  313.     Print "pCD ACTIVE \r\n" 
  314.     exec_xtrn EZROM
  315.     end_cmd
  316.  
  317. cmdkey D
  318.     file_download_batch
  319.     if_false
  320.         getfilespec
  321.         if_true
  322.             file_download
  323.         end_if
  324.      end_if
  325. end_cmd
  326.  
  327. cmdkey F
  328.     CLS
  329.     PRINT "yhSearch for a Warm File\r\n"
  330.     file_find_text_all
  331. end_cmd
  332.  
  333. cmdkey G
  334.     cls
  335.     Print "\r\nrhBe a Scrooge?\r\n"
  336.     logoff
  337. end_cmd
  338.  
  339. cmdkey /G
  340.     logoff_fast
  341. end_cmd
  342.  
  343. cmdkey I
  344.     getfilespec
  345.     if_true
  346.         file_view
  347.     end_if
  348. end_cmd
  349.  
  350. cmdkey J
  351.     PRINT "yhT H E  F I L E  -  P L A C E  \r\n"
  352.     file_select_area
  353. end_cmd
  354.  
  355. cmdkey L
  356.     getfilespec
  357.     if_true
  358.         file_list_extended
  359.     end_if
  360. end_cmd
  361.  
  362. cmdkey M
  363.     Print "rhHeading to the Message Section!\r\n"
  364.     call message
  365. end_cmd
  366.  
  367. cmdkey N
  368.     CLS
  369.     Print "rh File Scan\r\n"
  370.     file_new_scan
  371. end_cmd
  372.  
  373.  
  374. cmdkey P
  375.     file_ptrs_cfg
  376. end_cmd
  377.  
  378. cmdkey Q
  379.     cmd_pop
  380.     return
  381. end_cmd
  382.  
  383. cmdkey R
  384.     getfilespec
  385.     if_true
  386.         file_remove
  387.     end_if
  388. end_cmd
  389.  
  390. cmdkey S
  391.     print "\r\nrhSearch for Filename(s)\r\n"
  392.     file_find_name
  393. end_cmd
  394.  
  395. cmdkey U
  396.     file_upload
  397.     if_false
  398.     crlf
  399.         print "\r\nhUpload Aborted!"
  400.         pause
  401.     end_if
  402. end_cmd
  403.  
  404. cmdkey W
  405.     file_batch_section
  406. end_cmd
  407.  
  408. cmdkey X
  409.     file_batch_section
  410. end_cmd
  411.  
  412. cmdkey I
  413.     CLS
  414.     Print "rhFile Info\r\n"
  415.     call file_info
  416. end_cmd
  417.  
  418. cmdkey Y
  419.     CLS
  420.     Print "rhYour Statistics\r\n"
  421.     info_user
  422.     pause
  423. end_cmd
  424.  
  425. cmdkey Z
  426.     file_ptrs_cfg
  427. end_cmd
  428.  
  429. cmdkey ?
  430.     compare_user_misc EXPERT
  431.     if_true
  432.         menu \xmas\file
  433.     end_if
  434. end_cmd
  435.  
  436. cmdkey ]
  437.     file_directory_up
  438. end_cmd
  439.  
  440. cmdkey [
  441.     file_directory_down
  442. end_cmd
  443.  
  444. cmdkey !
  445.     compare_ARS LEVEL=90
  446.     if_true
  447.         cls
  448.         menu sysmain
  449.     end_if
  450. end_cmd
  451.  
  452. print "\r\nnihrC'mon Rudolph!"
  453. crlf
  454. compare_user_misc EXPERT
  455.     if_true
  456.     print "ngHit \"c?g\" for menu.n"
  457.     end_if
  458. end_cmd
  459.  
  460. cls
  461. print "nhError in Command Shell!"
  462. crlf
  463. print "Please Notify Santa!"
  464. crlf
  465. pause
  466. hangup
  467.  
  468. ###########################################################################
  469. # MESSAGE MENU
  470. ###########################################################################
  471.  
  472. :message
  473. cmd_home
  474. compare_user_misc EXPERT
  475.     if_false
  476.     cls
  477.     menu \xmas\msg
  478.     end_if
  479.  
  480. async
  481. crlf
  482. print "nRM E R R Y  C H R I S T M A S"
  483. print " ng[h@GN@ng] @GRP@ [h@SN@ng] @SUB@: g"
  484.  
  485. compare_user_misc COLDKEYS
  486.     if_false
  487.     getkeye
  488.     else
  489.     getstrupr 40
  490.     end_if
  491.  
  492. logkey_comma
  493.  
  494. cmdkey digit
  495.     compare_user_misc COLDKEYS
  496.     if_false
  497.         ungetkey
  498.     end_if
  499.     msg_get_sub_num
  500. end_cmd
  501.  
  502. cmdkey edigit
  503.     compare_user_misc COLDKEYS
  504.     if_false
  505.         ungetkey
  506.     else
  507.         shift_str 1
  508.     end_if
  509.     msg_get_grp_num
  510. end_cmd
  511.  
  512. cmdkey  "
  513. end_cmd
  514.  
  515. cmdkey ^S
  516. end_cmd
  517.  
  518. cmdkey ^@
  519. end_cmd
  520.  
  521. cmdkey ^M
  522. end_cmd
  523.  
  524. compare_user_misc COLDKEYS
  525.     if_false
  526.     printkey
  527.     end_if
  528.  
  529. cmdkey A
  530.     CLS
  531.     PRINT "hc M E S S A G E   A R E A S \r\n"
  532.     msg_select_area
  533. end_cmd
  534.  
  535. cmdkey C
  536.     CLS
  537.     PRINT "rhChat with Sanata\r\n"
  538.     pause
  539.     chat_section
  540. end_cmd
  541.  
  542. cmdkey E
  543.     call email
  544. end_cmd
  545.  
  546. cmdkey F
  547.     cls
  548.     Print "ghHeading to the File-Place!\r\n
  549.     pause
  550.     call files
  551.     end_cmd
  552.  
  553. cmdkey G
  554.     cls
  555.     Print "\r\nghBe a Scrooge?\r\n"
  556.     logoff
  557. end_cmd
  558.  
  559. cmdkey /G
  560.     logoff_fast
  561. end_cmd
  562.  
  563. cmdkey J
  564.     CLS
  565.     PRINT "hc M E S S A G E   A R E A S \r\n"
  566.     msg_select_area
  567. end_cmd
  568.  
  569. cmdkey K
  570.     setstr 1
  571.     mail_send_feedback
  572. end_cmd
  573.  
  574. cmdkey N
  575.     CLS
  576.     PRINT "chSearch for New Msgs\r\n"
  577.     msg_new_scan
  578. end_cmd
  579.  
  580. cmdkey O
  581.     msg_qwk
  582. end_cmd
  583.  
  584. cmdkey P
  585.     msg_post
  586. end_cmd
  587.  
  588. cmdkey Q
  589.     cmd_pop
  590.     return
  591. end_cmd
  592.  
  593. cmdkey R
  594.     msg_read
  595. end_cmd
  596.  
  597. cmdkey W
  598.     CLS
  599.     Print "rhOther Elves Online\r\n"
  600.     nodelist_all
  601.     pause
  602. end_cmd
  603.  
  604. cmdkey Y
  605.     mail_read
  606. end_cmd
  607.  
  608. cmdkey Z
  609.     msg_new_scan_cfg
  610. end_cmd
  611.  
  612. cmdkey ?
  613.     compare_user_misc EXPERT
  614.     if_true
  615.         menu \xmas\msg
  616.         end_if
  617. end_cmd
  618.  
  619. cmdkey ]
  620.     msg_subboard_up
  621. end_cmd
  622.  
  623. cmdkey [
  624.     msg_subboard_down
  625. end_cmd
  626.  
  627. print "\r\nnhriUnknown Elf!"
  628. crlf
  629. compare_user_misc EXPERT
  630.     if_true
  631.     print "nhgHit \"c?g\" for menu."
  632.     end_if
  633. end_cmd
  634.  
  635. cls
  636. print "nhError in Command Shell!"
  637. crlf
  638. print "Please Notify Santa... ho, ho, ho!"
  639. crlf
  640. pause
  641. hangup
  642.  
  643. ############################### E-mail Section ################################
  644.  
  645. :email
  646. cmd_home
  647. compare_user_misc expert
  648. if_false
  649.     menu xmas\E-MAIL
  650.     end_if
  651. async
  652. print "\r\nrhMerrE-mail: n"
  653. getcmd ?SRFNUKQ\r
  654. logkey
  655.  
  656. cmdkey ?
  657.     compare_user_misc expert
  658.     if_true
  659.         menu \xmas\E-MAIL
  660.         end_if
  661.     end_cmd
  662.  
  663. cmdkey S
  664.     print "_\r\nghMerr-E-mail (User name or number): w"
  665.     getname 25
  666.     compare_str ""
  667.     if_true
  668.         end_cmd
  669.         end_if
  670.     compare_str "SYSOP"
  671.     if_true
  672.         setstr "1"
  673.         end_if
  674.     mail_send
  675.     end_cmd
  676.  
  677. cmdkey U
  678.     print "_\r\nghMerrE-mail (User name or number): w"
  679.     getname 25
  680.     compare_str ""
  681.     if_true
  682.         end_cmd
  683.         end_if
  684.     compare_str "SYSOP"
  685.     if_true
  686.         setstr "1"
  687.         end_if
  688.     mail_send_file
  689.     end_cmd
  690.  
  691. cmdkey R
  692.     mail_read
  693.     end_cmd
  694.  
  695. cmdkey F
  696.     setstr "1"
  697.     mail_send_feedback
  698.     end_cmd
  699.  
  700. cmdkey N
  701.     mail_send_netmail
  702.     end_cmd
  703.  
  704. cmdkey K
  705.     mail_read_sent
  706.     end_cmd
  707.  
  708. cmdkey Q
  709.     cmd_pop
  710.     return
  711.     end_cmd
  712.  
  713. cmd_pop
  714. return
  715.  
  716. ############################ File Info Section  ###############################
  717.  
  718. :file_info
  719. cmd_home
  720. compare_user_misc expert
  721. if_false
  722.     menu XFERINFO
  723.     end_if
  724. async
  725. print "\r\nrhInfo: n"
  726. getcmd ?TYDUQ\r
  727. logkey
  728.  
  729. cmdkey ?
  730.     compare_user_misc expert
  731.     if_true
  732.         menu XFERINFO
  733.         end_if
  734.     end_cmd
  735.  
  736. cmdkey T
  737.     info_xfer_policy
  738.     end_cmd
  739.  
  740. cmdkey Y
  741.     info_user
  742.     end_cmd
  743.  
  744. cmdkey D
  745.     info_directory
  746.     end_cmd
  747.  
  748. cmdkey U
  749.     userlist_dir
  750.     end_cmd
  751.  
  752. cmdkey Q
  753.     cmd_pop
  754.     return
  755.     end_cmd
  756.  
  757. cmd_pop
  758. return
  759.  
  760. # END OF MODIFIED TAGBBS.SRC/WEEN.SRC/XMAS.SRC - EDITED FOR CHRISTMAS
  761. # END OF MODIFIED TAGBBS.SRC (WEEN.SRC) -  EDITED FOR HALLOWEEN
  762. # End of TAGBBS.SRC
  763.