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
Show 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 # Oblivion/2 BBS Clone for Synchronet BBS v3
# OVB-2.SRC # By: Xsword, derived from Yojimbo's VISION-2.SRC, updated by Digital Man
# By: Xsword
# NEOCOM CBB&FL
# 703.666.9533
#
# #
############################################################################ ############################################################################
!include sbbsdefs.inc
:main :main
cmd_home cmd_home
inc_main_cmds inc_main_cmds
node_action main node_action NODE_MAIN
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_false if_false
cls cls
menu \ovb-2\main menu "obv-2/main"
end_if end_if
async async
crlf crlf
print "ngMain ch@TLEFT@nc" print "\x01n\x01gMain \x01c\x01h@TLEFT@\x01n\x01c"
print " hkCngohmnmhand: " print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: "
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
getkeye getkeye
else else
getstrupr 40 getstrupr 40
end_if end_if
pause_reset
cmdkey " cmdkey "
end_cmd end_cmd
...@@ -40,13 +39,13 @@ end_cmd ...@@ -40,13 +39,13 @@ end_cmd
cmdkey ^S cmdkey ^S
end_cmd end_cmd
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
printkey printkey
end_if end_if
cmdkey ; cmdkey ;
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_true if_true
shift_str 1 shift_str 1
else else
...@@ -55,6 +54,12 @@ cmdkey ; ...@@ -55,6 +54,12 @@ cmdkey ;
exec_bin str_cmds exec_bin str_cmds
end_cmd end_cmd
compare_user_misc UM_COLDKEYS
if_false
crlf
end_if
pause_reset
cmdkey A cmdkey A
auto_message auto_message
end_cmd end_cmd
...@@ -62,7 +67,7 @@ end_cmd ...@@ -62,7 +67,7 @@ end_cmd
# Your BBS listing Programs internal code goes here # Your BBS listing Programs internal code goes here
# if it isn't the same as mine (i.e. LIST) # if it isn't the same as mine (i.e. LIST)
cmdkey B cmdkey B
exec_xtrn sbl exec_xtrn sbbslist
end_cmd end_cmd
cmdkey C cmdkey C
...@@ -131,9 +136,7 @@ cmdkey U ...@@ -131,9 +136,7 @@ cmdkey U
end_cmd end_cmd
cmdkey W cmdkey W
printfile ..\data\logon.lst exec "?logonlist -l"
crlf
pause
end_cmd end_cmd
cmdkey Y cmdkey Y
...@@ -149,44 +152,40 @@ cmdkey + ...@@ -149,44 +152,40 @@ cmdkey +
end_cmd end_cmd
cmdkey ! cmdkey !
compare_ARS LEVEL 90 compare_ars SYSOP
if_true if_true
cls cls
menu sysmain menu "sysmain"
end_if end_if
end_cmd end_cmd
cmdkey ? cmdkey ?
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
menu \ovb-2\main menu "obv-2/main"
end_if end_if
end_cmd end_cmd
cmdkey $ cmdkey $
crlf crlf
chkfile ..\data\donation.txt chkfile "%jdonation.txt"
if_true if_true
printfile ..\data\donation.txt printfile "%jdonation.txt"
crlf
pause
else else
print "\r\nnhPlease ask the SysOp about making a donation." print "\r\n\x01n\x01hPlease ask the SysOp about making a donation."
crlf
pause
end_if end_if
end_cmd end_cmd
print "\r\nnihrUnknown Command!n" print "\r\n\x01n\x01i\x01h\x01rUnknown Command!\x01n"
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
print "\r\nnhgHit \"c?g\" for menu.n" print "\r\n\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu.\x01n"
crlf crlf
end_if end_if
end_cmd end_cmd
Print "\r\nnhError is Command Shell!" Print "\r\n\x01n\x01hError is Command Shell!"
print "\r\nPlease Notify SysOp!" print "\r\nPlease Notify SysOp!"
crlf crlf
pause pause
...@@ -199,18 +198,18 @@ hangup ...@@ -199,18 +198,18 @@ hangup
:files :files
cmd_home cmd_home
inc_file_cmds inc_file_cmds
compare_user_misc EXPERT node_action NODE_XFER
compare_user_misc UM_EXPERT
if_false if_false
cls cls
menu \ovb-2\files menu "obv-2/files"
crlf
end_if end_if
async async
crlf 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 if_false
getkeye getkeye
else else
...@@ -220,7 +219,7 @@ compare_user_misc COLDKEYS ...@@ -220,7 +219,7 @@ compare_user_misc COLDKEYS
logkey_comma logkey_comma
cmdkey digit cmdkey digit
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
ungetkey ungetkey
end_if end_if
...@@ -228,7 +227,7 @@ cmdkey digit ...@@ -228,7 +227,7 @@ cmdkey digit
end_cmd end_cmd
cmdkey edigit cmdkey edigit
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
ungetkey ungetkey
else else
...@@ -249,13 +248,13 @@ end_cmd ...@@ -249,13 +248,13 @@ end_cmd
cmdkey ^M cmdkey ^M
end_cmd end_cmd
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
printkey printkey
end_if end_if
cmdkey ; cmdkey ;
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_true if_true
shift_str 1 shift_str 1
else else
...@@ -330,7 +329,7 @@ cmdkey S ...@@ -330,7 +329,7 @@ cmdkey S
crlf crlf
mnemonics "Search by ~File Name or ~Text: " mnemonics "Search by ~File Name or ~Text: "
crlf crlf
print "nhCommand: " print "\x01n\x01hCommand: "
getcmd "FT" getcmd "FT"
cmdkey F cmdkey F
...@@ -350,8 +349,7 @@ cmdkey U ...@@ -350,8 +349,7 @@ cmdkey U
file_upload file_upload
if_false if_false
crlf crlf
print "\r\nhUpload Aborted!" print "\r\n\x01hUpload Aborted!"
pause
end_if end_if
end_cmd end_cmd
...@@ -370,24 +368,21 @@ cmdkey W ...@@ -370,24 +368,21 @@ cmdkey W
end_cmd end_cmd
cmdkey X cmdkey X
chkfile ..\data\syswant.txt chkfile "%jsyswant.txt"
if_true if_true
crlf crlf
printfile ..\data\syswant.txt printfile "%jsyswant.txt"
pause
else else
crlf crlf
print "\x01n\x01hNo particular files are being sought."
crlf crlf
print "nhNo particular files are being sought."
crlf
pause
end_if end_if
end_cmd end_cmd
cmdkey ? cmdkey ?
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
menu \ovb-2\files menu "obv-2/files"
end_if end_if
end_cmd end_cmd
...@@ -424,23 +419,23 @@ cmdkey /- ...@@ -424,23 +419,23 @@ cmdkey /-
end_cmd end_cmd
cmdkey ! cmdkey !
compare_ARS LEVEL=90 compare_ars SYSOP
if_true if_true
cls cls
menu sysmain menu "sysmain"
end_if end_if
end_cmd end_cmd
print "\r\nnihrUnknown Command!" print "\r\n\x01n\x01i\x01h\x01rUnknown Command!"
crlf crlf
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
print "ngHit \"c?g\" for menu.n" print "\x01n\x01gHit \"\x01c?\x01g\" for menu.\x01n"
end_if end_if
end_cmd end_cmd
cls cls
print "nhError in Command Shell!" print "\x01n\x01hError in Command Shell!"
crlf crlf
print "Please Notify SysOp!" print "Please Notify SysOp!"
crlf crlf
...@@ -453,18 +448,18 @@ hangup ...@@ -453,18 +448,18 @@ hangup
:quick :quick
cmd_home cmd_home
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_false if_false
cls cls
menu \ovb-2\quick menu "obv-2/quick"
end_if end_if
async async
crlf crlf
print "hkQuick ngh@TLEFT@ng" print "\x01h\x01kQuick \x01n\x01g\x01h@TLEFT@\x01n\x01g"
print " hkCngohmnmhand: " print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: "
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
getkeye getkeye
else else
...@@ -485,7 +480,7 @@ end_cmd ...@@ -485,7 +480,7 @@ end_cmd
cmdkey ^M cmdkey ^M
end_cmd end_cmd
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
printkey printkey
end_if end_if
...@@ -525,22 +520,22 @@ cmdkey T ...@@ -525,22 +520,22 @@ cmdkey T
end_cmd end_cmd
cmdkey ? cmdkey ?
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
menu \ovb-2\quick menu "obv-2/quick"
end_if end_if
end_cmd end_cmd
print "\r\nnirhUnknown Command!" print "\r\n\x01n\x01i\x01r\x01hUnknown Command!"
crlf crlf
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
print "nhgHit \"c?g\" for menu." print "\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu."
end_if end_if
end_cmd end_cmd
cls cls
print "nhError in Command Shell!" print "\x01n\x01hError in Command Shell!"
crlf crlf
print "Please notify SysOp!" print "Please notify SysOp!"
crlf crlf
...@@ -553,17 +548,18 @@ hangup ...@@ -553,17 +548,18 @@ hangup
:message :message
cmd_home cmd_home
compare_user_misc EXPERT node_action NODE_RMSG
compare_user_misc UM_EXPERT
if_false if_false
cls cls
menu \ovb-2\message menu "obv-2/message"
end_if end_if
async async
crlf 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 if_false
getkeye getkeye
else else
...@@ -573,7 +569,7 @@ compare_user_misc COLDKEYS ...@@ -573,7 +569,7 @@ compare_user_misc COLDKEYS
logkey_comma logkey_comma
cmdkey digit cmdkey digit
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
ungetkey ungetkey
end_if end_if
...@@ -581,7 +577,7 @@ cmdkey digit ...@@ -581,7 +577,7 @@ cmdkey digit
end_cmd end_cmd
cmdkey edigit cmdkey edigit
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
ungetkey ungetkey
else else
...@@ -602,11 +598,14 @@ end_cmd ...@@ -602,11 +598,14 @@ end_cmd
cmdkey ^M cmdkey ^M
end_cmd end_cmd
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
printkey printkey
crlf
end_if end_if
pause_reset
cmdkey A cmdkey A
msg_select_area msg_select_area
end_cmd end_cmd
...@@ -630,7 +629,7 @@ end_cmd ...@@ -630,7 +629,7 @@ end_cmd
cmdkey J cmdkey J
msg_show_groups msg_show_groups
print "\r\nWhich Group #? " print "\r\nWhich Group #? "
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
getkeye getkeye
ungetkey ungetkey
...@@ -645,7 +644,9 @@ cmdkey N ...@@ -645,7 +644,9 @@ cmdkey N
end_cmd end_cmd
cmdkey O cmdkey O
set_menu_dir "obv-2"
msg_qwk msg_qwk
set_menu_dir ""
end_cmd end_cmd
cmdkey P cmdkey P
...@@ -670,13 +671,13 @@ cmdkey Y ...@@ -670,13 +671,13 @@ cmdkey Y
end_cmd end_cmd
cmdkey Z cmdkey Z
toggle_user_misc new_sscan toggle_user_misc UM_ASK_SSCAN
end_cmd end_cmd
cmdkey ? cmdkey ?
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
menu \ovb-2\message menu "obv-2/message"
end_if end_if
end_cmd end_cmd
...@@ -704,16 +705,16 @@ cmdkey /* ...@@ -704,16 +705,16 @@ cmdkey /*
msg_show_groups msg_show_groups
end_cmd end_cmd
print "\r\nnhriUnknown Command!" print "\r\n\x01n\x01h\x01r\x01iUnknown Command!"
crlf crlf
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
print "nhgHit \"c?g\" for menu." print "\x01n\x01h\x01gHit \"\x01c?\x01g\" for menu."
end_if end_if
end_cmd end_cmd
cls cls
print "nhError in Command Shell!" print "\x01n\x01hError in Command Shell!"
crlf crlf
print "Please Notify SysOp!" print "Please Notify SysOp!"
crlf crlf
...@@ -726,18 +727,19 @@ hangup ...@@ -726,18 +727,19 @@ hangup
:email :email
cmd_home cmd_home
compare_user_misc EXPERT node_action NODE_RMAL
compare_user_misc UM_EXPERT
if_false if_false
cls cls
menu \ovb-2\email menu "obv-2/email"
end_if end_if
async async
crlf crlf
print "hkEmail nghg@TLEFT@ng" print "\x01h\x01kEmail \x01n\x01g\x01h\x01g@TLEFT@\x01n\x01g"
print " hkCngohmnmhand: n" print " \x01h\x01kC\x01n\x01go\x01hm\x01nm\x01hand: \x01n"
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
getkeye getkeye
else else
...@@ -758,7 +760,7 @@ end_cmd ...@@ -758,7 +760,7 @@ end_cmd
cmdkey ^@ cmdkey ^@
end_cmd end_cmd
compare_user_misc COLDKEYS compare_user_misc UM_COLDKEYS
if_false if_false
printkey printkey
end_if end_if
...@@ -766,7 +768,7 @@ compare_user_misc COLDKEYS ...@@ -766,7 +768,7 @@ compare_user_misc COLDKEYS
cmdkey F cmdkey F
crlf crlf
crlf crlf
print "nhbSend Mail/File to Who? " print "\x01n\x01h\x01bSend Mail/File to Who? "
getname 25 getname 25
mail_send_file mail_send_file
if_false if_false
...@@ -785,7 +787,7 @@ end_cmd ...@@ -785,7 +787,7 @@ end_cmd
cmdkey S cmdkey S
crlf crlf
crlf crlf
print "nhgSend Mail to Who? " print "\x01n\x01h\x01gSend Mail to Who? "
getname 25 getname 25
mail_send mail_send
if_false if_false
...@@ -808,26 +810,25 @@ cmdkey Q ...@@ -808,26 +810,25 @@ cmdkey Q
end_cmd end_cmd
cmdkey ? cmdkey ?
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
menu \ovb-2\email menu "obv-2/email"
end_if end_if
end_cmd end_cmd
print "\r\nnirhUnknown Command!" print "\r\n\x01n\x01i\x01r\x01hUnknown Command!"
compare_user_misc EXPERT compare_user_misc UM_EXPERT
if_true if_true
crlf crlf
print "nghHit \"c?\" gfor menu.n" print "\x01n\x01g\x01hHit \"\x01c?\" \x01gfor menu.\x01n"
end_if end_if
end_cmd end_cmd
cls cls
print "nhError in Command Shell!" print "\x01n\x01hError in Command Shell!"
crlf crlf
print "Please notify SysOp!" print "Please notify SysOp!"
pause pause
hangup hangup
# End of ovb-2.SRC # End of obv-2.src

\ No newline at end of file
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment