home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SEXCHAT2.ZIP / USERSET.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-03-03  |  6KB  |  335 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     STRING001 = "@X04Stop fucking decompile.........."
  44.     If (!PPEPath() + "dfsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss") Delay 0 ; PPLC BUG!
  45.     :LABEL001
  46.     Cls
  47.     PrintLn "(      @X09SysOp Chat User macro set editor   @X08Coded By Cyber Demon @X07[@X04SEX'95@X07]      )"
  48.     PrintLn "@X07(@X05----------------------------------------------------------------------------@X07)"
  49.     If (Exist(PPEPath() + "USER\MACROUSR." + String(U_RecNum(U_Name())))) Goto LABEL002
  50.     PrintLn "      @X0FN@X07o@X08 macros exist !"
  51.     Goto LABEL003
  52.     :LABEL002
  53.     FCloseAll
  54.     FOpen 1, PPEPath() + "USER\MACROUSR." + String(U_RecNum(U_Name())), 0, 0
  55.     FGet 1, STRING002
  56.     If (STRING002 == "") Goto LABEL003
  57.     PrintLn "  1." + STRING002
  58.     INTEGER001 = 1
  59.     FGet 1, STRING003
  60.     If (STRING003 == "") Goto LABEL003
  61.     PrintLn "  2." + STRING003
  62.     INTEGER001 = 2
  63.     FGet 1, STRING004
  64.     If (STRING004 == "") Goto LABEL003
  65.     PrintLn "  3." + STRING004
  66.     INTEGER001 = 3
  67.     FGet 1, STRING005
  68.     If (STRING005 == "") Goto LABEL003
  69.     PrintLn "  4." + STRING005
  70.     INTEGER001 = 4
  71.     FGet 1, STRING006
  72.     If (STRING006 == "") Goto LABEL003
  73.     PrintLn "  5." + STRING006
  74.     INTEGER001 = 5
  75.     FGet 1, STRING007
  76.     If (STRING007 == "") Goto LABEL003
  77.     PrintLn "  6." + STRING007
  78.     INTEGER001 = 6
  79.     FGet 1, STRING008
  80.     If (STRING008 == "") Goto LABEL003
  81.     PrintLn "  7." + STRING008
  82.     INTEGER001 = 7
  83.     FGet 1, STRING009
  84.     If (STRING009 == "") Goto LABEL003
  85.     PrintLn "  8." + STRING009
  86.     INTEGER001 = 8
  87.     FGet 1, STRING010
  88.     If (STRING010 == "") Goto LABEL003
  89.     PrintLn "  9." + STRING010
  90.     INTEGER001 = 9
  91.     FGet 1, STRING011
  92.     If (STRING011 == "") Goto LABEL003
  93.     PrintLn "  10." + STRING011
  94.     INTEGER001 = 10
  95.     FGet 1, STRING012
  96.     If (STRING012 == "") Goto LABEL003
  97.     PrintLn "  11." + STRING012
  98.     INTEGER001 = 11
  99.     FGet 1, STRING013
  100.     If (STRING013 == "") Goto LABEL003
  101.     PrintLn "  12." + STRING013
  102.     INTEGER001 = 12
  103.     FGet 1, STRING014
  104.     If (STRING014 == "") Goto LABEL003
  105.     PrintLn "  13." + STRING014
  106.     INTEGER001 = 13
  107.     FGet 1, STRING015
  108.     If (STRING015 == "") Goto LABEL003
  109.     PrintLn "  14." + STRING015
  110.     INTEGER001 = 14
  111.     FGet 1, STRING016
  112.     If (STRING016 == "") Goto LABEL003
  113.     PrintLn "  15." + STRING016
  114.     INTEGER001 = 15
  115.     :LABEL003
  116.     FClose 1
  117.     PrintLn "@X07(@X05----------------------------------------------------------------------------@X07)"
  118.     :LABEL004
  119.     STRING017 = ""
  120.     AnsiPos 1, GetY()
  121.     ClrEol
  122.     InputStr "@X07Enter the @X06# @X07to change OR " + Chr(34) + "@X06A@X07" + Chr(34) + " to Add new : _", STRING017, 1, 2, Mask_Num() + "Aa", 0
  123.     If (STRING017 == "") Goto LABEL005
  124.     If (Upper(STRING017) == "A") Goto LABEL006
  125.     If (STRING017 > INTEGER001) Then
  126.         ClrEol
  127.         Goto LABEL004
  128.     Endif
  129.     AnsiPos 1, GetY()
  130.     ClrEol
  131.     InputStr "@X07Action @X03: @X07C@X05)@X07hange D@X05)@X07elete _", STRING018, 1, 1, "CDcd", 0
  132.     STRING017 = Upper(STRING017)
  133.     If (STRING018 == "") Goto LABEL004
  134.     If (STRING018 == "C") Goto LABEL007
  135.     If (STRING018 == "D") Goto LABEL008
  136.     :LABEL005
  137.     FreshLine
  138.     PrintLn "@X04Aborting...."
  139.     End
  140.     :LABEL006
  141.     If (INTEGER001 == 15) Then
  142.         PrintLn "The macro Set it full use change or delete command"
  143.         Delay 20
  144.         Goto LABEL001
  145.     Endif
  146.     FreshLine
  147.     InputStr "@X07What is the macro            @X03: _", STRING019, 1, 25, Mask_Ascii(), 4096
  148.     If (STRING019 == "") Goto LABEL001
  149.     FreshLine
  150.     InputStr "@X07What is the macro defenition @X03: _", STRING020, 1, 25, Mask_Ascii(), 4096
  151.     If (STRING020 == "") Goto LABEL001
  152.     FreshLine
  153.     PrintLn "@X08Saving... Stand by..."
  154.     FAppend 1, PPEPath() + "USER\MACROUSR." + String(U_RecNum(U_Name())), 1, 0
  155.     FPutLn 1, STRING019 + " " + Replace(STRING020, " ", "ª")
  156.     FClose 1
  157.     Goto LABEL001
  158.     :LABEL007
  159.     FreshLine
  160.     InputStr "@X07What is the macro            @X03: _", STRING019, 1, 25, Mask_Ascii(), 4096
  161.     If (STRING019 == "") Goto LABEL001
  162.     FreshLine
  163.     InputStr "@X07What is the macro defenition @X03: _", STRING020, 1, 25, Mask_Ascii(), 4096
  164.     If (STRING020 == "") Goto LABEL001
  165.     If (STRING017 == 1) STRING002 = STRING019 + " " + Replace(STRING020, " ", "ª")
  166.     If (STRING017 == 2) STRING003 = STRING019 + " " + Replace(STRING020, " ", "ª")
  167.     If (STRING017 == 3) STRING004 = STRING019 + " " + Replace(STRING020, " ", "ª")
  168.     If (STRING017 == 4) STRING005 = STRING019 + " " + Replace(STRING020, " ", "ª")
  169.     If (STRING017 == 5) STRING006 = STRING019 + " " + Replace(STRING020, " ", "ª")
  170.     If (STRING017 == 6) STRING007 = STRING019 + " " + Replace(STRING020, " ", "ª")
  171.     If (STRING017 == 7) STRING008 = STRING019 + " " + Replace(STRING020, " ", "ª")
  172.     If (STRING017 == 8) STRING009 = STRING019 + " " + Replace(STRING020, " ", "ª")
  173.     If (STRING017 == 9) STRING010 = STRING019 + " " + Replace(STRING020, " ", "ª")
  174.     If (STRING017 == 10) STRING011 = STRING019 + " " + Replace(STRING020, " ", "ª")
  175.     If (STRING017 == 11) STRING012 = STRING019 + " " + Replace(STRING020, " ", "ª")
  176.     If (STRING017 == 12) STRING013 = STRING019 + " " + Replace(STRING020, " ", "ª")
  177.     If (STRING017 == 13) STRING014 = STRING019 + " " + Replace(STRING020, " ", "ª")
  178.     If (STRING017 == 14) STRING015 = STRING019 + " " + Replace(STRING020, " ", "ª")
  179.     If (STRING017 == 15) STRING016 = STRING019 + " " + Replace(STRING020, " ", "ª")
  180.     FCreate 1, PPEPath() + "USER\MACROUSR." + String(U_RecNum(U_Name())), 1, 0
  181.     FPutLn 1, STRING002
  182.     FPutLn 1, STRING003
  183.     FPutLn 1, STRING004
  184.     FPutLn 1, STRING005
  185.     FPutLn 1, STRING006
  186.     FPutLn 1, STRING007
  187.     FPutLn 1, STRING008
  188.     FPutLn 1, STRING009
  189.     FPutLn 1, STRING010
  190.     FPutLn 1, STRING011
  191.     FPutLn 1, STRING012
  192.     FPutLn 1, STRING013
  193.     FPutLn 1, STRING014
  194.     FPutLn 1, STRING015
  195.     FPutLn 1, STRING016
  196.     FClose 1
  197.     Goto LABEL001
  198.     :LABEL008
  199.     If (STRING017 == "1") STRING002 = ""
  200.     If (STRING017 == "2") STRING003 = ""
  201.     If (STRING017 == "3") STRING004 = ""
  202.     If (STRING017 == "4") STRING005 = ""
  203.     If (STRING017 == "5") STRING006 = ""
  204.     If (STRING017 == "6") STRING007 = ""
  205.     If (STRING017 == "7") STRING008 = ""
  206.     If (STRING017 == "8") STRING009 = ""
  207.     If (STRING017 == "9") STRING010 = ""
  208.     If (STRING017 == "10") STRING011 = ""
  209.     If (STRING017 == "11") STRING012 = ""
  210.     If (STRING017 == "12") STRING013 = ""
  211.     If (STRING017 == "13") STRING014 = ""
  212.     If (STRING017 == "14") STRING015 = ""
  213.     If (STRING017 == "15") STRING016 = ""
  214.     FCreate 1, PPEPath() + "USER\MACROUSR." + String(U_RecNum(U_Name())), 1, 0
  215.     If (STRING002 == "") Goto LABEL009
  216.     FPutLn 1, STRING002
  217.     :LABEL009
  218.     If (STRING003 == "") Goto LABEL010
  219.     FPutLn 1, STRING003
  220.     :LABEL010
  221.     If (STRING004 == "") Goto LABEL011
  222.     FPutLn 1, STRING004
  223.     :LABEL011
  224.     If (STRING005 == "") Goto LABEL012
  225.     FPutLn 1, STRING005
  226.     :LABEL012
  227.     If (STRING006 == "") Goto LABEL013
  228.     FPutLn 1, STRING006
  229.     :LABEL013
  230.     If (STRING007 == "") Goto LABEL014
  231.     FPutLn 1, STRING007
  232.     :LABEL014
  233.     If (STRING008 == "") Goto LABEL015
  234.     FPutLn 1, STRING008
  235.     :LABEL015
  236.     If (STRING009 == "") Goto LABEL016
  237.     FPutLn 1, STRING009
  238.     :LABEL016
  239.     If (STRING010 == "") Goto LABEL017
  240.     FPutLn 1, STRING010
  241.     :LABEL017
  242.     If (STRING011 == "") Goto LABEL018
  243.     FPutLn 1, STRING011
  244.     :LABEL018
  245.     If (STRING012 == "") Goto LABEL019
  246.     FPutLn 1, STRING012
  247.     :LABEL019
  248.     If (STRING013 == "") Goto LABEL020
  249.     FPutLn 1, STRING013
  250.     :LABEL020
  251.     If (STRING014 == "") Goto LABEL021
  252.     FPutLn 1, STRING014
  253.     :LABEL021
  254.     If (STRING015 == "") Goto LABEL022
  255.     FPutLn 1, STRING015
  256.     :LABEL022
  257.     If (STRING016 == "") Goto LABEL023
  258.     FPutLn 1, STRING016
  259.     :LABEL023
  260.     FClose 1
  261.     Goto LABEL001
  262.     More
  263.  
  264. ;------------------------------------------------------------------------------
  265. ;
  266. ; Usage report (before postprocessing)
  267. ;
  268. ; ■ Statements used :
  269. ;
  270. ;    1       End
  271. ;    1       Cls
  272. ;    3       ClrEol
  273. ;    1       More
  274. ;    48      Goto 
  275. ;    48      Let 
  276. ;    22      PrintLn 
  277. ;    73      If 
  278. ;    2       FCreate 
  279. ;    1       FOpen 
  280. ;    1       FAppend 
  281. ;    4       FClose 
  282. ;    15      FGet 
  283. ;    31      FPutLn 
  284. ;    6       InputStr 
  285. ;    2       Delay 
  286. ;    2       AnsiPos 
  287. ;    6       FreshLine
  288. ;    1       FCloseAll
  289. ;
  290. ;
  291. ; ■ Functions used :
  292. ;
  293. ;    63      +
  294. ;    70      ==
  295. ;    1       >
  296. ;    41      !
  297. ;    2       Upper()
  298. ;    2       Chr()
  299. ;    5       U_Name()
  300. ;    16      Replace()
  301. ;    5       String()
  302. ;    1       Mask_Num()
  303. ;    4       Mask_Ascii()
  304. ;    6       PPEPath()
  305. ;    1       Exist()
  306. ;    2       GetY()
  307. ;    5       U_RecNum()
  308. ;
  309. ;------------------------------------------------------------------------------
  310. ;
  311. ; Analysis flags : No flag
  312. ;
  313. ;
  314. ;------------------------------------------------------------------------------
  315. ;
  316. ;     One or more PPLC bugs were found, this is not a PPLX error, but PPLX is  
  317. ;     reporting the error ;)  Some statements  like VAR = !!!!10, VAR = !0*!0  
  318. ;     or similar things are not handled  correctly by PPLC, some may use this  
  319. ;     to  avoid a  correct decompilation...  This doesn't mean that there  is  
  320. ;     actually an error, but the probability of error is high...               
  321. ;     ■ Search for : PPLC BUG
  322. ;
  323. ;------------------------------------------------------------------------------
  324. ;
  325. ; Postprocessing report
  326. ;
  327. ;    0       For/Next
  328. ;    0       While/EndWhile
  329. ;    2       If/Then or If/Then/Else
  330. ;    0       Select Case
  331. ;
  332. ;------------------------------------------------------------------------------
  333. ;                 AEGiS Corp - Break the routines, code against the machines!
  334. ;------------------------------------------------------------------------------
  335.