#include "zcommon.acs"
//a simple hangman game made very quickly. AND YES I KNOW THE CODE IS MESSY BUT I COULDN'T THINK OF ANOTHER WAY D:<
int letter1 = "_";
int letter2 = "_";
int letter3 = "_";
int letter4 = "_";
int letter5 = "_";
int letter6 = "_";
int letter7 = "_";
int ans1 = "_";
int ans2 = "_";
int ans3 = "_";
int ans4 = "_";
int ans5 = "_";
int ans6 = "_";
int ans7 = "_";
int let = "-";
int loop = 1;

script 1 OPEN
{
int word = (Random(1,11));
delay (1);
if (word == 1)
{
letter1 = "b";
letter2 = "a";
letter3 = "n";
letter4 = "a";
letter5 = "n";
letter6 = "a";
letter7 = "";
ans7 = "";
}
if (word == 2)
{
letter1 = "c";
letter2 = "r";
letter3 = "y";
letter4 = "p";
letter5 = "t";
letter6 = "";
letter7 = "";
ans6 = "";
ans7 = "";
}
if (word == 3)
{
letter1 = "s";
letter2 = "n";
letter3 = "a";
letter4 = "k";
letter5 = "e";
letter6 = "";
letter7 = "";
ans6 = "";
ans7 = "";
}
if (word == 4)
{
letter1 = "h";
letter2 = "o";
letter3 = "u";
letter4 = "s";
letter5 = "e";
letter6 = "";
letter7 = "";
ans6 = "";
ans7 = "";
}
if (word == 5)
{
letter1 = "a";
letter2 = "p";
letter3 = "p";
letter4 = "l";
letter5 = "e";
letter6 = "";
letter7 = "";
ans6 = "";
ans7 = "";
}
if (word == 6)
{
letter1 = "m";
letter2 = "o";
letter3 = "n";
letter4 = "k";
letter5 = "e";
letter6 = "y";
letter7 = "s";
}
if (word == 7)
{
letter1 = "l";
letter2 = "y";
letter3 = "n";
letter4 = "x";
letter5 = "";
letter6 = "";
letter7 = "";
ans5 = "";
ans6 = "";
ans7 = "";
}
if (word == 8)
{
letter1 = "s";
letter2 = "u";
letter3 = "p";
letter4 = "e";
letter5 = "r";
letter6 = "b";
letter7 = "";
ans7 = "";
}
if (word == 9)
{
letter1 = "o";
letter2 = "r";
letter3 = "a";
letter4 = "n";
letter5 = "g";
letter6 = "e";
letter7 = "s";
}
if (word == 10)
{
letter1 = "f";
letter2 = "l";
letter3 = "o";
letter4 = "a";
letter5 = "t";
letter6 = "e";
letter7 = "d";
}
if (word == 11)
{
letter1 = "z";
letter2 = "o";
letter3 = "o";
letter4 = "l";
letter5 = "o";
letter6 = "g";
letter7 = "y";
}
}

script 2 OPEN
{
delay (35);
while (loop == 1)
{
PrintBold (s: (ans1), s: (ans2), s: (ans3), s: (ans4), s: (ans5), s: (ans6), s:(ans7));
delay (35);
}
}

script 3 (int choice) //I see no other way to do this, so MEH.
{
SetActivator (-1);
If (choice == 1) //DEAR GOD IT'S SO LONG D:
{
let = "a";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 2)
{
let = "b";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 3)
{
let = "c";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 4)
{
let = "d";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 5)
{
let = "e";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 6)
{
let = "f";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 7)
{
let = "g";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 8)
{
let = "h";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 9)
{
let = "i";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 10)
{
let = "j";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 11)
{
let = "k";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 12)
{
let = "l";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 13)
{
let = "m";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 14)
{
let = "n";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 15)
{
let = "o";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 16)
{
let = "p";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 17)
{
let = "q";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 18)
{
let = "r";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 19)
{
let = "s";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 20)
{
let = "t";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 21)
{
let = "u";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 22)
{
let = "v";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 23)
{
let = "w";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 24)
{
let = "x";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 25)
{
let = "y";
ACS_Execute (6,0,0,0,0);
}
else If (choice == 26)
{
let = "z";
ACS_Execute (6,0,0,0,0);
}
//O_o
}

script 4 OPEN
{
delay (35);
if (ans1 == letter1 && ans2 == letter2 && ans3 == letter3 && ans4 == letter4 && ans5 == letter5 && ans6 == letter6 && ans7 == letter7)
{
ACS_Terminate (2,0);
delay (35);
ACS_Terminate (2,0);
PrintBold (s:"\cnYou win!");
delay (35);
PrintBold (s:"\cdYou win!");
delay (35);
PrintBold (s:"\cgYou win!");
delay (70);
Exit_Normal(0);
}
else
{
delay (35);
restart;
}
}

script 5 (void)
{
delay (35);
ACS_Terminate (2,0);
PrintBold (s:"You lost! The imp died! The word was: \ct", s: (letter1), s: (letter2), s: (letter3), s: (letter4), s: (letter5), s:(letter6), s:(letter7));
delay (35);
ACS_Terminate (2,0);
delay (35);
Thing_Damage (2,1000,MOD_UNKNOWN);
}

script 6 (void)
{
for (int check = 1; check < 4; check++)
{
if (let == letter1)
{
ans1 = letter1;
}
if (let == letter2)
{
ans2 = letter2;
}
if (let == letter3)
{
ans3 = letter3;
}
if (let == letter4)
{
ans4 = letter4;
}
if (let == letter5)
{
ans5 = letter5;
}
if (let == letter6)
{
ans6 = letter6;
}
if (let == letter7)
{
ans7 = letter7;
}
else if (let != letter1 && let != letter2 && let != letter3 && let != letter4 && let != letter5 && let != letter6 && let != letter7 && check == 3)
{
let = "_";
ACS_Terminate (2,0);
PrintBold (s:"Wrong!");
Thing_Damage (1,10,MOD_UNKNOWN);
delay (35);
ACS_Execute (2,0,0,0,0);
}
}
let = "_";
}

script 7 ENTER
{
Thing_ChangeTID (0,2);
}

script 8 RESPAWN
{
Thing_ChangeTID (0,2);
}

script 9 DEATH
{
Thing_ChangeTID (0,0);
}