home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_WOM.ZIP / WOM.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-05-15  |  4.0 KB  |  268 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     String   TSTRING001(3)
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     TSTRING001(0) = "/"
  39.     TSTRING001(1) = "-"
  40.     TSTRING001(2) = "\"
  41.     TSTRING001(3) = "|"
  42.     STRING003 = ReadLine(PPEPath() + "WOM.DAT", 2)
  43.     STRING004 = ReadLine(PPEPath() + "WOM.DAT", 3)
  44.     STRING005 = ReadLine(PPEPath() + "WOM.DAT", 4)
  45.     STRING006 = ReadLine(PPEPath() + "WOM.DAT", 5)
  46.     STRING007 = ReadLine(PPEPath() + "WOM.DAT", 6)
  47.     STRING008 = ReadLine(PPEPath() + "WOM.DAT", 7)
  48.     STRING009 = ReadLine(PPEPath() + "WOM.DAT", 8)
  49.     STRING010 = ReadLine(PPEPath() + "WOM.DAT", 9)
  50.     BOOLEAN001 = 0
  51.     Cls
  52.     PrintLn "@X05The Wheel Of Morality"
  53.     PrintLn "@X08 by Jim Jones [@X03Alƒ@X08]"
  54.     PrintLn ""
  55.     PrintLn "@MORE@"
  56.     Cls
  57.     STRING011 = "@X03Would You Like To Spin The Wheel Of Morality? @X08[@X03ENTER@X08]=@X03Y@X00"
  58.     STRING002 = YesChar()
  59.     InputStr STRING011, STRING002, 8, 2, Mask_Num(), 16384 + 256
  60.     Select Case (STRING002)
  61.         Case YesChar()
  62.             Goto LABEL001
  63.         Case NoChar()
  64.             Goto LABEL014
  65.         Case ""
  66.             End
  67.     End Select
  68.     :LABEL001
  69.     Cls
  70.     PrintLn ""
  71.     PrintLn "@X01     ┌────@X09──────────@X03──────────@X0B────────@X03───────────@X09────────────@X01─────┐"
  72.     PrintLn "@X09     │       @X03The Wheel of Morality is a Thing Of Wonder @X01          @X09│"
  73.     PrintLn "     @X03│       @X03No One Knows How it Can ForSee The Future,@X01           @X03│"
  74.     PrintLn "@X09     │       @X03But it Can. Lets See What Your Future Holds@X01          @X09│"
  75.     PrintLn "@X01     └────@X09──────────@X03──────────@X0B─────────@X03──────────@X09────────────@X01─────┘"
  76.     PrintLn "@X03    Spinning @X08[@X07Hit Space To Stop@X08]"
  77.     INTEGER003 = GetX()
  78.     INTEGER004 = GetY()
  79.     :LABEL002
  80.     If (BOOLEAN001) Goto LABEL003
  81.     AnsiPos INTEGER003, INTEGER004
  82.     Delay 2
  83.     Print TSTRING001(INTEGER002 % 4)
  84.     Inc INTEGER002
  85.     STRING002 = Upper(Inkey())
  86.     If (STRING002 == " ") Then
  87.         Goto LABEL003
  88.     Endif
  89.     Goto LABEL002
  90.     :LABEL003
  91.     Print "      @X09The Wheel Says @X07"
  92.     Delay 2
  93.     Print " ."
  94.     Delay 2
  95.     Print " ."
  96.     Delay 2
  97.     Print " ."
  98.     Delay 2
  99.     Print " ."
  100.     Delay 2
  101.     Print " ."
  102.     Delay 2
  103.     PrintLn " ."
  104.     PrintLn ""
  105.     PrintLn ""
  106.     INTEGER001 = Random(9)
  107.     Select Case (INTEGER001)
  108.         Case 0
  109.             Goto LABEL004
  110.         Case 1
  111.             Goto LABEL005
  112.         Case 2
  113.             Goto LABEL006
  114.         Case 3
  115.             Goto LABEL007
  116.         Case 4
  117.             Goto LABEL008
  118.         Case 5
  119.             Goto LABEL009
  120.         Case 6
  121.             Goto LABEL010
  122.         Case 7
  123.             Goto LABEL011
  124.         Case 8
  125.             Goto LABEL012
  126.         Case 9
  127.             Goto LABEL013
  128.     End Select
  129.     :LABEL004
  130.     PrintLn "@X06Only Cows Know What The Planets Are"
  131.     PrintLn ""
  132.     PrintLn "@X03Hit Any Key To Return To Reality"
  133.     PrintLn ""
  134.     Print "@MORE@"
  135.     End
  136.     :LABEL005
  137.     PrintLn "@X06If A Train Leaves Austin, TX at 9pm at 60Mph,"
  138.     PrintLn "@X06And Michigan Is A State Then, Why Do I Care?"
  139.     PrintLn ""
  140.     PrintLn "@X03Hit Any Key To Return To Reality"
  141.     PrintLn ""
  142.     PrintLn "@MORE@"
  143.     End
  144.     :LABEL006
  145.     PrintLn STRING003
  146.     PrintLn ""
  147.     PrintLn "@X03Hit Any Key To Return To Reality"
  148.     PrintLn ""
  149.     Print "@MORE@"
  150.     End
  151.     :LABEL007
  152.     PrintLn STRING004
  153.     PrintLn ""
  154.     PrintLn "@X03Hit Any Key To Return To Reality"
  155.     PrintLn ""
  156.     Print "@MORE@"
  157.     End
  158.     :LABEL008
  159.     PrintLn STRING005
  160.     PrintLn ""
  161.     PrintLn "@X03Hit Any Key To Return To Reality"
  162.     PrintLn ""
  163.     Print "@MORE@"
  164.     End
  165.     :LABEL009
  166.     PrintLn STRING006
  167.     PrintLn ""
  168.     PrintLn "@X03Hit Any Key To Return To Reality"
  169.     PrintLn ""
  170.     Print "@MORE@"
  171.     End
  172.     :LABEL010
  173.     PrintLn STRING007
  174.     PrintLn ""
  175.     PrintLn "@X03Hit Any Key To Return To Reality"
  176.     PrintLn ""
  177.     Print "@MORE@"
  178.     End
  179.     :LABEL011
  180.     PrintLn STRING008
  181.     PrintLn ""
  182.     PrintLn "@X03Hit Any Key To Return To Reality"
  183.     PrintLn ""
  184.     Print "@MORE@"
  185.     End
  186.     :LABEL012
  187.     PrintLn STRING009
  188.     PrintLn ""
  189.     PrintLn "@X03Hit Any Key To Return To Reality"
  190.     PrintLn ""
  191.     Print "@MORE@"
  192.     End
  193.     :LABEL013
  194.     PrintLn "@X04Whoops..You Lost All Your Time For Today!"
  195.     PrintLn "@X04Call Back Tomorow!"
  196.     PrintLn ""
  197.     Select Case (STRING010)
  198.         Case "YES"
  199.             PrintLn "@X0C Hasta Chico!"
  200.             Hangup
  201.         Case "NO"
  202.             PrintLn "@X03Hit Any Key To Return To Reality"
  203.             PrintLn ""
  204.             PrintLn "@MORE@"
  205.     End Select
  206.     End
  207.     :LABEL014
  208.     End
  209.  
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Usage report (before postprocessing)
  213. ;
  214. ; ■ Statements used :
  215. ;
  216. ;    12      End
  217. ;    3       Cls
  218. ;    43      Goto 
  219. ;    19      Let 
  220. ;    15      Print 
  221. ;    59      PrintLn 
  222. ;    17      If 
  223. ;    1       Hangup
  224. ;    1       InputStr 
  225. ;    7       Delay 
  226. ;    1       Inc 
  227. ;    1       AnsiPos 
  228. ;
  229. ;
  230. ; ■ Functions used :
  231. ;
  232. ;    1       %
  233. ;    9       +
  234. ;    16      ==
  235. ;    17      !
  236. ;    1       Upper()
  237. ;    1       Random()
  238. ;    1       NoChar()
  239. ;    2       YesChar()
  240. ;    1       Inkey()
  241. ;    1       Mask_Num()
  242. ;    8       PPEPath()
  243. ;    8       ReadLine()
  244. ;    1       GetX()
  245. ;    1       GetY()
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Analysis flags : B
  250. ;
  251. ; B - Brute hangup ■ 1
  252. ;     Program hangup without notification. This may be a good way to
  253. ;     disconnect a user, but if used randomly, may be very nasty
  254. ;     ■ Search for : HANGUP, DTROFF
  255. ;
  256. ;------------------------------------------------------------------------------
  257. ;
  258. ; Postprocessing report
  259. ;
  260. ;    0       For/Next
  261. ;    0       While/EndWhile
  262. ;    1       If/Then or If/Then/Else
  263. ;    3       Select Case
  264. ;
  265. ;------------------------------------------------------------------------------
  266. ;                 AEGiS Corp - Break the routines, code against the machines!
  267. ;------------------------------------------------------------------------------
  268.