home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / LUCKYPCB.ZIP / LUCKYPCB.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-02-23  |  4KB  |  198 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.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     GetUser
  31.     FOpen 1, PPEPath() + "luckypcb.cnf", 2, 2
  32.     FGet 1, INTEGER003
  33.     FGet 1, STRING001
  34.     FGet 1, INTEGER001
  35.     FGet 1, INTEGER002
  36.     FClose 1
  37.     INTEGER003 = INTEGER003 + 1
  38.     STRING002 = "(╕) 1994 Stefan Devroey"
  39.     STRING003 = "LuckyPCB version 1.00"
  40.     PrintLn "@CLS@"
  41.     PrintLn "@X09───────────────────────────────────────────────────────────────"
  42.     PrintLn "", STRING003, "                   ", STRING002
  43.     PrintLn "@X09───────────────────────────────────────────────────────────────"
  44.     PrintLn ""
  45.     PrintLn "@X0AYou are caller nr ", INTEGER003, " on @X0C@BOARDNAME@"
  46.     PrintLn ""
  47.     PrintLn "@X0ALast winner was :@X0E ", STRING001
  48.     PrintLn ""
  49.     PrintLn "He won@X89@X09 ", INTEGER001, "@X0E Uploadbytes and@X89@X09 ", INTEGER002, "@X0E Uploadfiles."
  50.     PrintLn ""
  51.     PrintLn "Now let's see if @USER@ has a winning call now...."
  52.     Delay 45
  53.     PrintLn ""
  54.     If (Random(10) == 1) Then
  55.         PrintLn "@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@"
  56.         PrintLn "@X89@X8CWINNER ! @X8FWINNER ! @X8CWINNER ! @X8FWINNER ! @X8CWINNER ! @X8FWINNER ! @X8CWINNER !@X07"
  57.         PrintLn ""
  58.         INTEGER004 = Random(10) + 1
  59.         INTEGER005 = Random(10) + 1
  60.         INTEGER001 = INTEGER004 * 200000
  61.         INTEGER002 = INTEGER005 * 2
  62.         AdjTBytes INTEGER001
  63.         AdjTFiles INTEGER002
  64.         Log "Won " + String(INTEGER001) + " ULBytes and " + String(INTEGER002) + " ULFiles !", 0
  65.         PrintLn "@X0ECongratulations"
  66.         PrintLn ""
  67.         PrintLn "@X0EYou win@X09 ", INTEGER001, " @X0EUploadbytes and@X09 ", INTEGER002, "@X0E Uploadfiles.@X07"
  68.         PrintLn ""
  69.         FOpen 1, PPEPath() + "luckypcb.cnf", 2, 2
  70.         FPutLn 1, INTEGER003
  71.         FPutLn 1, U_Name()
  72.         FPutLn 1, INTEGER001
  73.         FPutLn 1, INTEGER002
  74.         FClose 1
  75.     Else
  76.         PrintLn ""
  77.         PrintLn "@X0DSorry, you don't win ... better luck next time   !!!!"
  78.         PrintLn ""
  79.         PrintLn "@X0A@X0BYou can still have a lot of fun on @X0C@BOARDNAME@ !"
  80.         PrintLn ""
  81.         FOpen 1, PPEPath() + "luckypcb.cnf", 2, 2
  82.         FPutLn 1, INTEGER003
  83.         FClose 1
  84.     Endif
  85.     If (Asc(Mid(STRING002, 10, 1)) <> 83) Then
  86.         Goto LABEL001
  87.     Endif
  88.     If (Asc(Mid(STRING002, 11, 1)) <> 116) Then
  89.         Goto LABEL001
  90.     Endif
  91.     If (Asc(Mid(STRING002, 12, 1)) <> 101) Then
  92.         Goto LABEL001
  93.     Endif
  94.     If (Asc(Mid(STRING002, 13, 1)) <> 102) Then
  95.         Goto LABEL001
  96.     Endif
  97.     If (Asc(Mid(STRING002, 17, 1)) <> 68) Then
  98.         Goto LABEL001
  99.     Endif
  100.     If (Asc(Mid(STRING002, 18, 1)) <> 101) Then
  101.         Goto LABEL001
  102.     Endif
  103.     If (Asc(Mid(STRING002, 20, 1)) <> 114) Then
  104.         Goto LABEL001
  105.     Endif
  106.     If (Asc(Mid(STRING002, 21, 1)) <> 111) Then
  107.         Goto LABEL001
  108.     Endif
  109.     If (Asc(Mid(STRING002, 23, 1)) <> 121) Then
  110.         Goto LABEL001
  111.     Endif
  112.     Goto LABEL002
  113.     :LABEL001
  114.     PrintLn "@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@CLS@"
  115.     PrintLn 
  116.     PrintLn 
  117.     PrintLn "                  @X8CYou have changed the Luckypcb.ppe file@X0C"
  118.     PrintLn ""
  119.     PrintLn ""
  120.     PrintLn ""
  121.     PrintLn "                           @X09This is really LAME !!!! "
  122.     PrintLn ""
  123.     PrintLn ""
  124.     PrintLn "                   @X0AJust write me a message and you will get a "
  125.     PrintLn "                            @X0Cfree @X0Acopy of the SOURCE "
  126.     PrintLn ""
  127.     PrintLn "                   You can find me on @X0CHITBOX     00.32.14.321143"
  128.     PrintLn "                                      @X09SOUNDCAVE  @X0C@X0900.32.89.658392"
  129.     PrintLn "                                      @X0DPOINTBREAK @X0C@X0D00.32.11.436925"
  130.     PrintLn ""
  131.     PrintLn "           @X0ENow you have to suffer for you Lame behaviour .........."
  132.     PrintLn ""
  133.     Delay 50000
  134.     Goto LABEL002
  135.     End
  136.     :LABEL002
  137.     Wait
  138.     End
  139.  
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Usage report (before postprocessing)
  143. ;
  144. ; ■ Statements used :
  145. ;
  146. ;    2       End
  147. ;    1       Wait
  148. ;    22      Goto 
  149. ;    7       Let 
  150. ;    44      PrintLn 
  151. ;    10      If 
  152. ;    3       FOpen 
  153. ;    3       FClose 
  154. ;    4       FGet 
  155. ;    5       FPutLn 
  156. ;    1       GetUser
  157. ;    1       Log 
  158. ;    2       Delay 
  159. ;    1       AdjTBytes 
  160. ;    1       AdjTFiles 
  161. ;
  162. ;
  163. ; ■ Functions used :
  164. ;
  165. ;    2       *
  166. ;    10      +
  167. ;    1       ==
  168. ;    9       <>
  169. ;    10      !
  170. ;    9       Mid()
  171. ;    9       Asc()
  172. ;    3       Random()
  173. ;    1       U_Name()
  174. ;    2       String()
  175. ;    3       PPEPath()
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Analysis flags : a
  180. ;
  181. ; a - Adjust ratio ■ 4
  182. ;     User's ratio is adjusted by changing the amount of files/bytes
  183. ;     uploaded. This may be normal for a user editor.
  184. ;     ■ Search for : ADJBYTES, ADJDBYTES, ADJTBYTES, ADJTFILES
  185. ;
  186. ;------------------------------------------------------------------------------
  187. ;
  188. ; Postprocessing report
  189. ;
  190. ;    0       For/Next
  191. ;    0       While/EndWhile
  192. ;    10      If/Then or If/Then/Else
  193. ;    0       Select Case
  194. ;
  195. ;------------------------------------------------------------------------------
  196. ;                 AEGiS Corp - Break the routines, code against the machines!
  197. ;------------------------------------------------------------------------------
  198.