Metropoli BBS - login.bak

VIEWER: login.bak MODE: TEXT (LATIN1)
;------------------------------------------------------------------------------
;        ___________      _______________________        _____________         
;[=======\          \====/          /           /_____  /            /=======] 
; ::::::::\  ______  \::/  \_____  /  _______  /______)/  \_______  /::::::::  
; ::kL!:::_\/    _/   \/   ___)__\/   \      \/        \_________ \/:::::::::  
; ::::::::\     __     \_  \      \_   \_     \_        \_      /  \_::::::::  
;[=========\_____/______/__________/___________/_________/__________/========] 
;                                                                              
;                      C          O          R          P                      
;------------------------------------------------------------------------------
; P.P.L.X. 1.7O                          (C)1995 - Lone Runner / AEGiS CoRP'95 
;------------------------------------------------------------------------------
; PPE 3.2O (crypted) - Analysis OFF
;------------------------------------------------------------------------------

    Integer  INTEGER002
    Integer  INTEGER003
    Integer  INTEGER004
    Integer  INTEGER005
    Integer  INTEGER006
    Integer  INTEGER007
    Integer  INTEGER008
    Integer  INTEGER009
    Integer  INTEGER010
    Integer  INTEGER011
    Integer  INTEGER012
    Integer  INTEGER013
    Integer  INTEGER014
    String   STRING001
    String   STRING002
    String   STRING003
    String   STRING004
    String   STRING005
    String   STRING006
    String   STRING007
    String   STRING008
    String   STRING009
    String   STRING010
    String   STRING011
    String   STRING012
    String   STRING013
    String   STRING014
    String   STRING015
    String   STRING016
    String   STRING017
    String   STRING018
    String   STRING019
    String   STRING020

;------------------------------------------------------------------------------

    Cls
    STRING001 = 0
    INTEGER002 = 0
    If (Exist(PPEPath() + "LOGIN.CFG")) Goto LABEL000
    AnsiPos 0, 1
    PrintLn "@X09c@X01ReATE cOnFIg fILeZ!"
    FCreate 1, PPEPath() + "LOGIN.CFG", 1, 0
    FPutLn 1, "YES"
    FPutLn 1, "3"
    FPutLn 1, "NEW_USER_PASSWORD"
    FPutLn 1, "3"
    FPutLn 1, "YES"
    FPutLn 1, "------------------------------------------------"
    FPutLn 1, "þLINE 1þ IS THE SYSTEM PRIVATE YES \ NO \ NUP"
    FPutLn 1, "þLINE 2þ NUMBER OF PW TRIES"
    FPutLn 1, "þLINE 3þ YOUR NEW USER PASSWORD, 'NONE' IF DISABLED"
    FPutLn 1, "þLINE 4þ NUMBER OF NUP TRIES"
    FPutLn 1, "þLINE 5þ SHOULD COMMENTS BE DISPLAYED YES \ NO"
    FPutLn 1, ""
    FPutLn 1, "gAtE lOgOn 0.9 c0DeD by bASEl.lSD gRoUp.972-6-6742585."
    FClose 1
    FCreate 3, PPEPath() + "COMMENTS.USR", 1, 0
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, ""
    FPutLn 3, "-------------------------------------------------------------------------------"
    FPutLn 3, "þLINE 01-10þ THE SECURITY LV'S ON WHICH COMMENTS SHOULD DISPLAYED"
    FPutLn 3, "þLINE 11-20þ THE COMMENTS TO BE SHOWN."
    FPutLn 3, "þLINE 21þ STRING TO DISPLAY TO USER THAT HASN'T ANY OF THE LEVELS ON LINE 1-10"
    FPutLn 3, "þþIMPORTANTþþ THE LEVEL ON LINE 1 GETS COMMENT ON LINE 11 AND THE"
    FPutLn 3, "þþIMPORTANTþþ LEVEL ON LINE 2 GETS COMMENT ON 12 , AND SO ON.."
    FPutLn 3, "þþIMPORTANTþþ DON'T GET IT? THEN DON'T USE IT!"
    FPutLn 3, "YOU CAN DISABLE THIS FEATURE BY PUTTING 'NO' ON LINE 5 IN LOGON.CFG"
    FPutLn 3, "IF YOU DO þNOþ LEVELS WILL GET COMMENTS DISPLAYED!"
    FPutLn 3, ""
    FPutLn 3, "gAtE lOgOn 0.9 c0DeD by bASEl.lSD gRoUp.972-6-6742585."
    FClose 3
    Delay 10
    AnsiPos 21, 1
    PrintLn "@X08[DONE]"
    Delay 13
    Cls
:LABEL000
    FOpen 2, PPEPath() + "LOGIN.CFG", 0, 0
    FGet 2, STRING002
    FGet 2, INTEGER003
    FGet 2, STRING007
    FGet 2, INTEGER004
    FGet 2, STRING019
    FClose 2
    FOpen 4, PPEPath() + "COMMENTS.USR", 0, 0
    FGet 4, INTEGER005
    FGet 4, INTEGER006
    FGet 4, INTEGER007
    FGet 4, INTEGER008
    FGet 4, INTEGER009
    FGet 4, INTEGER010
    FGet 4, INTEGER011
    FGet 4, INTEGER012
    FGet 4, INTEGER013
    FGet 4, INTEGER014
    FGet 4, STRING009
    FGet 4, STRING010
    FGet 4, STRING011
    FGet 4, STRING012
    FGet 4, STRING013
    FGet 4, STRING014
    FGet 4, STRING015
    FGet 4, STRING016
    FGet 4, STRING017
    FGet 4, STRING018
    FGet 4, STRING020
    FClose 4
    AnsiPos 0, 0
    If (Exist(PPEPath() + "GATE.PCB")) Goto LABEL011
    AnsiPos 1, 1
    PrintLn "@X01DISPLAY FILE MISSING! NOTIFY SYSOP TO PUT A FILE CALLED @X09gate.pcb"
    PrintLn "@X01IN THE SAME DIR AS THE PPE!"
:LABEL001
    AnsiPos 16,10      
    PrintLn "                                                                     "
    AnsiPos 26, 5
    InputStr "_", STRING004, 8, 20, Mask_Alpha() + " ", 8 + 64
    If ((STRING004 == "doom.WOW")) Goto LABEL012
    If ((U_RecNum(STRING004) == -1)) Goto LABEL006
    AnsiPos 26, 5
    PrintLn "@X01", STRING004, ""
    Delay 2
    AnsiPos 26, 5
    PrintLn "@X09", STRING004, ""
    Delay 2
    AnsiPos 26, 5
    PrintLn "@X0F", STRING004, ""
    Delay 2
    AnsiPos 26, 5
    PrintLn "@X09", STRING004, ""
    Delay 2
    AnsiPos 26, 5
    PrintLn "@X01", STRING004, ""
    Delay 2
    AnsiPos 26, 5
    PrintLn "@X08", STRING004, ""
    GetAltUser U_RecNum(STRING004)
    AnsiPos 26, 7
    PrintLn "@X08", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X01", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X09", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X0F", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X09", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X01", U_City, ""
    Delay 2
    AnsiPos 26, 7
    PrintLn "@X08", U_City, ""
    AnsiPos 32, 17
    If (((STRING019 == "NO") || (STRING019 == "no"))) Goto LABEL002
    If ((U_Sec == INTEGER005)) PrintLn "", STRING009, ""
    If ((U_Sec == INTEGER006)) PrintLn "", STRING010, ""
    If ((U_Sec == INTEGER007)) PrintLn "", STRING011, ""
    If ((U_Sec == INTEGER008)) PrintLn "", STRING012, ""
    If ((U_Sec == INTEGER009)) PrintLn "", STRING013, ""
    If ((U_Sec == INTEGER010)) PrintLn "", STRING014, ""
    If ((U_Sec == INTEGER011)) PrintLn "", STRING015, ""
    If ((U_Sec == INTEGER012)) PrintLn "", STRING016, ""
    If ((U_Sec == INTEGER013)) PrintLn "", STRING017, ""
    If ((U_Sec == INTEGER014)) PrintLn "", STRING018, ""
    If (((((((((((U_Sec <> INTEGER005) && (U_Sec <> INTEGER006)) && (U_Sec <> INTEGER007)) && (U_Sec <> INTEGER008)) && (U_Sec <> INTEGER009)) && (U_Sec <> INTEGER010)) && (U_Sec <> INTEGER011)) && (U_Sec <> INTEGER012)) && (U_Sec <> INTEGER013)) && (U_Sec <> INTEGER014))) PrintLn "", STRING020, ""
    Goto LABEL003
:LABEL002
    AnsiPos 32, 17
    PrintLn "@X01cOmmEnTeS dIsBaLeD"
:LABEL003
    If (!(INTEGER002 < INTEGER003)) Goto LABEL004
    AnsiPos 26, 6
    InputStr "_", STRING006, 8, 12, Mask_Pwd(), 1 + 8
    If ((STRING006 == U_Pwd)) Goto LABEL005
    AnsiPos 26, 6
    PrintLn "@X01wRoNg!"
    Delay 7
    AnsiPos 26, 6
    PrintLn "         "
    INTEGER002 = INTEGER002 + 1
    Goto LABEL003
:LABEL004
    AnsiPos 26, 6
    PrintLn "@X01fUcK 0fF"
    Hangup
:LABEL005
    Cls
    Color 0
    KbdStuff STRING004 + Chr(13)
    KbdStuff Chr(13)
    KbdStuff STRING006 + Chr(13)
    ansipos 13, 11
	delay 1
	ansipos 13, 11
println "@X0FgAtE@X09 lOg@X01On 0.9 c0DeD by bASEl/lSD gRoUp.972-6-6742585!"
delay 2
	ansipos 13, 11
println "@X09gAtE@X0F lOg@X09On 0@X01.9 c0DeD by bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE@X09 lOg@X0FOn 0@X09.9 c@X010DeD by bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOg@X09On 0@X0F.9 c@X090DeD@X01 by bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0@X09.9 c@X0F0DeD@X09 by @X01bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c@X090DeD@X0F by @X09bASE@X01l/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD@X09 by @X0FbASE@X09l/lS@X01D gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by @X09bASE@X0Fl/lS@X09D gR@X01oUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASE@X09l/lS@X0FD gR@X09oUp.@X01972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lS@X09D gR@X0FoUp.@X09972-@X016-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lSD gR@X09oUp.@X0F972-@X096-67@X0142585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lSD gRoUp.@X09972-@X0F6-67@X094258@X015!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lSD gRoUp.972-6-67@X0F4258@X095!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lSD gRoUp.@X09972-@X0F6-67@X094258@X015!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lSD gR@X09oUp.@X0F972-@X096-67@X0142585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASEl/lS@X09D gR@X0FoUp.@X09972-@X016-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by bASE@X09l/lS@X0FD gR@X09oUp.@X01972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD by @X09bASE@X0Fl/lS@X09D gR@X01oUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c0DeD@X09 by @X0FbASE@X09l/lS@X01D gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0.9 c@X090DeD@X0F by @X09bASE@X01l/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOgOn 0@X09.9 c@X0F0DeD@X09 by @X01bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE lOg@X09On 0@X0F.9 c@X090DeD@X01 by bASEl/lSD gRoUp.972-6-6742585!"
	delay 2
	ansipos 13, 11
println "@X01gAtE@X09 lOg@X0FOn 0@X09.9 c@X010DeD by bASEl/lSD gRoUp.972-6-6742585!"
delay 2
	ansipos 13, 11
println "@X09gAtE@X0F lOg@X09On 0@X01.9 c0DeD by bASEl/lSD gRoUp.972-6-6742585!"
	delay 1
	ansipos 13, 11
println "@X0FgAtE@X09 lOg@X01On 0.9 c0DeD by bASEl/lSD gRoUp.972-6-6742585!"
    Stop
:LABEL006
    If (((STRING002 == "YES") || (STRING002 == "yes"))) Goto LABEL008
    If (((STRING002 == "NUP") || (STRING002 == "nup"))) Goto LABEL009
:LABEL007
    AnsiPos 20, 10
    PrintLn "                                                   "
    AnsiPos 20, 10
    InputStr "@X08(@X0FR@X08)EENTER OR (@X0FC@X08)ONTINUE AS NEW USER", STRING005, 8, 1, "RrCc", 2 + 8
    If ((((STRING005 == "R") || (STRING005 == "r")) || (STRING005 == " "))) Goto LABEL000
    KbdStuff STRING004 + Chr(13)
    KbdStuff Chr(13)
    KbdStuff STRING005 + Chr(13)
    Stop
:LABEL008
    AnsiPos 14, 19
    InputStr "@X08THIS IS A PRIVATE SYSTEM (@X0FH@X08)ANG UP OR (@X0FR@X08)EENTER", STRING003, 8, 1, "RrHh", 2 + 8
    If ((((STRING003 == "R") || (STRING003 == "r")) || (STRING003 == " "))) Goto LABEL000
    Hangup
    Stop
:LABEL009
    If (!(STRING001 < INTEGER004)) Goto LABEL010
    AnsiPos 30, 19
    InputStr "@X08GIMME FIRST THE NUP:_", STRING008, 8, Len(STRING007) + 2, Mask_Ascii(), 1 + 8
    If ((STRING008 == STRING007)) Goto LABEL007
    AnsiPos 26, 6
    PrintLn "@X04NOPE!"
    Delay 4
    AnsiPos 26, 6
    PrintLn "       "
    STRING001 = STRING001 + 1
    Goto LABEL009
:LABEL010
    AnsiPos 30, 19
    PrintLn "                                                        "
    AnsiPos 26, 19
    PrintLn "@X0FBEFORE TRYING AGAIN GET THE NUP"
    Hangup
:LABEL011
    AnsiPos 0, 0
    DispFile PPEPath() + "GATE.PCB", 1
    Goto LABEL001
:LABEL012
    GetUser
    U_Sec = SysopSec()
    PutUser

;------------------------------------------------------------------------------
;
; Statements used :
;
;    3       Cls
;    1       Color 
;    17      Goto 
;    5       Let 
;    54      PrintLn 
;    24      If 
;    1       DispFile 
;    2       FCreate 
;    2       FOpen 
;    4       FClose 
;    26      FGet 
;    45      FPutLn 
;    3       Hangup
;    1       GetUser
;    1       PutUser
;    5       InputStr 
;    31      Delay 
;    3       Stop
;    6       KbdStuff 
;    50      AnsiPos 
;    1       GetAltUser 
;
;
; Functions used :
;
;    1       -
;    20      +
;    26      ==
;    10      <>
;    2       <
;    2       !
;    9       &&
;    7       ||
;    1       Len(
;    6       Chr()
;    1       Mask_Pwd()
;    1       Mask_Alpha()
;    1       Mask_Ascii()
;    7       PPEPath()
;    1       SysopSec()
;    2       Exist()
;    2       U_RecNum()
;
;------------------------------------------------------------------------------
;                        Dedicated to pure anarchists all around the world...  
;------------------------------------------------------------------------------
[ RETURN TO DIRECTORY ]