home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / code10.zip / CODE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-21  |  6KB  |  273 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     String   STRING001
  39.  
  40. ;------------------------------------------------------------------------------
  41.  
  42.     Cls
  43.     FOpen 1, PPEPath() + "CODE.CFG", 0, 0
  44.     FGet 1, INTEGER018
  45.     FGet 1, INTEGER019
  46.     FClose 1
  47.     INTEGER011 = INTEGER019
  48.     PrintLn "@X04CTC @X08- @X09Crack The Code PPE Gambler"
  49.     PrintLn "@X09Written By Brett Lucey / Wiz-Ware Software"
  50.     PrintLn "@X0ACopyright (c) 1994, Brett Lucey / Wiz-Ware Software"
  51.     PrintLn ""
  52.     :LABEL001
  53.     InputStr "How much time would you like to bet", INTEGER012, 9, 2, "0123456789.", 256
  54.     If (INTEGER012 > INTEGER018) Then
  55.         PrintLn "The maximum bet is " + String(INTEGER018) + "."
  56.         Goto LABEL001
  57.     Endif
  58.     PrintLn "Instructions:"
  59.     PrintLn "   You are breaking into a special room.  If you get in, the you"
  60.     PrintLn "win the time.  If not, then you lose " + String(INTEGER012) + " minutes.  :("
  61.     PrintLn "On the bottom half of the keyboard is the code you are guessing."
  62.     PrintLn "If you get a digit right, then that digit will appear on the top."
  63.     PrintLn "If you win, then you get the amount of guesses left times your bet."
  64.     PrintLn "You will get " + String(INTEGER011) + " guesses."
  65.     If (INTEGER012 > MinLeft()) Then
  66.         PrintLn "You do not have enough time to play."
  67.         AdjTime 1
  68.     Else
  69.         INTEGER013 = 0
  70.         INTEGER014 = 0
  71.         INTEGER015 = 0
  72.         INTEGER016 = 0
  73.         INTEGER017 = 0
  74.         INTEGER001 = Random(9)
  75.         INTEGER002 = Random(9)
  76.         INTEGER003 = Random(9)
  77.         INTEGER004 = Random(9)
  78.         INTEGER005 = Random(9)
  79.         If (U_Name() == "BRETT LUCEY") PrintLn INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
  80.         Wait
  81.         DispFile PPEPath() + "CODE.ANS", 1
  82.         :LABEL002
  83.         Print "@X70"
  84.         AnsiPos 44, 7
  85.         Print Time()
  86.         AnsiPos 44, 10
  87.         Print "@TIMELEFT@", "  "
  88.         AnsiPos 44, 13
  89.         Print INTEGER012, "  "
  90.         AnsiPos 44, 16
  91.         Print String(INTEGER019 - INTEGER011) + "  "
  92.         AnsiPos 44, 19
  93.         Print String(INTEGER011) + "   "
  94.         :LABEL003
  95.         If (INTEGER013 == 1) Goto LABEL004
  96.         AnsiPos 29, 19
  97.         STRING001 = Inkey()
  98.         If (STRING001 == "") Goto LABEL003
  99.         INTEGER006 = S2I(STRING001, 10)
  100.         If (!((((((((((INTEGER006 == 1) || (INTEGER006 == 2)) || (INTEGER006 == 3)) || (INTEGER006 == 4)) || (INTEGER006 == 5)) || (INTEGER006 == 6)) || (INTEGER006 == 7)) || (INTEGER006 == 8)) || (INTEGER006 == 9)) || (INTEGER006 == 0))) Goto LABEL003
  101.         Print INTEGER006
  102.         If (INTEGER006 == INTEGER001) Then
  103.             AnsiPos 29, 4
  104.             Print INTEGER006
  105.             AnsiPos 29, 19
  106.             Print "@X0F", INTEGER006, "@X70"
  107.             INTEGER013 = 1
  108.         Endif
  109.         :LABEL004
  110.         If (INTEGER014 == 1) Goto LABEL005
  111.         AnsiPos 31, 19
  112.         STRING001 = Inkey()
  113.         If (STRING001 == "") Goto LABEL004
  114.         INTEGER007 = S2I(STRING001, 10)
  115.         If (!((((((((((INTEGER007 == 1) || (INTEGER007 == 2)) || (INTEGER007 == 3)) || (INTEGER007 == 4)) || (INTEGER007 == 5)) || (INTEGER007 == 6)) || (INTEGER007 == 7)) || (INTEGER007 == 8)) || (INTEGER007 == 9)) || (INTEGER007 == 0))) Goto LABEL004
  116.         Print INTEGER007
  117.         If (INTEGER007 == INTEGER002) Then
  118.             AnsiPos 31, 4
  119.             Print INTEGER007
  120.             AnsiPos 31, 19
  121.             Print "@X0F", INTEGER007, "@X70"
  122.             INTEGER014 = 1
  123.         Endif
  124.         :LABEL005
  125.         If (INTEGER015 == 1) Goto LABEL006
  126.         AnsiPos 33, 19
  127.         STRING001 = Inkey()
  128.         If (STRING001 == "") Goto LABEL005
  129.         INTEGER008 = S2I(STRING001, 10)
  130.         If (!((((((((((INTEGER008 == 1) || (INTEGER008 == 2)) || (INTEGER008 == 3)) || (INTEGER008 == 4)) || (INTEGER008 == 5)) || (INTEGER008 == 6)) || (INTEGER008 == 7)) || (INTEGER008 == 8)) || (INTEGER008 == 9)) || (INTEGER008 == 0))) Goto LABEL005
  131.         Print INTEGER008
  132.         If (INTEGER008 == INTEGER003) Then
  133.             AnsiPos 33, 4
  134.             Print INTEGER008
  135.             AnsiPos 33, 19
  136.             Print "@X0F", INTEGER008, "@X70"
  137.             INTEGER015 = 1
  138.         Endif
  139.         :LABEL006
  140.         If (INTEGER016 == 1) Goto LABEL007
  141.         AnsiPos 35, 19
  142.         STRING001 = Inkey()
  143.         If (STRING001 == "") Goto LABEL006
  144.         INTEGER009 = S2I(STRING001, 10)
  145.         If (!((((((((((INTEGER009 == 1) || (INTEGER009 == 2)) || (INTEGER009 == 3)) || (INTEGER009 == 4)) || (INTEGER009 == 5)) || (INTEGER009 == 6)) || (INTEGER009 == 7)) || (INTEGER009 == 8)) || (INTEGER009 == 9)) || (INTEGER009 == 0))) Goto LABEL006
  146.         Print INTEGER009
  147.         If (INTEGER009 == INTEGER004) Then
  148.             AnsiPos 35, 4
  149.             Print INTEGER009
  150.             AnsiPos 35, 19
  151.             Print "@X0F", INTEGER009, "@X70"
  152.             INTEGER016 = 1
  153.         Endif
  154.         :LABEL007
  155.         If (INTEGER017 == 1) Goto LABEL008
  156.         AnsiPos 37, 19
  157.         STRING001 = Inkey()
  158.         If (STRING001 == "") Goto LABEL007
  159.         INTEGER010 = S2I(STRING001, 10)
  160.         If (!((((((((((INTEGER010 == 1) || (INTEGER010 == 2)) || (INTEGER010 == 3)) || (INTEGER010 == 4)) || (INTEGER010 == 5)) || (INTEGER010 == 6)) || (INTEGER010 == 7)) || (INTEGER010 == 8)) || (INTEGER010 == 9)) || (INTEGER010 == 0))) Goto LABEL003
  161.         Print INTEGER010
  162.         If (INTEGER010 == INTEGER005) Then
  163.             AnsiPos 37, 4
  164.             Print INTEGER010
  165.             AnsiPos 37, 19
  166.             Print "@X0F", INTEGER010, "@X70"
  167.             INTEGER017 = 1
  168.         Endif
  169.         :LABEL008
  170.         If (((((INTEGER013 == 1) && (INTEGER014 == 1)) && (INTEGER015 == 1)) && (INTEGER016 == 1)) && (INTEGER017 == 1)) Goto LABEL010
  171.         If (INTEGER011 == 0) Goto LABEL009
  172.         INTEGER011 = INTEGER011 - 1
  173.         Goto LABEL002
  174.         :LABEL009
  175.         Print "@X07"
  176.         Cls
  177.         PrintLn "@X0AToo bad, so sad, you LOST!!!"
  178.         PrintLn "@X09Subtraction " + String(INTEGER012) + " minutes..."
  179.         AdjTime -INTEGER012
  180.         PrintLn "The code was: ", INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
  181.         Goto LABEL011
  182.         :LABEL010
  183.         Print "@X07"
  184.         Cls
  185.         PrintLn "@X09Congratulations!!  You won!!"
  186.         PrintLn "@X09Adding " + String(INTEGER012 * (INTEGER011 + 1)) + " minutes!"
  187.         AdjTime INTEGER011 * INTEGER012
  188.         PrintLn "The code was: ", INTEGER001, INTEGER002, INTEGER003, INTEGER004, INTEGER005
  189.     Endif
  190.     :LABEL011
  191.     Wait
  192.     PrintLn 
  193.     PrintLn 
  194.     PrintLn "@X0AThank you for joining us down here at the WIZREG PPE.  A special"
  195.     PrintLn "thanks to Home BBS..."
  196.     PrintLn ""
  197.     PrintLn "                          @X09THE WIZARD'S BBS!"
  198.     PrintLn "                            [508]481-4693"
  199.     PrintLn "@X09"
  200.     PrintLn "                 -Over 6 gigabytes online!"
  201.     PrintLn "                 -Files from A-Z, something for everyone!"
  202.     PrintLn "                 -Support up to 28800 baud!"
  203.     PrintLn "                 -10 FULLY ONLINE Nodes (On Hunt)"
  204.     PrintLn "                 -100's of RIMENET Conferences"
  205.     PrintLn "                 -Home of @X0FWIZ-WARE@X09 software!"
  206.     PrintLn "                 -and best of all...  A Cool SysOp!"
  207.     PrintLn ""
  208.     PrintLn "@X07Please wait...  Returning you to the Wizard's BBS"
  209.  
  210. ;------------------------------------------------------------------------------
  211. ;
  212. ; Usage report (before postprocessing)
  213. ;
  214. ; ■ Statements used :
  215. ;
  216. ;    3       Cls
  217. ;    2       Wait
  218. ;    28      Goto 
  219. ;    27      Let 
  220. ;    23      Print 
  221. ;    37      PrintLn 
  222. ;    25      If 
  223. ;    1       DispFile 
  224. ;    1       FOpen 
  225. ;    1       FClose 
  226. ;    2       FGet 
  227. ;    3       AdjTime 
  228. ;    1       InputStr 
  229. ;    20      AnsiPos 
  230. ;
  231. ;
  232. ; ■ Functions used :
  233. ;
  234. ;    1       -
  235. ;    2       *
  236. ;    15      +
  237. ;    2       -
  238. ;    72      ==
  239. ;    2       >
  240. ;    17      !
  241. ;    4       &&
  242. ;    45      ||
  243. ;    5       Random()
  244. ;    1       Time()
  245. ;    1       U_Name()
  246. ;    5       Inkey()
  247. ;    7       String()
  248. ;    2       PPEPath()
  249. ;    1       MinLeft()
  250. ;    5       S2I()
  251. ;
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Analysis flags : A
  255. ;
  256. ; A - Adjust online time remaining ■ 5
  257. ;     Program modify the amount of online time remaining, this may
  258. ;     be a way to bypass time limits
  259. ;     ■ Search for : ADJTIME
  260. ;
  261. ;------------------------------------------------------------------------------
  262. ;
  263. ; Postprocessing report
  264. ;
  265. ;    0       For/Next
  266. ;    0       While/EndWhile
  267. ;    7       If/Then or If/Then/Else
  268. ;    0       Select Case
  269. ;
  270. ;------------------------------------------------------------------------------
  271. ;                 AEGiS Corp - Break the routines, code against the machines!
  272. ;------------------------------------------------------------------------------
  273.