home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / PCBWHO16.ZIP / CHATCMD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-09  |  2KB  |  142 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     STRING006 = "GER"
  29.     STRING003 = PPEPath() + "PCBWHO.PPE"
  30.     STRING005 = Replace(Upper(Trim(LangExt(), " ")), ".", "")
  31.     If (STRING005 == STRING006) Then
  32.         STRING002 = "@X0A(@X0C@TIMELEFT@@X0A Min. übrig) [H]ilfe, Chat Befehl"
  33.     Else
  34.         STRING002 = "@X0A[@X0C@TIMELEFT@@X0A min. left] [H]elp, Chat Command"
  35.     Endif
  36.     STRING004 = Chr(13)
  37.     InputStr STRING002, STRING001, 7, 60, Mask_Ascii(), 8 + 32
  38.     STRING001 = Upper(Trim(STRING001, " "))
  39.     If (Mid(STRING001, 1, 2) == "CA") STRING001 = "CALL"
  40.     If (Mid(STRING001, 1, 2) == "WH") STRING001 = "WHO"
  41.     If (Mid(STRING001, 1, 2) == "IG") STRING001 = "IGNORE"
  42.     Select Case (STRING001)
  43.         Case "WHO"
  44.             Call STRING003
  45.             KbdStuff STRING004
  46.             Newline
  47.         Case "CALL"
  48.             STRING001 = ""
  49.             Call STRING003
  50.             Newline
  51.             PromptStr 248, STRING001, 5, Mask_Num(), 4 + 2 + 8
  52.             STRING001 = Trim(STRING001, " ")
  53.             If (STRING001 == "") Then
  54.                 KbdStuff STRING004
  55.                 Goto LABEL001
  56.             Endif
  57.             KbdStuff "CALL " + STRING001 + STRING004
  58.         Case "IGNORE"
  59.             STRING001 = ""
  60.             While (STRING001 == "") Do
  61.                 PromptStr 249, STRING001, 10, "WC" + Mask_Num(), 8 + 128 + 256
  62.                 STRING001 = Trim(STRING001, " ")
  63.                 If ((STRING001 == "") || (STRING001 == "C")) Then
  64.                     STRING001 = "C"
  65.                     DispText 250, 256
  66.                     Newline
  67.                     KbdStuff STRING004
  68.                     Continue
  69.                 Endif
  70.                 If (STRING001 == "W") Then
  71.                     Call STRING003
  72.                     STRING001 = ""
  73.                     Continue
  74.                 Endif
  75.                 PrintLn "@X0FNow ignoring node " + STRING001 + "."
  76.                 Newline
  77.                 KbdStuff "IGNORE " + STRING001 + STRING004
  78.             EndWhile
  79.         Case Else
  80.             KbdStuff STRING001
  81.     End Select
  82.     If (STRING001 == "") KbdStuff STRING004
  83.     :LABEL001
  84.     End
  85.  
  86. ;------------------------------------------------------------------------------
  87. ;
  88. ; Usage report (before postprocessing)
  89. ;
  90. ; ■ Statements used :
  91. ;
  92. ;    1       End
  93. ;    17      Goto 
  94. ;    16      Let 
  95. ;    1       PrintLn 
  96. ;    12      If 
  97. ;    1       InputStr 
  98. ;    2       PromptStr 
  99. ;    4       Newline
  100. ;    1       DispText 
  101. ;    7       KbdStuff 
  102. ;    3       Call 
  103. ;
  104. ;
  105. ; ■ Functions used :
  106. ;
  107. ;    13      +
  108. ;    13      ==
  109. ;    8       !
  110. ;    1       ||
  111. ;    2       Upper()
  112. ;    3       Mid()
  113. ;    1       Chr()
  114. ;    4       Trim()
  115. ;    1       Replace()
  116. ;    2       Mask_Num()
  117. ;    1       Mask_Ascii()
  118. ;    1       PPEPath()
  119. ;    1       LangExt()
  120. ;
  121. ;------------------------------------------------------------------------------
  122. ;
  123. ; Analysis flags : C
  124. ;
  125. ; C - Call child PPE ■ 3
  126. ;     This is usually normal, but may be a tricky way to launch some
  127. ;     sysop-only commands.
  128. ;     ■ Search for : CALL
  129. ;
  130. ;------------------------------------------------------------------------------
  131. ;
  132. ; Postprocessing report
  133. ;
  134. ;    0       For/Next
  135. ;    1       While/EndWhile
  136. ;    4       If/Then or If/Then/Else
  137. ;    1       Select Case
  138. ;
  139. ;------------------------------------------------------------------------------
  140. ;                 AEGiS Corp - Break the routines, code against the machines!
  141. ;------------------------------------------------------------------------------
  142.