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

80% done

Browse Source
This commit is contained in:
IllusionMan1212
2018-06-25 01:16:00 +02:00
parent e3226ef901
commit e4d7da75c4
1 changed files with 617 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TextQuest.pas
+617 -28
View File
@@ -1,7 +1,7 @@
Program TextQuest; Program TextQuest;
uses crt; uses crt;
var choice : char; var choice : string;
drankpotion, havesword : integer; drankpotion, havesword, killedslug, haveflower, killedDragon {savedprincess} : integer;
procedure location2 forward; procedure location2 forward;
procedure location4 forward; procedure location4 forward;
@@ -9,7 +9,22 @@ procedure location3 forward;
procedure location5 forward; procedure location5 forward;
procedure location6 forward; procedure location6 forward;
procedure location7 forward; procedure location7 forward;
procedure savedprincess; procedure location8 forward;
procedure location9 forward;
procedure location10 forward;
procedure location11 forward;
procedure wait;
begin
write('.');
Delay(2500);
write('.');
Delay(2500);
write('.');
Delay(2500);
end;
procedure savedprincess1;
begin begin
clrscr; clrscr;
textcolor(white); textcolor(white);
@@ -101,8 +116,8 @@ procedure coward;
writeln(' : : J | .-'' .'' \\ \\''.''''''.''.'' '); writeln(' : : J | .-'' .'' \\ \\''.''''''.''.'' ');
writeln(' : : \\ | .-'' .'' .\\ _-'' '); writeln(' : : \\ | .-'' .'' .\\ _-'' ');
writeln(' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' '); writeln(' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' ');
//psvDebugScreenSetFgColor(COLOR_RED);
textcolor(RED); textcolor(RED);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln(); writeln();
writeln('You run away from your quest like a coward.'); writeln('You run away from your quest like a coward.');
Delay(5000); Delay(5000);
@@ -113,7 +128,7 @@ procedure coward;
writeln('The rest of your days are spent rotting in the dungeons.'); writeln('The rest of your days are spent rotting in the dungeons.');
textcolor(white); textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
readln(); Delay(4000);
halt; halt;
end; end;
@@ -157,9 +172,14 @@ begin
writeln('? '); writeln('? ');
readln(choice); readln(choice);
case (choice) of case (choice) of
'O' : coward; 'O' : begin
'o' : coward; wait;
'X' : location2; coward;
end;
'X' : begin
wait;
location2;
end;
end; end;
end; end;
@@ -204,9 +224,18 @@ begin
writeln('? '); writeln('? ');
readln(choice); readln(choice);
case (choice) of case (choice) of
'X' : location4; 'X' : begin
'O' : location3; wait;
'^' : location1; location4;
end;
'O' : begin
wait;
location3;
end;
'^' : begin
wait;
location1;
end;
end; end;
end; end;
@@ -223,7 +252,7 @@ begin
writeln('You feel your way around the room, finding nothing as a point of reference and nothing of interest.'); writeln('You feel your way around the room, finding nothing as a point of reference and nothing of interest.');
Delay(5000); Delay(5000);
writeln('Fumbling, you finnally find your way out of the room.'); writeln('Fumbling, you finnally find your way out of the room.');
readln(); wait;
location2; location2;
end; end;
@@ -234,6 +263,7 @@ begin
writeln(); writeln();
writeln(); writeln();
writeln(); writeln();
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
writeln(' \\_______/ '); writeln(' \\_______/ ');
writeln(' `.,-''\\_____/`-.,'' '); writeln(' `.,-''\\_____/`-.,'' ');
@@ -245,7 +275,9 @@ begin
writeln(' \\,''`./___\\,''`./ '); writeln(' \\,''`./___\\,''`./ ');
writeln(' ,''`-./_____\\,-''`. '); writeln(' ,''`-./_____\\,-''`. ');
writeln(' / \\ '); writeln(' / \\ ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY); //psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' _______ ______________ ___ _______'); writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
@@ -267,6 +299,7 @@ begin
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|'); writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|'); writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|'); writeln(' |_|_____|///// \\\\\\\\|_____|_|');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
writeln(); writeln();
writeln('You are standing in a room covered in spider webs.'); writeln('You are standing in a room covered in spider webs.');
@@ -278,9 +311,18 @@ begin
writeln('? '); writeln('? ');
readln(choice); readln(choice);
case (choice) of case (choice) of
'X' : location5; 'X' : begin
'O' : location8; wait;
'^' : location2; location5;
end;
'O' : begin
wait;
location8;
end;
'^' : begin
wait;
location2;
end;
end; end;
end; end;
@@ -375,7 +417,10 @@ begin
writeln('? '); writeln('? ');
readln(choice); readln(choice);
case (choice) of case (choice) of
'X' : location4; 'X' : begin
wait;
location4;
end;
'O' : begin 'O' : begin
if (drankpotion <> 1) then if (drankpotion <> 1) then
begin begin
@@ -391,8 +436,8 @@ begin
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
drankPotion := 1; drankPotion := 1;
end; end;
readln(); wait;
location6; location5;
end; end;
end; end;
end; end;
@@ -402,6 +447,7 @@ begin
clrscr; clrscr;
if (havesword <> 1) then if (havesword <> 1) then
begin begin
textcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW); //psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln(); writeln();
writeln(); writeln();
@@ -461,7 +507,10 @@ begin
writeln('? '); writeln('? ');
readln(choice); readln(choice);
case (choice) of case (choice) of
'X' : location7; 'X' : begin
wait;
location7;
end;
'O' : begin 'O' : begin
if (havesword <> 1) then if (havesword <> 1) then
begin begin
@@ -472,20 +521,565 @@ begin
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
haveSword := 1; haveSword := 1;
end; end;
readln(); wait;
location7; location6;
end; end;
end; end;
end; end;
procedure location7; procedure location7;
begin begin
//TODO clrscr;
if (killedslug <> 1) then
begin
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln(' ____ , ');
writeln(' /---.''.__ ____// ');
writeln(' ''--.\\ /.---'' ');
writeln(' _______ \\\\ // ');
writeln(' /.------.\\ \\| .''/ ______ ');
writeln(' // ___ \\ \\ ||/|\\ // _/_----.\\__ ');
writeln(' |/ /.-.\\ \\ \\:|< >|// _/.''..\\ ''--'' ');
writeln(' // \\''. | \\''.|.''/ /_/ / \\\\ ');
writeln(' // \\ \\_\\/'' '' ~\\-''.-'' \\\\ ');
writeln(' // ''-._| :H: |''-.__ \\\\ ');
writeln(' // (/''===''\\)''-._\\ || ');
writeln(' || \\\\ \\| ');
writeln(' || \\\\ '' ');
writeln(' |/ \\\\ ');
writeln(' || ');
writeln(' || ');
writeln(' \\\\ ');
writeln(' '' ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a musty room.');
writeln('On the ground, you see an unusually large spider.');
writeln('What do you do?');
writeln('X - Run away.');
writeln('O - Crunch it under your heel.');
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('You cry out in fear and run away.');
writeln('From the distance you hear the princess yell out, "Do I have to save myself!?"');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
wait;
location8;
end;
'O' : begin
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('You get bug guts on your boots as you crush the spider with a violent stomp.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
killedSlug := 1;
wait;
location7;
end;
end;
end
else
begin
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|////////// \\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////// |\\\\\\\\|_____|_|');
writeln(' |____|__|//////// |\\\\\\\\|__|____|');
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a room with spider guts smeared on the floor.');
writeln('There is a door to the west and to the east.');
writeln('What do you do?');
writeln('X - Go west.');
writeln('O - Go east.');
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
wait;
location6;
end;
'O' : begin
wait;
location8;
end;
end;
end;
end;
procedure location8;
begin
clrscr;
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|////////// \\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////// |\\\\\\\\|_____|_|');
writeln(' |____|__|//////// |\\\\\\\\|__|____|');
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in an empty room. The walls feel as though they are emanating heat.');
writeln('There is a door to the west, north, east, and south.');
writeln('What do you do?');
writeln('X - Go west.');
writeln('O - Go north.');
writeln('^ - Go east.');
writeln('[] - Go south.');
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
wait;
location7;
end;
'O' : begin
wait;
location10;
end;
'^' : begin
wait;
location9;
end;
'S' : begin
wait;
location4;
end;
end;
end;
procedure location9;
begin
clrscr;
if (haveflower <> 1) then
begin
textcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
writeln(' .-''`''-. _.---. ');
writeln(' .'' \\ .'' ''. ');
writeln(' / \\ / \\ ');
writeln(' | __ Y __ | ');
writeln(' | .''` ''-./ .-'' `''. | ');
writeln(' \\ / '',,'' \\ /-. ');
writeln(' \\| .-''()''-. |/--.`\\ ');
writeln(' | /` /||\\ `\\ | \\ \\ ');
writeln(' \\ | | / ; ; ');
writeln(' ''--`\\ /`--'' | | ');
writeln(' ''-.__.-'' ; ; ');
writeln(' __ / / ');
writeln(' .-''''''-` ''. .-. _ /`/` ');
writeln(' (_ .--..._ `-'' \\_| \\ /`/` ');
writeln(' ''.__. `---._ |/`/` ');
writeln(' `) _.. ''-./`/` ');
writeln(' (__.-'' _) /`/` ');
writeln(' `--`/` ');
writeln(' ` ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a humid, musty room.');
writeln('On the ground, you see a single yellow flower growing.');
end
else
begin
writeln('You are in a humid, musty room. You see a patch of dirt where flowers once grew.');
end;
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|////////// \\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////// |\\\\\\\\|_____|_|');
writeln(' |____|__|//////// |\\\\\\\\|__|____|');
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('There is a door to the west.');
writeln('What do you do?');
writeln('X - Go west.');
if (haveflower <> 1) then
begin
writeln('O - Pick the flower');
end;
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
wait;
location8;
end;
'O' : if (haveflower <> 1) then
begin
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('You pick the flower and place it in your chainmail.');
writeln('It smells subtle and sweet.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
haveflower := 1;
wait;
location9;
end;
end;
end;
procedure location10;
begin
clrscr;
if (killedDragon <> 1) then
begin
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln();
writeln();
writeln();
writeln(' .%%, ');
writeln(' X:-x\\'', ');
writeln(' X:/%%;::\\:X ');
writeln(' X:l%% ; :''\\:X ');
writeln(' X:l%% : : ''\\:X ');
writeln(' X:l%% : : ''\\:X ');
writeln(' b, b, X:/l%% : : \\:X ');
writeln(' JPQ, JPQ, X:l%% : : ''\\:X ');
writeln(' .dP''d|._,=dPQq\\ X:l%%'' : : ''\\:X ');
writeln(' xdP #P''_ _,: .X:l%% : : ''\\:X ');
writeln(' .d/''p '' ''O \\ ''O:; X:l%%'' : : \\:X ');
writeln(' ,pP'' q. \\: `# X:ld : : '':X ');
writeln(' ,d'' ,pq .,-qx_, ''\\ `Q: l%% : : k:X ');
writeln(' ./'' Jp . ` ` 3 %% : ; k:X ');
writeln(' dP p p ` `q : : k:X ');
writeln(' d/ ; J,/'';xpx''\\: ''*q ` `\\, : : l:X. ');
writeln(' dP ;'' dP ''\\:_,`.q. /d b\\ : : k:X ');
writeln(' .d'' ; dP .\\_j ''- u-'' : : k:X ');
writeln('X ./'' ;'' /'''' .'' : ; k:X ');
writeln('\\X .d'' ; ,'''' : X:l%% : : k:X ');
writeln(':\\X d'' ; ./'' : X:/%% : ; k:X ');
writeln('::lX JP ; J : .X:/ %% : : k;X ');
writeln('k:lX #'' : j'' : .X:/ %% : : d:lX ');
writeln('k:lX |P ; | : .X:/ %% : ; k;lX ');
writeln('k:lX || ; |'' : X:/ %% ; : d:;X'' ');
writeln('k:lX d| ; :l :X:/ %%'' : : k:lX ');
writeln('k:iX #| ; || X:/ %% ; ; k:lX ');
writeln(' k:\\X || ; || X:/ %% : : k:lX ');
writeln(' k:\\pQJb ; \.PQ XX/ %% ; ; k:lX ');
writeln(' kJP.Ql\\; XQ. J Q J : ; k:lX ');
writeln(' 6Q : Q%% \\Q Q J ;'''''''''':.:;''''::. : k:lX ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a room, the heat is opressive. Your armour is warming up.');
Delay(5000);
writeln('You see the dragon!');
Delay(5000);
writeln('Fear grips you.');
Delay(5000);
writeln('What do you do?');
writeln('X - Run away.');
writeln('O - Fight the dragon.');
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('You run away wailing.');
writeln('You hear the princess call out, "Where are you going, knight!? Help me!"');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
wait;
location8;
end;
'O' : begin
if (havesword <> 1) then
begin
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('You lunge at the dragon.');
Delay(5000);
writeln('It snorts amused at the image of you desperately clawing at him with your measely iron sword.');
Delay(5000);
writeln('The dragon arches down and swallows you.');
Delay(5000);
writeln('You are dead.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
wait;
//dead = 1; TODO: make a "dead" procedure.
end
else if (drankpotion <> 1) then
begin
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('You lunge at the dragon swinging the golden sword.');
Delay(5000);
writeln('But you just don''t have the strength to pierce his incredible scales.');
Delay(5000);
writeln('It breathes a burst of fire and burns you to a crisp.');
Delay(5000);
writeln('You are dead.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
wait;
//dead = 1; TODO: make a "dead" procedure
end
else
begin
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('You lunge at the dragon swinging the golden sword with fervour.');
Delay(5000);
writeln('You drive your sword deep into the dragon''s chest, plunging it into it''s dark heart.');
Delay(5000);
writeln('The dragon roars in pain, clasping at it''s chest.');
Delay(5000);
writeln('It snorts it''s final breath as life ebbs from it''s nostrils.');
Delay(5000);
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
killedDragon := 1;
wait;
location10;
end;
end;
end;
end
else
begin
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
writeln();
writeln();
writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|////////// \\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////// |\\\\\\\\|_____|_|');
writeln(' |____|__|//////// |\\\\\\\\|__|____|');
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a room with the carcass of a dead dragon.');
writeln('There is a door to the south and north.');
writeln('What do you do?');
writeln('X - Go north.');
writeln('O - Go south.');
writeln('? ');
readln(choice);
case (choice) of
'X' : begin
wait;
location11;
end;
'O' : begin
wait;
location8;
end;
end;
end;
end;
procedure location11;
begin
clrscr;
if (haveflower <> 1) then
begin
textcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
writeln(' %%%%%%%% ');
writeln(' %%%%%%%%-( ');
writeln(' _%%%%%%%%%%_/ ');
writeln(' _%%%%%%%%%%%%%%%% ');
writeln(' _%%%%%%%%%%%%%%/ \\%% ');
writeln(' %%%%%%%%%%%%%%%%%%\\\\ \\_ ');
writeln(' %%%%%%%%%%%% \\ \\\\ ');
writeln(' ) /\\_/ ');
writeln(' /(___. \\ ');
writeln(' ''----'' ( ');
writeln(' / ) ');
writeln(' / ( ');
writeln(' / ) ');
writeln(' ,'' ( ');
writeln(' ,-'' ) ');
writeln(' ''-._ ''-..___( ');
writeln(' ``---....__) ');
writeln(' )|)| ');
writeln(' ''-''-.\\ ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You enter the room.');
Delay(5000);
writeln('Before you is the most beautiful woman you have ever seen!');
Delay(5000);
textcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln('She looks upset.');
Delay(5000);
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('"No flowers!? Not even a poem!?"');
Delay(5000);
writeln('Annoyed, she pushes you out of the room and huffs at the barred window.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
wait;
location10;
end
else
begin
textcolor(cyan);
//psvDebugScreenSetFgColor(COLOR_CYAN);
writeln();
writeln();
writeln();
writeln(' ,-''. ');
writeln(' ,@@o. ) ');
writeln(' (_ ) ');
writeln(' s S. '' ');
writeln(' )= ''? / ');
writeln(' \\ (` ');
writeln(' `-; \\ ');
writeln(' /,-. ) ');
writeln(' ,-''''-.`-''| ');
writeln(' ( /\\/{_\\ ! ');
writeln(' ,/\\/\\/ {_\\ ; ');
writeln(' /\\/\\/\\ {V ');
writeln(' ,/\\/\\// ) (_ ');
writeln(' ,\\/\\/\\//,- `-. ');
writeln(' /\\/\\/\\/-'' \\_ `-. ');
writeln(' __,--\\/\\/\\/( ''. `-. `. ');
writeln(' ///`-\\/\\/ \\ `. `-.__ `. ');
writeln(' ,\\/ `. `. `----''''\\ ');
writeln(' / `. `-. \\ ');
writeln(' / `-. `-. \\ ');
writeln(' / `-. `----''--'''' \\ ');
writeln(' / `-.____.__.-''-'' ');
writeln(' / \\ ');
writeln(' / \\ ');
writeln(' / \\ ');
writeln(' `--___-_ __-__--'' ');
writeln(' `-___-_ ___-'' ');
writeln(' `---___-_____--'' ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You enter the room.');
Delay(5000);
writeln('Before you is the most beautiful woman you have ever seen!');
Delay(5000);
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('She runs toward you with her arms open!');
Delay(5000);
writeln('"My hero!!!"');
Delay(5000);
writeln('"What a beautfil flower! I love flowers!"');
Delay(5000);
writeln('"Get me out of here! I want to go home!"');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
//savedprincess := 1;
wait;
savedprincess1;
end;
end; end;
begin begin
drankpotion := 0; drankpotion := 0;
havesword := 0; havesword := 0;
killedslug := 0;
haveflower := 0;
killedDragon := 0;
//savedprincess := 0;
writeln(); writeln();
writeln(); writeln();
writeln(); writeln();
@@ -573,11 +1167,6 @@ begin
writeln(' ...;%%@@@@@%%%%:;;;;,.. '); writeln(' ...;%%@@@@@%%%%:;;;;,.. ');
textcolor(white); textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE); //psvDebugScreenSetFgColor(COLOR_WHITE);
write('.'); wait;
Delay(3000);
write('.');
Delay(3000);
write('.');
Delay(3000);
location1; location1;
end. end.