_________________________________________________________________________ Title: LasVegas-Casi(o)no Version: 2.0 Author: Sigurd Schaathun (terjesc@oslonett.no) Idea: Thomas Breivik and Sigurd Schaathun Description: _________________________________________________________________________ Command translation: ±: bigger or equal !: not equal : smaller or equal %: then (doubleto) &: to $: Disp. _________________________________________________________________________ Program : Module: "LV20" 123456789012345678901 (Start of programme Prog "CASIONET" (Link to a graphic display, but it's to "******************** long for me to type here. The modul shows ** W E L C O M E a great C with the word Casionet in the ** TO THE CASI(O)NO bottom left corner, before it all disappear) ********************* *"$ Lbl 1 "1: About" "2: Rules" "3: Enter the casino 4: Exit" "Your choice"?&B Int B=1%Goto 2 Int B=2%Goto 3 Int B=3%Goto 7 Int B=4%Goto 9 Goto 1 Lbl 2 "LasVegas v20 is a" "Casionet programme"$ " Idea:" (Credits. We want a bit glory, a by the way: " Thomas Breivik" You can boast that the programme is made in " Sigurd Schaathun" Norway by two famous programmers and you " Design:" have exchanged programmes with them...) " Sigurd Schaathun"$ " Casio version:" " Sigurd Schaathun" " Qbasic version:" " Thomas Breivik"$ "LasVegas is also" "available in a" "Qbasic version"$ Goto 1 Lbl 2 "Every time you visit the casino, you get 5000 to spend, these money, you bet in on eof the three games:$ "1: BlackJack" "2: Dices" "3: Roulette" "Which of them"?&A Int A=1%Goto 3 Int A=2%Goto 4 Int A=3%Goto 5 Goto 2 Lbl 3 "BlackJack is a card- game, where you shal lget as many points a syou can without" "exceed 21 points."$ "The cards has their nominal value, excep tQ,K and J which is 1 0A is 1."$ "The one with most" "points below 21 wins"$ Goto 6 Lbl 4 "You roll a pair of dices (D6), the one with most points," "wins "$ Goto 6 Lbl 5 "You can place money on 2 numbers from 0 t o34. If you win, you get your bid back 3 times"$ Goto 6 Lbl 6 "Placing a bet." "You can place as muc hmoney as you have," "but not less than 1" $ "If you win, you'll get you bid back." "You start with 5000" $ Goto 1 Lbl 7 5000&S (You get the startmoney) Lbl 8 Int A<1%Prog "END" Int A<1%Goto 1 "1: BlackJack" "2: Dices" "3: Roulette" "9: exit" "What do you want"?&A Int A=1%Prog "BJ20" Int A=2%Prog "DI11" Int A=3%Prog "RO11" Int A=9%Goto 1 Goto 8 Lbl 9 ===================== (End of programme) Modul: "BJ20" (BlackJack v2.0) 123456789012345678901 (Start of programme) "BlackJack v2.0" Lbl 1 "Your acoount" S "How much do you bet" ?&T Int T>S%Goto 1 Int T<1%Goto 1 0&E Lbl 2 E+Int 10Ran#+1&E Lbl 3 "You have:" E$ Int E±21%Goto 4 "Do you want more(1/0 )"?&F Int F=1%Goto 2 Int F=0%Goto 4 Goto 3 Lbl 4 0&G Lbl 5 G+Int 10Ran#+1&G Int E>21%Goto 6 Int G>21%Goto 6 Int E>G%Goto 5 Lbl 6 Prog "Result" Int E=G%Goto 7 Goto 9 Lbl 7 T+T&T "Bet is doubled" T$ Goto 1 Lbl 9 "Your account" S$ ===================== Modul: "Result" 123456789012345678901 Int E>21%Goto 1 Int G>21%Goto 3 Int E>G%Goto 3 Int ES%Goto 1 Int T<1%Goto 1 Lbl 2 0&E 0&F Lbl 3 "Throw your dicet"$ Int 6Ran#+1&G Prog "DICES" (Shows a Dice) E+G&E Int E=G%Goto 3 Goto 5 Lbl 5 "Jakta alia est"$ Int 6Ran#+1&G Prog "DICES" (Shows a Dice) F+G&G Int G=E%Goto 5 Goto 6 Lbl 6 "Your points:" E$ "Mine points:" G$ Int E>G%Goto 7 Int E34%Goto 1 Int F<0%Goto 1 Lbl 2 "Your account" S-U$ "How much do you bet" ?&T Int T>(S-U)%Goto 2 Int T<1%Goto 2 Int E=-1%T&U Int E=-1%F%E Int F=E%Goto 1 Int 10Ran#+1&G (These next lines improves the chance of winning) Int G=1%E&G Int G=1%Goto 3 Int G=2%F&G Int G=2%Goto 3 (End of section) Int 35Ran#&G Lbl 3 "Jakta Alia Est"$ "The winning number:" G% Int G=E%3U&T Int G=F%3T&T Int G=E%Goto 4 Int G=F%Goto 4 T+U&T "Better luck later"$ S-T&S Goto 9 Lbl 4 "We've got a winner"$ S+T&S Goto 9 Lbl 9 "Your account" S$ ===================== (End of programme) Modul "END" (Game Over) 123456789012345678901 (Start of Programme) 0&X Cls Range 1,99,99,1,99,99 Lbl 1 Int 99Ran#+1&A Int 99Ran#+1&A Int 99Ran#+1&A Int 99Ran#+1&A Plot A,B Plot C,D Line E+1&E Int E<50%Goto 1 _________________________________________________________________________