Skip to content
Snippets Groups Projects
Commit fc7ef929 authored by rswindell's avatar rswindell
Browse files

Re-added (didn't mean to delete).

parent fe2ba6cb
No related branches found
No related tags found
No related merge requests found
# login.src
# Login module for Synchronet BBS v2.2+
# $Id$
# @format.tab-size 8, @format.use-tabs true
!include sbbsdefs.inc
logout
node_status NODE_LOGON
compare_ars WIP
if_true
exec_bin WIPLOGIN
return
end_if
int c
:top
compare c 10
if_greater_or_equal
hangup
return
end_if
print "\r\n\1nEnter Name, Number, '\1hNew\1n', or '\1hGuest\1n'\r\nNN: "
getstr str 25 K_UPRLWR|K_LOWPRIO|K_E71DETECT|K_TAB
truncsp str
compare_str ""
if_true
add c 1
goto top
end_if
compare_str "GUEST"
if_true
setstr "%q"
compare_str "VERTx"
if_true
no_yes "Are you a registered Synchronet owner"
if_false
print "\r\n\1h\1rLogon as \1wNEW\1r to create your account.\r\n"
goto top
end_if
end_if
setstr "Guest"
end_if
compare_str "NEW"
if_true
setstr "%q"
compare_str "VERTx"
if_true
yes_no "Are you calling just to download the Synchronet DEMO"
if_true
setstr "Guest"
login "PW: "
if_true
logon
if_true
return
end_if
end_if
end_if
end_if
newuser
logon
return
end_if
login "PW: "
if_true
logon
if_true
return
end_if
end_if
add c 2
goto top
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