Game of Craps please read this

[masternav]

I made this game of craps im not sure if it is right or wrong can you people please test it and post reply how can I make it better, or what should I take out of the program. Thx, this is the beta so there for I didnt add colours or locates.

code:

put "Game of Craps" var gamenum, die1, die2, won, lost : int var avg : real put "Please Enter the number of games you want to play ".. get gamenum won :=0 lost :=0 for game : 1..gamenum put "Game ", game randint (die1, 1, 6) randint (die2, 1, 6) for roll : 1..die1+die2 if die1+die2 =7 or die1+die2= 11 then put "You won!" won := won+1 exit elsif die1+die2=2 or die1+die2=12 then put "You lose " lost := lost + 1 exit end if randint (die1, 1, 6) randint (die2, 1, 6) put "Roll ", roll, ": ", die1+die2 end for end for put "======================================" put "Summary of Games" put skip put "Games  Won: ", won put "Games Lost: ", lost put skip avg := won*100/(won+lost) put "Win Average ", avg : 10 : 2, "%"

[Delos]

For one it doesn't actually work...I believe there is a tutorial floating around in the Tutorials section that deals with this kind of thing.

One suggestion.

code:

for roll : 1 .. die1 + die2

What is this line supposed to do? Think about what the loop is doing...you have a series of checks, none of which relate back to the variable 'roll'. So, what's the use of doing the same check that many times?