# $ID IP.SRC KJones Exp $
#DragonNet Ip Sorter v1.00. Written in SynchroNet Baja. Please share
responsibly and give credit where it is due..
!include nodedefs.inc
!include sbbsdefs.inc
!include userdefs.inc
:Top
print "Scanning for your BBS Menu.."
CLS
print " Please listen Closely, as our menu options have changed <Grin>...."
CLS
:bbs1
COMPARE_SUBSTR _cid "199.15.249.45"
IF_TRUE
print "Transferring you to Local Yocal BBS Shell."
exec_bin "yocal"
else
:bbs2
COMPARE_SUBSTR _cid "192.168.1.45"
IF_TRUE
print "Transferring you to Eye of the Hurricane BBS Shell."
CLS
exec_bin "eoth"
else
:bbs3
COMPARE_SUBSTR _cid "67.8.168.95"
IF_TRUE
print "Transferring you to After Hours BBS Shell."
exec_bin "ahbbs"
else
:bbs4
COMPARE_SUBSTR _cid "71.224.53.242"
IF_TRUE
print "Transferring you to BattleStar BBS Shell."
exec_bin "bsbbs"
else
:bbs5
COMPARE_SUBSTR _cid "69.174.134.91"
IF_TRUE
print "Transferring you to Electronic Warfare BBS Shell."
exec_bin "ewbbs"
else
CLS
:notsure
print "Sorry, I couldn't find your BBS Command
Shell"
yes_no Are you sure that you are calling from
a registered BBS
if_true
goto top
else
Print "We are now disconnecting you, Please
ask your SysOp for details..."
hangup
:end
end_if
end_if
--- Virtual Advanced Ver 2 for DOS
* Origin: GatorNet HQ BBS (57:57/0)
|
