Sorry your browser is not supported!

REMSTART
--------  Title:  Hangman
--------  Author: xxxxx xxxxxx
--------  Date: October 7/2005
REMEND
DIM Category$(3,5)
`declare Insect category
Category$(1,1)="Butterfly"
Category$(1,2)="Roach"
Category$(1,3)="Grasshopper"
Category$(1,4)="Centipede"
Category$(1,5)="Dragonfly"
`declare Name category
Category$(2,1)="Nigel"
Category$(2,2)="Lawrence"
Category$(2,3)="Sabrina"
Category$(2,4)="Nadine"
Category$(2,5)="Natalie"
`declare Color category
Category$(3,1)="Indigo"
Category$(3,2)="Violet"
Category$(3,3)="Beige"
Category$(3,4)="Yellow"
Category$(3,5)="Orange"

`not sure why I declares these next two things, but I think I need to
`this is for the categories
for c=1 to 3
`this is for the word
for w=1 to 5

CLS 0
Do
  Input "Enter A Letter: ";Guess$
  Guess$ = Upper$(Guess$)
  NotUsed = 0
  For N=1 To Len(Category$)
    If Mid$(Category$,N) = Guess$
      Alphabet$ = Left$(Category$,N-1)+Right$(Category$,Len(Category$)-N)
      `Print "Category$: ";Category$
      `Print
      NotUsed = 1
      Exit
    Endif
  Next N
  If NotUsed = 0
    Print "Already Tried That Letter!"
    Print
  Endif
Loop

Print "1. Insects"
Print "2. Names"
Print "3. Colours"

Input "Please Choose A Category (1, 2 or 3)"
Repeat
 I$=Inkey$()
 CatNum=Val(I$)
Until CatNum>0 and CatNum<4

Randomize Timer()
CurrentWord$=Category$(CatNum,Rnd(5)+1)

`prints how many unknown spaces there are in the word
print "Number of available spaces: " Len(CurrentWord$)
Dec Len(CurrentWord$,len()

WLen=Len(CurrentWord$)
GuessWord$=""
For N=1 To WLen
  GuessWord$=GuessWord$+"*"
Next N

Unknown=0
For N=1 To WLen
  If Mid$(GuessWord$,N)="*" Then Inc Unknown
Next N

REMSTART
--------  Title:  Hangman
--------  Author: Nigel Harden
--------  Date: October 7/2005
REMEND

`declare the category and word array
DIM Category$(3,5)
`declare Insect category
Category$(1,1)="Butterfly"
Category$(1,2)="Roach"
Category$(1,3)="Grasshopper"
Category$(1,4)="Centipede"
Category$(1,5)="Dragonfly"
`declare Name category
Category$(2,1)="Nigel"
Category$(2,2)="Lawrence"
Category$(2,3)="Sabrina"
Category$(2,4)="Kylend"
Category$(2,5)="Gabriel"
`declare Color category
Category$(3,1)="Indigo"
Category$(3,2)="Violet"
Category$(3,3)="Beige"
Category$(3,4)="Yellow"
Category$(3,5)="Orange"
`let user choose category
print "Categories"
print
Print "1. Insects"
Print "2. Names"
Print "3. Colors"
Print
Print
`lets user choose category
Input "Please Choose A Category (1, 2 or 3)";I$
Repeat
 I$=Inkey$()
 CatNum=Val(I$)
Until CatNum>0 and CatNum<4
`sets the category name to print on the screen
Category = 0
If Val(I$) = 1 then Category = Insects
If Val(I$) = 2 then Category = Names
If Val(I$) = 3 then Category = Colors
`chooses random word from selected category
Randomize Timer()
CurrentWord$=Category$(CatNum,Rnd(5)+1)
CLS
`start the main loop
Alphabet$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Do
  Input Guess$
  Guess$ = Upper$(Guess$)
  NotUsed = 0
  For N=1 To Len(CurrentWord$)
    If Mid$(Category$,N) = Guess$
      Alphabet$ = Left$(Category$,N-1)+Right$(Category$,Len(Category$)-N)
      Print "Alphabet$: ";Alphabet$
      Print
      NotUsed = 1
      Exit
    Endif
  Next N
  If NotUsed = 0
    Print "Already Tried That Letter!"
    Print
  Endif
`lets user see how many spaces are in the word with an '*'
WLen=Len(CurrentWord$)
GuessWord$=""
For N=1 To WLen
  GuessWord$=GuessWord$+"*"
Next N
`check for the unknown
Unknown=0
For N=1 To WLen
  If Mid$(GuessWord$,N)="*" Then Inc Unknown
Next N
`displays the current category
text 450,420, str$(Category)
`displays the unknown word
text 450,410,"GuessWord"

Loop