Okay, wtf. Why is it trying Reading past the EOF. All the other files are in the Zip file above.
| Turing: |
View.Set ("nocursor")
randomize
var stream : int
var spaces : string := ""
var pos, offset : int
var key : string (1)
var guess : string
var file : int
var Intro : int := Pic.FileNew ("Intro.bmp")
var InstructionsPic : int := Pic.FileNew ("Instructions.bmp")
var word, newword : string := "nissan"
var Randy : int
var ex : int := 380
var ey : int := 60
% Font for the win!
var fonter : int
fonter := Font.New ("Comic Sans MS:18:bold")
% Counters
var WinnyCounty : int := 0
var count : int := 0
var BodyCount : int := 0
open : file, "HangManList.txt", get
assert file > 0
% THIS IS THE PROCEDURE FOR THE INSTRUCTIONS OF THE GAME
proc MENU
Pic.Draw (Intro, 1, 0, picCopy)
end MENU
% THIS IS THE PROCEDURE FOR THE INSTRUCTIONS OF THE GAME
proc Instructions
Pic.Draw (InstructionsPic, 1, 0, picCopy)
end Instructions
% THIS IS THE PROCEDURE FOR THE DRAWING OF THE BODY
proc HEAD
drawoval (117, 170, 20, 20, black)
end HEAD
proc BODY
drawline (117, 150, 117, 100, black) % Torso
end BODY
proc LEFTARM
drawline (117, 150, 102, 125, black) % Left Arm
end LEFTARM
proc RIGHTARM
drawline (117, 150, 132, 125, black) % Right Arm
end RIGHTARM
proc LEFTLEG
drawline (117, 100, 102, 60, black) % Left Leg
end LEFTLEG
proc RIGHTLEG
drawline (117, 100, 132, 60, black) % Right Leg
end RIGHTLEG
% THIS IS THE PROCEDURE FOR THE BACKGROUND AND GALLOWS
proc BackGround
drawfillbox (0, 0, maxx, 30, green) % Grass
drawfillbox (0, 30, maxx, maxy, 54) % Sky
drawfillbox (20, 20, 150, 35, 114) % Gallow Stand Thing
drawfillbox (30, 20, 40, 220, 114) % Gallow Pole
drawfillbox (30, 220, 120, 230, 114) % Gallow Over Head Thing
drawfillbox (115, 220, 120, 190, 115) % Rope
end BackGround
% THIS IS THE PROCEDURE FOR THE MAIN CODING OF THE GAME
proc MainGame
loop
randint (Randy, 1, 30)
for b : 1 .. Randy
get : file, word
end for
put word
for i : 1 .. length (word )
spaces := spaces + "_ "
end for
BackGround
locatexy (400, 70)
colorback (54)
put "Letters Guessed:"
loop
% This outputs all the spaces for the Word
locatexy (270, 380)
colorback (54)
color (white)
put spaces
colorback (54)
color (white)
locatexy (8, 400)
View.Set ("cursor")
put "guess a letter"
get guess
% Guessed letters
ex := ex + 10
if ex > maxx - 20 then
ey := 50
ex := 380
end if
colorback (54)
locatexy (ex, ey )
put guess
% If you choose a letter
if index (word, guess ) < 0 then
pos := index (word, guess )
spaces := spaces (1 .. pos - 1) + "_" + spaces (pos * 1 .. *)
exit
else
locatexy (10, 300)
put "Guess Again"
exit
end if
end loop
count := 0
for a : 1 .. length (word )
if word (a ) = guess then
spaces := spaces (1 .. a * 2 - 2) + guess + spaces (a * 2 .. *)
count + = 1
WinnyCounty := WinnyCounty + 1 % win thing
locatexy (270, 380)
put spaces
end if
end for
if count = 0 then
put "That Letter Is Not There"
BodyCount := BodyCount + 1
delay (2000)
drawfillbox (0, 260, 200, 287, 54) % This Erases the Letter Not There Statement
end if
if BodyCount = 1 then
HEAD
elsif BodyCount = 2 then
HEAD
BODY
elsif BodyCount = 3 then
HEAD
BODY
LEFTARM
elsif BodyCount = 4 then
HEAD
BODY
LEFTARM
RIGHTARM
elsif BodyCount = 5 then
HEAD
BODY
LEFTARM
RIGHTARM
LEFTLEG
elsif BodyCount = 6 then
HEAD
BODY
LEFTARM
RIGHTARM
LEFTLEG
RIGHTLEG
end if
if WinnyCounty = length (word ) then % This is if the program checks to see if the word is right
Font.Draw ("You Win!!! No Dying For You TODAYYYYY!", 120, 230, fonter, brightred)
delay (1000)
cls
put "Would you like to play again? Y/N"
getch (key )
end if
if key = "y" or key = "Y" then
spaces := ""
WinnyCounty := 0
count := 0
BodyCount := 0
locatexy (270, 380)
colorback (54)
color (white)
put spaces
MainGame
elsif key = "n" or key = "n" then
exit
end if
if BodyCount = 6 then
locatexy (130, 230)
put "You lost, The correct word was " ..
put word
locatexy (180, 210)
put "Would you like to play again? Y/N"
getch (key )
end if
if key = "y" or key = "Y" then
spaces := ""
WinnyCounty := 0
count := 0
BodyCount := 0
locatexy (270, 380)
colorback (54)
color (white)
put spaces
MainGame
elsif key = "n" or key = "n" then
exit
end if
end loop
end MainGame
% This is the entire coding for my MAIN MENU
Pic.Draw (Intro, 1, 0, picCopy)
getch (key )
if key = "A" or key = "a" then
MainGame
elsif key = "B" or key = "b" then
Instructions
getch (key )
if key = "A" or key = "a" then
MainGame
elsif key = "B" or key = "b" then
end if
elsif key = "C" or key = "c" then
end if
|
|
