home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
SCUM_FPS.ZIP
/
FPSTATS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1994-01-30
|
5KB
|
218 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
;------------------------------------------------------------------------------
Date DATE001
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
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
;------------------------------------------------------------------------------
FOpen 1, PPEPath() + "PCBFPS.CFG", 0, 0
FGet 1, STRING002
FGet 1, INTEGER009
FGet 1, STRING003
FGet 1, STRING004
FGet 1, STRING005
FClose 1
STRING017 = GetEnv("PCBDRIVE") + GetEnv("PCBDIR") + "\FLIST." + String(PcbNode())
STRING014 = 0
INTEGER004 = 0
INTEGER005 = 0
INTEGER006 = 0
STRING012 = 1
INTEGER002 = 1
INTEGER008 = 0
GetUser
STRING020 = U_Notes(3)
Tokenize STRING020
STRING007 = GetToken()
STRING009 = GetToken()
STRING010 = GetToken()
INTEGER001 = STRING009
INTEGER010 = 0
FOpen 1, STRING017, 0, 0
FDefIn 1
FSeek 1, 0, 0
For INTEGER002 = 1 To 100000
INTEGER001 = INTEGER002
FDRead STRING011, 66
If (Ferr(1)) Break
STRING011 = Trim(STRING011, " ")
DATE001 = FileInf(STRING011, 2)
FDRead STRING013, 13
FDRead STRING011, 4
STRING011 = Trim(STRING011, " ")
INTEGER004 = Asc(Left(STRING011, 1))
If (Len(STRING011) > 1) INTEGER005 = 256 * Asc(Mid(STRING011, 2, 1))
If (Len(STRING011) == 3) INTEGER006 = 65536 * Asc(Right(STRING011, 1))
STRING015 = INTEGER004 + INTEGER005 + INTEGER006
INTEGER003 = STRING015 / INTEGER009
INTEGER005 = 0
INTEGER006 = 0
FDRead STRING011, 3
STRING011 = Trim(STRING011, " ")
INTEGER004 = Asc(Left(STRING011, 1))
If (Len(STRING011) > 1) INTEGER005 = 256 * Asc(Mid(STRING011, 2, 1))
If (Len(STRING011) == 3) INTEGER006 = 65536 * Asc(Right(STRING011, 1))
STRING016 = INTEGER004 + INTEGER005 + INTEGER006
FSeek 1, 9, 1
FDRead STRING019, 1
If (Asc(STRING019) == 1) INTEGER003 = 0
INTEGER010 = INTEGER010 + INTEGER003
FDRead STRING018, 1
FDRead STRING011, 1
FSeek 1, 31, 1
Next
STRING008 = INTEGER010
DispStr "@CLS@"
DispStr "@X01╔════════════════[@X04 File Point System @X08by @X01-=\@X0BT@X03he @X0BL@X03iquidater@X01/=- ]══════════════╗"
Newline
DispStr "║ ║"
Newline
DispStr "║ @X03This board uses a FILE POINT / COMMISSION system to control the file @X01║"
Newline
DispStr "║ @X03transfers. Files cost points to download, you earn file points when you @X01║"
Newline
DispStr "║ @X03upload, but you earn most of your points when other users download the @X01║"
Newline
DispStr "║ @X03files you have uploaded! So, it really pays to get the HOT files here @X01║"
Newline
DispStr "║ @X03first so you can earn all the commission. @X01║"
Newline
DispStr "║ ║"
Newline
DispStr "╚═══════════════════════════════════════════════════════════════════════════╝"
Newline
DispStr " @X08[Current Settings]"
Newline
STRING010 = INTEGER009
DispStr " @X02Downloading files cost you @X0B1 @X02file point per @X0B" + STRING010 + " @X02bytes."
Newline
DispStr " You recieve @X0B1 @X02file point per @X0B" + STRING004 + " @X02bytes you upload."
Newline
DispStr " @X02When your uploads are downloaded you recieve @X0B" + STRING005 + "@X02% commission."
Newline
DispStr " @X02New Users are given @X0B" + STRING003 + " @X02file points to start them off."
Newline
Newline
DispStr " @X03You currently have : @X0C" + STRING009 + " @X03file points."
Newline
DispStr " @X03You have flagged files worth @X04@X0C" + STRING008 + " @X03file points."
Newline
INTEGER007 = STRING009
INTEGER001 = INTEGER007 - INTEGER010
STRING006 = INTEGER001
DispStr " @X03Leaving you @X0C" + STRING006 + " @X03available file points."
Newline
Newline
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 3 Goto
; 39 Let
; 7 If
; 2 FOpen
; 1 FClose
; 5 FGet
; 1 GetUser
; 19 Newline
; 1 Tokenize
; 18 DispStr
; 3 FSeek
; 1 FDefIn
; 7 FDRead
;
;
; ■ Functions used :
;
; 4 *
; 1 /
; 24 +
; 1 -
; 3 ==
; 1 <
; 1 <=
; 2 >
; 2 >=
; 1 !
; 2 &&
; 1 ||
; 4 Len(
; 2 Mid()
; 2 Left()
; 2 Right()
; 1 Ferr()
; 7 Asc()
; 3 Trim()
; 1 String()
; 1 PPEPath()
; 1 PcbNode()
; 3 GetToken()
; 2 GetEnv()
; 1 FileInf()
;
;------------------------------------------------------------------------------
;
; Analysis flags : No flag
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------