home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SSI!MEB1.ZIP / PHUN-MEB.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-10-16  |  2KB  |  133 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     GetUser
  29.     FOpen 1, PPEPath() + "PHUN-MEB.CFG", 0, 2
  30.     FGet 1, STRING001
  31.     FClose 1
  32.     STRING005 = ReadLine(PPEPath() + "PHUN-MEB.CFG", 2)
  33.     STRING002 = U_Name()
  34.     INTEGER001 = MaxNode()
  35.     STRING004 = STRING002 + " " + STRING005
  36.     If (STRING001 == STRING002) Then
  37.         Goto LABEL001
  38.     Endif
  39.     Newline
  40.     Broadcast 1, INTEGER001, STRING004
  41.     PrintLn "@X0FYOUR ENTRANCE HAS BEEN ANNOUNCED TO THE OTHER NODES! THEY ALL RUN AWAY IN PANIC!"
  42.     PrintLn "@X08<───────────<> [PHUN] MULTINODE ENTRANCE BLASTER V. 1.0 [B.A.] <>────────────>"
  43.     Delay 20
  44.     Newline
  45.     Goto LABEL004
  46.     :LABEL001
  47.     Cls
  48.     Newlines 2
  49.     PrintLn "@X08        @X09┌── @X0B<@X09@X0B> [@X09PHUN@X0B] @X09MULTINODE ENTRANCE BLASTER V. 1.0 @X0B[@X09B.A.@X0B] <@X09@X0B> @X09──┐"
  50.     PrintLn "@X09        │                                                             │"
  51.     PrintLn "@X09        │        @X0BAs The Sysop, You May Choose If Your Activity        @X09│"
  52.     PrintLn "@X09        │        @X0BOn This Node Can Be Revealed Or Not...               @X09│"
  53.     PrintLn "@X09        │                                                             │"
  54.     PrintLn "@X09        └─────────────────────────────────────────────────────────────┘"
  55.     PrintLn " "
  56.     PrintLn "@X0F           @X08'@X0FY@X08' = @X0D'Yeah! Let Them Know I'm On The System !'"
  57.     PrintLn "@X0D           @X08'@X0FN@X08' = @X05'No Way! I Wanna Remain Undercover And In Secret!'"
  58.     PrintLn " "
  59.     InputYN "@X09     @X0FDo you wish to announce your presence to the other nodes (Y/N):", STRING003, 15
  60.     If (STRING003 == "Y") Then
  61.         Goto LABEL002
  62.     Endif
  63.     If (STRING003 == "N") Then
  64.         Goto LABEL003
  65.     Endif
  66.     :LABEL002
  67.     Newlines 2
  68.     Broadcast 1, INTEGER001, STRING004
  69.     Cls
  70.     Newlines 5
  71.     PrintLn "                 @X89SENDING AND SCARING THE SHIT OUT OF THEM ...."
  72.     Delay 30
  73.     Newline
  74.     Goto LABEL004
  75.     :LABEL003
  76.     Newline
  77.     PrintLn " "
  78.     PrintLn "@X0B     @X0FOkay, So Be It! Continuing Normal Login Procedure...@X07"
  79.     Delay 10
  80.     Newline
  81.     :LABEL004
  82.     End
  83.  
  84. ;------------------------------------------------------------------------------
  85. ;
  86. ; Usage report (before postprocessing)
  87. ;
  88. ; ■ Statements used :
  89. ;
  90. ;    1       End
  91. ;    2       Cls
  92. ;    9       Goto 
  93. ;    4       Let 
  94. ;    15      PrintLn 
  95. ;    3       If 
  96. ;    1       FOpen 
  97. ;    1       FClose 
  98. ;    1       FGet 
  99. ;    1       GetUser
  100. ;    1       InputYN 
  101. ;    3       Delay 
  102. ;    5       Newline
  103. ;    3       Newlines 
  104. ;    2       Broadcast 
  105. ;
  106. ;
  107. ; ■ Functions used :
  108. ;
  109. ;    4       +
  110. ;    3       ==
  111. ;    3       !
  112. ;    1       U_Name()
  113. ;    2       PPEPath()
  114. ;    1       ReadLine()
  115. ;    1       MaxNode()
  116. ;
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Analysis flags : No flag
  120. ;
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Postprocessing report
  124. ;
  125. ;    0       For/Next
  126. ;    0       While/EndWhile
  127. ;    3       If/Then or If/Then/Else
  128. ;    0       Select Case
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;                 AEGiS Corp - Break the routines, code against the machines!
  132. ;------------------------------------------------------------------------------
  133.