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 >
Wrap
Text File
|
1994-11-28
|
12KB
|
763 lines
# TAG BBS CHRISTMAS CLONE SHELL MODIFIED FROM BOTH OF THE BELOW NAMED:
# TAG BBS HALLOWEEN CLONE SHELL MODEDIFIED FROM CHRIS BOURNE'S PROGRAMING
# TAG BBS Clone for Synchronet BBS v2.00x
# XMAS.SRC
# WEEN.SRC
# TABBBS.SRC
############################################################################
#CHRISTMAS VERSION BY #
# Thing-Fish #
# The Anonymous BBS #
# 1:3636/16 #
# #
# #
# Please fix any errors or bugs yourself! #
# #
############################################################################
############################################################################
#HALOWEEN VERSION BY #
# By: Justin Roberts #
# Wizards Realm BBS #
# 813-942-9020 #
# #
# #
# Please report any errors or bugs to the above. #
# #
############################################################################
############################################################################
#ORIGIONAL AUTHOR #
# By: Chris Bourne #
# Excalibur BBS #
# 810-739-4586 #
# 1:120/452 - FidoNet #
# #
# #
# #
############################################################################
:main
cmd_home
inc_main_cmds
node_action main
compare_user_misc EXPERT
if_false
cls
menu \xmas\main
end_if
async
crlf
print "hgM E R R Y C H R I S T M A S"
print " nrFile Library(h@LN@nr) File Dir(h@DN@nr) @TLEFT@: G"
compare_user_misc COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
cmdkey "
end_cmd
cmdkey ^M
end_cmd
cmdkey ^@
end_cmd
cmdkey ^S
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
cmdkey ;
compare_user_misc COLDKEYS
if_true
shift_str 1
else
getstrupr 40
end_if
exec_bin str_cmds
end_cmd
cmdkey A
cls
Print "\r\nrhRead/Write Yule Tide Greeting\n"
auto_message
end_cmd
cmdkey B
cls
text_file_section
end_cmd
cmdkey C
cls
Print "rhChat with Santa!\r\n"
pause
chat_section
end_cmd
cmdkey D
cls
Print "rhExternhell Door Selections\r\n"
pause
xtrn_section
end_cmd
cmdkey F
cls
Print "rhCozy up to the File-Place!\r\n
pause
call files
end_cmd
cmdkey G
cls
Print "rhBe a Scrooge?\r\n"
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey K
CLS
Print "rLeaving message to Santa\r\n"
setstr 1
mail_send_feedback
end_cmd
cmdkey M
cls
Print "rhHeading to the Message Section!\r\n"
pause
call message
end_cmd
cmdkey O
cls
Print "rhChecking out Other BBSes\r\n"
pause
exec_xtrn SBL
end_cmd
cmdkey P
user_defaults
end_cmd
cmdkey R
printfile ..\text\menu\xmas\text.asc
crlf
pause
end_cmd
cmdkey S
CLS
Print "rhLook Into Santa's Book\r\n"
info_user
pause
end_cmd
cmdkey T
CLS
Print "rhNorth Pole Bank\r\n"
minute_bank
end_cmd
cmdkey U
CLS
PRINT "rhSee Santa's Other Helpers\r\n"
userlist_all
pause
end_cmd
cmdkey V
CLS
Print "rhThe Voting Booth\r\n"
exec_xtrn VOTING
end_cmd
cmdkey W
CLS
Print "rhOther Elves Online\r\n"
nodelist_all
pause
end_cmd
cmdkey !
compare_ARS LEVEL 90
if_true
cls
menu sysmain
end_if
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \xmas\main
end_if
end_cmd
print "\r\nnihrGo Rudolph!n"
compare_user_misc EXPERT
if_true
print "\r\nnhgHit \"c?g\" for menu.n"
crlf
end_if
end_cmd
Print "\r\nnhError in Command Shell!"
print "\r\nPlease Notify Santa Claus!"
crlf
pause
hangup
########################################################################
# FILE TRANSFER MENU
########################################################################
:files
cmd_home
inc_file_cmds
compare_user_misc EXPERT
if_false
cls
menu \xmas\file
crlf
end_if
async
crlf
print "hgM E R R Y C H R I S T M A S"
print " ng(h@LN@ng) @LIB@ (h@DN@ng) @DIR@: n"
compare_user_misc COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
logkey_comma
cmdkey digit
compare_user_misc COLDKEYS
if_false
ungetkey
end_if
file_get_dir_num
end_cmd
cmdkey edigit
compare_user_misc COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
file_get_lib_num
end_cmd
cmdkey "
end_cmd
cmdkey ^S
end_cmd
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
cmdkey ;
compare_user_misc COLDKEYS
if_true
shift_str 1
else
getstrupr 40
end_if
exec_bin str_cmds
end_cmd
cmdkey A
PRINT "yhT H E F I L E P L A C E \r\n"
file_select_area
end_cmd
cmdkey B
getfilespec
if_true
file_list
end_if
end_cmd
cmdkey C
CLS
Print "pCD ACTIVE \r\n"
exec_xtrn EZROM
end_cmd
cmdkey D
file_download_batch
if_false
getfilespec
if_true
file_download
end_if
end_if
end_cmd
cmdkey F
CLS
PRINT "yhSearch for a Warm File\r\n"
file_find_text_all
end_cmd
cmdkey G
cls
Print "\r\nrhBe a Scrooge?\r\n"
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey I
getfilespec
if_true
file_view
end_if
end_cmd
cmdkey J
PRINT "yhT H E F I L E - P L A C E \r\n"
file_select_area
end_cmd
cmdkey L
getfilespec
if_true
file_list_extended
end_if
end_cmd
cmdkey M
Print "rhHeading to the Message Section!\r\n"
call message
end_cmd
cmdkey N
CLS
Print "rh File Scan\r\n"
file_new_scan
end_cmd
cmdkey P
file_ptrs_cfg
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmdkey R
getfilespec
if_true
file_remove
end_if
end_cmd
cmdkey S
print "\r\nrhSearch for Filename(s)\r\n"
file_find_name
end_cmd
cmdkey U
file_upload
if_false
crlf
print "\r\nhUpload Aborted!"
pause
end_if
end_cmd
cmdkey W
file_batch_section
end_cmd
cmdkey X
file_batch_section
end_cmd
cmdkey I
CLS
Print "rhFile Info\r\n"
call file_info
end_cmd
cmdkey Y
CLS
Print "rhYour Statistics\r\n"
info_user
pause
end_cmd
cmdkey Z
file_ptrs_cfg
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \xmas\file
end_if
end_cmd
cmdkey ]
file_directory_up
end_cmd
cmdkey [
file_directory_down
end_cmd
cmdkey !
compare_ARS LEVEL=90
if_true
cls
menu sysmain
end_if
end_cmd
print "\r\nnihrC'mon Rudolph!"
crlf
compare_user_misc EXPERT
if_true
print "ngHit \"c?g\" for menu.n"
end_if
end_cmd
cls
print "nhError in Command Shell!"
crlf
print "Please Notify Santa!"
crlf
pause
hangup
###########################################################################
# MESSAGE MENU
###########################################################################
:message
cmd_home
compare_user_misc EXPERT
if_false
cls
menu \xmas\msg
end_if
async
crlf
print "nRM E R R Y C H R I S T M A S"
print " ng[h@GN@ng] @GRP@ [h@SN@ng] @SUB@: g"
compare_user_misc COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
logkey_comma
cmdkey digit
compare_user_misc COLDKEYS
if_false
ungetkey
end_if
msg_get_sub_num
end_cmd
cmdkey edigit
compare_user_misc COLDKEYS
if_false
ungetkey
else
shift_str 1
end_if
msg_get_grp_num
end_cmd
cmdkey "
end_cmd
cmdkey ^S
end_cmd
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
cmdkey A
CLS
PRINT "hc M E S S A G E A R E A S \r\n"
msg_select_area
end_cmd
cmdkey C
CLS
PRINT "rhChat with Sanata\r\n"
pause
chat_section
end_cmd
cmdkey E
call email
end_cmd
cmdkey F
cls
Print "ghHeading to the File-Place!\r\n
pause
call files
end_cmd
cmdkey G
cls
Print "\r\nghBe a Scrooge?\r\n"
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey J
CLS
PRINT "hc M E S S A G E A R E A S \r\n"
msg_select_area
end_cmd
cmdkey K
setstr 1
mail_send_feedback
end_cmd
cmdkey N
CLS
PRINT "chSearch for New Msgs\r\n"
msg_new_scan
end_cmd
cmdkey O
msg_qwk
end_cmd
cmdkey P
msg_post
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmdkey R
msg_read
end_cmd
cmdkey W
CLS
Print "rhOther Elves Online\r\n"
nodelist_all
pause
end_cmd
cmdkey Y
mail_read
end_cmd
cmdkey Z
msg_new_scan_cfg
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \xmas\msg
end_if
end_cmd
cmdkey ]
msg_subboard_up
end_cmd
cmdkey [
msg_subboard_down
end_cmd
print "\r\nnhriUnknown Elf!"
crlf
compare_user_misc EXPERT
if_true
print "nhgHit \"c?g\" for menu."
end_if
end_cmd
cls
print "nhError in Command Shell!"
crlf
print "Please Notify Santa... ho, ho, ho!"
crlf
pause
hangup
############################### E-mail Section ################################
:email
cmd_home
compare_user_misc expert
if_false
menu xmas\E-MAIL
end_if
async
print "\r\nrhMerrE-mail: n"
getcmd ?SRFNUKQ\r
logkey
cmdkey ?
compare_user_misc expert
if_true
menu \xmas\E-MAIL
end_if
end_cmd
cmdkey S
print "_\r\nghMerr-E-mail (User name or number): w"
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send
end_cmd
cmdkey U
print "_\r\nghMerrE-mail (User name or number): w"
getname 25
compare_str ""
if_true
end_cmd
end_if
compare_str "SYSOP"
if_true
setstr "1"
end_if
mail_send_file
end_cmd
cmdkey R
mail_read
end_cmd
cmdkey F
setstr "1"
mail_send_feedback
end_cmd
cmdkey N
mail_send_netmail
end_cmd
cmdkey K
mail_read_sent
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmd_pop
return
############################ File Info Section ###############################
:file_info
cmd_home
compare_user_misc expert
if_false
menu XFERINFO
end_if
async
print "\r\nrhInfo: n"
getcmd ?TYDUQ\r
logkey
cmdkey ?
compare_user_misc expert
if_true
menu XFERINFO
end_if
end_cmd
cmdkey T
info_xfer_policy
end_cmd
cmdkey Y
info_user
end_cmd
cmdkey D
info_directory
end_cmd
cmdkey U
userlist_dir
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmd_pop
return
# END OF MODIFIED TAGBBS.SRC/WEEN.SRC/XMAS.SRC - EDITED FOR CHRISTMAS
# END OF MODIFIED TAGBBS.SRC (WEEN.SRC) - EDITED FOR HALLOWEEN
# End of TAGBBS.SRC