Hangman Problem - GameCreators Forum

Author

Message

Call me coder

20

Years of Service

User Offline

Joined: 5th Mar 2005

Location:

Posted: 1st Sep 2005 02:22

Link

hey im trying to make a hangman where you can change the words. I am trying to think how but it doesnt work. I have looked in all the help files and still cant find nething. Here is the code im trying to get working.

+ Code Snippet

change_words:
cls
input "Would you like to input all words? 1=yes 2=no" ,i
IF i = 2 then goto hangman
if i = 1 then goto change_words2

change_words2:
cls
input "Type word" ,a#
input "Type another word" ,b$
input "Type another word" ,c$
input "Type another word" ,d$
input "Type another word" ,e$
input "Type another word" ,f$
input "Type another word" ,g$
input "Type another word" ,h$
input "Type another word" ,j$
input "Type another word" ,k$
input "Type another word" ,l$
input "Type another word" ,m$
input "Type another word" ,n$
input "Type another word" ,o$
input "Type another word" ,p$
input "Type another word" ,q$
input "Type another word" ,r$
input "Type another word" ,s$
input "Type another word" ,t$
input "Type another word" ,u$
rem Spelling Words
`first ten
data a#
data b$
data c$
data d$
data e$
data f$
data g$
data h$
data j$
data k$
`second ten
data l$
data m$
data n$
data o$
data p$
data q$
data r$
data s$
data t$
data u$

TO ALL THOSE PROGRAMING PEOPLE OUT THERE!

Back to top

Profile PM

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 1st Sep 2005 04:04

Link

Lol.

Don't take this the wrong way, but that's gibberish! If you're new to programming, that's understandable, so don't worry - we can sort it out.

First of all, in hangman, you need to supply the list of words rather than the user type them in. On that assumption, you would put all the words in data statements as in:

Data "Horse",House,"Computer","Fish","Rocket"

and so on. You can't use data statements in the way you have used them.

Now if you did want to enter 10 words in, then you would use a loop instead of 10 input lines. However, you couldn't use the same string variable each time because you would simply delete the previous word.

So, you use string arrays:

Dim Words$(10)

This dimensions a string array variable called Words and lets you create 10 of them Words$(1) to Words$(10). In actual fact, there's also Words$(0) making 11 in total, but you can ignore that for now.

You would have the user enter the words in as follows:

For A=1 To 10
Input "Type another word " ,Words$(A)
Next A

That's all there is to it!

To simulate the whole of your program above, you would use:

Input "How Many Words: ",W
Dim Words$(W)
For A=1 To W
Input "Type another word " ,Words$(A)
Next A

Bit of a difference in size yes?

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Call me coder

20

Years of Service

User Offline

Joined: 5th Mar 2005

Location:

Posted: 2nd Sep 2005 03:28

Link

my teachers would like me to make a hangman program so they can use the word of the day ect. I dpnt want to have to make a new one every day.

TO ALL THOSE PROGRAMING PEOPLE OUT THERE!

Back to top

Profile PM

Robot

20

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 2nd Sep 2005 09:07

Link

Have it read the words/word from a .txt file.

The happenings of tommorow are behind us now

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 2nd Sep 2005 09:27

Link

I was bored so I made this for you. This loads a text file (as Robot suggested). The text file (example attached) should consist of a date and a word for that day "09/01/05 Playstation". Only use one line per word. I made a lot of rem statements but if you have questions just ask. Just don't tell your teacher you did it yourself... direct him/her to here... convince him/her to order lots of Darkbasic Pro CD's for your school.

` Make Word$ = whatever comes out of the function TodaysWord()
Word$=TodaysWord()
ink rgb(0,255,0),0
print "Word Of The Day = ";
ink rgb(0,150,0),0
print Word$
print ""
ink rgb(150,150,150),0
print "< PRESS ANY KEY >"
suspend for key

` Get the word of the day
function TodaysWord()
 ` Get the current date
 d$=get date$()
 ` Check to see if hangman.txt exists... if not print an error
 if file exist("hangman.txt")=0
  ink rgb(255,0,0),0
  print "Error: ";
  ink rgb(150,0,0),0
  print "Hangman.txt not found."
  print ""
  ink rgb(150,150,150),0
  print "< PRESS ANY KEY >"
  suspend for key
  end
 endif
 
 ` Open the file hangman.txt
 open to read 1,"hangman.txt"
 do
  ` If the end of the file is reached print an error
  if file end(1)
   ink rgb(255,0,0),0
   print "Error: ";
   ink rgb(150,0,0),0
   print "Word of the day not found."
   print ""
   ink rgb(150,150,150),0
   print "< PRESS ANY KEY >"
   suspend for key
   end
  endif
  ` Read a line in hangman.txt
  read string 1,a$
  
  ` Check the left side of the string to see if the
  ` current date ( d$ ) matches the date in the first
  ` 8 letters of a$.
  if left$(a$,8)=d$
   ` If it is the same make a$ = everything but the
   ` first 9 letters of a$ (the date and the space)
   a$=right$(a$,len(a$)-9)
   close file 1
   ` Leave the function with a$.  This makes a$
   ` available outside of this function
   exitfunction a$
  endif
 loop

endfunction a$

+ Code Snippet

` Make Word$ = whatever comes out of the function TodaysWord()
Word$=TodaysWord()
ink rgb(0,255,0),0
print "Word Of The Day = ";
ink rgb(0,150,0),0
print Word$
print ""
ink rgb(150,150,150),0
print "< PRESS ANY KEY >"
suspend for key

` Get the word of the day
function TodaysWord()
 ` Get the current date
 d$=get date$()
 ` Check to see if hangman.txt exists... if not print an error
 if file exist("hangman.txt")=0
  ink rgb(255,0,0),0
  print "Error: ";
  ink rgb(150,0,0),0
  print "Hangman.txt not found."
  print ""
  ink rgb(150,150,150),0
  print "< PRESS ANY KEY >"
  suspend for key
  end
 endif
 
 ` Open the file hangman.txt
 open to read 1,"hangman.txt"
 do
  ` If the end of the file is reached print an error
  if file end(1)
   ink rgb(255,0,0),0
   print "Error: ";
   ink rgb(150,0,0),0
   print "Word of the day not found."
   print ""
   ink rgb(150,150,150),0
   print "< PRESS ANY KEY >"
   suspend for key
   end
  endif
  ` Read a line in hangman.txt
  read string 1,a$
  
  ` Check the left side of the string to see if the
  ` current date ( d$ ) matches the date in the first
  ` 8 letters of a$.
  if left$(a$,8)=d$
   ` If it is the same make a$ = everything but the
   ` first 9 letters of a$ (the date and the space)
   a$=right$(a$,len(a$)-9)
   close file 1
   ` Leave the function with a$.  This makes a$
   ` available outside of this function
   exitfunction a$
  endif
 loop

endfunction a$

Attachments

Login to view attachments

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Hangman Problem

Attachments