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

RYAN191

Thu Apr 09, 2009 4:02 pm


help with dice school project "dice program"

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

Create a program that will play the following game. The computer will use a pair of dice. Before the
game begins the computer will ask the user how many times to roll and how many times the roll will
match the first roll. The computer is to roll once to see the first roll. On each successive roll the
computer is to count the total number of times the total is matched. While running, the computer is
to output a chart indicated the results of each role, whether the total was matched and whether the
die numbers matched. A total match results in a single point. Another point is given when the
specific numbers are also matched.

this is the outline for the project im doing can someone help change it :) 
____________________________________
colour(blue) 
put "Welcome to the game Dice" 
colour(black) 
procedure die1 
drawbox(300,50,200,150,7) 
drawfilloval(250,100,10,10,7) 
end die1 

procedure die2 
drawbox(300,50,200,150,7) 
drawfilloval(285,135,10,10,7) 
drawfilloval(215,65,10,10,7) 
end die2 


procedure die3 
drawbox(300,50,200,150,7) 
drawfilloval(285,135,10,10,7) 
drawfilloval(215,65,10,10,7) 
drawfilloval(250,100,10,10,7) 
end die3 

procedure die4 
drawbox(300,50,200,150,7) 
drawfilloval(285,135,10,10,7) 
drawfilloval(215,65,10,10,7) 
drawfilloval(285,65,10,10,7) 
drawfilloval(215,135,10,10,7) 
end die4 

procedure die5 
drawbox(300,50,200,150,7) 
drawfilloval(285,135,10,10,7) 
drawfilloval(215,65,10,10,7) 
drawfilloval(285,65,10,10,7) 
drawfilloval(215,135,10,10,7) 
drawfilloval(250,100,10,10,7) 
end die5 

procedure die6 
drawbox(300,50,200,150,7) 
drawfilloval(285,135,10,10,7) 
drawfilloval(215,65,10,10,7) 
drawfilloval(285,65,10,10,7) 
drawfilloval(215,135,10,10,7) 
drawfilloval(215,100,10,10,7) 
drawfilloval(285,100,10,10,7) 
end die6 

procedure d1 
drawbox(480,50,380,150,7) 
drawfilloval(430,100,10,10,7) 
end d1 

procedure d2 
drawbox(480,50,380,150,7) 
drawfilloval(465,135,10,10,7) 
drawfilloval(395,65,10,10,7) 
end d2 

procedure d3 
drawbox(480,50,380,150,7) 
drawfilloval(465,135,10,10,7) 
drawfilloval(395,65,10,10,7) 
drawfilloval(430,100,10,10,7) 
end d3 

procedure d4 
drawbox(480,50,380,150,7) 
drawfilloval(465,135,10,10,7) 
drawfilloval(395,65,10,10,7) 
drawfilloval(465,65,10,10,7) 
drawfilloval(395,135,10,10,7) 
end d4 

procedure d5 
drawbox(480,50,380,150,7) 
drawfilloval(465,135,10,10,7) 
drawfilloval(395,65,10,10,7) 
drawfilloval(465,65,10,10,7) 
drawfilloval(395,135,10,10,7) 
drawfilloval(430,100,10,10,7) 
end d5 

procedure d6 
drawbox(480,50,380,150,7) 
drawfilloval(465,135,10,10,7) 
drawfilloval(395,65,10,10,7) 
drawfilloval(465,65,10,10,7) 
drawfilloval(395,135,10,10,7) 
drawfilloval(395,100,10,10,7) 
drawfilloval(465,100,10,10,7) 
end d6 

var answer:string 

put "Would you like to roll the dice?(y/n)" 
get answer 
if answer="y" then 
var die : array 1 .. 6 of procedure dice 

die (1) := die1 
die (2) := die2 
die (3) := die3 
die (4) := die4 
die (5) := die5 
die (6) := die6 

die (Rand.Int (1, 6)) 


var d : array 1..6 of procedure dice 
d(1):= d1 
d(2):= d2 
d(3):= d3 
d(4):= d4 
d(5):= d5 
d(6):= d6 
d (Rand.Int (1, 6)) 

var diee,dce,di2,total,num1,num2:int 

put"Enter the number of the first die you have rolled:" 
get diee 
case diee of 
label 1 : put "You have rolled a 1" 
label 2: put " You have rolled a 2" 
label 3 :put "You have rolled a 3" 
label 4 : put "You have rolled a 4" 
label 5: put "You have rolled a 5" 
label 6 :put "You have rolled a 6" 
end case 

put "Enter the number of the second die you rolled:" 
get dce 
case dce of 
label 1 : put "You have rolled a 1" 
label 2: put " You have rolled a 2" 
label 3 :put "You have rolled a 3" 
label 4 : put "You have rolled a 4" 
label 5: put "You have rolled a 5" 
label 6 :put "You have rolled a 6" 
end case 



if diee=1 then 
num1:=1 
elsif 
diee=2 then 
num1:=2 
elsif 
diee=3 then 
num1:=3 
elsif 
diee=2 then 
num1:=2 
elsif 
diee=3 then 
num1:=3 
elsif 
diee=4 then 
num1:=4 
elsif 
diee=5 then 
num1:=5 
elsif 
diee=6 then 
num1:=6 
end if 

if dce=1 then 
num2:=1 
elsif 
dce=2 then 
num2:=2 
elsif 
dce=3 then 
num2:=3 
elsif 
dce=2 then 
num2:=2 
elsif 
dce=3 then 
num2:=3 
elsif 
dce=4 then 
num2:=4 
elsif 
dce=5 then 
num2:=5 
elsif 
dce=6 then 
num2:=6 
end if 

total:=num1+num2 
put "The total of the two dice equals:" 
put total 


if total= 7 then 
put "You Win!" 
elsif 
total =11 then 
put "You Win!" 
elsif 
total = 2 then 
put "You Lose!" 
elsif total =3 then 
put "You Lose!" 
if total =12 then 
put "You Lose!" 
else 
put "you must match your point value" 

end if 
end if 
end if 
_____________________________________________________________


Mod Edit: Remember to use syntax tags! Thanks :) Code Here


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

saltpro15

Thu Apr 09, 2009 4:35 pm


RE:help with dice school project "dice program"

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

first, please use syntax tags

code here

[/code]
second, what do you want help with exactly?


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

RYAN191

Thu Apr 09, 2009 5:14 pm


Re: help with dice school project "dice program"

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

I need it so when a user enters a nuber under 6 the dice keep rolling untill both of the dice are the number the user entered but record what was rolled previous times  on a chart


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

RYAN191

Thu Apr 09, 2009 5:23 pm


RE:help with dice school project "dice program"

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

need to change it


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

TheGuardian001

Thu Apr 09, 2009 8:35 pm


Re: help with dice school project "dice program"

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

 can someone help change it :) 

To put it nicely, No.
If you have a specific problem, we can point you in the right direction, however you will have to do all the work yourself. If you make an effort at solving the problem and still can't make it work, we can help you find the solution, but we won't do it for you.