home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCUM_LN2.ZIP / SCUMLINE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-07-12  |  4KB  |  262 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   TSTRING010(1000)
  34.     String   STRING011
  35.     String   STRING012
  36.     String   STRING013
  37.     String   STRING014
  38.     String   STRING015
  39.     String   STRING016
  40.     String   STRING017
  41.     String   STRING018
  42.  
  43. ;------------------------------------------------------------------------------
  44.  
  45.     :LABEL001
  46.     Cls
  47.     INTEGER001 = ReadLine(PPEPath() + "SCUMLINE.CFG", 1)
  48.     STRING001 = ReadLine(PPEPath() + "SCUMLINE.CFG", 2)
  49.     STRING002 = ReadLine(PPEPath() + "SCUMLINE.CFG", 3)
  50.     STRING003 = ReadLine(PPEPath() + "SCUMLINE.CFG", 4)
  51.     STRING004 = ReadLine(PPEPath() + "SCUMLINE.CFG", 5)
  52.     STRING017 = ReadLine(PPEPath() + "SCUMLINE.CFG", 6)
  53.     STRING018 = ReadLine(PPEPath() + "SCUMLINE.CFG", 7)
  54.     STRING011 = ReadLine(PPEPath() + "SCUMLINE.CFG", 8)
  55.     STRING015 = ReadLine(PPEPath() + "SCUMLINE.CFG", 9)
  56.     STRING013 = ReadLine(PPEPath() + "SCUMLINE.CFG", 10)
  57.     INTEGER005 = ReadLine(PPEPath() + "SCUMLINE.CFG", 11)
  58.     STRING016 = ReadLine(PPEPath() + "SCUMLINE.CFG", 12)
  59.     STRING005 = PPEPath() + "SCUMLINE.DAT"
  60.     If (Exist(STRING005)) Goto LABEL002
  61.     FCreate 5, STRING005, 1, 0
  62.     For INTEGER002 = 1 To INTEGER001
  63.         INTEGER003 = Random(2)
  64.         Select Case (INTEGER003)
  65.             Case 0
  66.                 STRING009 = "@X07S@X08cum @X09K@X01icks @X0FA@X07ss!@X08"
  67.             Case 1
  68.                 STRING009 = "@X0CS@X04CuM 94' @X0CR@X04ocks!@X08"
  69.             Case 2
  70.                 STRING009 = "@X0AS@X02cumliners @X0AB@X02y: @X0Br@X03y0  @X0DS@X05CuM @X0DP@X05roductions 94'@X08"
  71.         End Select
  72.         FPutLn 5, STRING009
  73.     Next
  74.     FClose 5
  75.     :LABEL002
  76.     If (Exist(PPEPath() + "SCUMLINE.TOP")) Then
  77.         Cls
  78.         StartDisp 1
  79.         DispFile PPEPath() + "SCUMLINE.TOP", 1
  80.     Endif
  81.     AnsiPos 1, GetY() - 1
  82.     For INTEGER002 = 1 To INTEGER001
  83.         STRING008 = ReadLine(STRING005, INTEGER002)
  84.         PrintLn STRING002, " ", STRING001, STRING008
  85.     Next
  86.     If (Exist(PPEPath() + "SCUMLINE.BOT")) Then
  87.         StartDisp 1
  88.         DispFile PPEPath() + "SCUMLINE.BOT", 1
  89.     Endif
  90.     AnsiPos 1, GetY() + 1
  91.     GetUser
  92.     If ((STRING013 == "YES") && (U_Sec > INTEGER005)) Then
  93.         STRING003 = STRING017
  94.     Endif
  95.     InputStr STRING003 + " _", STRING006, 0, 1, "eqEQWw", 8
  96.     If (STRING006 == "E") Goto LABEL004
  97.     If (STRING006 == "W") Goto LABEL003
  98.     If ((STRING006 <> "W") && (STRING006 <> "E")) Goto LABEL007
  99.     :LABEL003
  100.     GetUser
  101.     If (STRING013 <> "YES") Goto LABEL001
  102.     If (!(U_Sec >= INTEGER005)) Goto LABEL001
  103.     If (!Exist(PPEPath() + "WHO.DAT")) Gosub LABEL009
  104.     Cls
  105.     If (Exist(PPEPath() + "SCUMLINE.TOP")) Then
  106.         DispFile PPEPath() + "SCUMLINE.TOP", 1
  107.     Endif
  108.     AnsiPos GetX(), GetY() - 1
  109.     DispFile PPEPath() + "WHO.DAT", 1
  110.     If (Exist(PPEPath() + "SCUMLINE.BOT")) Then
  111.         DispFile PPEPath() + "SCUMLINE.BOT", 1
  112.     Endif
  113.     Wait
  114.     Goto LABEL001
  115.     :LABEL004
  116.     Cls
  117.     PrintLn "                               @X08Scumliners..@X08 v2.0                             "
  118.     PrintLn "                         By: @X0Br@X03y0 @X08== @X0CS@X04CuM Productions 94'    @X08                  "
  119.     PrintLn 
  120.     InputStr STRING004 + " _", STRING007, 0, 75, Mask_Ascii(), 0
  121.     :LABEL005
  122.     FOpen 7, PPEPath() + "SCUMLINE.DAT", 0, 0
  123.     For INTEGER002 = 1 To INTEGER001
  124.         FGet 7, TSTRING010(INTEGER002)
  125.     Next
  126.     FClose 7
  127.     TSTRING010(INTEGER001 + 1) = STRING007
  128.     FCreate 4, PPEPath() + "SCUMLINE.DAT", 1, 0
  129.     For INTEGER002 = 2 To INTEGER001 + 1
  130.         FPutLn 4, TSTRING010(INTEGER002)
  131.     Next
  132.     FClose 4
  133.     If (STRING013 == "YES") Then
  134.         If (!Exist(PPEPath() + "WHO.DAT")) Gosub LABEL009
  135.         FOpen 3, PPEPath() + "WHO.DAT", 2, 0
  136.         For INTEGER002 = 1 To INTEGER001
  137.             FGet 3, TSTRING010(INTEGER002)
  138.         Next
  139.         FClose 3
  140.         FCreate 4, PPEPath() + "WHO.DAT", 1, 0
  141.         For INTEGER002 = 2 To INTEGER001
  142.             FPutLn 4, TSTRING010(INTEGER002)
  143.         Next
  144.         If (STRING007 == STRING015) Then
  145.             STRING014 = "@X0FA@X07uto-@X0FA@X07dvertised @X0FW@X07ith @X0CS@X04cumline v2.o By @X0Br@X03y0!@X08"
  146.             Goto LABEL006
  147.         Endif
  148.         STRING014 = U_Name()
  149.         :LABEL006
  150.         FPutLn 4, STRING016 + STRING014
  151.         FClose 4
  152.     Endif
  153.     Goto LABEL001
  154.     :LABEL007
  155.     If (Upper(STRING018) == "YES") STRING012 = PPEPath() + "COUNTER.DAT"
  156.     If (Exist(STRING012)) Goto LABEL008
  157.     FCreate 1, PPEPath() + "COUNTER.DAT", 2, 0
  158.     FPutLn 1, 0
  159.     FClose 1
  160.     :LABEL008
  161.     FOpen 2, PPEPath() + "COUNTER.DAT", 2, 0
  162.     FGet 2, INTEGER004
  163.     If (INTEGER004 >= STRING011) Then
  164.         INTEGER004 = 0
  165.         Frewind 2
  166.         FPutLn 2, INTEGER004
  167.         FClose 2
  168.         STRING007 = STRING015
  169.         GetAltUser 1
  170.         Goto LABEL005
  171.     Else
  172.         Inc INTEGER004
  173.         Frewind 2
  174.         FPutLn 2, INTEGER004
  175.         FClose 2
  176.     Endif
  177.     End
  178.     :LABEL009
  179.     FCreate 1, PPEPath() + "WHO.DAT", 1, 0
  180.     For INTEGER002 = 1 To INTEGER001
  181.         FPutLn 1, "@X0CEXISTED BEFORE WHO.DAT WAS ENABLED@X08"
  182.     Next
  183.     FClose 1
  184.     Return
  185.  
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Usage report (before postprocessing)
  189. ;
  190. ; ■ Statements used :
  191. ;
  192. ;    1       End
  193. ;    4       Cls
  194. ;    1       Wait
  195. ;    39      Goto 
  196. ;    39      Let 
  197. ;    4       PrintLn 
  198. ;    28      If 
  199. ;    5       DispFile 
  200. ;    5       FCreate 
  201. ;    3       FOpen 
  202. ;    9       FClose 
  203. ;    3       FGet 
  204. ;    8       FPutLn 
  205. ;    2       StartDisp 
  206. ;    2       GetUser
  207. ;    2       InputStr 
  208. ;    2       Gosub 
  209. ;    1       Return
  210. ;    1       Inc 
  211. ;    3       AnsiPos 
  212. ;    2       Frewind 
  213. ;    1       GetAltUser 
  214. ;
  215. ;
  216. ; ■ Functions used :
  217. ;
  218. ;    46      +
  219. ;    2       -
  220. ;    9       ==
  221. ;    3       <>
  222. ;    7       <
  223. ;    7       <=
  224. ;    1       >
  225. ;    16      >=
  226. ;    22      !
  227. ;    16      &&
  228. ;    7       ||
  229. ;    1       Upper()
  230. ;    1       Random()
  231. ;    1       U_Name()
  232. ;    1       Mask_Ascii()
  233. ;    32      PPEPath()
  234. ;    13      ReadLine()
  235. ;    8       Exist()
  236. ;    1       GetX()
  237. ;    3       GetY()
  238. ;
  239. ;------------------------------------------------------------------------------
  240. ;
  241. ; Analysis flags : R
  242. ;
  243. ; R - Read user ■ 5
  244. ;     User records are read, this may signify that someone wants to get
  245. ;     various informations about a user (for example his password), but
  246. ;     this may also be normal for a program accessing user records (for
  247. ;     example a User Editor)
  248. ;     ■ Search for : GETALTUSER
  249. ;
  250. ;------------------------------------------------------------------------------
  251. ;
  252. ; Postprocessing report
  253. ;
  254. ;    7       For/Next
  255. ;    0       While/EndWhile
  256. ;    8       If/Then or If/Then/Else
  257. ;    1       Select Case
  258. ;
  259. ;------------------------------------------------------------------------------
  260. ;                 AEGiS Corp - Break the routines, code against the machines!
  261. ;------------------------------------------------------------------------------
  262.