//Hangman

main(){
int cnt1;
int cnt2;
int cnt3;
int done;
int state[15];
string words[50];
int intgr;
string guess;
string guesses[8];
string word;
int max;
clear();
puts("loading...");
mmfind("Hangman Words");
for(cnt1=0;mmeof()==0;cnt1++){
  words[cnt1] = mmgetl();
}
max=cnt1;
for(cnt1=0;cnt1<=14; cnt1++){
state[cnt1]=0;
}
clear();
word=words[random(max)];
for (cnt2=0; cnt2<7; ){
clear();
done=-1;
for (cnt1=0; cnt1<strlen(word); cnt1++){
  if (state[cnt1]==0){
    if(word[cnt1]==' ')puts("  ");else puts("_ ");
    done=0;
  }
  else{
    puts(substr(word, cnt1, 1));
  }
}
if (done){
  if (cnt2==0){
    alert("You won and got a perfect score! Yay!");
  }
  else{
    if (cnt2==1){
      alert("You won and only missed one letter! Yay!");
    }
    else{
      alert("You won! Yay!");
    }
  }
  return 0;
}
puts("\n" +(7-cnt2)+"Tries left");
puts("\n");
for(cnt3=0;cnt3<cnt2;cnt3++){
puts(guesses[cnt3]);
}
if (strstr(strlwr(word), strlwr(guess), 0) == -1) {
guesses[cnt2]=guess;
cnt2++;
}
for (cnt1=0; cnt1<strlen(word); cnt1++){
  intgr=strstr(strlwr(word), strlwr(guess), cnt1);
  if (intgr != -1) {
    state[intgr]=1;
    
  }

}
}
alert("You lose! Ha Ha! The word was: "+word);
}