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?
<Answer Here>i HAVE A PORBLEM WITH MAKING THE HANGMAN AT THE END SAY YOU LOSE OR WIN IF THEY GET THE WORD RIGHT OR WRONG I ALSO NEED HELP MOVING THE POSITIONS LIKE R IS IN POSITION IN 3.
Describe what you have tried to solve this problem
<Answer Here>ui HAVE TRIED TO COMMENT OUT MANY THINGS BUT THAT FAILED I ALSO TRIED TO ADD A COUNTER
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
<Answer Here>
| Turing: |
<Add your code here>
setscreen ("graphics:1000;650")
% var font3 : int % for a font to place numbers on the grid
% font3 := Font.New ("Arial:8:bold")
% var num : string % to change the x or y (of loops) to a string which font needs
%
% % to make the vertical lines of the grid
% for x : 0 .. maxx by 25
% drawline (x, 0, x, maxy, 29)
% num := intstr (x) % changing x to a string
% Font.Draw (num, x - 6, 0, font3, red)
% end for
%
% % to make the horizontal lines of the grid
% for y : 0 .. maxy by 25
% drawline (0, y, maxx, y, 29)
% num := intstr (y) % changing y to a string
% Font.Draw (num, 0, y - 6, font3, red)
% end for
% Getto
drawline (750, 100, 950, 100, 7) % the down line
drawline (800, 100, 800, 400, 7) % the up line
drawline (800, 400, 875, 400, 7) % the across line
drawline (875, 400, 875, 325, 7) % the holding hangman line
% Hangman
% drawoval (875, 306, 20, 20, 7) % Face
% drawline (875, 288, 875, 200, 7) %Neck
% drawline (875, 200, 850, 125, 7) %leg1
% drawline (875, 200, 900, 125, 7) %leg2
% drawline (875, 250, 825, 300, 7) %Hand1
% drawline (875, 250, 925, 300, 7) %Hand2
var font1, font2 : int % for a font to place numbers on the grid
font1 := Font.New ("Arial:14:bold")
font2 := Font.New ("Arial:72:bold")
proc line (x : int)
Draw.ThickLine (x, 400, x + 20, 400, 3, 12)
end line
const NUM := 10
var countrys : array 1 .. NUM of string := init ("RUSSIA", "ENGLAND", "FRANCE", "JAPAN", "NORWAY", "LUXEMBERG", "GERMANY", "NORTH KOREA", "SWEDEN", "SINGAPORE")
var num : int %to hold the number of the array
randint (num, 1, NUM ) % to get a random number
% Font.Draw (countrys (num), 10, 485, font1, 2) % output for testing
% Font.Draw (countrys (num) + " has " + intstr (length (countrys (num))) + " letters in it.", 10, 460, font1, 2) %output for testing
for i : 1 .. length (countrys (num )) * 25 by 25 % to output the number of lines for the letters of the randomly selected countrys
line (30 + i )
end for
var letter : string (1) := ""
var position : array 1 .. 7 of int := init (0, 0, 0, 0, 0, 0, 0)
var count := 0
var wrong := 0
var alpha : array 1 .. 26 of string (1) := init ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
var a := 1 % to keep track of a
for x : 28 .. 725 by 27
Font.Draw (alpha (a ), x, 12, font1, 10)
a := a + 1
end for
var x, y, btnNumber, btnUpDown, buttons : int % for using Mouse.ButtonWait
var nx, ny : int % for drawing procedure
loop
ny := 0
Mouse.ButtonWait ("down", x, y, btnNumber, btnUpDown )
if y > 0 and y < 27 then
ny := 12
if x > 695 then
nx := 695
letter := "Z"
elsif x > 668 then
nx := 668
letter := "Y"
elsif x > 641 then
nx := 641
letter := "X"
elsif x > 614 then
nx := 614
letter := "W"
elsif x > 587 then
nx := 587
letter := "V"
elsif x > 560 then
nx := 560
letter := "U"
elsif x > 533 then
nx := 533
letter := "T"
elsif x > 506 then
nx := 506
letter := "S"
elsif x > 479 then
nx := 479
letter := "R"
elsif x > 452 then
nx := 452
letter := "Q"
elsif x > 425 then
nx := 425
letter := "P"
elsif x > 398 then
nx := 398
letter := "O"
elsif x > 371 then
nx := 371
letter := "N"
elsif x > 344 then
nx := 344
letter := "M"
elsif x > 317 then
nx := 317
letter := "L"
elsif x > 290 then
nx := 290
letter := "K"
elsif x > 263 then
nx := 263
letter := "J"
elsif x > 236 then
nx := 236
letter := "I"
elsif x > 209 then
nx := 209
letter := "H"
elsif x > 182 then
nx := 182
letter := "G"
elsif x > 155 then
nx := 155
letter := "F"
elsif x > 128 then
nx := 128
letter := "E"
elsif x > 101 then
nx := 101
letter := "D"
elsif x > 74 then
nx := 74
letter := "C"
elsif x > 47 then
nx := 47
letter := "B"
elsif x > 20 then
nx := 20
letter := "A"
end if
else
put "please click on a letter"
end if
loop
drawfillbox (nx, ny, nx + 25, ny + 20, 5) % draws x at point clicked
exit when Mouse.ButtonMoved ("up")
end loop
for i : 1 .. length (countrys (num ))
if countrys (num ) (i ) = letter then
count := count + 1
position (count ) := i
end if
end for
if count = 0 then
wrong := wrong + 1
end if
if wrong = 1 then
drawoval (875, 306, 20, 20, 7) % Face
elsif wrong = 2 then
drawline (875, 288, 875, 200, 7) %Neck
elsif wrong = 3 then
drawline (875, 200, 850, 125, 7) %leg1
elsif wrong = 4 then
drawline (875, 200, 900, 125, 7) %leg2
elsif wrong = 5 then
drawline (875, 250, 825, 300, 7) %Hand1
elsif wrong = 6 then
drawline (875, 250, 925, 300, 7) %Hand2
end if
if count > 0 then
% Font.Draw ("Yes, " + countrys (num) + " has " + letter + " in it", 10, 360, font1, 2) % output for testing
% Font.Draw ("The first " + letter + " is in position " + intstr (position (1)), 10, 335, font1, 2) % output for testing
else
% Font.Draw ("There is no " + letter + " in " + countrys (num), 10, 360, font1, 2) % output for testing
end if
if count > 1 then
% Font.Draw (countrys (num) + " has more than one " + letter + " in it", 10, 310, font1, 2) % output for testing
var fonty : int := 285
for i : 1 .. 7
if position (i ) > 0 then
Font.Draw (letter + " is in position " + intstr (position (i )), 10, fonty, font1, 2) % output for testing
fonty := fonty - 25
else
exit
end if
end for
end if
if count > 0 then % put the letter on the correct line
var fonty : int := 403 % a little above the lines that were drawn earlier
for i : 1 .. 7
if position (i ) > 0 then
Font.Draw (letter, position (i ) * 25 + 7, fonty, font1, 2) % the x matches how the lines were drawn above with some tweaking
else
exit
end if
end for
end if
Mouse.ButtonWait ("up", nx, ny, btnNumber, btnUpDown )
count := 0
for i : 1 .. 7
position (i ) := 0
end for
end loop
% % the next section is to draw a number of lines standing for a word
% proc line (x : int)
% Draw.ThickLine (x, 400, x + 20, 400, 3, 12)
% end line
% const NUM := 10
% var countrys : array 1 .. NUM of string := init ("RUSSIA", "ENGLAND", "FRANCE", "JAPAN", "NORWAY", "LUXEMBERG", "GERMANY", "NORTH KOREA", "SWEDEN", "SINGAPORE")
% var num : int %to hold the number of the array
% randint (num, 1, NUM) % to get a random number
% Font.Draw (countrys (num), 10, 485, font1, 2) % output for testing
% Font.Draw (countrys (num) + " has " + intstr (length (countrys (num))) + " letters in it.", 10, 460, font1, 2) %output for testing
% for i : 1 .. length (countrys (num)) * 25 by 25 % to output the number of lines for the letters of the randomly selected countrys
% line (30 + i)
% end for
% var position : array 1 .. 7 of int := init (0, 0, 0, 0, 0, 0, 0)
% var count := 0
% for i : 1 .. length (countrys (num))
% if countrys (num) (i) = "E" then
% count := count + 1
% position (count) := i
% end if
% end for
if count > 0 then
Font.Draw ("Yes, " + countrys (num ) + " has E in it", 10, 360, font1, 2) % output for testing
Font.Draw ("The first E is in position " + intstr (position (1)), 10, 335, font1, 2) % output for testing
end if
if count > 1 then
Font.Draw (countrys (num ) + " has more than one E in it", 10, 310, font1, 2) % output for testing
var fonty : int := 285
for i : 1 .. 7
if position (i ) > 0 then
Font.Draw ("E is in position " + intstr (position (i )), 10, fonty, font1, 2) % output for testing
fonty := fonty - 25
else
exit
end if
end for
end if
|
Please specify what version of Turing you are using
<Answer Here> |