program hangfile(input, output);{This program is like hangman, but uses a file of words to retrieve }
{if only one person is playing. }const
blank = ' ';
spot = #254;
blankline =
' ';
numwords = 432; {NOTE: Update to match number of words }
{ in HANGWDS.TXT file }type
guess = array[1..80] of char;
bodyparts = array[1..6] of string[4];
matrix = array[0..9, 1..15] of char;
guess_char = array[1..27] of char;
bodyfig = array[1..6] of string[4];var
word, wdisp,
wordguess : guess;
ch_guess : guess_char;ch, response : char;
i, k, n, p,
selection,
numberplayers : integer;gameover,
done,
finished,
wordmatch,
foundone : boolean;
ch_used : boolean;piece : bodyparts;
getit : matrix;
stickpiece : bodyfig;
dummy : string[80];
infile : text;{ EOLN is used, and is a built-in boolean variable }
procedure clrarrays;
begin
for i := 1 to 80 do
begin
word[i] := blank;
wdisp[i] := spot;
end;
for i := 1 to 27 do ch_guess[i] := blank;
end;procedure initbodyparts;
begin
piece[1] := 'Head';
piece[2] := 'Body';
piece[3] := 'Arm1';
piece[4] := 'Arm2';
piece[5] := 'Leg1';
piece[6] := 'Leg2';
stickpiece[1] := '( )';
stickpiece[2] := ' |';
stickpiece[3] := '-- ';
stickpiece[4] := '--';
stickpiece[5] := '/';
stickpiece[6] := '\';
end;procedure showparts(var parts : integer);
begin
parts := parts + 1;
if parts > 5 then
begin
GotoXY(52,13);
Write(stickpiece[6]);
GotoXY(1, 19);
write(blankline);
GotoXY(1,19);
write('You Lost; you are a hung hombre!!');
gameover := true;
end
else
begin
GotoXY(10, 21);
write('You now have a ');
for i := 1 to parts do
write(piece[i],', ');
for i := 1 to parts do
case i of
1 : begin GotoXY(50,10); write(stickpiece[i]); end;
2 : begin GotoXY(50,11); write(stickpiece[i]); end;
3 : begin GotoXY(49,12); write(stickpiece[i]); end;
4 : begin GotoXY(52,12); write(stickpiece[i]); end;
5 : begin GotoXY(50,13); write(stickpiece[i]); end;
end; { of case }
end;
end;procedure enterword;
begin
i := 0; { must start at 0 to "throw away" hanging ENTER char }
GotoXY(1, 23);
WRITE(blankline);
GotoXY(1, 22);
write('Enter word or phrase to guess: ');
GotoXY(1, 23);
read(input, ch);
while not EOLN do
begin
word[i] := UPCASE(ch);
i := i + 1;
read(input, ch);
end;
word[i] := UPCASE(ch);
word[i+1] := '.';
GotoXY(1, 22);
WRITE(blankline);
GotoXY(1,23);
WRITE(blankline);
end;procedure displayword;
begin
i := 1;
ch := word[i];
GotoXY(2, 18);
while ch <> '.' do
begin
if ch <> ' ' then
write(output, wdisp[i])
else
begin
wdisp[i] := ' ';
write(' ');
end;
i := i + 1;
ch := word[i];
end;
end;procedure makeguess;
begin
i := 1;
foundone := false;
ch_used := false;
GotoXY(10,23);
write('Enter a character: ');
GotoXY(32, 23);
readln(ch);
GotoXY(1, 22);
WRITE(blankline);
WHILE ch_guess[i] <> blank DO
BEGIN
IF ch = ch_guess[i] THEN
BEGIN
ch_used := TRUE;
GotoXY(10,22);
WRITE('You''ve already tried ', ch, '. Try again!');
GotoXY(32, 23);
READLN(ch);
GotoXY(10,22);
Write(blankline);
i := 1;
END
ELSE
BEGIN
i := i + 1;
IF ch_guess[i] = blank THEN ch_used := false;
END;
END;
IF ((ch <> '#') AND (NOT ch_used)) THEN ch_guess[i] := ch;
i := 1;
repeat
if UPCASE(ch) = word[i] then
begin
wdisp[i] := word[i];
i := i + 1;
foundone := true;
end
else
i := i + 1;
until word[i] = '.';
if not (foundone) and (ch <> '#') then
showparts(n);
end;procedure wordtest;
begin
wordmatch := true;
i := 1;
repeat
if word[i] = wdisp[i] then
i := i + 1
else
wordmatch := false;
until (word[i] = '.') or (not wordmatch);
if wordmatch then
begin
GotoXY(1,22);
WRITE(blankline);
GotoXY(10, 22);
write('.....Congratulations; You win!! ');
end;
end;procedure enterguess;
begin
i := 1;
GotoXY(1,22);
WRITE(blankline);
GotoXY(1, 23);
WRITE(blankline);
GotoXY(1, 22);
write('Enter your guess: ');
GotoXY(1, 23);
read(ch);
while not EOLN do
begin
wordguess[i] := UPCASE(ch);
i := i + 1;
read(input, ch);
end;
wordguess[i] := UPCASE(ch);
wordguess[i+1] := '.';
end;procedure guesswordtest;
begin
wordmatch := true;
i := 1;
repeat
if wordguess[i] = word[i] then
i := i + 1
else
wordmatch := false;
until (word[i] = '.') or (not wordmatch);
if wordmatch then
begin
GotoXY(1,22);
WRITE(blankline);
GotoXY(10, 22);
write('.....Congratulations; You win!! ');
end
else
begin
GotoXY(1,22);
WRITE(blankline);
GotoXY(1,23);
WRITE(blankline);
GotoXY(10, 22);
write('Nope..that is not it. ');
showparts(n);
end;
end;procedure showanswer;
begin
i := 1;
GotoXY(10, 21);
write('The correct answer was: ');
GotoXY(10, 22);
while word[i] <> '.' do
begin
write(word[i]);
i := i + 1;
end;
end;procedure selectphrase;
var
select, count, i : integer;
begin
for i := 1 to 80 do
word[i] := ' ';
assign(infile, 'hangwds.txt');
reset(infile);
i := 2;
randomize;
select := random(numwords);WRITE(SELECT);
for count := 1 to select do
readln(infile, dummy);
read(infile, ch);
word[1] := ch;
while ch <> '.' do
begin
read(infile, ch);
word[i] := ch;
i := i + 1;
end;
close(infile);
end;BEGIN { main program }
REPEAT
finished := false;
clrarrays;
initbodyparts;
gameover := false;
n := 0;
ch := 's';
clrscr;
GotoXY(10, 23);
write('How many players? ');
readln(numberplayers);
GotoXY(10, 23);
write(' ');
GotoXY(22,3);
write('To guess the whole word, enter a "#".');
{PUT THE DISPLAY ON THE SCREEN FOR THE GAME TO BEGIN}
if numberplayers = 1 then
selectphrase
else
enterword;
displayword;
repeat
makeguess;
if (ch <> '#') and (n <= 5) then
begin
displayword;
wordtest;
end
else if ch = '#' then
begin
enterguess;
guesswordtest;
end;
until (wordmatch) or (gameover);
if n > 5 then
showanswer;
GotoXY(1, 23);
WRITE(blankline);
GotoXY(10, 23);
write(' Another game (Y/N)? ');
readln(response);
GotoXY(10, 23);
write(' ');
if UPCASE(response) = 'N' then
finished := true;
UNTIL finished;
GotoXY(10, 23);
write('**** Game Over ****');
END.========================================================================
Here is a sample HANGWDS.TXT file to use with the program:ANTIQUE.
APPEALING.
ARMOIRES.
ARTISTS.
ATTRACTIVE.
BASE.
BUDS.
CABINETS.
CABINETMAKERS.
CARE.
CHAIRS.
CHARMING.
CHEST.
COLORS.
CRAFTS.
CUPBOARDS.
DESIGN.
FLORAL.
FLOWERS.
FOLKART.
GLAZE.
HEADBOARDS.
HUTCHES.
KNOWLTON.
PAINT.
PAST.
PERIOD.
RANK.
SALE.
SCENES.
SIDEBOARD.
SIGNS.
STAINING.
STYLE.
TINT.
TONES.
TRIM.
WARM.
ARCH.
BAND.
BORDER.
BUSES.
CABLE.
CAFE.
CENTRAL.
CHAIN.
COAST.
CODE.
COFFEE.
COMEON.
CREDIT.
DANCE.
DIVIDE.
DOUBLE.
DRAW.
ENTER.
FERRY.
FREE.
FUEL.
GAPS.
HIRE.
HURRY.
LANE.
LEAD.
MAIL.
PARADE.
PARK.
PATIENCE.
PENCIL.
PEOPLE.
PERPENDICULAR.
PIER.
POETIC.
PRIVATE.
RESTAURANT.
ROUTE.
SHOW.
SIDE.
SILO.
SINGLE.
SPACE.
SPEED.
SPIRAL.
STRAIGHT.
START.
STRANDS.
STRING.
TAIL.
THIN.
TRAIN.
TURNS.
VALUE.
WIRE.
WORD.
HUMIDITY.
FILAMENTS.
ASTHMA.
BEDS.
BITE.
BLAH.
BLOW.
BOUT.
BREAK.
BURN.
CAST.
DOSE.
EYES.
FEARS.
GUMS.
HEAL.
HEART.
HELP.
HIVES.
HUMOR.
HURT.
HYPOTHERMIA.
IDLE.
INDIGESTION.
LATE.
LIMBS.
LUNGS.
MEDICINE.
MISS.
MOUTH.
NAUSEA.
NECK.
NOSE.
NUMB.
NURSE.
OTITIS.
PAIN.
PETTY.
RANT.
REMEDY.
RESTING.
RUNNY.
SINUS.
SLACK.
SLEEP.
SNEEZE.
SNIFF.
STAID.
STEAM.
STREP.
SWELL.
THERMOMETER.
THROAT.
TIRE.
TURBULENT.
VILE.
VIRUS.
WEAK.
WIND.
WORRY.
AIMS.
BILL.
BONUS.
BORED.
BOSS.
CALLS.
CASH.
CELEBRATE.
CHAMPAGNE.
CHEF.
CLOSED.
COST.
DINE.
DINNER.
EFFORT.
EMPLOYEES.
FEAST.
FEED.
FEST.
FUSS.
GAMES.
GOING.
GREET.
HALL.
HOST.
HOTEL.
HUGS.
IDEAS.
INVITE.
LIBATION.
MEAL.
MEETING.
MENUS.
MUSIC.
NOISE.
OBLIGATION.
OFFICE.
ORCHESTRA.
PLATTER.
PLAY.
POTABLES.
PUBLIC.
PUBS.
RESTAURANT.
ROOM.
SEAT.
SETS.
SING.
TALL.
TEAM.
TIDINGS.
TIMED.
TRAVEL.
TRAYS.
TREE.
ADDITIVE.
ANGLE.
AROMA.
BEAT.
BRAN.
BREAD.
BUNS.
CAKE.
CARAMEL.
CHEMICAL.
COATS.
CREAM.
CRUMPET.
DOUGH.
ECLAIR.
EGGS.
FADS.
FOLD.
FOOD.
FROSTING.
GRAIN.
GRATE.
GREASE.
GUMS.
HEAP.
HERB.
ICING.
JAM.
JELLY.
LARD.
LAYER.
LEAVEN.
NAPOLEON.
OATS.
OVEN.
PANS.
PITA.
PRESERVATIVES.
PUFF.
RACK.
RISE.
ROAST.
ROLL.
SALT.
SAVE.
SEEDS.
SESAME.
SIFT.
SLICE.
SOUFFLE.
SPICE.
STRUDEL.
SUGAR.
TART.
TWIST.
WHEAT.
WRAP.
YEAST.
ANGEL.
ASSIST.
BIRTH.
BORN.
BOWS.
BOXES.
BUSY.
CANDLE.
CARD.
CASH.
CELEBRATE.
CHEER.
CHIMNEY.
CHURCH.
CRANBERRIES.
DATE.
DEAR.
DECEMBER.
DECORATION.
EMBRACE.
ESSENCE.
GAME.
GANG.
GIFTS.
GOODIES.
GOODWILL.
GUEST.
HEAP.
HOPE.
JESUS.
MEAL.
MUGS.
OPEN.
PEACE.
PHONE.
PRAISE.
PRAY.
PRESENT.
RIBBON.
SALE.
SANTA.
SEASON.
SHARE.
SLEIGH.
SNOW.
SURPRISE.
TABLE.
TINSEL.
TOYS.
TREE.
TURKEY.
YEAR.
ACCEPT.
APPOINTED.
CARE.
CHARITY.
CRUSADE.
CUES.
DEVOTED.
EAST.
ENVOY.
FAITH.
FOREIGN.
FRIEND.
GUEST.
HEAL.
HOLY.
HOPE.
HOSPITAL.
HOST.
HURT.
INFORMED.
JOIN.
JOYS.
LIFT.
MEDICAL.
MIDDLE.
MISSION.
MONK.
OVERSEAS.
PAID.
PIONEER.
POOR.
PRIEST.
PROMOTE.
RELIGION.
RIGHTS.
ROLES.
SENT.
SERVE.
SICK.
SISTER.
SPARE.
SPONSOR.
STAGE.
STAKE.
STAY.
TEAMS.
TERM.
THANKS.
TIPS.
TRIP.
USEFUL.
VALUE.
VISION.
YEAR.
ASHTRAY.
BARS.
BOAST.
BODY.
CABLE.
CAPS.
CHIP.
CHROME.
CONSOLE.
CRASH.
DASH.
DEAL.
DOOR.
DRIVE.
ENGINE.
FILTER.
FLAT.
FORM.
GAUGE.
GUARANTEE.
INSPECT.
LAMP.
LEAK.
LIGHT.
MILEAGE.
MINT.
MIRROR.
MODEL.
MOLD.
MUFFLER.
NAME.
OWNER.
PAINT.
PANEL.
PEEL.
PERMIT.
PLUG.
RADIATOR.
RATING.
REPAIR.
RETAIL.
RISK.
RUST.
SCRATCH.
SEATS.
SHOCK.
SPARK.
STARTER.
STEER.
TAILPIPE.
TANK.
TIRE.
TITLE.
TRIM.
TRIAL.
TRUNK.
VISIBLE.
WASH.
WELD.
WOOD.
ශිල්ප 64