Skip to content
Snippets Groups Projects
Commit 79932952 authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

Renamed OVB-2.SRC to obv-2.src

Lowercased and using the proper abbreviaton of "Oblivion/2".
parent 83ea0184
No related branches found
No related tags found
1 merge request!455Update branch with changes from master
# OVB-2 Clone for Synchronet BBS v2.00x
# OVB-2.SRC
# By: Xsword
# NEOCOM CBB&FL
# 703.666.9533
#
#
############################################################################
:main
cmd_home
inc_main_cmds
node_action main
compare_user_misc EXPERT
if_false
cls
menu \ovb-2\main
end_if
async
crlf
print "ngMain ch@TLEFT@nc"
print " hkCngohmnmhand: "
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
auto_message
end_cmd
# Your BBS listing Programs internal code goes here
# if it isn't the same as mine (i.e. LIST)
cmdkey B
exec_xtrn sbl
end_cmd
cmdkey C
page_sysop
end_cmd
cmdkey D
userlist_logons
end_cmd
cmdkey E
call email
end_cmd
cmdkey F
setstr 1
mail_send_feedback
end_cmd
cmdkey G
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey H
nodelist_users
end_cmd
cmdkey K
user_defaults
end_cmd
cmdkey L
userlist_all
end_cmd
cmdkey M
call message
end_cmd
cmdkey P
xtrn_section
end_cmd
cmdkey Q
call quick
end_cmd
cmdkey S
info_system
end_cmd
cmdkey T
call files
end_cmd
cmdkey I
chat_section
end_cmd
cmdkey U
minute_bank
end_cmd
cmdkey W
printfile ..\data\logon.lst
crlf
pause
end_cmd
cmdkey Y
info_user
end_cmd
cmdkey Z
msg_ptrs_reinit
end_cmd
cmdkey +
user_defaults
end_cmd
cmdkey !
compare_ARS LEVEL 90
if_true
cls
menu sysmain
end_if
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \ovb-2\main
end_if
end_cmd
cmdkey $
crlf
chkfile ..\data\donation.txt
if_true
printfile ..\data\donation.txt
crlf
pause
else
print "\r\nnhPlease ask the SysOp about making a donation."
crlf
pause
end_if
end_cmd
print "\r\nnihrUnknown Command!n"
compare_user_misc EXPERT
if_true
print "\r\nnhgHit \"c?g\" for menu.n"
crlf
end_if
end_cmd
Print "\r\nnhError is Command Shell!"
print "\r\nPlease Notify SysOp!"
crlf
pause
hangup
########################################################################
# FILE TRANSFER MENU
########################################################################
:files
cmd_home
inc_file_cmds
compare_user_misc EXPERT
if_false
cls
menu \ovb-2\files
crlf
end_if
async
crlf
print "ngFile c h@TLEFT@ nc hc(@LN@) @LIB@ (@DN@) @DIR@: "
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
file_select_area
end_cmd
cmdkey B
file_batch_section
end_cmd
cmdkey C
file_ptrs_cfg
end_cmd
cmdkey D
file_download_batch
if_false
getfilespec
if_true
file_download
end_if
end_if
end_cmd
cmdkey E
getfilespec
if_true
file_remove
end_if
end_cmd
cmdkey G
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey L
getfilespec
if_true
file_list
end_if
end_cmd
cmdkey M
call message
end_cmd
cmdkey N
file_new_scan
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmdkey R
file_batch_section
end_cmd
cmdkey S
crlf
mnemonics "Search by ~File Name or ~Text: "
crlf
print "nhCommand: "
getcmd "FT"
cmdkey F
file_find_name
end_cmd
cmdkey T
file_find_text
end_cmd
end_cmd
cmdkey T
file_temp_section
end_cmd
cmdkey U
file_upload
if_false
crlf
print "\r\nhUpload Aborted!"
pause
end_if
end_cmd
cmdkey V
getfilespec
if_true
file_view
end_if
end_cmd
cmdkey W
getfilespec
if_true
file_list_extended
end_if
end_cmd
cmdkey X
chkfile ..\data\syswant.txt
if_true
crlf
printfile ..\data\syswant.txt
pause
else
crlf
crlf
print "nhNo particular files are being sought."
crlf
pause
end_if
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \ovb-2\files
end_if
end_cmd
cmdkey /U
file_upload_user
end_cmd
cmdkey /D
file_download_user
end_cmd
cmdkey *
file_show_directories
end_cmd
cmdkey /*
file_show_libraries
end_cmd
cmdkey +
file_directory_up
end_cmd
cmdkey -
file_directory_down
end_cmd
cmdkey /+
file_library_up
end_cmd
cmdkey /-
file_library_down
end_cmd
cmdkey !
compare_ARS LEVEL=90
if_true
cls
menu sysmain
end_if
end_cmd
print "\r\nnihrUnknown Command!"
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 SysOp!"
crlf
pause
hangup
##########################################################################
# QUICK MENU
##########################################################################
:quick
cmd_home
compare_user_misc EXPERT
if_false
cls
menu \ovb-2\quick
end_if
async
crlf
print "hkQuick ngh@TLEFT@ng"
print " hkCngohmnmhand: "
compare_user_misc COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
logkey_comma
cmdkey "
end_cmd
cmdkey ^S
end_cmd
cmdkey ^@
end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
cmdkey C
page_sysop
end_cmd
cmdkey E
call email
end_cmd
cmdkey F
setstr 1
mail_send_feedback
end_cmd
cmdkey G
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey M
call message
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmdkey T
call files
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \ovb-2\quick
end_if
end_cmd
print "\r\nnirhUnknown Command!"
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 SysOp!"
crlf
pause
hangup
###########################################################################
# MESSAGE MENU
###########################################################################
:message
cmd_home
compare_user_misc EXPERT
if_false
cls
menu \ovb-2\message
end_if
async
crlf
print "ngMessage c h@TLEFT@ nc ch[@GN@] @GRP@ [@SN@] @SUB@: "
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
msg_select_area
end_cmd
cmdkey B
msg_show_subboards
end_cmd
cmdkey C
msg_new_scan_cfg
end_cmd
cmdkey G
logoff
end_cmd
cmdkey /G
logoff_fast
end_cmd
cmdkey J
msg_show_groups
print "\r\nWhich Group #? "
compare_user_misc COLDKEYS
if_false
getkeye
ungetkey
else
getstr 5
end_if
msg_get_grp_num
end_cmd
cmdkey 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 T
call files
end_cmd
cmdkey Y
msg_your_scan
end_cmd
cmdkey Z
toggle_user_misc new_sscan
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \ovb-2\message
end_if
end_cmd
cmdkey +
msg_subboard_up
end_cmd
cmdkey -
msg_subboard_down
end_cmd
cmdkey >
msg_group_up
end_cmd
cmdkey <
msg_group_down
end_cmd
cmdkey *
msg_show_subboards
end_cmd
cmdkey /*
msg_show_groups
end_cmd
print "\r\nnhriUnknown Command!"
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 SysOp!"
crlf
pause
hangup
##########################################################################
# EMAIL MENU
##########################################################################
:email
cmd_home
compare_user_misc EXPERT
if_false
cls
menu \ovb-2\email
end_if
async
crlf
print "hkEmail nghg@TLEFT@ng"
print " hkCngohmnmhand: n"
compare_user_misc COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
logkey_comma
cmdkey "
end_cmd
cmdkey ^M
end_cmd
cmdkey ^S
end_cmd
cmdkey ^@
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
cmdkey F
crlf
crlf
print "nhbSend Mail/File to Who? "
getname 25
mail_send_file
if_false
compare_str SYSOP
if_true
setstr 1
mail_send_file
end_if
end_if
end_cmd
cmdkey R
mail_read
end_cmd
cmdkey S
crlf
crlf
print "nhgSend Mail to Who? "
getname 25
mail_send
if_false
compare_str SYSOP
if_true
setstr 1
mail_send
end_if
end_if
end_cmd
cmdkey V
mail_read_sent
end_cmd
cmdkey Q
cmd_pop
return
end_cmd
cmdkey ?
compare_user_misc EXPERT
if_true
menu \ovb-2\email
end_if
end_cmd
print "\r\nnirhUnknown Command!"
compare_user_misc EXPERT
if_true
crlf
print "nghHit \"c?\" gfor menu.n"
end_if
end_cmd
cls
print "nhError in Command Shell!"
crlf
print "Please notify SysOp!"
pause
hangup
# End of ovb-2.SRC

\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment