home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MTLOT10.ZIP / LOTTERY.PPS < prev   
Encoding:
Text File  |  1993-06-10  |  3.1 KB  |  75 lines
  1. ;---------------------------------------------------------------------------;
  2. ; MT-Lot v1.0 for PCBoard (R) BBS                                           ;
  3. ; The Lottery                                                               ;
  4. ; Created 6/10/1993 by Fred Barra                                           ;
  5. ; Allows callers to gamble for online time....                              ;
  6. ; Compiled using the PCBoard (R) PPL compiler v1.0                          ;
  7. ;---------------------------------------------------------------------------;
  8. STRING  GAMBLE_TIME1, GAMBLE_TIME2, COUNT, USERTOKEN(3)
  9. :GAMBLE
  10. STRING yn
  11. PRINTLN ""
  12. PRINTLN "@CLS@@X09MT-Lot @X01(@X09v1.0@X01)@X09 @X0A @X0F■@X01 @X07Lottery@X07"
  13. PRINTLN "@X07"
  14. PRINTLN "@X01■@X03  The Lottery -/- Gamble for online time . . .@X07"
  15. PRINTLN "@X01■@X03  If your Ticket is a winner then the amount of the Bet is Doubled!@X07"
  16. PRINTLN "@X01■@X03  Sysop takes 10 percent of all earnings!@X07"
  17. PRINTLN "@X01■@X03  Amount of Bet is the cost of each Ticket!@X07"
  18. PRINTLN "@X01■@X03  Tickets cost -> (@X0F5 minutes@X03) each!@X07"
  19. PRINTLN "@X07"
  20. INPUTYN "@X0A(@X0F@TIMELEFT@ min. left@X0A) Want to buy a Lottery Ticket@X02",yn, gamble_time1
  21. :GAMBLE_AGAIN
  22. IF (yn = YESCHAR()) THEN
  23. IF (RANDOM(2) = 2) THEN
  24. PRINTLN "@CLS@"
  25. PRINTLN "@X07Thanks for playing the Lottery @USER@!@X07"
  26. PRINTLN ""
  27. PRINTLN "@X0DChecking Ticket@X05!  Please Wait . . .@X07"
  28. DELAY 45
  29. PRINTLN "@X07"
  30. PRINTLN "@X8AWINNER@X82!"
  31. DELAY 5
  32. PRINTLN "@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@"
  33. PRINTLN "@X0ACongratulations you just @X02*@X0AWON@X02* @X0Aan extra 10 minutes!"
  34. ADJTIME 10
  35. PRINTLN "@X0710 mins! added to your account.  Total now -> @X0F@TIMELEFT@ minutes"
  36. PRINTLN ""
  37. PRINTLN "@X0CHey let's not forget the sysop take! @X04[@X0CCurrently 10 percent@X04]"
  38. PRINTLN "@X0CDeducting ->@X04 1 minute @X0Cfrom your gainings for Sysop Take . . ."
  39. ADJTIME -1
  40. PRINTLN "@X09Total Online Time available now -> @X0F@TIMELEFT@ minutes"
  41. log "Won 10 minutes minutes in the lottery!",0
  42. GOTO GAMBLE_END
  43. ELSE
  44. PRINTLN "@CLS@"
  45. PRINTLN "@X07Thanks for playing the Lottery @USER@!@X07"
  46. PRINTLN ""
  47. PRINTLN "@X0DChecking Ticket@X05!  Please Wait . . .@X07"
  48. DELAY 45
  49. PRINTLN ""
  50. PRINTLN "@X8CLOOSER@X84!"
  51. DELAY 5
  52. PRINTLN "@BEEP@"
  53. PRINTLN "@X0CSorry but that ticket was a looser!"
  54. PRINTLN ""
  55. PRINTLN "@X0F5 Minutes @X04deducted from your account to pay for the ticket!"
  56. ADJTIME -5
  57. PRINTLN "@X0COnline Time reduced for today to -> @X0F@TIMELEFT@ min."
  58. log "Lost 5 minutes minutes in the lottery!",0
  59. PRINTLN "@X07"
  60. INPUTYN "@X0ABuy another lottery ticket@X02",yn, gamble_time2
  61. GOTO GAMBLE_AGAIN
  62. ENDIF
  63. ELSE
  64. :GAMBLE_END
  65. PRINTLN ""
  66. PRINTLN "@WAIT@"
  67. ENDIF
  68. PRINTLN "@X0FThank you for visiting the Lottery.  Come back soon."
  69. PRINTLN "@X0F"
  70. PRINTLN "@X0AReturning to PCBoard . . ."
  71.  
  72. ;---------------------------------------------------------------------------;
  73. ; End of MT-Lottery PPL source                                              ;
  74. ;---------------------------------------------------------------------------;
  75.