/* Logon by The Flash/Cb4! */
ModeZ=4

Parse Arg node
Options results
nodeid="DREAMREXX"node
address value nodeid
signal on error
signal on ioerr
signal on syntax
yel=""
wte=""
cya=""
blu=""
gre=""
red=""
mag=""
CLS=""
call open(CFG,'RAM:T/Security','R')
do
Lin01=STRIP(readln(CFG))
end
call Close(CFG)
if lin01='WRONG' then
do
Transmit ""
CALL FUCK2
end
acc=Result
systeminfo 2
sy=Result
sys=255
Systeminfo 1
BBS=Result
logo='1'
pageflag='0'
dir='Daydream:Configs/Pager.CFG'
if exists(dir) then
do
call open(CFG,'DAYDREAM:Configs/Pager.CFG','R')
do
lin01=STRIP(readln(CFG))
lin02=STRIP(readln(CFG))
lin03=STRIP(readln(CFG))
lin04=STRIP(readln(CFG))
lin05=STRIP(readln(CFG))
lin06=STRIP(readln(CFG))
lin07=STRIP(readln(CFG))
lin08=STRIP(readln(CFG))
end
Call CLose(CFG)
reason=lin01
reas=center(""lin01"",78)
aflag=lin02
spec=lin03
excuseflag=lin04
fnone=lin05
fapage=lin06
fpax=lin07
exon=lin08
mess=CYA"dA mASTER iZ"RED" nOT"CYA" aVAILABLE 4 cHAT"
if aflag=1&Fnone=0 then mess=CYA" dA mASTER iZ aVAILABLE 4 cHAT ! "
end
else
do
systeminfo 9
Avail=Result
mess=CYA"dA mASTER iZ"RED" nOT"CYA" aVAILABLE 4 cHAT"
if Avail="AVAILABLE" then mess=CYA" dA mASTER iZ aVAILABLE 4 cHAT ! "
end
Transmit CLS
Newline
Transmit BLU"       .-------------------------------------------------------------."
Transmit BLU"       ¡"WTE "BBS NAME : "GRE""BBS""BLU"    |"WTE""MESS""BLU"¡"
Transmit BLU"       `-------------------------------------------------------------'"WTE
Newline
SendAny "Daydream:Display/Displaymodelist.txt"
Newline
Transmit BLU"- ---- ---- -----"WTE"("CYA"tHE fLASH "BLU"/"CYA" cB4!"WTE")"BLU"------------------- -----   -- ---- -- --- --"
Newline
LOOP:
Transmit CYA"                                sELECT dISPLAY mODE "
Newline
Transmit RED"                                       <) (>"WTE
ke=1
Loop2:
Transmit wte""ke
GETCHAR
ch=result
chd=c2d(ch)
SELECT
WHEN chd=251 then call DOWN
WHEN chd=250 then call UP
WHEN chd=252 then call UP
WHEN chd=253 then call DOWN
WHEN datatype(ch,n)&ch~=0&ch<=modez then call DoModeZ2
WHEN chd=13 then call DoModeZ
OTHERWISE call LOOP2
END
Down:
ke=ke-1
if ke<1 then ke=ModeZ
Call Loop2
Up:
ke=ke+1
if ke>ModeZ then ke=1
Call Loop2
DoModeZ2:
Transmit wte""Ch
Intcommand 'Mode 'Ch
DoModeZ:
Intcommand 'Mode 'ke
FUCK2:
Shutdown
exit
ioerr:
error:
syntax:
shutdown
exit