Waiting for user input in Turing Game
Author |
Message |
mapleleafs1917
|
Posted: Thu May 22, 2014 8:40 pm Post subject: Waiting for user input in Turing Game |
|
|
What is it you are trying to achieve?
I want the program to wait until the user has entered their text into the textbox and then continue from there
What is the problem you are having?
I cannot seem to figure out how to do that.
Describe what you have tried to solve this problem
I have used getch and i tried using delay but nothing is working.
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
Turing: |
import GUI
View.Set ("graphics: 1280;994, nobuttonbar")
GUI.SetBackgroundColor (77)
var font : int
var font2 : int
var player1Name, player2Name : int
var aButton, bButton, cButton, dButton, eButton, fButton, gButton, hButton, iButton, jButton, kButton, lButton, mButton, nButton, oButton, pButton, qButton, rButton, sButton, tButton, uButton,
vButton, wButton, xButton, yButton, zButton : int
var quitter : int
var continue : int
var anykey : string
proc enter
put ""
end enter
procedure nameEntered (text : string)
GUI.SetSelection (player2Name, 0, 0)
GUI.SetActive (player2Name )
end nameEntered
procedure name2Entered (text : string)
GUI.SetSelection (player1Name, 0, 0)
GUI.SetActive (player1Name )
end name2Entered
proc a
end a
proc b
end b
proc c
end c
proc d
end d
proc e
end e
proc f
end f
proc g
end g
proc h
end h
proc i
end i
proc j
end j
proc k
end k
proc l
end l
proc m
end m
proc n
end n
proc o
end o
proc p
end p
proc q
end q
proc r
end r
proc s
end s
proc t
end t
proc u
end u
proc v
end v
proc w
end w
proc x
end x
proc y
end y
proc z
end z
font := Font.New ("Kozuka Gothic Pro EL:60")
font2 := Font.New ("Kozuka Gothic Pro EL:24:bold")
Font.Draw ("Welcome to Hangman", 65, 880, font, white)
Font.Draw ("Please Enter Names: ", 65, 550, font2, white)
player1Name := GUI.CreateTextFieldFull (65, 500, 100, "",
nameEntered, GUI.INDENT, 0, 0)
player2Name := GUI.CreateTextFieldFull (65, 450, 100, "",
name2Entered, GUI.INDENT, 0, 0)
continue := GUI.CreateButtonFull (65, 400, 40, "Enter", enter, 40, '^D', true)
% This a temprorary patch to help the program stay together
delay (3000)
cls
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
GUI.Dispose (player1Name )
GUI.Dispose (player2Name )
GUI.SetBackgroundColor (72)
quitter := GUI.CreateButtonFull (100, 380, 100, "Quit (Ctrl+Q)", GUI.Quit, 40, '^Q', true)
GUI.SetColor (quitter, 65)
aButton := GUI.CreateButtonFull (100, 500, 40, "A", a, 40, '^D', true)
GUI.SetColor (aButton, white)
bButton := GUI.CreateButtonFull (160, 500, 40, "B", b, 40, '^D', true)
GUI.SetColor (bButton, white)
cButton := GUI.CreateButtonFull (220, 500, 40, "C", c, 40, '^D', true)
GUI.SetColor (cButton, white)
dButton := GUI.CreateButtonFull (280, 500, 40, "D", d, 40, '^D', true)
GUI.SetColor (dButton, white)
eButton := GUI.CreateButtonFull (340, 500, 40, "E", e, 40, '^D', true)
GUI.SetColor (eButton, white)
fButton := GUI.CreateButtonFull (400, 500, 40, "F", f, 40, '^D', true)
GUI.SetColor (fButton, white)
gButton := GUI.CreateButtonFull (460, 500, 40, "G", g, 40, '^D', true)
GUI.SetColor (gButton, white)
hButton := GUI.CreateButtonFull (520, 500, 40, "H", h, 40, '^D', true)
GUI.SetColor (hButton, white)
iButton := GUI.CreateButtonFull (580, 500, 40, "I", i, 40, '^D', true)
GUI.SetColor (iButton, white)
jButton := GUI.CreateButtonFull (640, 500, 40, "J", j, 40, '^D', true)
GUI.SetColor (jButton, white)
kButton := GUI.CreateButtonFull (100, 440, 40, "K", k, 40, '^D', true)
GUI.SetColor (kButton, white)
lButton := GUI.CreateButtonFull (160, 440, 40, "L", l, 40, '^D', true)
GUI.SetColor (lButton, white)
mButton := GUI.CreateButtonFull (220, 440, 40, "M", m, 40, '^D', true)
GUI.SetColor (mButton, white)
nButton := GUI.CreateButtonFull (280, 440, 40, "N", n, 40, '^D', true)
GUI.SetColor (nButton, white)
oButton := GUI.CreateButtonFull (340, 440, 40, "O", o, 40, '^D', true)
GUI.SetColor (oButton, white)
pButton := GUI.CreateButtonFull (400, 440, 40, "P", p, 40, '^D', true)
GUI.SetColor (pButton, white)
qButton := GUI.CreateButtonFull (460, 440, 40, "Q", q, 40, '^D', true)
GUI.SetColor (qButton, white)
rButton := GUI.CreateButtonFull (520, 440, 40, "R", r, 40, '^D', true)
GUI.SetColor (rButton, white)
sButton := GUI.CreateButtonFull (580, 440, 40, "S", s, 40, '^D', true)
GUI.SetColor (sButton, white)
tButton := GUI.CreateButtonFull (640, 440, 40, "T", t, 40, '^D', true)
GUI.SetColor (tButton, white)
uButton := GUI.CreateButtonFull (220, 380, 40, "U", u, 40, '^D', true)
GUI.SetColor (uButton, white)
vButton := GUI.CreateButtonFull (280, 380, 40, "V", v, 40, '^D', true)
GUI.SetColor (vButton, white)
wButton := GUI.CreateButtonFull (340, 380, 40, "W", w, 40, '^D', true)
GUI.SetColor (wButton, white)
xButton := GUI.CreateButtonFull (400, 380, 40, "X", x, 40, '^D', true)
GUI.SetColor (xButton, white)
yButton := GUI.CreateButtonFull (460, 380, 40, "Y", y, 40, '^D', true)
GUI.SetColor (yButton, white)
zButton := GUI.CreateButtonFull (520, 380, 40, "Z", z, 40, '^D', true)
GUI.SetColor (zButton, white)
loop
exit when GUI.ProcessEvent
end loop
|
Please specify what version of Turing you are using
4.1.1 |
|
|
|
|
|
Sponsor Sponsor
|
|
|
mitheralice
|
Posted: Tue Jun 03, 2014 7:29 pm Post subject: RE:Waiting for user input in Turing Game |
|
|
Try the "get" command... |
|
|
|
|
|
|
|