-----------------------------------

kit-kat-kid

Wed May 05, 2004 7:45 am


a simple craps game that everyone should like

-----------------------------------

var die1, die2, total : int
var bet : real
var pot : real
var reply : string (1)
pot := 100
randomize
procedure rollagain
    loop
        randint (die1, 1, 6)
        randint (die2, 1, 6)
        if total = die1 + die2 then
            put "you rolled a ", total
            put "You win!!"
            pot := pot + bet
            put "You won ", bet, " dollars!! "
            put "You now have ", pot, " dollars!! "
            exit
        elsif die1 + die2 = 7 then
            put "you rolled a 7"
            put "You loose!!"
            pot := pot - bet
            put "You lost ", bet, " dollars!!"
            put "You now have ", pot, " dollars!!"
            exit
        else
            put "you rolled a ", die1 + die2

        end if
    end loop
end rollagain
procedure start
    loop
        put "Do you want to roll? y or n " ..
        get reply
        exit when reply = "n"
        exit when pot