Illusion/TextQuest-win
1
0
Fork 0
mirror of https://github.com/IllusionMan1212/TextQuest-win.git synced 2026-10-24 10:12:29 +00:00
Code Issues Packages Projects Releases Wiki Activity

GUI only app + some clean-ups

Browse Source
This commit is contained in:
IllusionMan1212
2018-08-24 02:36:40 +02:00
parent f309021987
commit e6b3efe526
1 changed files with 4 additions and 178 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TextQuest.pas
+4 -178
View File
@@ -1,4 +1,5 @@
Program TextQuest; Program TextQuest;
{$APPTYPE GUI}
uses winCrt, graph; uses winCrt, graph;
var choice : char; var choice : char;
drankpotion, havesword, killedslug, haveflower, killedDragon : integer; drankpotion, havesword, killedslug, haveflower, killedDragon : integer;
@@ -29,10 +30,6 @@ procedure savedprincess1;
begin begin
cleardevice; cleardevice;
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln();
writeln();
outtextxy(10, 20,' ///........./|\\.........\\\ '); outtextxy(10, 20,' ///........./|\\.........\\\ ');
outtextxy(10, 30,' //// : ||| : \\\\ '); outtextxy(10, 30,' //// : ||| : \\\\ ');
outtextxy(10, 40,' \\'''''''''''':''''''''|||'''''''':''''''''''''// '); outtextxy(10, 40,' \\'''''''''''':''''''''|||'''''''':''''''''''''// ');
@@ -44,7 +41,6 @@ begin
outtextxy(10, 100,' ''\\\\\\|||//////'' '); outtextxy(10, 100,' ''\\\\\\|||//////'' ');
outtextxy(10, 110,' ''\\\\\|/////'' '); outtextxy(10, 110,' ''\\\\\|/////'' ');
setcolor(yellow); setcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
outtextxy(10, 120,' .:::::::::::::::::::::. '); outtextxy(10, 120,' .:::::::::::::::::::::. ');
outtextxy(10, 130,' .::::::::''''''''''''''''''::::::::. '); outtextxy(10, 130,' .::::::::''''''''''''''''''::::::::. ');
outtextxy(10, 140,' .::::::'''' ''''::::::. '); outtextxy(10, 140,' .::::::'''' ''''::::::. ');
@@ -64,7 +60,6 @@ begin
outtextxy(10, 280,' ''::::::::::::::::::::'' '); outtextxy(10, 280,' ''::::::::::::::::::::'' ');
outtextxy(10, 290,' ''''::::::::::::'''' '); outtextxy(10, 290,' ''''::::::::::::'''' ');
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 300,'You have saved princess April.'); outtextxy(10, 300,'You have saved princess April.');
Delay(5000); Delay(5000);
outtextxy(10, 310,'You marry her and live happily ever after.'); outtextxy(10, 310,'You marry her and live happily ever after.');
@@ -74,18 +69,13 @@ begin
outtextxy(10, 330,'THE END.'); outtextxy(10, 330,'THE END.');
Delay(5000); Delay(5000);
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); closegraph;
halt;
end; end;
procedure dead; procedure dead;
begin begin
cleardevice; cleardevice;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 20,' /'' '); outtextxy(10, 20,' /'' ');
outtextxy(10, 30,' || '); outtextxy(10, 30,' || ');
outtextxy(10, 40,' || *** '); outtextxy(10, 40,' || *** ');
@@ -108,10 +98,6 @@ procedure dead;
outtextxy(10, 210,' \_| >(_/ \,/ '); outtextxy(10, 210,' \_| >(_/ \,/ ');
outtextxy(10, 220,' ,//__o\ /__//, V '); outtextxy(10, 220,' ,//__o\ /__//, V ');
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln();
writeln();
writeln();
outtextxy(10, 260,'You have died on your quest.'); outtextxy(10, 260,'You have died on your quest.');
Delay(5000); Delay(5000);
outtextxy(10, 270,'For your bravery, the king erects a statue in the town centre.'); outtextxy(10, 270,'For your bravery, the king erects a statue in the town centre.');
@@ -119,15 +105,13 @@ procedure dead;
outtextxy(10, 280,'You will be remembered until a better knight comes along.'); outtextxy(10, 280,'You will be remembered until a better knight comes along.');
Delay(5000); Delay(5000);
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); closegraph;
halt;
end; end;
procedure coward; procedure coward;
begin begin
cleardevice; cleardevice;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10, 20,' ._--+. '); outtextxy(10, 20,' ._--+. ');
outtextxy(10, 30,' -'''' ''. '); outtextxy(10, 30,' -'''' ''. ');
outtextxy(10, 40,' +:'' ''. '); outtextxy(10, 40,' +:'' ''. ');
@@ -164,8 +148,6 @@ procedure coward;
outtextxy(10, 350,' : : \\ | .-'' .'' .\\ _-'' '); outtextxy(10, 350,' : : \\ | .-'' .'' .\\ _-'' ');
outtextxy(10, 360,' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' '); outtextxy(10, 360,' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' ');
setcolor(RED); setcolor(RED);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln();
outtextxy(10, 380,'You run away from your quest like a coward.'); outtextxy(10, 380,'You run away from your quest like a coward.');
Delay(5000); Delay(5000);
outtextxy(10, 390,'As you run away, you hear the sound of the princess being eaten by the dragon.'); outtextxy(10, 390,'As you run away, you hear the sound of the princess being eaten by the dragon.');
@@ -174,7 +156,6 @@ procedure coward;
Delay(5000); Delay(5000);
outtextxy(10, 410,'The rest of your days are spent rotting in the dungeons.'); outtextxy(10, 410,'The rest of your days are spent rotting in the dungeons.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Delay(4000); Delay(4000);
closegraph; closegraph;
end; end;
@@ -182,11 +163,7 @@ procedure coward;
procedure location1; procedure location1;
begin begin
cleardevice; cleardevice;
writeln();
writeln();
writeln();
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10, 20,' / \\ /''\\ _ '); outtextxy(10, 20,' / \\ /''\\ _ ');
outtextxy(10, 30,' \\_.. /''.,/ \\_ .,'' \\ / \\_ '); outtextxy(10, 30,' \\_.. /''.,/ \\_ .,'' \\ / \\_ ');
outtextxy(10, 40,' \\ / \\ _/ \\_ / \\ _ '); outtextxy(10, 40,' \\ / \\ _/ \\_ / \\ _ ');
@@ -208,8 +185,6 @@ begin
outtextxy(10, 200,' | \\ \\ \\ \\ '); outtextxy(10, 200,' | \\ \\ \\ \\ ');
outtextxy(10, 210,' \\ | \\ '); outtextxy(10, 210,' \\ | \\ ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 230,'You see the entrance to the dragon''s lair to the north.'); outtextxy(10, 230,'You see the entrance to the dragon''s lair to the north.');
outtextxy(10, 240,'You hear the princess yelling, "Help me! Help me!"'); outtextxy(10, 240,'You hear the princess yelling, "Help me! Help me!"');
outtextxy(10, 250,'You hear the bellow of the dragon.'); outtextxy(10, 250,'You hear the bellow of the dragon.');
@@ -238,11 +213,7 @@ end;
procedure location2; procedure location2;
begin begin
cleardevice; cleardevice;
writeln();
writeln();
writeln();
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10, 20,' _______ ______________ ___ _______'); outtextxy(10, 20,' _______ ______________ ___ _______');
outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -264,8 +235,6 @@ begin
outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 230,'You are inside the dragon''s burned fortress lair.'); outtextxy(10, 230,'You are inside the dragon''s burned fortress lair.');
outtextxy(10, 240,'The heat is opressive and the stench of brimstone burns your nostrils.'); outtextxy(10, 240,'The heat is opressive and the stench of brimstone burns your nostrils.');
outtextxy(10, 250,'You see a door leading west, a door leading east, and a door leading south.'); outtextxy(10, 250,'You see a door leading west, a door leading east, and a door leading south.');
@@ -299,9 +268,6 @@ begin
procedure location3; procedure location3;
begin begin
writeln();
writeln();
writeln();
outtextxy(10,340,'It''s very dark in this room.'); outtextxy(10,340,'It''s very dark in this room.');
Delay(5000); Delay(5000);
outtextxy(10, 350,'You cannot see a thing.'); outtextxy(10, 350,'You cannot see a thing.');
@@ -320,11 +286,7 @@ end;
procedure location4; procedure location4;
begin begin
cleardevice; cleardevice;
writeln();
writeln();
writeln();
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
outtextxy(10, 20,' \_______/ '); outtextxy(10, 20,' \_______/ ');
outtextxy(10, 30,' `.,-''\_____/`-.,'' '); outtextxy(10, 30,' `.,-''\_____/`-.,'' ');
outtextxy(10, 40,' /`..''\ _ /`.,'' \ '); outtextxy(10, 40,' /`..''\ _ /`.,'' \ ');
@@ -336,9 +298,7 @@ begin
outtextxy(10, 100,' ,''`-./______\,-''`. '); outtextxy(10, 100,' ,''`-./______\,-''`. ');
outtextxy(10, 110,' / \ '); outtextxy(10, 110,' / \ ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10, 120,' _______ ______________ ___ _______'); outtextxy(10, 120,' _______ ______________ ___ _______');
outtextxy(10, 130,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 130,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 140,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 140,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -360,8 +320,6 @@ begin
outtextxy(10, 300,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 300,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 310,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 310,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 330,'You are standing in a room covered in spider webs.'); outtextxy(10, 330,'You are standing in a room covered in spider webs.');
outtextxy(10, 340,'There are doors leading west, north, and east.'); outtextxy(10, 340,'There are doors leading west, north, and east.');
outtextxy(10, 350,'What do you do?'); outtextxy(10, 350,'What do you do?');
@@ -397,10 +355,6 @@ begin
if (drankpotion <> 1) then if (drankpotion <> 1) then
begin begin
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln();
writeln();
writeln();
outtextxy(10, 20,' _____ '); outtextxy(10, 20,' _____ ');
outtextxy(10, 30,' `.___,'' '); outtextxy(10, 30,' `.___,'' ');
outtextxy(10, 40,' (___) '); outtextxy(10, 40,' (___) ');
@@ -415,20 +369,12 @@ begin
outtextxy(10, 130,' \ / '); outtextxy(10, 130,' \ / ');
outtextxy(10, 140,' `.___.'' '); outtextxy(10, 140,' `.___.'' ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 160,'You are in a room with a table.'); outtextxy(10, 160,'You are in a room with a table.');
outtextxy(10, 170,'On the table you can see a bottle that appears to be a potion.'); outtextxy(10, 170,'On the table you can see a bottle that appears to be a potion.');
end end
else else
begin begin
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln();
writeln();
outtextxy(10, 20,' ___ '); outtextxy(10, 20,' ___ ');
outtextxy(10, 30,' < > '); outtextxy(10, 30,' < > ');
outtextxy(10, 40,' ) ( '); outtextxy(10, 40,' ) ( ');
@@ -441,15 +387,9 @@ begin
outtextxy(10, 110,' \ / '); outtextxy(10, 110,' \ / ');
outtextxy(10, 120,' `.___.'' '); outtextxy(10, 120,' `.___.'' ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 140,'You are in a room with an empty potion bottle.'); outtextxy(10, 140,'You are in a room with an empty potion bottle.');
end; end;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 190,' _______ ______________ ___ _______'); outtextxy(10, 190,' _______ ______________ ___ _______');
outtextxy(10, 200,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 200,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 210,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 210,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -471,8 +411,6 @@ begin
outtextxy(10, 370,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 370,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 380,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 380,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 400,'There is a door to the west.'); outtextxy(10, 400,'There is a door to the west.');
outtextxy(10, 410,'What do you do?'); outtextxy(10, 410,'What do you do?');
outtextxy(10, 420,'X - Go west.'); outtextxy(10, 420,'X - Go west.');
@@ -502,16 +440,12 @@ begin
repeat repeat
if (drankpotion <> 1) then if (drankpotion <> 1) then
begin begin
writeln();
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 450,'Yuck! It does not taste good. You wonder what will happen...'); outtextxy(10, 450,'Yuck! It does not taste good. You wonder what will happen...');
Delay(5000); Delay(5000);
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 460,'Suddenly you feel much stronger!'); outtextxy(10, 460,'Suddenly you feel much stronger!');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
drankPotion := 1; drankPotion := 1;
Moveto(10,470); Moveto(10,470);
X := getX; X := getX;
@@ -540,10 +474,6 @@ begin
if (havesword <> 1) then if (havesword <> 1) then
begin begin
setcolor(yellow); setcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
outtextxy(10, 20,' (O) '); outtextxy(10, 20,' (O) ');
outtextxy(10, 30,' <M '); outtextxy(10, 30,' <M ');
outtextxy(10, 40,' o <M '); outtextxy(10, 40,' o <M ');
@@ -553,8 +483,6 @@ begin
outtextxy(10, 80,' o <W '); outtextxy(10, 80,' o <W ');
outtextxy(10, 90,' <W '); outtextxy(10, 90,' <W ');
outtextxy(10, 100,' (O) '); outtextxy(10, 100,' (O) ');
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 120,'You are in a room with a golden sword laying across a purple cloth draped over a table.'); outtextxy(10, 120,'You are in a room with a golden sword laying across a purple cloth draped over a table.');
end end
else else
@@ -562,10 +490,6 @@ begin
outtextxy(10, 70,'You are in a room with a purple cloth draped over a table.'); outtextxy(10, 70,'You are in a room with a purple cloth draped over a table.');
end; end;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 160,' _______ ______________ ___ _______'); outtextxy(10, 160,' _______ ______________ ___ _______');
outtextxy(10, 170,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 170,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 180,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 180,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -587,8 +511,6 @@ begin
outtextxy(10, 340,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 340,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 350,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 350,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 370,'There is a door to the east.'); outtextxy(10, 370,'There is a door to the east.');
outtextxy(10, 380,'What do you do?'); outtextxy(10, 380,'What do you do?');
outtextxy(10, 390,'X - Go east.'); outtextxy(10, 390,'X - Go east.');
@@ -619,10 +541,8 @@ begin
if (havesword <> 1) then if (havesword <> 1) then
begin begin
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 420,'You pick up the sword and buff it with the cloth, placing the cloth back onto the table.'); outtextxy(10, 420,'You pick up the sword and buff it with the cloth, placing the cloth back onto the table.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
haveSword := 1; haveSword := 1;
Moveto(10, 430); Moveto(10, 430);
X := getX; X := getX;
@@ -651,10 +571,6 @@ begin
if (killedslug <> 1) then if (killedslug <> 1) then
begin begin
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 20,' ____ , '); outtextxy(10, 20,' ____ , ');
outtextxy(10, 30,' /---.''.__ ____// '); outtextxy(10, 30,' /---.''.__ ____// ');
outtextxy(10, 40,' ''--.\ /.---'' '); outtextxy(10, 40,' ''--.\ /.---'' ');
@@ -674,8 +590,6 @@ begin
outtextxy(10, 180,' \\ '); outtextxy(10, 180,' \\ ');
outtextxy(10, 190,' '' '); outtextxy(10, 190,' '' ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 210,'You are in a musty room.'); outtextxy(10, 210,'You are in a musty room.');
outtextxy(10, 220,'On the ground, you see an unusually large spider.'); outtextxy(10, 220,'On the ground, you see an unusually large spider.');
outtextxy(10, 230,'What do you do?'); outtextxy(10, 230,'What do you do?');
@@ -687,11 +601,9 @@ begin
case (choice) of case (choice) of
#120, #88 : begin #120, #88 : begin
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 270,'You cry out in fear and run away.'); outtextxy(10, 270,'You cry out in fear and run away.');
outtextxy(10, 280,'From the distance you hear the princess yell out, "Do I have to save myself!?"'); outtextxy(10, 280,'From the distance you hear the princess yell out, "Do I have to save myself!?"');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10,290); Moveto(10,290);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -700,10 +612,8 @@ begin
end; end;
#111, #79 : begin #111, #79 : begin
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 270,'You get bug guts on your boots as you crush the spider with a violent stomp.'); outtextxy(10, 270,'You get bug guts on your boots as you crush the spider with a violent stomp.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
killedSlug := 1; killedSlug := 1;
Moveto(10, 280); Moveto(10, 280);
X := getX; X := getX;
@@ -717,10 +627,6 @@ begin
else else
begin begin
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 20,' _______ ______________ ___ _______'); outtextxy(10, 20,' _______ ______________ ___ _______');
outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -742,8 +648,6 @@ begin
outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 230,'You are in a room with spider guts smeared on the floor.'); outtextxy(10, 230,'You are in a room with spider guts smeared on the floor.');
outtextxy(10, 240,'There is a door to the west and to the east.'); outtextxy(10, 240,'There is a door to the west and to the east.');
outtextxy(10, 250,'What do you do?'); outtextxy(10, 250,'What do you do?');
@@ -773,10 +677,6 @@ procedure location8;
begin begin
cleardevice; cleardevice;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 20,' _______ ______________ ___ _______'); outtextxy(10, 20,' _______ ______________ ___ _______');
outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -798,8 +698,6 @@ begin
outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 230,'You are in an empty room. The walls feel as though they are emanating heat.'); outtextxy(10, 230,'You are in an empty room. The walls feel as though they are emanating heat.');
outtextxy(10, 240,'There is a door to the west, north, east, and south.'); outtextxy(10, 240,'There is a door to the west, north, east, and south.');
outtextxy(10, 250,'What do you do?'); outtextxy(10, 250,'What do you do?');
@@ -840,10 +738,6 @@ begin
if (haveflower <> 1) then if (haveflower <> 1) then
begin begin
setcolor(yellow); setcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
outtextxy(10, 20,' .-''`''-. _.---. '); outtextxy(10, 20,' .-''`''-. _.---. ');
outtextxy(10, 30,' .'' \ .'' ''. '); outtextxy(10, 30,' .'' \ .'' ''. ');
outtextxy(10, 40,' / \ / \ '); outtextxy(10, 40,' / \ / \ ');
@@ -864,8 +758,6 @@ begin
outtextxy(10, 190,' `--`/` '); outtextxy(10, 190,' `--`/` ');
outtextxy(10, 200,' ` '); outtextxy(10, 200,' ` ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 220,'You are in a humid, musty room.'); outtextxy(10, 220,'You are in a humid, musty room.');
outtextxy(10, 230,'On the ground, you see a single yellow flower growing.'); outtextxy(10, 230,'On the ground, you see a single yellow flower growing.');
end end
@@ -874,10 +766,6 @@ begin
outtextxy(10, 150,'You are in a humid, musty room. You see a patch of dirt where flowers once grew.'); outtextxy(10, 150,'You are in a humid, musty room. You see a patch of dirt where flowers once grew.');
end; end;
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 240,' _______ ______________ ___ _______'); outtextxy(10, 240,' _______ ______________ ___ _______');
outtextxy(10, 250,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 250,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 260,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 260,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -899,8 +787,6 @@ begin
outtextxy(10, 420,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 420,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 430,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 430,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 450,'There is a door to the west.'); outtextxy(10, 450,'There is a door to the west.');
outtextxy(10, 460,'What do you do?'); outtextxy(10, 460,'What do you do?');
outtextxy(10, 470,'X - Go west.'); outtextxy(10, 470,'X - Go west.');
@@ -931,11 +817,9 @@ begin
if (haveflower <> 1) then if (haveflower <> 1) then
begin begin
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 500,'You pick the flower and place it in your chainmail.'); outtextxy(10, 500,'You pick the flower and place it in your chainmail.');
outtextxy(10, 510,'It smells subtle and sweet.'); outtextxy(10, 510,'It smells subtle and sweet.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
haveflower := 1; haveflower := 1;
Moveto(10, 520); Moveto(10, 520);
X := getX; X := getX;
@@ -964,10 +848,6 @@ begin
if (killedDragon <> 1) then if (killedDragon <> 1) then
begin begin
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln();
writeln();
writeln();
outtextxy(10, 20,' .%%, '); outtextxy(10, 20,' .%%, ');
outtextxy(10, 30,' X:-x\\'', '); outtextxy(10, 30,' X:-x\\'', ');
outtextxy(10, 40,' X:/%%;::\\:X '); outtextxy(10, 40,' X:/%%;::\\:X ');
@@ -1000,8 +880,6 @@ begin
outtextxy(10, 310,' kJP.Ql\\; XQ. J Q J : ; k:lX '); outtextxy(10, 310,' kJP.Ql\\; XQ. J Q J : ; k:lX ');
outtextxy(10, 320,' 6Q : Q%% \\Q Q J ;'''''''''':.:;''''::. : k:lX '); outtextxy(10, 320,' 6Q : Q%% \\Q Q J ;'''''''''':.:;''''::. : k:lX ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 340,'You are in a room, the heat is opressive. Your armour is warming up.'); outtextxy(10, 340,'You are in a room, the heat is opressive. Your armour is warming up.');
Delay(5000); Delay(5000);
outtextxy(10, 350,'You see the dragon!'); outtextxy(10, 350,'You see the dragon!');
@@ -1017,11 +895,9 @@ begin
case (choice) of case (choice) of
#120, #88 : begin #120, #88 : begin
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 410,'You run away wailing.'); outtextxy(10, 410,'You run away wailing.');
outtextxy(10, 420,'You hear the princess call out, "Where are you going, knight!? Help me!"'); outtextxy(10, 420,'You hear the princess call out, "Where are you going, knight!? Help me!"');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 430); Moveto(10, 430);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -1032,7 +908,6 @@ begin
if (havesword <> 1) then if (havesword <> 1) then
begin begin
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 410,'You lunge at the dragon.'); outtextxy(10, 410,'You lunge at the dragon.');
Delay(5000); Delay(5000);
outtextxy(10, 420,'It snorts amused at the image of you desperately clawing at him with your measely iron sword.'); outtextxy(10, 420,'It snorts amused at the image of you desperately clawing at him with your measely iron sword.');
@@ -1041,7 +916,6 @@ begin
Delay(5000); Delay(5000);
outtextxy(10, 440,'You are dead.'); outtextxy(10, 440,'You are dead.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 450); Moveto(10, 450);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -1051,7 +925,6 @@ begin
else if (drankpotion <> 1) then else if (drankpotion <> 1) then
begin begin
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 410,'You lunge at the dragon swinging the golden sword.'); outtextxy(10, 410,'You lunge at the dragon swinging the golden sword.');
Delay(5000); Delay(5000);
outtextxy(10, 420,'But you just don''t have the strength to pierce his incredible scales.'); outtextxy(10, 420,'But you just don''t have the strength to pierce his incredible scales.');
@@ -1060,7 +933,6 @@ begin
Delay(5000); Delay(5000);
outtextxy(10, 440,'You are dead.'); outtextxy(10, 440,'You are dead.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 450); Moveto(10, 450);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -1070,7 +942,6 @@ begin
else else
begin begin
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 410,'You lunge at the dragon swinging the golden sword with fervour.'); outtextxy(10, 410,'You lunge at the dragon swinging the golden sword with fervour.');
Delay(5000); Delay(5000);
outtextxy(10, 420,'You drive your sword deep into the dragon''s chest, plunging it into it''s dark heart.'); outtextxy(10, 420,'You drive your sword deep into the dragon''s chest, plunging it into it''s dark heart.');
@@ -1080,7 +951,6 @@ begin
outtextxy(10, 440,'It snorts it''s final breath as life ebbs from it''s nostrils.'); outtextxy(10, 440,'It snorts it''s final breath as life ebbs from it''s nostrils.');
Delay(5000); Delay(5000);
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
killedDragon := 1; killedDragon := 1;
Moveto(10, 450); Moveto(10, 450);
X := getX; X := getX;
@@ -1095,10 +965,6 @@ begin
else else
begin begin
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
outtextxy(10, 20,' _______ ______________ ___ _______'); outtextxy(10, 20,' _______ ______________ ___ _______');
outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
@@ -1120,8 +986,6 @@ begin
outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|');
outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 230,'You are in a room with the carcass of a dead dragon.'); outtextxy(10, 230,'You are in a room with the carcass of a dead dragon.');
outtextxy(10, 240,'There is a door to the south and north.'); outtextxy(10, 240,'There is a door to the south and north.');
outtextxy(10, 250,'What do you do?'); outtextxy(10, 250,'What do you do?');
@@ -1153,10 +1017,6 @@ begin
if (haveflower <> 1) then if (haveflower <> 1) then
begin begin
setcolor(yellow); setcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
outtextxy(10, 20,' %%%%%%%% '); outtextxy(10, 20,' %%%%%%%% ');
outtextxy(10, 30,' %%%%%%%%-( '); outtextxy(10, 30,' %%%%%%%%-( ');
outtextxy(10, 40,' _%%%%%%%%%%_/ '); outtextxy(10, 40,' _%%%%%%%%%%_/ ');
@@ -1177,23 +1037,18 @@ begin
outtextxy(10, 190,' )|)| '); outtextxy(10, 190,' )|)| ');
outtextxy(10, 200,' ''-''-.\ '); outtextxy(10, 200,' ''-''-.\ ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 220,'You enter the room.'); outtextxy(10, 220,'You enter the room.');
Delay(5000); Delay(5000);
outtextxy(10, 230,'Before you is the most beautiful woman you have ever seen!'); outtextxy(10, 230,'Before you is the most beautiful woman you have ever seen!');
Delay(5000); Delay(5000);
setcolor(yellow); setcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
outtextxy(10, 240,'She looks upset.'); outtextxy(10, 240,'She looks upset.');
Delay(5000); Delay(5000);
setcolor(red); setcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
outtextxy(10, 250,'"No flowers!? Not even a poem!?"'); outtextxy(10, 250,'"No flowers!? Not even a poem!?"');
Delay(5000); Delay(5000);
outtextxy(10, 260,'Annoyed, she pushes you out of the room and huffs at the barred window.'); outtextxy(10, 260,'Annoyed, she pushes you out of the room and huffs at the barred window.');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 270); Moveto(10, 270);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -1203,10 +1058,6 @@ begin
else else
begin begin
setcolor(cyan); setcolor(cyan);
//psvDebugScreenSetFgColor(COLOR_CYAN);
writeln();
writeln();
writeln();
outtextxy(10, 20,' ,-''. '); outtextxy(10, 20,' ,-''. ');
outtextxy(10, 30,' ,@@o. ) '); outtextxy(10, 30,' ,@@o. ) ');
outtextxy(10, 40,' (_ ) '); outtextxy(10, 40,' (_ ) ');
@@ -1236,14 +1087,11 @@ begin
outtextxy(10, 280,' `-___-_ ___-'' '); outtextxy(10, 280,' `-___-_ ___-'' ');
outtextxy(10, 290,' `---___-_____--'' '); outtextxy(10, 290,' `---___-_____--'' ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
outtextxy(10, 310,'You enter the room.'); outtextxy(10, 310,'You enter the room.');
Delay(5000); Delay(5000);
outtextxy(10, 320,'Before you is the most beautiful woman you have ever seen!'); outtextxy(10, 320,'Before you is the most beautiful woman you have ever seen!');
Delay(5000); Delay(5000);
setcolor(green); setcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
outtextxy(10, 330,'She runs toward you with her arms open!'); outtextxy(10, 330,'She runs toward you with her arms open!');
Delay(5000); Delay(5000);
outtextxy(10, 340,'"My hero!!!"'); outtextxy(10, 340,'"My hero!!!"');
@@ -1252,7 +1100,6 @@ begin
Delay(5000); Delay(5000);
outtextxy(10, 360,'"Get me out of here! I want to go home!"'); outtextxy(10, 360,'"Get me out of here! I want to go home!"');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 370); Moveto(10, 370);
X := getX; X := getX;
Y := getY; Y := getY;
@@ -1269,10 +1116,6 @@ begin
killedslug := 0; killedslug := 0;
haveflower := 0; haveflower := 0;
killedDragon := 0; killedDragon := 0;
//savedprincess := 0;
writeln();
writeln();
writeln();
setcolor(yellow); setcolor(yellow);
outtextxy(10,10,' , \ / , '); outtextxy(10,10,' , \ / , ');
outtextxy(10,20,' / \ )\__/( / \ '); outtextxy(10,20,' / \ )\__/( / \ ');
@@ -1295,41 +1138,25 @@ begin
outtextxy(10,190,' |/ ` // '' \| '); outtextxy(10,190,' |/ ` // '' \| ');
outtextxy(10,200,' '' V '' '); outtextxy(10,200,' '' V '' ');
setcolor(8); // 8 is grey but the fucking pascal compiler is stupid and wont accept "grey" setcolor(8); // 8 is grey but the fucking pascal compiler is stupid and wont accept "grey"
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10,210,' A simple choose your own adventure text game '); outtextxy(10,210,' A simple choose your own adventure text game ');
outtextxy(10,220,' by josh_axey ported to windows by IllusionMan1212 '); outtextxy(10,220,' by josh_axey ported to windows by IllusionMan1212 ');
writeln(' ');
writeln(' ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); outtextxy(10,250,' PRESS [START] TO BEGIN YOUR JOURNEY ');
outtextxy(10,230,' PRESS [START] TO BEGIN YOUR JOURNEY ');
choice := ReadKey; choice := ReadKey;
if (choice = #13) then if (choice = #13) then
begin begin
//readkey();
cleardevice; cleardevice;
writeln();
writeln();
writeln();
outtextxy(10, 10,'A herald has come to deliver news from the King to all of his knights.'); outtextxy(10, 10,'A herald has come to deliver news from the King to all of his knights.');
writeln();
Delay(5000); Delay(5000);
outtextxy(10, 30,'The princess and future queen, April, has been kidnapped by a dragon.'); outtextxy(10, 30,'The princess and future queen, April, has been kidnapped by a dragon.');
writeln();
Delay(5000); Delay(5000);
outtextxy(10, 50,'The dragon has stolen her away to his cave in the ruins of an old fortress.'); outtextxy(10, 50,'The dragon has stolen her away to his cave in the ruins of an old fortress.');
writeln();
Delay(5000); Delay(5000);
outtextxy(10, 70,'You have heard tales of her beauty and wit, and hope not only to save her but to ask her hand in marriage.'); outtextxy(10, 70,'You have heard tales of her beauty and wit, and hope not only to save her but to ask her hand in marriage.');
writeln();
Delay(5000); Delay(5000);
outtextxy(10, 90,'You bravely accept the King''s quest and head off into the dark forest, towards the dragon''s lair.'); outtextxy(10, 90,'You bravely accept the King''s quest and head off into the dark forest, towards the dragon''s lair.');
writeln();
Delay(5000); Delay(5000);
writeln();
writeln();
setcolor(8); setcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
outtextxy(10, 100,' .'); outtextxy(10, 100,' .');
outtextxy(10, 110,' . ; '); outtextxy(10, 110,' . ; ');
outtextxy(10, 120,' . . ;%% ;; '); outtextxy(10, 120,' . . ;%% ;; ');
@@ -1359,7 +1186,6 @@ begin
outtextxy(10, 360,' ;%%@@@@%%%%:;;;. '); outtextxy(10, 360,' ;%%@@@@%%%%:;;;. ');
outtextxy(10, 370,' ...;%%@@@@@%%%%:;;;;,.. '); outtextxy(10, 370,' ...;%%@@@@@%%%%:;;;;,.. ');
setcolor(white); setcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
Moveto(10, 380); Moveto(10, 380);
X := getX; X := getX;
Y := getY; Y := getY;