home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
PIC_PLOG.ZIP
/
PCELOGON.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-03-12
|
9KB
|
464 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
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 TSTRING010(16)
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String STRING025
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String TSTRING039(16)
String TSTRING040(15)
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
;------------------------------------------------------------------------------
FOpen 3, PPEPath() + "PCELOGON.CNF", 2, 0
FGet 3, STRING046
FGet 3, STRING049
FClose 3
FOpen 1, PPEPath() + "STRINGS.DAT", 2, 0
FGet 1, STRING047
FGet 1, STRING045
FGet 1, STRING042
If (Len(STRING042) == 0) STRING042 = "@X0F"
STRING042 = STRING042 + "_"
FGet 1, STRING043
If (Len(STRING043) == 0) STRING043 = "@X0CYou Fucking MORON!"
FGet 1, STRING041
If (Len(STRING041) == 0) STRING041 = "@X09Your Oneliner As been Added"
FGet 1, STRING050
FGet 1, STRING051
FClose 1
STRING046 = Upper(STRING046)
If (STRING046 == "YES") Then
InputStr STRING047, STRING048, 14, 1, "NnYy", 256 + 4096 + 2
STRING048 = Upper(STRING048)
If (STRING048 == "Y") Then
Goto LABEL012
Endif
If (STRING048 == "N") Goto LABEL001
Endif
:LABEL001
FOpen 1, PPEPath() + "LASTCALL.CNF", 2, 0
FGet 1, STRING022
FGet 1, STRING024
FGet 1, STRING023
FGet 1, STRING025
FGet 1, STRING026
FGet 1, INTEGER004
FGet 1, STRING012
FGet 1, STRING035
FGet 1, STRING027
FClose 1
STRING028 = ""
STRING018 = Chr(32)
STRING019 = ""
STRING021 = ""
STRING020 = ""
INTEGER009 = 10
INTEGER010 = 38
INTEGER011 = 70
Gosub LABEL002
GetUser
STRING013 = Mixed(U_Name())
If ((STRING013 == STRING027) || (STRING013 == "SYSOP")) Then
Goto LABEL005
Endif
STRING014 = Mixed(U_City)
STRING015 = Mixed(CallNum())
STRING011 = STRING022 + STRING015
INTEGER006 = INTEGER009 - Len(STRING011)
For INTEGER007 = 1 To INTEGER006
STRING019 = STRING019 + STRING018
Next
STRING016 = Date()
STRING011 = STRING011 + STRING019 + STRING024 + STRING013
INTEGER006 = INTEGER010 - Len(STRING011)
For INTEGER007 = 1 To INTEGER006
STRING020 = STRING020 + STRING018
Next
STRING011 = STRING011 + STRING020 + STRING023 + STRING014
INTEGER006 = INTEGER011 - Len(STRING011)
For INTEGER007 = 1 To INTEGER006
STRING021 = STRING021 + STRING018
Next
STRING017 = Time()
STRING011 = STRING011 + STRING021 + STRING025 + STRING016 + STRING018 + STRING018 + STRING026 + STRING017
TSTRING010(INTEGER008 + 1) = STRING011
INTEGER008 = INTEGER008 + 1
INTEGER005 = INTEGER008
FCreate 1, PPEPath() + "LASTCALLS.DAT", 2, 0
If (INTEGER008 >= INTEGER004) Then
INTEGER008 = 2
While (INTEGER008 <= INTEGER004) Do
FPutLn 1, TSTRING010(INTEGER008)
INTEGER008 = INTEGER008 + 1
EndWhile
ElseIf (INTEGER008 < INTEGER004) Then
INTEGER008 = 0
While (INTEGER008 <= INTEGER005) Do
If (Len(TSTRING010(INTEGER008)) > 0) Then
FPutLn 1, TSTRING010(INTEGER008)
Endif
INTEGER008 = INTEGER008 + 1
EndWhile
Endif
FClose 1
Goto LABEL005
End
:LABEL002
If (Exist(PPEPath() + STRING012)) Then
DispFile PPEPath() + STRING012, 4 + 2 + 1
Else
PrintLn " "
Endif
FOpen 1, PPEPath() + "LASTCALLS.DAT", 2, 0
INTEGER008 = 0
:LABEL003
If (Ferr(1)) Goto LABEL004
FGet 1, STRING011
If (Len(STRING011) > 0) Then
INTEGER008 = INTEGER008 + 1
TSTRING010(INTEGER008) = STRING011
PrintLn TSTRING010(INTEGER008)
Endif
Goto LABEL003
:LABEL004
If (Exist(PPEPath() + STRING035)) Then
DispFile PPEPath() + STRING035, 4 + 2 + 1
Else
PrintLn " "
Endif
FClose 1
More
Return
:LABEL005
INTEGER014 = 0
TSTRING040(0) = ""
TSTRING040(1) = "@X01"
TSTRING040(2) = "@X02"
TSTRING040(3) = "@X03"
TSTRING040(4) = "@X04"
TSTRING040(5) = "@X05"
TSTRING040(6) = "@X06"
TSTRING040(7) = "@X07"
TSTRING040(8) = "@X08"
TSTRING040(9) = "@X09"
TSTRING040(10) = "@X0A"
TSTRING040(11) = "@X0B"
TSTRING040(12) = "@X0C"
TSTRING040(13) = "@X0D"
TSTRING040(14) = "@X0E"
TSTRING040(15) = "@X0F"
STRING044 = "1liner.hlp"
STRING030 = "1LINER.TOP"
STRING035 = "1LINER.BOT"
FOpen 1, PPEPath() + "1liner.cfg", 2, 0
FGet 1, INTEGER012
If ((INTEGER012 < 1) || (INTEGER012 > 16)) INTEGER012 = 16
FGet 1, STRING034
If (Len(STRING034) == 0) STRING034 = "@X05 -> @X07"
FGet 1, STRING038
If ((STRING038 <> "YES") && (STRING038 <> "yes")) Then
STRING037 = ""
Else
STRING037 = "@X07"
Endif
FGet 1, STRING031
FClose 1
GetUser
If (U_Sec < STRING031) Goto LABEL006
If (Exist(PPEPath() + STRING030)) Then
DispFile PPEPath() + STRING030, 4 + 2 + 1
Else
PrintLn "@CLS@@X0BOneliners v@X07.@X0F1 @X07Coded By @X0F Sticky Fingaz & HelioS"
PrintLn "@X08───────────────────────────────────────────────────────────────────────────────"
Endif
FOpen 1, PPEPath() + "1LINER.DAT", 2, 0
INTEGER013 = 1
While (!Ferr(1) && (INTEGER013 <= INTEGER012)) Do
If ((STRING038 <> "YES") && (STRING038 <> "yes")) Then
STRING036 = TSTRING040(0)
Else
STRING036 = TSTRING040(Random(14) + 1)
Endif
FGet 1, STRING032
TSTRING039(INTEGER013) = STRING032
If (Len(STRING032) > 0) Then
PrintLn STRING034 + STRING036 + TSTRING039(INTEGER013) + STRING037
Endif
INTEGER013 = INTEGER013 + 1
EndWhile
If (Exist(PPEPath() + STRING035)) Then
DispFile PPEPath() + STRING035, 4 + 2 + 1
Else
PrintLn " "
Endif
FClose 1
STRING029 = "N"
InputStr STRING045, STRING029, 14, 1, "NnYy", 256 + 4096 + 2
STRING029 = Upper(STRING029)
If (STRING029 == "N") Goto LABEL007
INTEGER014 = 0
If (STRING029 == "Y") Newline
DispFile PPEPath() + "ENTER.PCB", 1
InputStr STRING042, STRING033, 14, 75, Mask_Ascii(), 256
If (STRING033 == "") Then
Newline
Print STRING043
Newline
Goto LABEL007
End
Endif
FCreate 1, PPEPath() + "1LINER.DAT", 2, 0
If (INTEGER013 >= INTEGER012) Then
INTEGER013 = 1
While ((Len(TSTRING039(INTEGER013 + 1)) > 0) && (INTEGER013 <= INTEGER012)) Do
FPutLn 1, TSTRING039(INTEGER013 + 1)
INTEGER013 = INTEGER013 + 1
EndWhile
Endif
FPutLn 1, STRING033
FClose 1
PrintLn "@CLREOL@"
Print STRING041
Goto LABEL007
Log "", 0
:LABEL006
:LABEL007
ClrEol
If (Exist(PPEPath() + "Uploads.pcb")) DispFile PPEPath() + "Uploads.pcb", 1
STRING049 = Upper(STRING049)
If (STRING049 == "YES") Then
Goto LABEL008
Endif
Goto LABEL011
End
:LABEL008
FOpen 1, PPEPath() + "Whosnew.Cnf", 2, 0
FGet 1, INTEGER001
FGet 1, STRING004
FGet 1, STRING005
FGet 1, STRING006
FClose 1
Newline
PrintLn STRING050
INTEGER002 = 1
INTEGER003 = 0
STRING002 = " "
FCreate 1, PPEPath() + "WHOSNEW.DAT", 2, 0
GetUser
STRING003 = U_Name()
:LABEL009
Inc INTEGER003
While (STRING002 <> "") Do
GetAltUser INTEGER002
Inc INTEGER002
STRING002 = U_Name()
If (INTEGER003 == 3) Break
If (STRING002 == STRING003) Goto LABEL009
If ((U_Sec <= INTEGER001) && (U_Sec <> 0)) Gosub LABEL010
EndWhile
FClose 1
FOpen 2, PPEPath() + "whosnew.dat", 2, 0
FGet 2, STRING052
FClose 2
If (STRING052 == "") Then
PrintLn STRING051
Else
Newline
DispFile PPEPath() + "WHOSNEW.TOP", 1
If (Exist(PPEPath() + "WHOSNEW.DAT")) DispFile PPEPath() + "WHOSNEW.DAT", 1
DispFile PPEPath() + "WHOSNEW.BOT", 1
FreshLine
Wait
Goto LABEL011
End
:LABEL010
STRING001 = ""
STRING001 = INTEGER002 - 1
FPutLn 1, STRING004 + "@POS:1@" + STRING001 + "@POS:12@" + STRING005 + Mixed(U_Name()) + "@POS:38@" + STRING006 + Mixed(U_City)
Return
Endif
:LABEL011
FOpen 2, PPEPath() + "colors.dat", 2, 0
FGet 2, STRING007
FGet 2, STRING008
FGet 2, STRING009
FClose 2
Newline
PrintLn STRING007 + "Caller Num." + STRING008 + ": " + STRING009 + "@NUMCALLS@"
PrintLn STRING007 + "Lst Date on" + STRING008 + ": " + STRING009 + "@LASTDATEON@"
PrintLn STRING007 + "Security Lv" + STRING008 + ": " + STRING009 + "@SECURITY@"
PrintLn STRING007 + "# times on " + STRING008 + ": " + STRING009 + "@NUMTIMESON@"
PrintLn STRING007 + "Ratio DL/UL" + STRING008 + ": " + STRING009 + "@FILERATIO@"
PrintLn STRING007 + "# Downloads" + STRING008 + ": " + STRING009 + "@DLFILES@"
PrintLn STRING007 + "# Uploads " + STRING008 + ": " + STRING009 + "@UPFILES@"
PrintLn STRING007 + "Bytes DL'd " + STRING008 + ": " + STRING009 + "@DLBYTES@"
PrintLn STRING007 + "Bytes UL'd " + STRING008 + ": " + STRING009 + "@UPBYTES@"
PrintLn STRING007 + "Online Baud" + STRING008 + ": " + STRING009 + "@BPS@"
PrintLn STRING007 + "Bytes Avail" + STRING008 + ": " + STRING009 + "@BYTESLEFT@"
PrintLn STRING007 + "Last Caller" + STRING008 + ": " + STRING009 + "@LASTCALLERSYSTEM@"
PrintLn STRING007 + "System time" + STRING008 + ": " + STRING009 + "@SYSTIME@"
PrintLn STRING007 + "System Date" + STRING008 + ": " + STRING009 + "@SYSDATE@"
Newline
End
:LABEL012
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 End
; 1 ClrEol
; 1 More
; 1 Wait
; 58 Goto
; 87 Let
; 2 Print
; 24 PrintLn
; 41 If
; 9 DispFile
; 3 FCreate
; 9 FOpen
; 12 FClose
; 32 FGet
; 5 FPutLn
; 3 GetUser
; 1 Log
; 3 InputStr
; 2 Gosub
; 2 Return
; 2 Inc
; 7 Newline
; 1 FreshLine
; 1 GetAltUser
;
;
; ■ Functions used :
;
; 151 +
; 4 -
; 16 ==
; 6 <>
; 6 <
; 8 <=
; 5 >
; 8 >=
; 28 !
; 11 &&
; 5 ||
; 11 Len(
; 4 Upper()
; 2 Ferr()
; 1 Chr()
; 1 Random()
; 1 Date()
; 1 Time()
; 4 U_Name()
; 1 Mask_Ascii()
; 27 PPEPath()
; 6 Exist()
; 1 CallNum()
; 5 Mixed()
;
;------------------------------------------------------------------------------
;
; Analysis flags : R
;
; R - Read user ■ 5
; User records are read, this may signify that someone wants to get
; various informations about a user (for example his password), but
; this may also be normal for a program accessing user records (for
; example a User Editor)
; ■ Search for : GETALTUSER
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 3 For/Next
; 5 While/EndWhile
; 18 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------