Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
Synchronet
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Container registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Main
Synchronet
Commits
2af357ac
Commit
2af357ac
authored
11 months ago
by
Rob Swindell
Browse files
Options
Downloads
Patches
Plain Diff
OVB-2.SRC was renamed to obv-2.src, but Git didn't track that
parent
7f09e042
Branches
Branches containing commit
Tags
Tags containing commit
1 merge request
!455
Update branch with changes from master
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
exec/OVB-2.SRC
+0
-833
0 additions, 833 deletions
exec/OVB-2.SRC
with
0 additions
and
833 deletions
exec/OVB-2.SRC
deleted
100644 → 0
+
0
−
833
View file @
7f09e042
# 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
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment