Scratch

Try this:

when gf clicked
ask [Player 1: type in a word and don't let player 2 see!] and wait
set [secret word v] to (answer)
set [count v] to [0]
repeat (length of (secret word))
 change [count v] by (1)
 add (letter (count) of (secret word)) to [secret word list v]
end
repeat (allowed guesses)
 ask [Player 2: Try to guess player 1's word] and wait
 set [guess v] to (answer)
 if <(guess) = (secret word)>
  say [Well done! You guessed the word!] for (2) secs
  stop script
 end
 set [count v] to [0]
 set [correct letters v] to [0]
 repeat (length of (guess))
  change [count v] by (1)
  if <[secret word list v] contains (letter (count) of (guess))>
   change [correct letters v] by (1)
  end
 end
 say (join (join [You got ](correct letters))[ right!]) for (2) secs
end
say (join (join [Too bad! You have run out of guesses. The word was ](secret word))[.])

Last edited by joefarebrother (2012-01-29 05:15:33)

aryabtsev wrote:

You don't have to use lists for that. I would do it like this.

set [correct letters v] to (0)
set [current letter v] to (1)
repeat (length of (original word))
if <(letter (current letter) of (guess)) = (letter (current letter) of (original word))>
change [correct letters v] by (1)
end
change [current letter v] by (1)
end

Don't people read the date? It expired 2 months ago.