! This is the new version on my logon-lotto , with ansi menu integrated... ! in the next 2 messages , I've posted the ansi who go with it !Program : Logon Lotto v2.0 !Programed By : Jello Biafra (c) 92' !Comment : You can put it at the begining or the end of your START script" #beginlot ef c:\vbbs2\txt\lotintro.ans !change this directory/filename for your pause getyn $lotto " So do you want to play?? " if $lotto = Y then goto #lottery else Go endofprog endif # lottery tr $clear newpage if $credits < 1 then tr $clear newpage tr log "**** NO CREDITS ****" tr tr "I'm sorry " $handle ", but you don't have any credits to place on the Lotto." tr pause go endofprog endif ef c:\vbbs2\txt\lotstats.ans ! Change the directory/filename for your tr "" tr " ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ tr " ³Numbers Of Credits : " $credits " Credits" tr " Credits Bet Limit : 100 CreditÄs ³" tr " ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ tr "" rl $lottobet q 100 " Number of credits to bet n the lotto (Q to Quit): " test $lottobet = q endofprog ifval $lottobet > $credits tr tr $RED "You do NOT have that many credits." tr pause go lottery endif $valid = 1 do while $valid rs $lukynum " Enter your 6 digit lucky numbers : " $numsize = $lukynum len 0 $valid = 0 ifval $lukynum < 0 then $valid = 1 endif ifval $lukynum > 999999 then $valid = 1 endif ifval $numsize < 6 then $valid = 1 endif loop $lotonum = " " $matches = 0 do $count = 1 6 $random = 1 rnd 11 if $random = 10 then $random = 0 endif $lotonum = $lotonum & $random $chkmatch = $lukynum instr $random ifval $chkmatch > 0 then $matches = $matches + 1 endif loop $winnings = 0 $loss = 0 $tmp1 = $credits ifval $matches = 0 then $loss = $lottobet * 2 $tmp = "-" $tmp1 = $tmp & $loss addcredits $tmp1 endif ifval $matches = 1 then $loss = $lottobet $tmp = "-" $tmp1 = $tmp & $loss addcredits $tmp1 endif ifval $matches = 2 then $loss = $lottobet $tmp = "-" $tmp1 = $tmp & $loss addcredits $tmp endif ifval $matches = 3 then $loss = "0" endif ifval $matches = 4 then $winnings = $lottobet * 5 addcredits $winnings endif ifval $matches = 5 then $winnings = $lottobet * 10 addcredits $winnings endif ifval $matches = 6 then $winnings = $lottobet * 20 addcredits $winnings endif # display_results tr $clear newpage tr tr tr "Your Lucky Numbers: " $lukynum tr tr "The Winning number is :" $lotonum "" tr tr $handle ", you had " $matches " matches" ifval $loss > 0 then tr log "$$$$$ Lost " $loss " in the lottery!!" tr tr tr "Your total losses come to: " $loss " Credits" tr tr "Which leaves you with a total of " $credits " Credits." tr pause endif ifval $loss = 0 then testval $winnings > 0 wonmoney tr log "Didn't do crap in the lottery" tr "You didn't win or lose in the lottery today" tr tr "Which leaves you with a total of " $credits " Credits." tr "I hope you have better luck next time..." tr pause go endofprog endif # wonmoney testval $winnings <= 0 endofprog tr log "$$$$$ Won " $winnings " in the Lottery tr tr tr "Congratulations, you have won " $credits " Credits!" tr pause go endofprog endif # endofprog tr " Logon Lotto v2.0 (C) Jello Biafra 92' tr " If you enjoy it , or have comment , leave it to Jello Biafra @5141" tr " Version 3.0 Come Soon , with more games . more fun , more ansowme!" exit !ANSI menu  Û ÛßÛ Ûßß ÛßÛ Û Û ÜÜ Û ÛßÛ ßÛß ßÛß ÛßÛ Û ÛÜÜ ÛÜÛ ÛÜÛ ÛÜÛ ÛßÜÛ ÛÜÜ ÛÜÛ Û Û ÛÜÛ Û By Jello Biafra (C) 92'Û ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß ÜÜÜ ÜÜÜÜ ÜÜÛÜÜÜÛÜÛÛÛÛÜÜÛÛÛÜÜ This Is What You Can Lose Or Win ÜÜÜÜ ÜÛÛÜÜÜÜÜÜßßÜßÜÜ Ü ÞÞßÜßßßßßß ßÛÛÛÛßß ßßÜÜÛÛßÛÛÛÛÛßÛÛÛß ß ßÜÞÜßÝÞÝ ÛÜßßßßß ß ßÝ ß ßßß ÞÛÝÝß ß ÞÞßÝ0 Matche = Lose 4 times your betÞÜÛ Û ÛÛÛÛ1 Matche = Lose 3 times your betÞ ÝÝÞÝ ÞÛÛÛÝ2 matches = Lose 2 times your betÞÛÜß Û ÛÛß3 matches = Neither lose or winÛÛÛ ß ÞÛÛÜ4 matches = Win 5 times your betÞÛÜÝÞÝ ÛÞßÞÝ5 matches = Win 10 times your bet ÜÝÜ Ü ÞÞÜÛß6 matches = WIN 20 TIMES YOUR BET!!!!!ÜÜ ÞÞÝÜ ßÛßÜÜÜÜÜÛÛÜÜÜ ÜÛÛÛÛÜÜ ÜÜÜÜÛÛÛÜÜ ÜÜÛÛÛÛÜÜÛßÛÛÛÛÛßÛÛÛÜ ÜÛÜÛßÜÜÜÜßÝÞÝ ßßßß ßßÛßßßÛÛÛÛÛß ßßÛÛÝß ß ßßßÛÛßß ßÛÛÛß ÜßÛÛÛß ßßßÜ ßß ßßÜßßßßßß ß ßÜÜÜÜÜÜÜÜÜ ßßß ÜßßÜ ß Üß ß ßÜÜÜÜßßÜÜÜÜÜß ÜÜ ßÝßÜßßßÜÜÜßßßß ßß ßÜÜÜÜÜß ßßßßß ßßßßÜß This lotto allow you to win Credits by entering Your 6 Digit lucky number !ANSI stats screen ÜÜÜ ÜÜÜÜ ÜÜÛÜÜÜÛÜÛÛÛÛÜÜÛÛÛÜÜÜÛÛÛÜÜÜÜÜÜ 35mßßÜßÜÜ Ü ÞÞßÜßßßßßß ßÛÛÛÛßß ßßÜÛÛÛßÛÛÛß ß ßÜÞÜßÝÞÝ ÛÜßßßßß ßßß ÞÛÝÝß ß ÞßÞÝLogon-Lotto User Statistic ÜÝÜ Ü ÞÞÜÛßÜÜÜ ÜÜÜ ÞÞÝÜ ßÛßÜÜÜÜÜÛÛÜÜÜ ÜÛÛÛÛÜÜÛÜÜÛ ÜÜ ÜÛÛßÜÛÛÜÛßÜÜÜÜß 0;35mÝÞÝ ßßßß ßßÛßßßÜÛÛßÛß ßßÛÛÝß ÛÛßß ÜÜ ßßÜßßßßßß ß ßÜÜÜÜÜÜÜÜÜ ßßß ÜßßÜ ß Üß ÜÜ Üßß ßßß ßÜÜÜÜÜß ßßßßß ßßßß  ! For all who enjoy the logon lotto , the version 3.0 , is in progress , with ! more powerfull graphics , and other adds , .... if you have suggestion too , ! let me know... , and if all work greath , I'll probably continue to do update ! version of it , if not , forget it! ! ! All comment are welcome , Good or Bad , bug report too , if some one are ! interested to be a Bug Reporter / Beta Tester , for Logon-Lotto , let me know ! about it , in an e-mail to Jello Biafra @5140. ! ! Thank you for your support , but think about it , if VBBS was not here , ! Logon-lotto was not born (ho well.....:-) )..