So I have a logon script I coded for my bbs some time ago... Today I decided
to add a quick logon feature but no matter what the user chooses, it doesnt
work. can someone help me figure out why?
# logon.src
# Synchronet v2.20 Logon Module
# $Id: logon.src,v 1.7 2001/07/29 19:15:17 rswindell Exp $
# @format.tab-size 8, @format.use-tabs true
!include sbbsdefs.inc
or _node_misc NM_NOPAUSESPIN# Disable spinning cursor at pause prompts
compare_ars rest G
if_true
:get_name
print "\1y\1hFor our records, please enter your full name: \1w"
getname 25
compare_str ""
if_true
goto get_name
end_if
log "Guest: "
logstr
set_user_string user_string_realname
:get_loc
print "\1y\1hPlease enter your location (City, State): \1w"
getname 30
compare_str ""
if_true
goto get_loc
end_if
log " "
logstr
set_user_string user_string_location
#:get_phone
#print "\1y\1hPlease enter your voice telephone number: "
#get_template nnn-nnn-nnnn
#compare_str ""
#if_true
#goto get_phone
#end_if
#log " "
#logstr
#set_user_string user_string_phone
log "\r\n"
:get_mag
print "e
:logon_event
cls
user_event event_logon
end_cmd
menu quick
no_yes quick logon?
if_false goto end
end_if
end_cmd
:next
#
cls
menu nrk
end_cmd
cls
menu acidic
end_cmd
#sysop notices
cls
PRINTFILE "c:\sbbs\text\sysnews.ans"
print "|07loading sysop notices|03.eSETSTR "Sysop"
MSG_SET_AREA
MSG_NEW_SCAN_SUB
End_Cmd
#exec_bin bionews
# Last few callers
cls
exec_xtrn "lastcall"
end_cmd
#auto message
cls
PRINTFILE "c:\sbbs\text\autom.ans"
PRINTFILE "c:\sbbs\data\msgs\auto.msg"
crlf
crlf
pause
end_cmd
# Oneliners
cls
PRINTFILE "c:\sbbs\text\onel.ans"
print "|07loading the local onelinerz|03.ecls
exec_bin oneliner
end_cmd
#exec_xtrn syncwall
#exec_xtrn one
exec_bin bullseye
end_cmd
:nomore
:end
cls
# Automatically set shell to WIPSHELL
compare_user_misc UM_WIP
if_true
setstr "WIPSHELL"
set_shell
end_if
menu mailr
thanks!
Dribble
---
■ Synchronet ■ Lunatic Fringe - lunatic.zapto.org
|
