Brand New to DBPro - GameCreators Forum

Author

Message

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 12:06

Link

Ok, I just started doing DBPro projects. I realize that most of the stuff in here is a little over my head at the moment.

I'm trying to make a Hangman game and need a little help!

After I try to compile this code, it says 'Could not close nest at line...' I've been having a lot of problems trying to get the text spacing part to work correctly...

Any help would be greatly appreciated!

Thanks!

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function 5pz1(a$)
   if lw = 5
      text 250,370,a$
   else
   if lw = 4
      text 250,370,a$
   else
   if lw = 3
      text 300,370,a$
   endif
   endif
   endif
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function 5pz1(a$)
   if lw = 5
      text 250,370,a$
   else
   if lw = 4
      text 250,370,a$
   else
   if lw = 3
      text 300,370,a$
   endif
   endif
   endif
endfunction

I know it's not complete, and I really need help trying to get the spacing to work... I think I might need to add a variable some where, that way I can increase the text placement by 50 (ie 'text 300,370,a$' I would need to increase 300 by 50 to make it fit)

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 12:42

Link

Ok, disregard the first post (It won't let me edit my post)
I got the 'nest' problem fixed, now I just have a few more questions...

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      q = 250
      text q,370,a$
   else
   if lw = 4
      q = 260
      text q,370,a$
   else
   if lw = 3
      q = 300
      text q,370,a$
   endif
   endif
   endif
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      q = 250
      text q,370,a$
   else
   if lw = 4
      q = 260
      text q,370,a$
   else
   if lw = 3
      q = 300
      text q,370,a$
   endif
   endif
   endif
endfunction

I know it's not complete, I just need some help trying to get the some things to work... I also can't get the letters to show up, but I think I know what I did wrong.

Also, is there a way that only lowercase and uppercase letters can be used? And it will take both uppercase and lowercase as correct?

Any help would be greatly appreciated!

Thanks!

Sorry for being n00bish

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 12:59

Link

Ok, I just started doing a few DBPro projects. I realize that most of the stuff in here is a little over my head at the moment.

I\'m trying to make a Hangman game and need a little help!
I need to figure out a way that if a user enters a letter in any case, it will be correct. Also, if possible, I need to get a way that only letters can be inputed.

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

Rem allows user to quit by typing \'quit\'
quit()

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = \"dog\"
word$(1) = \"leg\"
word$(2) = \"zen\"
word$(3) = \"foe\"
word$(4) = \"dove\"
word$(5) = \"deer\"
word$(6) = \"wolf\"
word$(7) = \"logo\"
word$(8) = \"hall\"
word$(9) = \"block\"
word$(10) = \"fable\"
word$(11) = \"feint\"
word$(12) = \"bogie\"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input \"Guess \", guess$

rem Allows user to quit
while guess$ <> \"quit\"
found$ = \"no\"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  endif
  endif
  endif
  endif
  endif
next c

if found$= \"no\" and error = 1
     head()
     error = error + 1
  else
if found$= \"no\" and error = 2
     body()
     error = error + 1
  else
if found$= \"no\" and error = 3
     lleg()
     error = error + 1
  else
if found$= \"no\" and error = 4
     rarm()
     error = error + 1
  else
if found$= \"no\" and error = 5
     larm()
     error = error + 1
  else
if found$= \"no\" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),\"YOU WIN!!!\"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),\"YOU LOSE!!! Your word was \" +oword$+ \".\"
  next c
  goto SOP
endif

Input \"Guess \", guess$
endwhile
end

function title()
  set text font \"Chiller\"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, \"Welcome to Hangman\"
  ink rgb (187,187,187),1
  text 202,102, \"Welcome to Hangman\"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      q = 250
      text q,370,a$
   else
   if lw = 4
      q = 260
      text q,370,a$
   else
   if lw = 3
      q = 300
      text q,370,a$
   endif
   endif
   endif
endfunction

function quit()
   set text size 12
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,0, \"If you need to quit please\"
   text 240,15, \"type \'quit\'\"
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

Rem allows user to quit by typing \'quit\'
quit()

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1


error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = \"dog\"
word$(1) = \"leg\"
word$(2) = \"zen\"
word$(3) = \"foe\"
word$(4) = \"dove\"
word$(5) = \"deer\"
word$(6) = \"wolf\"
word$(7) = \"logo\"
word$(8) = \"hall\"
word$(9) = \"block\"
word$(10) = \"fable\"
word$(11) = \"feint\"
word$(12) = \"bogie\"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input \"Guess \", guess$

rem Allows user to quit
while guess$ <> \"quit\"
found$ = \"no\"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     q = q + 50
     usedlet = usedlet + 1
     found$ = \"yes\"
  endif
  endif
  endif
  endif
  endif
next c

if found$= \"no\" and error = 1
     head()
     error = error + 1
  else
if found$= \"no\" and error = 2
     body()
     error = error + 1
  else
if found$= \"no\" and error = 3
     lleg()
     error = error + 1
  else
if found$= \"no\" and error = 4
     rarm()
     error = error + 1
  else
if found$= \"no\" and error = 5
     larm()
     error = error + 1
  else
if found$= \"no\" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),\"YOU WIN!!!\"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),\"YOU LOSE!!! Your word was \" +oword$+ \".\"
  next c
  goto SOP
endif

Input \"Guess \", guess$
endwhile
end

function title()
  set text font \"Chiller\"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, \"Welcome to Hangman\"
  ink rgb (187,187,187),1
  text 202,102, \"Welcome to Hangman\"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      q = 250
      text q,370,a$
   else
   if lw = 4
      q = 260
      text q,370,a$
   else
   if lw = 3
      q = 300
      text q,370,a$
   endif
   endif
   endif
endfunction

function quit()
   set text size 12
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,0, \"If you need to quit please\"
   text 240,15, \"type \'quit\'\"
endfunction

I also realize that when you enter a letter in, it does not show up... I\'m working on fixing that right now.

Any help would be greatly appreciated!

Thanks!

Back to top

Profile PM Email

Veron

17

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 30th Apr 2007 13:03 Edited at: 30th Apr 2007 13:05

Link

Add an extra ENDIF command at line 55, so your code would be:

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
       else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function 5pz1(a$)
   if lw = 5
      text 250,370,a$
   else
   if lw = 4
      text 250,370,a$
   else
   if lw = 3
      text 300,370,a$
   endif
   endif
   endif
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
       else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function 5pz1(a$)
   if lw = 5
      text 250,370,a$
   else
   if lw = 4
      text 250,370,a$
   else
   if lw = 3
      text 300,370,a$
   endif
   endif
   endif
endfunction

May I say, that's fairly good for your first program!

Back to top

Profile PM

Scorpyo

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: italy

Posted: 30th Apr 2007 13:10

Link

ooppps...i was just modifying it this way

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  endif
  if lw = 4
     fourspace()
  endif
  if lw = 5
     fivespace()
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 2
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 3
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 4
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 5
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  endif
if found$= "no" and error = 2
     body()
     error = error + 1
  endif
if found$= "no" and error = 3
     lleg()
     error = error + 1
  endif
if found$= "no" and error = 4
     rarm()
     error = error + 1
  endif
if found$= "no" and error = 5
     larm()
     error = error + 1
  endif
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function a5pz1(a$)
   if lw = 5
      text 250,370,a$
  endif
   if lw = 4
      text 250,370,a$
  endif
   if lw = 3
      text 300,370,a$
   endif
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  endif
  if lw = 4
     fourspace()
  endif
  if lw = 5
     fivespace()
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

while guess$ <> "qq"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 2
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 3
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 4
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  if guess$= word$(c) and c = 5
     a5pz1(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  endif
if found$= "no" and error = 2
     body()
     error = error + 1
  endif
if found$= "no" and error = 3
     lleg()
     error = error + 1
  endif
if found$= "no" and error = 4
     rarm()
     error = error + 1
  endif
if found$= "no" and error = 5
     larm()
     error = error + 1
  endif
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function a5pz1(a$)
   if lw = 5
      text 250,370,a$
  endif
   if lw = 4
      text 250,370,a$
  endif
   if lw = 3
      text 300,370,a$
   endif
endfunction

nevermind

Back to top

Profile PM

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 13:27

Link

Wow... sorry for the triple post... it isn't letting me edit my post since I'm new... Anyways

Thanks for the quick replies!

Here is my updated code:

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls
Set Display Mode 800,600,16

Rem Tells the user they can quit by typing 'quit'
quit()
Sleep 2000
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem Allows user to quit
while guess$ <> "quit"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      x = 250
      text x,370,a$
   else
   if lw = 4
      x = 260
      text x,370,a$
   else
   if lw = 3
      x = 300
      text x,370,a$
   endif
   endif
   endif
endfunction

function quit()
   set text size 42
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,100, "If you need to quit at any time "
   text 270,135, "just type 'quit'"
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

SOP:
cls
Set Display Mode 800,600,16

Rem Tells the user they can quit by typing 'quit'
quit()
Sleep 2000
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1


error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)
print oword$

rem Gives the length of the word
lw = len(oword$)


rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem Allows user to quit
while guess$ <> "quit"
found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(a$)
   if lw = 5
      x = 250
      text x,370,a$
   else
   if lw = 4
      x = 260
      text x,370,a$
   else
   if lw = 3
      x = 300
      text x,370,a$
   endif
   endif
   endif
endfunction

function quit()
   set text size 42
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,100, "If you need to quit at any time "
   text 270,135, "just type 'quit'"
endfunction

Now I'm just trying to make it so only letters can be inputed, and will be accepted as either uppercase and lowercase.

Any suggestions?

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 14:19

Link

Hmmm... I still have to wait forever to post!!! LOL... Hopefully this won't last too much longer.

Here is the updated code... again:

REM Project: Hangman
REM ***** Main Source File *****

cls
Set Display Mode 800,600,16
Rem Tells the user they can quit by typing 'quit'
quit()
Sleep 2000

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem CHEAT!!!
if guess$ = "cheat"
   text 100,400, oword$
   error = 5
   head()
   body()
   lleg()
   rleg()
   rarm()
   larm()
endif

rem Allows user to quit
while guess$ <> "quit"

found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     set text size rnd(42)
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction

function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(guess$)
   if lw = 5
      x = 250
      text x,370,guess$
   else
   if lw = 4
      x = 260
      text x,370,guess$
   else
   if lw = 3
      x = 300
      text x,370,guess$
   endif
   endif
   endif
endfunction

function quit()
   set text size 42
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,100, "If you need to quit at any time "
   text 270,135, "just type 'quit'"
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

cls
Set Display Mode 800,600,16
Rem Tells the user they can quit by typing 'quit'
quit()
Sleep 2000

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1


error = 1
usedlet = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "dog"
word$(1) = "leg"
word$(2) = "zen"
word$(3) = "foe"
word$(4) = "dove"
word$(5) = "deer"
word$(6) = "wolf"
word$(7) = "logo"
word$(8) = "hall"
word$(9) = "block"
word$(10) = "fable"
word$(11) = "feint"
word$(12) = "bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Displays the word
oword$ = word$(num)

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(oword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem CHEAT!!!
if guess$ = "cheat"
   text 100,400, oword$
   error = 5
   head()
   body()
   lleg()
   rleg()
   rarm()
   larm()
endif

rem Allows user to quit
while guess$ <> "quit"

found$ = "no"

rem Validation of guessing
for c = 1 to lw
  if guess$= word$(c) and c = 1
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     pz(guess$)
     x = x + 50
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet
  sleep 1500
  cls
  for c = 1 to 30
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU WIN!!!"
  next c
  goto SOP
endif

if error = 7
  sleep 500
  cls
  for c = 1 to 30
     set text size rnd(42)
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOSE!!! Your word was " +oword$+ "."
  next c
  goto SOP
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
  line 240,400,265,400
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
  line 440,400,465,400
endfunction


function fourspace()
  line 250,400,275,400
  line 300,400,325,400
  line 350,400,375,400
  line 400,400,425,400
endfunction

function threespace()
  line 290,400,315,400
  line 340,400,365,400
  line 390,400,415,400
endfunction

Rem Letter positioning

function pz(guess$)
   if lw = 5
      x = 250
      text x,370,guess$
   else
   if lw = 4
      x = 260
      text x,370,guess$
   else
   if lw = 3
      x = 300
      text x,370,guess$
   endif
   endif
   endif
endfunction

function quit()
   set text size 42
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   text 220,100, "If you need to quit at any time "
   text 270,135, "just type 'quit'"
endfunction

And, I added a cheat function!

+ Code Snippet

rem CHEAT!!!
if guess$ = "cheat"
   text 100,400, oword$
   error = 5
   head()
   body()
   lleg()
   rleg()
   rarm()
   larm()
endif

Sorry for the awkwardly long period between posting!

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 16:20

Link

I'm still having trouble getting the letters that are inputed to even show up! I've tried everything I could think of so far and still nothing... If anyone could throw a pointer my way that would be great.

Also, I'm stuck when it comes to letters (in any case) to be inputed... I prolly need to add a few lines of code somewhere, but I haven't the slightest on where they should go.

Thanks again!

--------------------------------------------------------------------

Quote: "
May I say, that's fairly good for your first program!

"

Thanks Veron

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 30th Apr 2007 17:28 Edited at: 30th Apr 2007 17:29

Link

As you would expect, this subject has been covered extensively before, so all you need to do is use the search option at the bottom of each board.

Not only is it quicker for you to get the answers you need, it saves us typing the same answers over and over and over again.

Typing 'Hangman' into the search on just one board gives the links to the following threads (amongst others):

http://forum.thegamecreators.com/?m=forum_view&t=58731&b=7

http://forum.thegamecreators.com/?m=forum_view&t=62649&b=7

http://forum.thegamecreators.com/?m=forum_view&t=67225&b=7

http://forum.thegamecreators.com/?m=forum_view&t=70014&b=7

http://forum.thegamecreators.com/?m=forum_view&t=94401&b=7

If you are then still stuck on something then by all means come back, ask and we'll try and help.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 18:01

Link

Thanks TDK! I did search for that, but still had a few questions (at the beginning of the thread) that I wasn't to sure about...

I'm just trying to do this code a bit too different I guess... also, I realized that the function

+ Code Snippet

function sp(a$)
   if lw = 5
      x = 250
      text x,370,a$
   else
   if lw = 4
      x = 260
      text x,370,a$
   else
   if lw = 3
      x = 300
      text x,370,a$
   endif
   endif
   endif
endfunction

is in the wrong structure because it really isn't doing what I designed it do here

+ Code Snippet

for c = 1 to lw
  if guess$ = "cheat"
     text 100,400, oword$
     error = 5
     head()
     body()
     lleg()
     rleg()
     rarm()
     larm()
  else
  if guess$= word$(c) and c = 1
     sp(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 2
     sp(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 3
     sp(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 4
     sp(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  else
  if guess$= word$(c) and c = 5
     sp(guess$)
     usedlet = usedlet + 1
     found$ = "yes"
  endif
  endif
  endif
  endif
  endif
  endif
next c

which would be to first show the inputed letter at the first place... Which I now see would make NO sense. there fore I might revert back to something else, in turn making it a bit too long for my confort

+ Code Snippet

function 5pz1(a$)
  text 245,370,a$
endfunction

function 5pz2(a$)
  text 300,370,a$
endfunction

function 5pz3(a$)
  text 350,370,a$
endfunction

function 5pz4(a$)
  text 400,370,a$
endfunction

function 5pz5(a$)
  text 450,370,a$
endfunction

function 4pz1
 text 250,370,a$
endfunction

function 4pz2
 text 305,370,a$
endfunction

function 4pz3
 text 355,370,a$
endfunction

function 4pz4
 text 455,370,a$
endfunction


function 3pz1(a$)
  text 300,370,a$
endfunction

function 3pz2(a$)
  text 350,370,a$
endfunction

function 3pz3(a$)
  text 400,370,a$
endfunction

I just need to figure out a way to call them up without lengthening the second snippet there

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 30th Apr 2007 19:53

Link

Sorry... just realized I messed up on the second snippet anyways...
Should look like this:

+ Code Snippet

function 5pz1(a$)
  text 245,370,a$
endfunction

function 5pz2(a$)
  text 300,370,a$
endfunction

function 5pz3(a$)
  text 350,370,a$
endfunction

function 5pz4(a$)
  text 400,370,a$
endfunction

function 5pz5(a$)
  text 450,370,a$
endfunction

function 4pz1(a$)
 text 250,370,a$
endfunction

function 4pz2(a$)
 text 305,370,a$
endfunction

function 4pz3(a$)
 text 355,370,a$
endfunction

function 4pz4(a$)
 text 455,370,a$
endfunction


function 3pz1(a$)
  text 300,370,a$
endfunction

function 3pz2(a$)
  text 350,370,a$
endfunction

function 3pz3(a$)
  text 400,370,a$
endfunction

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 1st May 2007 02:53

Link

That really does seem a very long-winded way to do it!

As I explained in a couple of the other hangman threads:

1. Choose your word (Eg: Banana)

2. Put it into a string variable (Eg: ChosenWord$)

3. Make a copy of it (Eg; UserWord$)

4. Replace all the letters of the stored word with asterisks (becomes ******)

5. Set the font and text size then use Center Text X,Y,UserWord$ to print it on the screen.

When a user guesses a letter, modify UserWord$ by swapping out the asterisks for their corresponding letters. When you print the word again, only the letters not chosen appear as asterisks.

When UserWord$ equals ChosenWord$ then the user has guessed it and game is over.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 3rd May 2007 09:40

Link

Thanks again!

I had another question as well.
Is there any reason that this doesn't work?

+ Code Snippet

   x = 240
   y = 400
   X = 265
   line (x),(y),(X),(y)
   line (x) + 50, (y), X + 50, (y)
   line (x) + 50, (y), X + 50, (y)
   line (x) + 50, (y), X + 50, (y)
   line (x) + 50, (y), X + 50, (y)

--------------------or------------------

   x = 240
   y = 400
   X = 265
   line x,y,X,y
   line x + 50, y, X + 50, y
   line x + 50, y, X + 50, y
   line x + 50, y, X + 50, y
   line x + 50, y, X + 50, y

I thought that it should, but I must be doing something wrong...

I was just trying something for a different line spacing for words.

Thanks again

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 3rd May 2007 10:34

Link

@TDK
Out of curiosity, 'ChosenWord$' would be 'word$' and 'UserWord$' would be 'oword$' in my code, right?

Back to top

Profile PM Email

xCirusX

17

Years of Service

User Offline

Joined: 24th Jan 2007

Location: 42

Posted: 3rd May 2007 12:53

Link

Awesome... here is my code so far:

REM Project: Hangman
REM ***** Main Source File *****

cls
Set Display Mode 800,600,16
Rem Tells the user they can quit by typing 'quit'
info()

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

rem Reset variables
error = 1
usedlet = 0
cheat = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "Dog"
word$(1) = "Leg"
word$(2) = "Zen"
word$(3) = "Foe"
word$(4) = "Dove"
word$(5) = "Deer"
word$(6) = "Wolf"
word$(7) = "Lock"
word$(8) = "Hall"
word$(9) = "Block"
word$(10) = "Fable"
word$(11) = "Feint"
word$(12) = "Bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Stores the selected as 'oword$'
oword$ = word$(num)
tword$ = lower$(oword$)

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

rem sets array

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(tword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem Allows user to quit
while guess$ <> "quit"

found$ = "no"

rem Validation of guessing
for c = 1 to lw
rem Forces guess$ to be lowercase
guess$ = lower$(guess$)
rem CHEAT!!!!!!!
  if guess$ = "it"
     cheat =1
     text 100,400, oword$
     error = 5
     head()
     body()
     lleg()
     rleg()
     rarm()
     larm()
  else
  if guess$ = word$(c) and c = 1
         Rem Letter positioning
         if lw = 3
            text 300, 370, Upper$(guess$)
         else
            if lw = 4
               text 260, 370, Upper$(guess$)
            else
               if lw = 5
                  text 250, 370, Upper$(guess$)
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 2
         Rem Letter positioning
         if lw = 3
           text 350, 370, guess$
         else
            if lw = 4
               text 310, 370, guess$
            else
               if lw = 5
                  text 300, 370, guess$
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 3
         Rem Letter positioning
         if lw = 3
            text 400, 370, guess$
         else
            if lw = 4
               text 360, 370, guess$
            else
               if lw = 5
                  text 350, 370, guess$
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 4
         Rem Letter positioning
         if lw = 4
            text 410, 370, guess$
         else
             if lw = 5
                text 400, 370, guess$
             endif
          endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 5
      Rem Letter positioning
      text 440, 370, guess$
      inc usedlet
      found$ = "yes"
  endif
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif

if lw = usedlet and cheat = 0
  sleep 1500
  cls
  for c = 1 to 15
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text 300, 200, "WINNER!!!"
     text 240, 250, "The word was " +oword$+ "."
  next c
  goto SOP
  else
      if lw = usedlet and cheat = 1
         sleep 1500
         cls
         for C = 1 to 15
             ink rgb(rnd(255),rnd(255),rnd(255)),0
             sleep 200
             text rnd(600),rnd(400),"CHEATER!!!"
         next C
  goto SOP
  endif
endif

if error = 7 and cheat = 0
  sleep 500
  cls
  for c = 1 to 15
     set text size rnd(42)
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOST!!! The word was " +oword$+ "."
  next c
  goto SOP
  else
      if error = 7 and cheat = 1
        sleep 500
        cls
           for C = 1 to 15
              set text size 42
              ink rgb(rnd(255),rnd(255),rnd(255)),0
              sleep 200
              text 400, 300, "How could you lose??!??"
           next C
  goto SOP
  endif
endif

Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
   line 240, 400, 265, 400
   line 290, 400, 315, 400
   line 340, 400, 365, 400
   line 390, 400, 415, 400
   line 440, 400, 465, 400
endfunction

function fourspace()
   line 255, 400, 280, 400
   line 305, 400, 330, 400
   line 355, 400, 380, 400
   line 405, 400, 430, 400
endfunction

function threespace()
   line 290, 400, 315, 400
   line 345, 400, 370, 400
   line 395, 400, 420, 400
endfunction

function info()
   hide mouse
   randomize timer()
   set text size 36
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 100, "This is a classic version of Hangman"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 150, "The rules are simple:"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 200, "1: You can guess any letter in either"
   Center text 400, 230, "lowercase or uppercase"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 280, "2: When all of the body parts are shown..."
   Center text 400, 310, "GAME OVER!"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 360, "3: If you need to quit at any time "
   Center text 400, 390, "just type 'quit'"
   ink rgb (255, 255, 255),0
   set text size 25
   text 50, 450, "Press the any key"
   set text size 10
   ink rgb (87,87,87), 0
   text 50, 500, "To cheat  t y pe, t y pe it"
   wait key
endfunction

+ Code Snippet

REM Project: Hangman
REM ***** Main Source File *****

cls
Set Display Mode 800,600,16
Rem Tells the user they can quit by typing 'quit'
info()

SOP:
cls

rem Displays the Title and the Gallows
title()
ink rgb (187,0,245),1
gallows()
ink rgb (0,187,245),1

rem Reset variables
error = 1
usedlet = 0
cheat = 0

rem Creates an array of 3/4/5 letter words
dim word$(12)
word$(0) = "Dog"
word$(1) = "Leg"
word$(2) = "Zen"
word$(3) = "Foe"
word$(4) = "Dove"
word$(5) = "Deer"
word$(6) = "Wolf"
word$(7) = "Lock"
word$(8) = "Hall"
word$(9) = "Block"
word$(10) = "Fable"
word$(11) = "Feint"
word$(12) = "Bogie"

Rem Randomizes the number being chosen, which represents the words
randomize timer()
num = rnd(12)

rem Stores the selected as 'oword$'
oword$ = word$(num)
tword$ = lower$(oword$)

rem Gives the length of the word
lw = len(oword$)

rem Puts the right amount of spaces under the graphic
  if lw = 3
     threespace()
  else
  if lw = 4
     fourspace()
  else
  if lw = 5
     fivespace()
  endif
  endif
  endif

rem sets array

dim word$(lw)
for c = 1 to lw
  word$(c) = mid$(tword$,c)
next c

rem Receive input form player
Input "Guess ", guess$

rem Allows user to quit
while guess$ <> "quit"

found$ = "no"


rem Validation of guessing
for c = 1 to lw
rem Forces guess$ to be lowercase
guess$ = lower$(guess$)
rem CHEAT!!!!!!!
  if guess$ = "it"
     cheat =1
     text 100,400, oword$
     error = 5
     head()
     body()
     lleg()
     rleg()
     rarm()
     larm()
  else
  if guess$ = word$(c) and c = 1
         Rem Letter positioning
         if lw = 3
            text 300, 370, Upper$(guess$)
         else
            if lw = 4
               text 260, 370, Upper$(guess$)
            else
               if lw = 5
                  text 250, 370, Upper$(guess$)
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 2
         Rem Letter positioning
         if lw = 3
           text 350, 370, guess$
         else
            if lw = 4
               text 310, 370, guess$
            else
               if lw = 5
                  text 300, 370, guess$
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 3
         Rem Letter positioning
         if lw = 3
            text 400, 370, guess$
         else
            if lw = 4
               text 360, 370, guess$
            else
               if lw = 5
                  text 350, 370, guess$
               endif
            endif
         endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 4
         Rem Letter positioning
         if lw = 4
            text 410, 370, guess$
         else
             if lw = 5
                text 400, 370, guess$
             endif
          endif
     inc usedlet
     found$ = "yes"
  else
  if guess$ = word$(c) and c = 5
      Rem Letter positioning
      text 440, 370, guess$
      inc usedlet
      found$ = "yes"
  endif
  endif
  endif
  endif
  endif
  endif
next c

if found$= "no" and error = 1
     head()
     error = error + 1
  else
if found$= "no" and error = 2
     body()
     error = error + 1
  else
if found$= "no" and error = 3
     lleg()
     error = error + 1
  else
if found$= "no" and error = 4
     rarm()
     error = error + 1
  else
if found$= "no" and error = 5
     larm()
     error = error + 1
  else
if found$= "no" and error = 6
     rleg()
     error = error + 1
  endif
  endif
  endif
  endif
  endif
  endif


if lw = usedlet and cheat = 0
  sleep 1500
  cls
  for c = 1 to 15
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text 300, 200, "WINNER!!!"
     text 240, 250, "The word was " +oword$+ "."
  next c
  goto SOP
  else
      if lw = usedlet and cheat = 1
         sleep 1500
         cls
         for C = 1 to 15
             ink rgb(rnd(255),rnd(255),rnd(255)),0
             sleep 200
             text rnd(600),rnd(400),"CHEATER!!!"
         next C
  goto SOP
  endif
endif

if error = 7 and cheat = 0
  sleep 500
  cls
  for c = 1 to 15
     set text size rnd(42)
     ink rgb(rnd(255),rnd(255),rnd(255)),0
     sleep 200
     text rnd(600),rnd(400),"YOU LOST!!! The word was " +oword$+ "."
  next c
  goto SOP
  else
      if error = 7 and cheat = 1
        sleep 500
        cls
           for C = 1 to 15
              set text size 42
              ink rgb(rnd(255),rnd(255),rnd(255)),0
              sleep 200
              text 400, 300, "How could you lose??!??"
           next C
  goto SOP
  endif
endif


Input "Guess ", guess$
endwhile
end

function title()
  set text font "Chiller"
  set text size 36
  ink rgb (255,0,0),1
  text 200,100, "Welcome to Hangman"
  ink rgb (187,187,187),1
  text 202,102, "Welcome to Hangman"
endfunction

function Gallows()
  line 285,150,400,150
  line 400,150,400,350
  line 325,350,450,350
  line 285,150,285,175
endfunction

function head()
  circle 285,190,15
endfunction

function body()
  line 285,205,285,260
endfunction

function rleg()
  line 285,260,265,275
endfunction

function lleg()
  line 285,260,305,275
endfunction

function rarm()
  line 285,210,265,225
endfunction

function larm()
  line 285,210,305,225
endfunction

function fivespace()
   line 240, 400, 265, 400
   line 290, 400, 315, 400
   line 340, 400, 365, 400
   line 390, 400, 415, 400
   line 440, 400, 465, 400
endfunction


function fourspace()
   line 255, 400, 280, 400
   line 305, 400, 330, 400
   line 355, 400, 380, 400
   line 405, 400, 430, 400
endfunction

function threespace()
   line 290, 400, 315, 400
   line 345, 400, 370, 400
   line 395, 400, 420, 400
endfunction

function info()
   hide mouse
   randomize timer()
   set text size 36
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 100, "This is a classic version of Hangman"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 150, "The rules are simple:"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 200, "1: You can guess any letter in either"
   Center text 400, 230, "lowercase or uppercase"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 280, "2: When all of the body parts are shown..."
   Center text 400, 310, "GAME OVER!"
   ink rgb(rnd(255),rnd(255),rnd(255)),0
   Center text 400, 360, "3: If you need to quit at any time "
   Center text 400, 390, "just type 'quit'"
   ink rgb (255, 255, 255),0
   set text size 25
   text 50, 450, "Press the any key"
   set text size 10
   ink rgb (87,87,87), 0
   text 50, 500, "To cheat  t y pe, t y pe it"
   wait key
endfunction

Now I just need to work on a way to take out the inputed letters.

+ Code Snippet

rem Make a string for (upper/lower) case letters
alpha$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

alpha$ = Left$(tword$, c-1) + Right$(tword$, len(tword$)-c)

I think that should work, I just don't know the reight area to put it... I think it should be under this:

+ Code Snippet

     if lw = usedlet and cheat = 1

Thanks again!

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Brand New to DBPro