Post by jfb on Jul 11, 2007 13:55:59 GMT -5
Hello, I'm submitting a word game programmed with TW. Here is a description taken from my web site:
MissNomer is a Word Game made up of 50 clues and 50 answers (responses). The Clues are couched in a phrase that is feminine -- "The queen of (whatever)...". The Responses (answers entered by the player) must all begin with the first syllable "mis" or "miss" -- phonates of /miss/. So, for example, if the Clue is "The queen of all Rivers...", the correct Response will be "mississippi". This game is really quite hard. But you can try as many times as you like to answer any clue with the proper response. No "play" will be counted as incorrect until you actually give up trying to answer the clue. If you answer more correct than incorrect, you are probably some type of genius.
Here is the link to my site: www.jfbpage.com/ -- scroll down to the bottom of the Home Page to find the download link.
And, finally, here is the source code:
Hope to hear from you,
JFB
MissNomer is a Word Game made up of 50 clues and 50 answers (responses). The Clues are couched in a phrase that is feminine -- "The queen of (whatever)...". The Responses (answers entered by the player) must all begin with the first syllable "mis" or "miss" -- phonates of /miss/. So, for example, if the Clue is "The queen of all Rivers...", the correct Response will be "mississippi". This game is really quite hard. But you can try as many times as you like to answer any clue with the proper response. No "play" will be counted as incorrect until you actually give up trying to answer the clue. If you answer more correct than incorrect, you are probably some type of genius.
Here is the link to my site: www.jfbpage.com/ -- scroll down to the bottom of the Home Page to find the download link.
And, finally, here is the source code:
'MissNomer (TW) Beta Version, by James F. Bays, July 2007
window mainWindow, " MissNomer (TW)", 50, 50, 520, 305;
icon "";
textbox titleBox,"MissNomer", 210, 20, 95, 25;
textbox clueBox, "", 40, 85, 297, 25;
textbox responseBox, "", 40, 168, 210, 25;
numberbox numberCorrect, "000", 430, 70, 42, 25;
numberbox numberIncorrect, "000", 430, 99, 42, 25;
static staticText1, "The Answer Has...", 375, 165, 100, 15;
static letterCount, "00 Letters", 394, 185, 50, 15;
static staticText2, "Correct:", 380, 76, 40, 15;
static staticText3, "Incorrect:", 380, 104, 45, 15;
static clueHeader, "Clue:", 30, 58, 25, 15;
static responseHeader, "Response:", 30, 140, 50, 15;
static scoreHeader, "Score:", 369, 58, 30, 15;
button buttonDefault, "Enter", 262, 168, 90, 25;
button buttonStart, "Start", 30, 234, 40, 20;
button buttonRules, "How 2", 72, 234, 40, 20;
button buttonAbout, "About", 114, 234, 40, 20;
checkbox giveAnswer, "Show Answers", 390, 234, 90, 20;
endgui;
line 58, 66, 348, 66; 'clue
line 30, 127, 348, 127;
line 348, 66, 348, 127;
line 30, 74, 30, 127;
line 85, 148, 482, 148; 'response
line 30, 212, 482, 212;
line 482, 148, 482, 212;
line 30, 156, 30, 212;
line 405, 66, 482, 66; 'score
line 369, 127, 482, 127;
line 482, 66, 482, 127;
line 369, 74, 369, 127;
string c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12, c13, c14, c15, c16, c17;
string responseText, val, stringVar;
array string question[51], answer[51];
int start, count, result, numCorrect, numIncorrect, state, NumberOfQuestions, intVar;
question[1]="The queen of all Rivers...";
answer[1]="mississippi";
question[2]="The queen of Poor Actor Placement...";
answer[2]="miscast";
question[3]="The queen of a Faulty Billiard Stroke...";
answer[3]="miscue";
question[4]="The queen of Humanity Haters...";
answer[4]="misanthropist";
question[5]="The queen of Incorrect Word Articulation...";
answer[5]="mispronounciation";
question[6]="The queen of Wrong Nomenclature...";
answer[6]="misnomer";
question[7]="The queen of a Fearful Feeling...";
answer[7]="misgiving";
question[8]="The queen of Discomfort and Distress...";
answer[8]="misease";
question[9]="The queen of Irresponsible Play...";
answer[9]="mischievous";
question[10]="The queen of Villainous Infidels...";
answer[10]="miscreant";
question[11]="The queen of Irregular Conception...";
answer[11]="misbegotten";
question[12]="The queen of the Socially Maladjusted...";
answer[12]="misfit";
question[13]="The queen of an Unfortunate Accident...";
answer[13]="mishap";
question[14]="The queen of Bad Luck...";
answer[14]="misfortune";
question[15]="The queen of Malformation...";
answer[15]="misshappen";
question[16]="The queen of Incorrect Scribing...";
answer[16]="misspell";
question[17]="The queen of Marriage Haters...";
answer[17]="misogamist";
question[18]="The queen of Suspiciaon and Doubt...";
answer[18]="mistrust";
question[19]="The queen of an Unsuitable Pairing...";
answer[19]="mismatch";
question[20]="The queen of Arsenical Pyrites...";
answer[20]="mispickel";
question[21]="The queen of Green Parasitic Plants...";
answer[21]="mistletoe";
question[22]="The queen of Innovation Hatred...";
answer[22]="misoneism";
question[23]="The queen of a Dishonest Use of Funds...";
answer[23]="misappropriation";
question[24]="The queen of a Thrown Projectile...";
answer[24]="missile";
question[25]="The queen of a False Notion or Opinion...";
answer[25]="misconception";
question[26]="The queen of an Evil and Wicked Act...";
answer[26]="misdeed";
question[27]="The queen of a Wrong Selection...";
answer[27]="mistake";
question[28]="The queen of a Non-Criminal Offense...";
answer[28]="misdemeaner";
question[29]="The queen of an Erroneous Estimation...";
answer[29]="miscalculation";
question[30]="The queen of Improper Self Conduct...";
answer[30]="misbehavior";
question[31]="The queen of Debate Haters...";
answer[31]="misologist";
question[32]="The queen of Women Haters...";
answer[32]="misogynist";
question[33]="The queen of an Improper Ignition...";
answer[33]="misfire";
question[34]="The queen of Mixed and Varrious Kinds...";
answer[34]="miscellanea";
question[35]="The queen of Rough Manipulation...";
answer[35]="mishandle";
question[36]="The queen of Erroneous Citing...";
answer[36]="misquote";
question[37]="The queen of a Failed Proper Outcome...";
answer[37]="miscarriage";
question[38]="The queen of Harm Done By A Person...";
answer[38]="mischief";
question[39]="The queen of Incorrect Font Stamping...";
answer[39]="misprint";
question[40]="The queen of Improper Card Distribution...";
answer[40]="misdeal";
question[41]="The queen of a Pedestrian Blunder...";
answer[41]="misstep";
question[42]="The queen of Child Haters...";
answer[42]="misopedist";
question[43]="The queen of Ascribed Mystery...";
answer[43]="mistique";
question[44]="The queen of Racial Mixing...";
answer[44]="miscegenation";
question[45]="The queen of Failed Verbal Impartation...";
answer[45]="miscommunicate";
question[46]="The queen of a Deceptive Telling...";
answer[46]="misrepresentation";
question[47]="The queen of Making or Forming Amiss...";
answer[47]="miscreation";
question[48]="The queen of Mixed and Varrious Kinds...";
answer[48]="miscellanea";
question[49]="The queen of Faulty Eastern Positioning...";
answer[49]="misorientation";
question[50]="The queen of Erroneous Set Arrangement...";
answer[50]="misclassification";
NumberOfQuestions = 50;
count = rnd / 10;
if count > 100;
count = 100;
endif;
count = count / 2;
if count < 1;
count = 1;
endif;
messagebox "For less mouse manipulation\nduring game play, move/drag\nthe game window to the center\nof the desktop.";
sub buttonStartClick;
if start == 0;
gosub countCount;
start = 1;
elseif start == 1;
questionbox "Do you wish to start a New Game?", result;
if result <> 6;
elseif result == 6;
gosub countCount;
settext titleBox, "New Game";
settext numberCorrect, "000";
settext numberIncorrect, "000";
numCorrect = 0;
numIncorrect = 0;
endif;
endif;
endsub;
sub buttonDefaultClick;
if start == 0;
gosub buttonStartClick;
else;
gettextboxtext responseBox, responseText;
stringcompare responseText, answer[count], result;
if result <> 0;
c1 = "As entered, your answer is incorrect.";
c2 = c1 & "\nMake sure you response is in lower case.";
c3 = c2 & "\nCheck your spelling or try another word form.";
c4 = c3 & "\nDo you want to try again?";
questionbox c4, result;
if result == 6;
settext titleBox, " Try Again";
settext cluebox, question[count];
settext responseBox, "";
setfocus responseBox;
elseif result == 7;
numIncorrect = numIncorrect + 1;
numtostring numIncorrect, val;
settext numberIncorrect, val;
getstate giveAnswer, state;
if state <> 0;
gosub showAnswer;
endif;
gosub countCount;
endif;
elseif result == 0;
numCorrect = numCorrect + 1;
numtostring numCorrect, val;
settext numberCorrect, val;
gosub countCount;
endif;
endif;
endsub;
sub countCount;
if count >= NumberOfQuestions;
count = 1;
else;
count = count + 1;
endif;
if numCorrect == 50 and numIncorrect == 0;
messagebox "CONGRADULATIONS!!!" & "\n\nYou Have Correctly Answered All 50 MissNomer Clues...";
messagebox "There Is No Point Continuing...";
messagebox "REALLY...THERE ISN'T...";
end;
endif;
settext titleBox, " Play";
settext clueBox, question[count];
settext responseBox, "";
len answer[count], intVar;
numtostring intVar, stringVar;
settext letterCount, stringVar & " Letters";
setfocus responseBox;
endsub;
sub showAnswer;
messagebox "The answer is... " & "\n\n" & answer[count];
endsub;
sub buttonAboutClick;
c1 = " MissNomer (TW) Beta Version ";
c2 = "\n by James F. Bays (2007) ";
c3 = "\n ";
c4 = "\n based on a game conceived by ";
c5 = "\n William C. Nash ";
c6 = "\n ";
c7 = "\n Thistle-Win Language v. 1.4 ";
c8 = "\n(c) Thomas and Alyce Watson (2005) ";
c9 = "\n ";
c10 = "\n FASM Assembler/Linker ";
c11 = "\n(c) Thomasz Grysztar (1999-2005) ";
c12 = "\n ";
c13 = "\n All Applicable Rights Reserved ";
messagebox c1 & c2 & c3 & c4 & c5 & c6 & c7 & c8 & c9 & c10 &c11 &c12 &c13;
setfocus responseBox;
endsub;
sub buttonRulesClick;
c1 = " How 2 play MissNomer (TW) Beta Version ";
c2 = "\n ";
c3 = "\nMissNomer is nothing more than a word game, made up ";
c4 = "\nof 50 clues and 50 answers (responses). ";
c5 = "\n ";
c6 = "\nAll clues are framed as ''The queen of (whatever)...'' ";
c7 = "\nAll responses must begin with the first syllable ";
c8 = "\n''mis'' or ''miss'' -- phonates of /miss/. (get it?) ";
c9 = "\n ";
c10 = "\nAll responses must be in lower case. Spelling must be ";
c11 = "\ncorrect. No spaces can procede or follow the response ";
c12 = "\nthat is entered. And, finally, the word form must ";
c13 = "\nmatch the word form of the answer used in the game. ";
c14 = "\n ";
c15 = "\nYou can try as many times as you like to answer with ";
c16 = "\nthe proper response. A ''play'' will not be counted as ";
c17 = "\nwrong until you actually give up trying to answer it. ";
messagebox c1 & c2 & c3 & c4 & c5 & c6 & c7 & c8 & c9 & c10 &c11 &c12 &c13 &c14 &c15 &c16 &c17;
c1 = " How 2 play MissNomer (TW) Beta Version ";
c2 = "\n ";
c3 = "\n EXAMPLES: ";
c4 = "\n ";
c5 = "\nClue: ''The queen of all Rivers...'' ";
c6 = "\nResponse: ''mississippi'' ";
c7 = "\n ";
c8 = "\nClue: ''The queen of Imprecise Adjustment...''";
c9 = "\nResponse: ''misalignment'' ";
messagebox c1 & c2 & c3 & c4 & c5 & c6 & c7 & c8 & c9;
setfocus responseBox;
endsub;Hope to hear from you,
JFB
