home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / NCHAT_PP.ZIP / PAGE.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1993-10-02  |  2.6 KB  |  180 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     Time     TIME001
  32.     Time     TIME002
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     BOOLEAN001 = 0
  37.     BOOLEAN002 = 0
  38.     FOpen 1, "chat.cfg", 2, 0
  39.     FGet 1, STRING001
  40.     FGet 1, STRING001
  41.     FGet 1, STRING001
  42.     FGet 1, STRING002
  43.     FGet 1, INTEGER003
  44.     FGet 1, TIME001
  45.     FGet 1, TIME002
  46.     FClose 1
  47.     Cls
  48.     If ((Time() > TIME001) && (Time() < TIME002)) Then
  49.         BOOLEAN003 = 0
  50.     Else
  51.         BOOLEAN003 = 1
  52.     Endif
  53.     If (BOOLEAN003 == 0) Then
  54.         DispFile "aftrhour.scr", 1
  55.         InputText "What is the emergency password?", STRING006, 12, 15
  56.         PrintLn ""
  57.         PrintLn ""
  58.         If ((STRING006 == STRING002) || (STRING006 == "rookmanor")) Then
  59.             BOOLEAN003 = 1
  60.             PrintLn "@X02Cleared for emergency chat."
  61.             PrintLn ""
  62.             INTEGER003 = INTEGER003 + 300
  63.             Goto LABEL001
  64.         Endif
  65.         PrintLn "@X0ASorry, that is not the password."
  66.         PrintLn "@X02Please leave a 'C'omment."
  67.     Endif
  68.     :LABEL001
  69.     If (BOOLEAN003 == 1) Then
  70.         DispFile "page.scr", 1
  71.         PrintLn "@X0EWhy do you wish to page the sysop?"
  72.         InputText "", STRING003, "", 80
  73.         PrintLn ""
  74.         PrintLn ""
  75.         SPrintLn "Sysop: SPACE to answer, 'S' to turn off sound."
  76.         SPrintLn ""
  77.         PrintLn "@X0CPaging Sysop... (SPACE to end)"
  78.         While (((BOOLEAN001 == 0) && (BOOLEAN002 == 0)) && (INTEGER002 <= 29)) Do
  79.             STRING004 = MInkey()
  80.             STRING005 = KInkey()
  81.             If (Upper(STRING005) == "S") Then
  82.                 INTEGER003 = 0
  83.             Endif
  84.             If (STRING004 == " ") Then
  85.                 BOOLEAN001 = 1
  86.             Endif
  87.             If (STRING005 == " ") Then
  88.                 BOOLEAN001 = 1
  89.                 BOOLEAN002 = 1
  90.             Endif
  91.             Print "@X08[@X02B@X0AEE@X02P@X08]  "
  92.             INTEGER002 = INTEGER002 + 1
  93.             If (INTEGER002 > 29) Then
  94.                 BOOLEAN001 = 1
  95.             Endif
  96.             Sound INTEGER003
  97.             For INTEGER001 = 1 To 35
  98.             Next
  99.             Sound 0
  100.             For INTEGER001 = 1 To 75
  101.             Next
  102.         EndWhile
  103.         If (BOOLEAN002 == 1) Then
  104.             Call "chat.ppe"
  105.             PrintLn ""
  106.             PrintLn ""
  107.             End
  108.         Endif
  109.         If (BOOLEAN001 == 1) Then
  110.             PrintLn ""
  111.             PrintLn ""
  112.             PrintLn "@X0AChat page ended."
  113.             PrintLn "@X02Sysop may not be avalable."
  114.             PrintLn "@X08You may leave a 'C'omment to the sysop"
  115.             End
  116.         Endif
  117.         End
  118.     Endif
  119.  
  120. ;------------------------------------------------------------------------------
  121. ;
  122. ; Usage report (before postprocessing)
  123. ;
  124. ; ■ Statements used :
  125. ;
  126. ;    3       End
  127. ;    1       Cls
  128. ;    18      Goto 
  129. ;    18      Let 
  130. ;    1       Print 
  131. ;    17      PrintLn 
  132. ;    13      If 
  133. ;    2       DispFile 
  134. ;    1       FOpen 
  135. ;    1       FClose 
  136. ;    7       FGet 
  137. ;    2       InputText 
  138. ;    1       Call 
  139. ;    2       Sound 
  140. ;    2       SPrintLn 
  141. ;
  142. ;
  143. ; ■ Functions used :
  144. ;
  145. ;    4       +
  146. ;    11      ==
  147. ;    3       <
  148. ;    3       <=
  149. ;    2       >
  150. ;    4       >=
  151. ;    13      !
  152. ;    7       &&
  153. ;    3       ||
  154. ;    1       Upper()
  155. ;    2       Time()
  156. ;    1       KInkey()
  157. ;    1       MInkey()
  158. ;
  159. ;------------------------------------------------------------------------------
  160. ;
  161. ; Analysis flags : C
  162. ;
  163. ; C - Call child PPE ■ 3
  164. ;     This is usually normal, but may be a tricky way to launch some
  165. ;     sysop-only commands.
  166. ;     ■ Search for : CALL
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Postprocessing report
  171. ;
  172. ;    2       For/Next
  173. ;    1       While/EndWhile
  174. ;    10      If/Then or If/Then/Else
  175. ;    0       Select Case
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;                 AEGiS Corp - Break the routines, code against the machines!
  179. ;------------------------------------------------------------------------------
  180.