home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / XLEECH01.ZIP / XLEECH01.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1997-01-27  |  6KB  |  308 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.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     Tokenize TokenStr()
  42.     STRING001 = GetToken()
  43.     If (STRING001 == "") While (Upper(STRING001) == "/RANDOM") INTEGER001 = Random(100)
  44.     While ((Upper(STRING001) == "/ANSI")) INTEGER001 = 0
  45.     While ((Upper(STRING001) == "/AMI")) INTEGER001 = 1
  46.     INTEGER001 = Random(2)
  47.     If (INTEGER001 == 0) Goto LABEL001
  48.     If (INTEGER001 == 1) Goto LABEL013
  49.     If (INTEGER001 >= 50) Goto LABEL001
  50.     If (INTEGER001 <= 50) Goto LABEL013
  51.     End
  52.     :LABEL001
  53.     Log "@X0FRunning XLeech V0.1 at time : " + String(Time()), 0
  54.     If (!Exist(PPEPath() + "xlch-ans.cfg") || PPEPath() + "xlch-ans.pcb") Print "@CLS@"
  55.     PrintLn "@X0Ce@X04rror@X08! @X0CE@X04ither the Connfiguration or the Graphics file needed by XLeech V0.1"
  56.     PrintLn "@X04was not found in the path@X08: @X0C" + PPEPath()
  57.     PrintLn "@X0CP@X04lease notify the @X0CSysOp @X04A.S.A.P@X08!!"
  58.     PrintLn ""
  59.     Wait
  60.     End
  61.     FOpen 1, PPEPath() + "xlch-ans.cfg", 2, 0
  62.     FGet 1, STRING002
  63.     FGet 1, STRING003
  64.     FGet 1, STRING004
  65.     FGet 1, STRING005
  66.     FGet 1, STRING008
  67.     FGet 1, STRING014
  68.     FClose 1
  69.     Tokenize STRING002
  70.     STRING006 = GetToken()
  71.     STRING007 = GetToken()
  72.     INTEGER002 = STRING006
  73.     INTEGER003 = STRING007
  74.     STRING009 = STRING004 + "    " + STRING003 + "  Start leechin'  " + STRING004 + "   View/nuke tagged files      Change prot.      Exit  "
  75.     STRING010 = STRING004 + "      Start leechin'   " + STRING003 + "  View/nuke tagged files  " + STRING004 + "    Change prot.      Exit  "
  76.     STRING011 = STRING004 + "      Start leechin'     View/nuke tagged files    " + STRING003 + "  Change prot.  " + STRING004 + "    Exit  "
  77.     STRING012 = STRING004 + "      Start leechin'     View/nuke tagged files      Change prot.    " + STRING003 + "  Exit  " + STRING004
  78.     INTEGER004 = 1
  79.     Print "@CLS@@POFF@"
  80.     DispFile PPEPath() + "xlch-ans.pcb", 1
  81.     AnsiPos INTEGER002, INTEGER003 - 1
  82.     Print STRING008
  83.     AnsiPos INTEGER002, INTEGER003 + 1
  84.     Print STRING014
  85.     :LABEL002
  86.     AnsiPos INTEGER002, INTEGER003
  87.     Print STRING009
  88.     :LABEL003
  89.     STRING013 = ""
  90.     While ((STRING013 == "")) STRING013 = Inkey()
  91.     If (STRING013 == Chr(27)) End
  92.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL004
  93.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL008
  94.     If (STRING013 == Chr(13)) Goto LABEL009
  95.     Goto LABEL003
  96.     :LABEL004
  97.     AnsiPos INTEGER002, INTEGER003
  98.     Print STRING010
  99.     :LABEL005
  100.     STRING013 = ""
  101.     While ((STRING013 == "")) STRING013 = Inkey()
  102.     If (STRING013 == Chr(27)) End
  103.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL006
  104.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL002
  105.     If (STRING013 == Chr(13)) Goto LABEL010
  106.     Goto LABEL005
  107.     :LABEL006
  108.     AnsiPos INTEGER002, INTEGER003
  109.     Print STRING011
  110.     :LABEL007
  111.     STRING013 = ""
  112.     While ((STRING013 == "")) STRING013 = Inkey()
  113.     If (STRING013 == Chr(27)) End
  114.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL008
  115.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL004
  116.     If (STRING013 == Chr(13)) Goto LABEL011
  117.     Goto LABEL007
  118.     :LABEL008
  119.     AnsiPos INTEGER002, INTEGER003
  120.     Print STRING012
  121.     STRING013 = ""
  122.     While ((STRING013 == "")) STRING013 = Inkey()
  123.     If (STRING013 == Chr(27)) End
  124.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL002
  125.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL006
  126.     If (STRING013 == Chr(13)) Goto LABEL012
  127.     Goto LABEL008
  128.     :LABEL009
  129.     AnsiPos INTEGER002, INTEGER003 + 2
  130.     PrintLn "@X0FX@X07L@X08eech @X0FV@X070@X08.1@X03/@X0Fx@X07P@X08RESS @X0Fm@X07O@X08ddING @X0F1@X079@X0897!"
  131.     Delay 5
  132.     If (Upper(STRING005) == "YES") STRING015 = ReadLine(PPEPath() + "XLCH-ANS.CFG", 7)
  133.     Print "@CLS@@POFF@"
  134.     DispFile STRING015, 1
  135.     KbdStuff Chr(13)
  136.     End
  137.     :LABEL010
  138.     AnsiPos INTEGER002, INTEGER003 + 2
  139.     KbdStuff "E"
  140.     End
  141.     :LABEL011
  142.     AnsiPos INTEGER002, INTEGER003 + 2
  143.     KbdStuff "P"
  144.     End
  145.     :LABEL012
  146.     AnsiPos INTEGER002, INTEGER003 + 2
  147.     KbdStuff "A"
  148.     End
  149.     :LABEL013
  150.     Log "@X0FRunning XLeech V0.1 at time : " + String(Time()), 0
  151.     If (!Exist(PPEPath() + "xlch-asc.cfg") || PPEPath() + "xlch-asc.pcb") Print "@CLS@"
  152.     PrintLn "@X0Ce@X04rror@X08! @X0CE@X04ither the Connfiguration or the Graphics file needed by XLeech V0.1"
  153.     PrintLn "@X04was not found in the path@X08: @X0C" + PPEPath()
  154.     PrintLn "@X0CP@X04lease notify the @X0CSysOp @X04A.S.A.P@X08!!"
  155.     PrintLn ""
  156.     Wait
  157.     End
  158.     FOpen 1, PPEPath() + "xlch-asc.cfg", 2, 0
  159.     FGet 1, STRING002
  160.     FGet 1, STRING003
  161.     FGet 1, STRING004
  162.     FGet 1, STRING005
  163.     FGet 1, STRING008
  164.     FGet 1, STRING014
  165.     FClose 1
  166.     Tokenize STRING002
  167.     STRING006 = GetToken()
  168.     STRING007 = GetToken()
  169.     INTEGER002 = STRING006
  170.     INTEGER003 = STRING007
  171.     STRING009 = STRING004 + "   " + STRING003 + "  Start leechin'  " + STRING004 + "   View/nuke tagged files      Change prot.      Exit  "
  172.     STRING010 = STRING004 + "     Start leechin'   " + STRING003 + "  View/nuke tagged files  " + STRING004 + "    Change prot.      Exit  "
  173.     STRING011 = STRING004 + "     Start leechin'     View/nuke tagged files    " + STRING003 + "  Change prot.  " + STRING004 + "    Exit  "
  174.     STRING012 = STRING004 + "     Start leechin'     View/nuke tagged files      Change prot.    " + STRING003 + "  Exit  " + STRING004
  175.     Print "@CLS@@POFF@"
  176.     DispFile PPEPath() + "xlch-asc.pcb", 1
  177.     AnsiPos INTEGER002, INTEGER003 - 1
  178.     Print STRING008
  179.     AnsiPos INTEGER002, INTEGER003 + 1
  180.     Print STRING014
  181.     :LABEL014
  182.     AnsiPos INTEGER002, INTEGER003
  183.     Print STRING009
  184.     :LABEL015
  185.     STRING013 = ""
  186.     While ((STRING013 == "")) STRING013 = Inkey()
  187.     If (STRING013 == Chr(27)) End
  188.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL016
  189.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL008
  190.     If (STRING013 == Chr(13)) Goto LABEL022
  191.     Goto LABEL015
  192.     :LABEL016
  193.     AnsiPos INTEGER002, INTEGER003
  194.     Print STRING010
  195.     :LABEL017
  196.     STRING013 = ""
  197.     While ((STRING013 == "")) STRING013 = Inkey()
  198.     If (STRING013 == Chr(27)) End
  199.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL018
  200.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL014
  201.     If (STRING013 == Chr(13)) Goto LABEL023
  202.     Goto LABEL017
  203.     :LABEL018
  204.     AnsiPos INTEGER002, INTEGER003
  205.     Print STRING011
  206.     :LABEL019
  207.     STRING013 = ""
  208.     While ((STRING013 == "")) STRING013 = Inkey()
  209.     If (STRING013 == Chr(27)) End
  210.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL020
  211.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL016
  212.     If (STRING013 == Chr(13)) Goto LABEL024
  213.     Goto LABEL019
  214.     :LABEL020
  215.     AnsiPos INTEGER002, INTEGER003
  216.     Print STRING012
  217.     :LABEL021
  218.     STRING013 = ""
  219.     While ((STRING013 == "")) STRING013 = Inkey()
  220.     If (STRING013 == Chr(27)) End
  221.     If ((STRING013 == "RIGHT") || (STRING013 == "6")) Goto LABEL014
  222.     If ((STRING013 == "LEFT") || (STRING013 == "4")) Goto LABEL018
  223.     If (STRING013 == Chr(13)) Goto LABEL025
  224.     Goto LABEL021
  225.     :LABEL022
  226.     AnsiPos INTEGER002, INTEGER003 + 2
  227.     PrintLn "@X0FX@X07L@X08eech @X0FV@X070@X08.1@X03/@X0Fx@X07P@X08RESS @X0Fm@X07O@X08ddING @X0F1@X079@X0897!"
  228.     Delay 5
  229.     If (Upper(STRING005) == "YES") STRING015 = ReadLine(PPEPath() + "XLCH-ASC.CFG", 7)
  230.     Print "@CLS@@POFF@"
  231.     DispFile STRING015, 1
  232.     KbdStuff Chr(13)
  233.     End
  234.     :LABEL023
  235.     AnsiPos INTEGER002, INTEGER003 + 2
  236.     KbdStuff "E"
  237.     End
  238.     :LABEL024
  239.     AnsiPos INTEGER002, INTEGER003 + 2
  240.     KbdStuff "P"
  241.     End
  242.     :LABEL025
  243.     AnsiPos INTEGER002, INTEGER003 + 2
  244.     KbdStuff "A"
  245.     End
  246.  
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Usage report (before postprocessing)
  250. ;
  251. ; ■ Statements used :
  252. ;
  253. ;    19      End
  254. ;    2       Wait
  255. ;    47      Goto 
  256. ;    40      Let 
  257. ;    18      Print 
  258. ;    10      PrintLn 
  259. ;    52      If 
  260. ;    4       DispFile 
  261. ;    2       FOpen 
  262. ;    2       FClose 
  263. ;    12      FGet 
  264. ;    2       Log 
  265. ;    2       Delay 
  266. ;    3       Tokenize 
  267. ;    8       KbdStuff 
  268. ;    20      AnsiPos 
  269. ;
  270. ;
  271. ; ■ Functions used :
  272. ;
  273. ;    62      +
  274. ;    2       -
  275. ;    64      ==
  276. ;    1       <=
  277. ;    1       >=
  278. ;    2       !
  279. ;    18      ||
  280. ;    5       Upper()
  281. ;    18      Chr()
  282. ;    2       Random()
  283. ;    2       Time()
  284. ;    8       Inkey()
  285. ;    2       String()
  286. ;    12      PPEPath()
  287. ;    2       ReadLine()
  288. ;    5       GetToken()
  289. ;    2       Exist()
  290. ;    1       TokenStr()
  291. ;
  292. ;------------------------------------------------------------------------------
  293. ;
  294. ; Analysis flags : No flag
  295. ;
  296. ;------------------------------------------------------------------------------
  297. ;
  298. ; Postprocessing report
  299. ;
  300. ;    0       For/Next
  301. ;    0       While/EndWhile
  302. ;    0       If/Then or If/Then/Else
  303. ;    0       Select Case
  304. ;
  305. ;------------------------------------------------------------------------------
  306. ;                 AEGiS Corp - Break the routines, code against the machines!
  307. ;------------------------------------------------------------------------------
  308.