Need Help With Hangman Menu

[puventhar]

What is it you are trying to achieve?
<Replace all the <> with your answers/code and remove the <>>


What is the problem you are having?
<The menu of my game is kinda messed up. I have to press the play game button two times to go to the game procedure and also the buttons still show up while the game is running and it puts the word true at the start of the program for some reason.>


Describe what you have tried to solve this problem
<Answer Here>


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
<import GUI
View.Set ("offscreenonly")
setscreen ("graphics")
var font : int
font := Font.New ("serif:6")
var stopanimation : boolean := false
procedure game
stopanimation := true

cls
GUI.Refresh
Draw.FillBox (0, 0, 640, 400, white)
var word:string
var userinput:string
var counter : int := 0
put"Enter a word or sentence:"
get word:*
put"Try to guess a letter of the word:"
get userinput:*
% put "Enter ten words:"
% for i : 1 .. 5
% get word (i)
% end for
% put "Enter a letter:" ..
% get userinput
for i : 1 .. 5
for j : 1 .. length (word (i))
if (word (i)(j) = userinput) then
counter := counter + 1
end if
end for
if counter >= 1 then
put word(i)
else
Draw.Oval(200,200,20,20,10)
end if
counter:=0
end for
View.Update
end game
procedure controls

end controls



procedure grid
for x : 10 .. maxx by 10
for y : 10 .. maxy by 10
drawdot (x, y, black)
end for
end for
for x : 10 .. maxx by 20
Draw.Text (intstr (x), x - 3, maxy - 6, font, black)
end for
for y : 20 .. maxy by 20
Draw.Text (intstr (y), maxx - 12, y - 3, font, black)
end for
end grid

grid

process game1
loop
exit when stopanimation = true
if stopanimation = false then
for i : -30 .. 30
exit when stopanimation=true
Draw.FillBox (0, 0, 640, 400, brightgreen)
var xincrease : int := 0
var font2 : int
font2 := Font.New ("bankgothic md bt:40")
var width : int := Font.Width ("Hangman", font2)
var height, ascent, descent, internalLeading : int
Font.Sizes (font2, height, ascent, descent, internalLeading)
Draw.Text ("Hangman", 190, 350, font2, black)
Draw.Box (190, 330 + descent, 190 + width, 330 + height, brightblue)
Font.Free (font2)
Draw.ThickLine (10, 10, 150, 10, 10, black)
Draw.ThickLine (80, 10, 80, 340, 10, black)
Draw.ThickLine (80, 340, 200, 340, 10, black)
Draw.ThickLine (80, 290, 140, 340, 10, black)
Draw.ThickLine (202, 340, 202 + i, 260, 5, black)
delay (20)
GUI.Refresh
View.Update
end for
for decreasing i : 30 .. -30
exit when stopanimation=true
Draw.FillBox (0, 0, 640, 400, brightgreen)
var xincrease : int := 0
var font2 : int
font2 := Font.New ("bankgothic md bt:40")
var width : int := Font.Width ("Hangman", font2)
var height, ascent, descent, internalLeading : int
Font.Sizes (font2, height, ascent, descent, internalLeading)
Draw.Text ("Hangman", 190, 350, font2, black)
Draw.Box (190, 330 + descent, 190 + width, 330 + height, brightblue)
Font.Free (font2)
Draw.ThickLine (10, 10, 150, 10, 10, black)
Draw.ThickLine (80, 10, 80, 340, 10, black)
Draw.ThickLine (80, 340, 200, 340, 10, black)
Draw.ThickLine (80, 290, 140, 340, 10, black)
Draw.ThickLine (202, 340, 202 + i, 260, 5, black)
delay (20)
GUI.Refresh
View.Update
end for
end if
put stopanimation

end loop

end game1
if stopanimation = false then
fork game1
end if
if stopanimation=false then
var playg : int := GUI.CreateButtonFull (282, 270, 0, "Play Game", game, 0, '^D', true)
var control : int := GUI.CreateButtonFull (287, 180, 0, "Controls", controls, 0, '^D', true)
var quitBtn : int := GUI.CreateButton (297, 100, 0, "Quit", GUI.Quit)
end if
loop
exit when GUI.ProcessEvent
end loop






>

Turing:

<Add your code here>

Please specify what version of Turing you are using
<4.1.1>