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

Gaming Lyfe

Mon Dec 21, 2015 2:23 pm


Color Wheel Game

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

I am trying to create a program where i have a color wheel with eight sections. I want eight different colors to flash in random sections in a random order. However, i am not sure how to make the program so that every position only flashes once.

I have tried using if's to color over each position in white once it has flashed but it hasn't worked.
P.S. Entering and running the code may help explain what I am trying to do.

var randSpace, randColor, coloring, space : int

drawoval (400, 175, 125, 125, black)
drawline (400, 175, 525, 175, black)
drawline (400, 175, 275, 175, black)
drawline (400, 175, 400, 300, black)
drawline (400, 175, 400, 50, black)
drawline (400, 175, 488, 263, black)
drawline (400, 175, 315, 85, black)
drawline (400, 175, 314, 264, black)
drawline (400, 175, 488, 85, black)

loop
    randint (randSpace, 1, 8)
    randint (randColor, 1, 8)
    if randColor = 1 then
        coloring := 14 %Yellow
    elsif randColor = 2 then
        coloring := 12 %Red
    elsif randColor = 3 then
        coloring := 10 %Green
    elsif randColor = 4 then
        coloring := 36 %Pink
    elsif randColor = 5 then
        coloring := 34 %Purple
    elsif randColor = 6 then
        coloring := 42 %Orange
    elsif randColor = 7 then
        coloring := 11 %Light Blue
    elsif randColor = 8 then
        coloring := 32 %Blue
    end if
    if randSpace = 1 then
        drawfill (425, 225, coloring, black)
        delay (1000)
        drawfill (425, 225, white, black)
    elsif randSpace = 2 then
        drawfill (450, 180, coloring, black)
        delay (1000)
        drawfill (450, 180, white, black)
    elsif randSpace = 3 then
        drawfill (450, 170, coloring, black)
        delay (1000)
        drawfill (450, 170, white, black)
    elsif randSpace = 4 then
        drawfill (425, 125, coloring, black)
        delay (1000)
        drawfill (425, 125, white, black)
    elsif randSpace = 5 then
        drawfill(375,125,coloring,black)
        delay(1000)
        drawfill(375,125,white,black)
    elsif randSpace = 6 then
        drawfill(350,180,coloring,black)
        delay(1000)
        drawfill(350,180,white,black)
    elsif randSpace = 7 then
        drawfill(450,170,coloring,black)
        delay(1000)
        drawfill(450,170,white,black)
    elsif randSpace = 8 then
        drawfill(375,225,coloring,black)
        delay(1000)
        drawfill(375,225,white,black)
    end if
end loop

Also, I am using buttons in my code, but i cant seem to get them to work. Here is a peice of code i made. Why wont it work?

procedure menu
cls
GUI.Hide(menuButton)
put"Ur a Fricking Genius"
end menu
procedure intro
locate(5,17)
put"Welcome to Simon Says, a game where memory is key!"
locate(7,18)
put"Remember the colours and their order! Good Luck!"
locate(20,1)
put" Press the Menu Button to continue."
menuButton := GUI.CreateButton (500, 50, 0, "Menu", menu)
end intro
intro
I am currently using the newest version of Turing. If you could respond and help me out, that would be great!!! Thanks so much!


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

Insectoid

Mon Dec 21, 2015 6:21 pm


RE:Color Wheel Game

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

This is a lot like shuffling a deck of cards. There are many shuffling tutorials in both the tutorials section and the help section. You can also look up shuffling algorithms on Google or Wikipedia.


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

Gaming Lyfe

Tue Dec 22, 2015 12:07 pm


RE:Color Wheel Game

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

I searched for card shuffling, but i couldnt find what  i was looking for. Can you help me?


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

Insectoid

Tue Dec 22, 2015 2:04 pm


RE:Color Wheel Game

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

The Fisher-Yates shuffle is extremely simple.


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

Gaming Lyfe

Tue Dec 22, 2015 5:13 pm


RE:Color Wheel Game

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

Thanks Insectoid!
You have been very helpful and have helped me acquire the knowledge i need to finish my ISP!