Computer Science Canada Stuck Slot machine code |
| Author: | toddbaldwin1 [ Mon Jun 05, 2017 1:03 pm ] |
| Post subject: | Stuck Slot machine code |
I have a final project that i have to make a slot machine and I know how to make all the pictures for my reels turn and pick a random one but idk how to get it to spin first, locate (15, 10) put "Press any button to spin the wheels: " .. locate (8, 10) put "Money: ", coin .. end setup procedure playerChoice (var gameover : string) var input : string (1) if input = "q" then else coin := coin - 1 end if end playerChoice procedure spinWheels wheel1 := Rand.Int (1, 3) wheel2 := Rand.Int (1, 3) wheel3 := Rand.Int (1, 3) if wheel1 = 1 then Draw.MapleLeaf (90, 200, 170, 250, brightred) Draw.FillMapleLeaf (90, 200, 170, 250, brightred) elsif wheel1 = 2 then Draw.Star (90, 200, 170, 250, yellow) Draw.FillStar (90, 200, 170, 250, yellow) elsif wheel1 = 3 then Draw.Box (340, 200, 280, 250, brightblue) Draw.FillBox (340, 200, 280, 250, brightblue) end if if wheel2 = 1 then Draw.MapleLeaf (180, 200, 260, 250, brightred) Draw.FillMapleLeaf (180, 200, 260, 250, brightred) elsif wheel2 = 2 then Draw.Star (180, 200, 260, 250, yellow) Draw.FillStar (180, 200, 260, 250, yellow) elsif wheel2 = 3 then Draw.Box (190, 200, 250, 250, brightblue) Draw.FillBox (190, 200, 250, 250, brightblue) end if if wheel3 = 1 then Draw.MapleLeaf (351, 200, 269, 250, brightred) Draw.FillMapleLeaf (351, 200, 269, 250, brightred) elsif wheel3 = 2 then Draw.Star (351, 200, 269, 250, yellow) Draw.FillStar (351, 200, 269, 250, yellow) elsif wheel3 = 3 then Draw.Box (103, 200, 162, 250, brightblue) Draw.FillBox (103, 200, 162, 250, brightblue) delay (100) end if end spinWheels % MAIN PROGRAM setup loop playerChoice (gameover) exit when gameover = "yes" spinWheels end loop |
|