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

Modernized Oblivion/2 Clone shell 

Updated for Baja v2+ compatibility.
Updated for UNIX file system compatibilty.

Fix cosmetic, cross-platform, and other general "wrongness".
parent 96121886
No related branches found
No related tags found
1 merge request!455Update branch with changes from master
Hide whitespace changes
Inline Side-by-side
Showing
with 107 additions and 106 deletions
exec/obv-2.src
+ 107
− 106
View file @ 1900aec7
# OVB-2 Clone for Synchronet BBS v2.00x
# OVB-2.SRC
# By: Xsword
# NEOCOM CBB&FL
# 703.666.9533
#
# Oblivion/2 BBS Clone for Synchronet BBS v3
# By: Xsword, derived from Yojimbo's VISION-2.SRC, updated by Digital Man
#
############################################################################
!include sbbsdefs.inc
:main
cmd_home
inc_main_cmds
node_action main
compare_user_misc EXPERT
node_action NODE_MAIN
compare_user_misc UM_EXPERT
if_false
cls
menu \ovb-2\main
menu "obv-2/main"
end_if
async
crlf
print "ngMain ch@TLEFT@nc"
print " hkCngohmnmhand: "
compare_user_misc COLDKEYS
print "\x01n\x01gMain \x01c\x01h@TLEFT@\x01n\x01c"
print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: "
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
getstrupr 40
end_if
pause_reset
cmdkey "
end_cmd
......@@ -40,13 +39,13 @@ end_cmd
cmdkey ^S
end_cmd
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
printkey
end_if
cmdkey ;
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_true
shift_str 1
else
......@@ -55,6 +54,12 @@ cmdkey ;
exec_bin str_cmds
end_cmd
compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset
cmdkey A
auto_message
end_cmd
......@@ -62,7 +67,7 @@ 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
exec_xtrn sbbslist
end_cmd
cmdkey C
......@@ -131,9 +136,7 @@ cmdkey U
end_cmd
cmdkey W
printfile ..\data\logon.lst
crlf
pause
exec "?logonlist -l"
end_cmd
cmdkey Y
......@@ -149,44 +152,40 @@ cmdkey +
end_cmd
cmdkey !
compare_ARS LEVEL 90
compare_ars SYSOP
if_true
cls
menu sysmain
cls
menu "sysmain"
end_if
end_cmd
cmdkey ?
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
menu \ovb-2\main
menu "obv-2/main"
end_if
end_cmd
cmdkey $
crlf
chkfile ..\data\donation.txt
chkfile "%jdonation.txt"
if_true
printfile ..\data\donation.txt
crlf
pause
printfile "%jdonation.txt"
else
print "\r\nnhPlease ask the SysOp about making a donation."
crlf
pause
print "\r\n\x01n\x01hPlease ask the SysOp about making a donation."
end_if
end_cmd
print "\r\nnihrUnknown Command!n"
compare_user_misc EXPERT
print "\r\n\x01n\x01i\x01h\x01rUnknown Command!\x01n"
compare_user_misc UM_EXPERT
if_true
print "\r\nnhgHit \"c?g\" for menu.n"
print "\r\n\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu.\x01n"
crlf
end_if
end_cmd
Print "\r\nnhError is Command Shell!"
Print "\r\n\x01n\x01hError is Command Shell!"
print "\r\nPlease Notify SysOp!"
crlf
pause
......@@ -199,18 +198,18 @@ hangup
:files
cmd_home
inc_file_cmds
compare_user_misc EXPERT
node_action NODE_XFER
compare_user_misc UM_EXPERT
if_false
cls
menu \ovb-2\files
crlf
menu "obv-2/files"
end_if
async
crlf
print "ngFile c h@TLEFT@ nc hc(@LN@) @LIB@ (@DN@) @DIR@: "
print "\x01n\x01gFile \x01c \x01h@TLEFT@ \x01n\x01c \x01h\x01c(@LN@) @LIB@ (@DN@) @DIR@: "
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
......@@ -220,7 +219,7 @@ compare_user_misc COLDKEYS
logkey_comma
cmdkey digit
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
......@@ -228,7 +227,7 @@ cmdkey digit
end_cmd
cmdkey edigit
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
......@@ -249,13 +248,13 @@ end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
printkey
end_if
cmdkey ;
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_true
shift_str 1
else
......@@ -330,7 +329,7 @@ cmdkey S
crlf
mnemonics "Search by ~File Name or ~Text: "
crlf
print "nhCommand: "
print "\x01n\x01hCommand: "
getcmd "FT"
cmdkey F
......@@ -350,8 +349,7 @@ cmdkey U
file_upload
if_false
crlf
print "\r\nhUpload Aborted!"
pause
print "\r\n\x01hUpload Aborted!"
end_if
end_cmd
......@@ -370,24 +368,21 @@ cmdkey W
end_cmd
cmdkey X
chkfile ..\data\syswant.txt
chkfile "%jsyswant.txt"
if_true
crlf
printfile ..\data\syswant.txt
pause
printfile "%jsyswant.txt"
else
crlf
print "\x01n\x01hNo particular files are being sought."
crlf
print "nhNo particular files are being sought."
crlf
pause
end_if
end_cmd
cmdkey ?
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
menu \ovb-2\files
menu "obv-2/files"
end_if
end_cmd
......@@ -424,23 +419,23 @@ cmdkey /-
end_cmd
cmdkey !
compare_ARS LEVEL=90
compare_ars SYSOP
if_true
cls
menu sysmain
menu "sysmain"
end_if
end_cmd
print "\r\nnihrUnknown Command!"
print "\r\n\x01n\x01i\x01h\x01rUnknown Command!"
crlf
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
print "ngHit \"c?g\" for menu.n"
print "\x01n\x01gHit \"\x01c?\x01g\" for menu.\x01n"
end_if
end_cmd
cls
print "nhError in Command Shell!"
print "\x01n\x01hError in Command Shell!"
crlf
print "Please Notify SysOp!"
crlf
......@@ -453,18 +448,18 @@ hangup
:quick
cmd_home
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_false
cls
menu \ovb-2\quick
menu "obv-2/quick"
end_if
async
crlf
print "hkQuick ngh@TLEFT@ng"
print " hkCngohmnmhand: "
print "\x01h\x01kQuick \x01n\x01g\x01h@TLEFT@\x01n\x01g"
print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: "
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
......@@ -485,7 +480,7 @@ end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
printkey
end_if
......@@ -525,22 +520,22 @@ cmdkey T
end_cmd
cmdkey ?
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
menu \ovb-2\quick
menu "obv-2/quick"
end_if
end_cmd
print "\r\nnirhUnknown Command!"
print "\r\n\x01n\x01i\x01r\x01hUnknown Command!"
crlf
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
print "nhgHit \"c?g\" for menu."
print "\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu."
end_if
end_cmd
cls
print "nhError in Command Shell!"
print "\x01n\x01hError in Command Shell!"
crlf
print "Please notify SysOp!"
crlf
......@@ -553,17 +548,18 @@ hangup
:message
cmd_home
compare_user_misc EXPERT
node_action NODE_RMSG
compare_user_misc UM_EXPERT
if_false
cls
menu \ovb-2\message
menu "obv-2/message"
end_if
async
crlf
print "ngMessage c h@TLEFT@ nc ch[@GN@] @GRP@ [@SN@] @SUB@: "
print "\x01n\x01gMessage \x01c \x01h@TLEFT@ \x01n\x01c \x01c\x01h[@GN@] @GRP@ [@SN@] @SUB@: "
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
......@@ -573,7 +569,7 @@ compare_user_misc COLDKEYS
logkey_comma
cmdkey digit
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
ungetkey
end_if
......@@ -581,7 +577,7 @@ cmdkey digit
end_cmd
cmdkey edigit
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
ungetkey
else
......@@ -602,10 +598,13 @@ end_cmd
cmdkey ^M
end_cmd
compare_user_misc COLDKEYS
if_false
printkey
end_if
compare_user_misc UM_COLDKEYS
if_false
printkey
crlf
end_if
pause_reset
cmdkey A
msg_select_area
......@@ -630,7 +629,7 @@ end_cmd
cmdkey J
msg_show_groups
print "\r\nWhich Group #? "
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
getkeye
ungetkey
......@@ -645,7 +644,9 @@ cmdkey N
end_cmd
cmdkey O
set_menu_dir "obv-2"
msg_qwk
set_menu_dir ""
end_cmd
cmdkey P
......@@ -670,13 +671,13 @@ cmdkey Y
end_cmd
cmdkey Z
toggle_user_misc new_sscan
toggle_user_misc UM_ASK_SSCAN
end_cmd
cmdkey ?
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
menu \ovb-2\message
menu "obv-2/message"
end_if
end_cmd
......@@ -704,16 +705,16 @@ cmdkey /*
msg_show_groups
end_cmd
print "\r\nnhriUnknown Command!"
print "\r\n\x01n\x01h\x01r\x01iUnknown Command!"
crlf
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
print "nhgHit \"c?g\" for menu."
print "\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu."
end_if
end_cmd
cls
print "nhError in Command Shell!"
print "\x01n\x01hError in Command Shell!"
crlf
print "Please Notify SysOp!"
crlf
......@@ -726,18 +727,19 @@ hangup
:email
cmd_home
compare_user_misc EXPERT
node_action NODE_RMAL
compare_user_misc UM_EXPERT
if_false
cls
menu \ovb-2\email
menu "obv-2/email"
end_if
async
crlf
print "hkEmail nghg@TLEFT@ng"
print " hkCngohmnmhand: n"
print "\x01h\x01kEmail \x01n\x01g\x01h\x01g@TLEFT@\x01n\x01g"
print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: \x01n"
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
getkeye
else
......@@ -758,7 +760,7 @@ end_cmd
cmdkey ^@
end_cmd
compare_user_misc COLDKEYS
compare_user_misc UM_COLDKEYS
if_false
printkey
end_if
......@@ -766,7 +768,7 @@ compare_user_misc COLDKEYS
cmdkey F
crlf
crlf
print "nhbSend Mail/File to Who? "
print "\x01n\x01h\x01bSend Mail/File to Who? "
getname 25
mail_send_file
if_false
......@@ -785,7 +787,7 @@ end_cmd
cmdkey S
crlf
crlf
print "nhgSend Mail to Who? "
print "\x01n\x01h\x01gSend Mail to Who? "
getname 25
mail_send
if_false
......@@ -808,26 +810,25 @@ cmdkey Q
end_cmd
cmdkey ?
compare_user_misc EXPERT
compare_user_misc UM_EXPERT
if_true
menu \ovb-2\email
menu "obv-2/email"
end_if
end_cmd
print "\r\nnirhUnknown Command!"
compare_user_misc EXPERT
print "\r\n\x01n\x01i\x01r\x01hUnknown Command!"
compare_user_misc UM_EXPERT
if_true
crlf
print "nghHit \"c?\" gfor menu.n"
print "\x01n\x01g\x01hHit \"\x01c?\" \x01gfor menu.\x01n"
end_if
end_cmd
cls
print "nhError in Command Shell!"
print "\x01n\x01hError in Command Shell!"
crlf
print "Please notify SysOp!"
pause
hangup
# End of ovb-2.SRC

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