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

Implemented almost half of the code

Browse Source
This commit is contained in:
IllusionMan1212
2018-06-21 22:33:33 +02:00
parent 90950425ea
commit e3226ef901
1 changed files with 525 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TextQuest.pas
+525 -143
View File
@@ -1,142 +1,67 @@
Program TextQuest;
uses crt;
var choice : char;
drankpotion, havesword : integer;
var choice1 : string;
procedure location2 forward;
procedure location4 forward;
procedure location3 forward;
procedure location5 forward;
procedure location6 forward;
procedure location7 forward;
procedure savedprincess;
begin
writeln();
writeln();
writeln();
textcolor(yellow);
writeln(' , \\ / , ');
writeln(' / \\ )\\__/( / \\ ');
writeln(' / \\ (_\\ /_) / \\ ');
writeln(' __________________/_____\\_\\@ @/___/_____\\_________________ ');
writeln(' | |\\../| | ');
writeln(' | \\VV/ | ');
writeln(' | __ __| | | ');
writeln(' | | _ \\ \\ \\ / __| | ');
writeln(' | | __/ ` < | | ');
writeln(' | ________ _| \\___| _/\\_\\ \\__| __ | ');
writeln(' | \\_____ \\ __ __ ____ _______/ |_ | ');
writeln(' | / / \\ \\| | \\_/ __ \\ / ___/\\ __\\ | ');
writeln(' | / \\_/. \\ | /\\ ___/ \\___ \\ | | | ');
writeln(' | \\_____\\ \\_/____/ \\___ >____ > |__| | ');
writeln(' | \\__> \\/ \\/ | ');
writeln(' |_____________________________________________________________| ');
writeln(' | /\\ / \\\\ \\ /\\ | ');
writeln(' | / V )) V \\ | ');
writeln(' |/ ` // '' \\| ');
writeln(' '' V '' ');
textcolor(8); // 8 is grey but the fucking pascal compiler is stupid and wont accept "grey"
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' A simple choose your own adventure text game ');
writeln(' by josh_axey ');
writeln(' ');
writeln(' ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln(' PRESS [START] TO BEGIN YOUR JOURNEY ');
readln();
clrscr;
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln();
writeln();
writeln(' ///........./|\\.........\\\\\\ ');
writeln(' //// : ||| : \\\\\\\\ ');
writeln(' \\\\'''''''''''':''''''''|||'''''''':''''''''''''// ');
writeln(' \\\\`. . ||| . .''// ');
writeln(' \\\\\\`. . ||| . .''/// ');
writeln(' \\\\\\\\`. . ||| . .''//// ');
writeln(' \\\\\\\\\\`. .|||. .''///// ');
writeln(' ''\\\\\\\\\\`.|||.''/////'' ');
writeln(' ''\\\\\\\\\\\\|||//////'' ');
writeln(' ''\\\\\\\\\\|/////'' ');
textcolor(yellow);
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln(' .:::::::::::::::::::::. ');
writeln(' .::::::::''''''''''''''''''::::::::. ');
writeln(' .::::::'''' ''''::::::. ');
writeln(' ::::::'''' '''':::::: ');
writeln(' ::::::'' '':::::: ');
writeln(' ::::::'' '':::::: ');
writeln(' ::::::'' '':::::: ');
writeln(' :::::: :::::: ');
writeln(' :::::: :::::: ');
writeln(' :::::: :::::: ');
writeln(' ::::::. .:::::: ');
writeln(' ::::::. .:::::: ');
writeln(' ::::::. .:::::: ');
writeln(' ::::::.. ..:::::: ');
writeln(' ''::::::.. ..::::::'' ');
writeln(' ''::::::::........::::::::'' ');
writeln(' ''::::::::::::::::::::'' ');
writeln(' ''''::::::::::::'''' ');
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('You have saved princess April.');
Delay(5000);
writeln('You marry her and live happily ever after.');
Delay(5000);
writeln('...');
Delay(5000);
writeln('THE END.');
Delay(5000);
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
end;
clrscr;
writeln();
writeln();
writeln();
writeln('A herald has come to deliver news from the King to all of his knights.');
writeln();
Delay(5000);
writeln('The princess and future queen, April, has been kidnapped by a dragon.');
writeln();
Delay(5000);
writeln('The dragon has stolen her away to his cave in the ruins of an old fortress.');
writeln();
Delay(5000);
writeln('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);
writeln('You bravely accept the King''s quest and head off into the dark forest, towards the dragon''s lair.');
writeln();
Delay(5000);
writeln();
writeln();
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' .');
writeln(' . ; ');
writeln(' . . ;%% ;; ');
writeln(' , , :;%% %%; ');
writeln(' : ; :;%%;'' ., ');
writeln(' ,. %%; %%; ; %%;'' ,;');
writeln(' ; ;%%; %%%%; , %%; ;%%; ,%%''');
writeln(' %%; %%;%%; , ; %%; ;%%; ,%%;'' ');
writeln(' ;%%; %%; ;%%; %% ;%%; ,%%;''');
writeln(' `%%;. ;%%; %%;'' `;%%%%;.%%;''');
writeln(' `:;%%. ;%%%%. %%@; %%; ;@%%;%%''');
writeln(' `:%%;. :;bd%%; %%;@%%;''');
writeln(' `@%%:. :;%%. ;@@%%;'' ');
writeln(' `@%%. `;@%%. ;@@%%; ');
writeln(' `@%%%%. `@%%%% ;@@%%; ');
writeln(' ;@%%. :@%%%% %%@@%%; ');
writeln(' %%@bd%%%%%%bd%%%%:; ');
writeln(' #@%%%%%%%%%%:;;');
writeln(' %%@@%%%%%%::;');
writeln(' %%@@@%%(o); . ''');
writeln(' %%@@@o%%;:(.,'' ');
writeln(' `.. %%@@@o%%::; ');
writeln(' `)@@@o%%::; ');
writeln(' %%@@(o)::; ');
writeln(' .%%@@@@%%::; ');
writeln(' ;%%@@@@%%::;. ');
writeln(' ;%%@@@@%%%%:;;;. ');
writeln(' ...;%%@@@@@%%%%:;;;;,.. ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
write('.');
Delay(3000);
write('.');
Delay(3000);
write('.');
Delay(3000);
clrscr;
writeln();
writeln();
writeln();
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' / \\ /''\\ _ ');
writeln(' \\_.. /''.,/ \\_ .,'' \\ / \\_ ');
writeln(' \\ / \\ _/ \\_ / \\ _ ');
writeln(' \\__,. / \\ / \\/., _| _/ \\ ');
writeln(' \\_/ \\ /'',.,''''\\ \\_ \\_/ \\/ \\ ');
writeln(' _ \\/ / '',../'',.\\ _/ \\ ');
writeln(' / _/m\\ \\ / | \\ /.,/''\\ _\\ ');
writeln(' _/ /MMmm\\ \\_ | \\/ \\_/ \\ ');
writeln(' / \\ |MMMMmm| \\__ \\ \\_ \\ \\_ ');
writeln(' \\ /MMMMMMm| \\ \\ \\ \\ \\ ');
writeln(' \\ |MMMMMMmm\\ \\___ \\_ \\_ \\ ');
writeln(' \\|MMMMMMMMmm|____.'' /\\_ \\ \\ \\_ ');
writeln(' /''.,___________...,,'' \\ \\ \\ \\ ');
writeln(' / \\ | \\ |__ \\ \\_ \\ ');
writeln(' _/ | \\ \\_ \\ \\ \\ \\_ ');
writeln(' / \\ \\ \\_ \\ \\ ');
writeln(' \\ \\ \\ \\__ \\ ');
writeln(' \\ \\_ \\ \\ \\ ');
writeln(' | \\ \\ \\ \\ ');
writeln(' \\ | \\ ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You see the entrance to the dragon''s lair to the north.');
writeln('You hear the princess yelling, "Help me! Help me!"');
writeln('You hear the bellow of the dragon.');
writeln('What do you do?');
writeln('X - Enter the lair.');
writeln('O - Run away.');
writeln('? ');
readln(choice1);
if (choice1 = 'O') or (choice1 = 'o') then
procedure coward;
begin
clrscr;
textcolor(8);
@@ -189,13 +114,470 @@ begin
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
readln();
end
else
begin
repeat
WriteLn('Please enter a correct answer');
readln(choice1);
until (choice1 = 'x') or (choice1 = 'X') or (choice1 = 'O') or (choice1 = 'o')
end;
// Very incomplete, needs a lot of reworking
halt;
end;
procedure location1;
begin
clrscr;
writeln();
writeln();
writeln();
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' / \\ /''\\ _ ');
writeln(' \\_.. /''.,/ \\_ .,'' \\ / \\_ ');
writeln(' \\ / \\ _/ \\_ / \\ _ ');
writeln(' \\__,. / \\ / \\/., _| _/ \\ ');
writeln(' \\_/ \\ /'',.,''''\\ \\_ \\_/ \\/ \\ ');
writeln(' _ \\/ / '',../'',.\\ _/ \\ ');
writeln(' / _/m\\ \\ / | \\ /.,/''\\ _\\ ');
writeln(' _/ /MMmm\\ \\_ | \\/ \\_/ \\ ');
writeln(' / \\ |MMMMmm| \\__ \\ \\_ \\ \\_ ');
writeln(' \\ /MMMMMMm| \\ \\ \\ \\ \\ ');
writeln(' \\ |MMMMMMmm\\ \\___ \\_ \\_ \\ ');
writeln(' \\|MMMMMMMMmm|____.'' /\\_ \\ \\ \\_ ');
writeln(' /''.,___________...,,'' \\ \\ \\ \\ ');
writeln(' / \\ | \\ |__ \\ \\_ \\ ');
writeln(' _/ | \\ \\_ \\ \\ \\ \\_ ');
writeln(' / \\ \\ \\_ \\ \\ ');
writeln(' \\ \\ \\ \\__ \\ ');
writeln(' \\ \\_ \\ \\ \\ ');
writeln(' | \\ \\ \\ \\ ');
writeln(' \\ | \\ ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You see the entrance to the dragon''s lair to the north.');
writeln('You hear the princess yelling, "Help me! Help me!"');
writeln('You hear the bellow of the dragon.');
writeln('What do you do?');
writeln('X - Enter the lair.');
writeln('O - Run away.');
writeln('? ');
readln(choice);
case (choice) of
'O' : coward;
'o' : coward;
'X' : location2;
end;
end;
procedure location2;
begin
clrscr;
writeln();
writeln();
writeln();
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
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 inside the dragon''s burned fortress lair.');
writeln('The heat is opressive and the stench of brimstone burns your nostrils.');
writeln('You see a door leading west, a door leading east, and a door leading south.');
writeln('What do you do?');
writeln('X - Go east.');
writeln('O - Go west.');
writeln('^ - Go south.');
writeln('? ');
readln(choice);
case (choice) of
'X' : location4;
'O' : location3;
'^' : location1;
end;
end;
procedure location3;
begin
writeln();
writeln();
writeln();
writeln('It''s very dark in this room.');
Delay(5000);
writeln('You cannot see a thing.');
Delay(5000);
writeln('You feel your way around the room, finding nothing as a point of reference and nothing of interest.');
Delay(5000);
writeln('Fumbling, you finnally find your way out of the room.');
readln();
location2;
end;
procedure location4;
begin
clrscr;
writeln();
writeln();
writeln();
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln(' \\_______/ ');
writeln(' `.,-''\\_____/`-.,'' ');
writeln(' /`..''\\ _ /`.,''\\ ');
writeln(' / /`.,'' `.,''\\ \\ ');
writeln(' /__/__/ \\__\\__\\ ');
writeln(' \\ \\ \\ / / / ');
writeln(' \\ \\,''`._,''`./ / ');
writeln(' \\,''`./___\\,''`./ ');
writeln(' ,''`-./_____\\,-''`. ');
writeln(' / \\ ');
//psvDebugScreenSetFgColor(COLOR_WHITE);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' _______ ______________ ___ _______');
writeln(' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|');
writeln(' |____|__|////////// \\|_|_|\\\\\\\\|__|____|');
writeln(' |_|_____|///////// |\\\\\\\\|_____|_|');
writeln(' |____|__|//////// |\\\\\\\\|__|____|');
writeln(' |_|_____|/////// |\\\\\\\\|_____|_|');
writeln(' |____|__|////// |\\\\\\\\|__|____|');
writeln(' |_|_____|///// \\\\\\\\|_____|_|');
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are standing in a room covered in spider webs.');
writeln('There are doors leading west, north, and east.');
writeln('What do you do?');
writeln('X - Go east.');
writeln('O - Go north.');
writeln('^ - Go west.');
writeln('? ');
readln(choice);
case (choice) of
'X' : location5;
'O' : location8;
'^' : location2;
end;
end;
procedure location5;
begin
if (drankpotion <> 1) then
begin
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln();
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 room with a table.');
writeln('On the table you can see a bottle that appears to be a potion.');
end
else
begin
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln();
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 room with an empty potion bottle.');
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 (drankpotion <> 1) then
begin
writeln('O - Drink the potion.');
end;
writeln('? ');
readln(choice);
case (choice) of
'X' : location4;
'O' : begin
if (drankpotion <> 1) then
begin
writeln();
textcolor(red);
//psvDebugScreenSetFgColor(COLOR_RED);
writeln('Yuck! It does not taste good. You wonder what will happen...');
Delay(5000);
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('Suddenly you feel much stronger!');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
drankPotion := 1;
end;
readln();
location6;
end;
end;
end;
procedure location6;
begin
clrscr;
if (havesword <> 1) then
begin
//psvDebugScreenSetFgColor(COLOR_YELLOW);
writeln();
writeln();
writeln();
writeln(' (O) ');
writeln(' <M ');
writeln(' o <M ');
writeln(' /| ...... /:M\\------------------------------------------------,,,,,, ');
writeln(' (O)[]XXXXXX[]I:K+}=====<{H}>================================------------> ');
writeln(' \\| ^^^^^^ \\:W/------------------------------------------------''''''''''''''');
writeln(' o <W ');
writeln(' <W ');
writeln(' (O) ');
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln();
writeln('You are in a room with a golden sword laying across a purple cloth draped over a table.');
end
else
begin
writeln('You are in a room with a purple cloth draped over a table.');
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 east.');
writeln('What do you do?');
writeln('X - Go east.');
if (havesword <> 1) then
begin
writeln('O - Take the sword.');
end;
writeln('? ');
readln(choice);
case (choice) of
'X' : location7;
'O' : begin
if (havesword <> 1) then
begin
textcolor(green);
//psvDebugScreenSetFgColor(COLOR_GREEN);
writeln('You pick up the sword and buff it with the cloth, placing the cloth back onto the table.');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
haveSword := 1;
end;
readln();
location7;
end;
end;
end;
procedure location7;
begin
//TODO
end;
begin
drankpotion := 0;
havesword := 0;
writeln();
writeln();
writeln();
textcolor(yellow);
writeln(' , \\ / , ');
writeln(' / \\ )\\__/( / \\ ');
writeln(' / \\ (_\\ /_) / \\ ');
writeln(' __________________/_____\\_\\@ @/___/_____\\_________________ ');
writeln(' | |\\../| | ');
writeln(' | \\VV/ | ');
writeln(' | __ __| | | ');
writeln(' | | _ \\ \\ \\ / __| | ');
writeln(' | | __/ ` < | | ');
writeln(' | ________ _| \\___| _/\\_\\ \\__| __ | ');
writeln(' | \\_____ \\ __ __ ____ _______/ |_ | ');
writeln(' | / / \\ \\| | \\_/ __ \\ / ___/\\ __\\ | ');
writeln(' | / \\_/. \\ | /\\ ___/ \\___ \\ | | | ');
writeln(' | \\_____\\ \\_/____/ \\___ >____ > |__| | ');
writeln(' | \\__> \\/ \\/ | ');
writeln(' |_____________________________________________________________| ');
writeln(' | /\\ / \\\\ \\ /\\ | ');
writeln(' | / V )) V \\ | ');
writeln(' |/ ` // '' \\| ');
writeln(' '' V '' ');
textcolor(8); // 8 is grey but the fucking pascal compiler is stupid and wont accept "grey"
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' A simple choose your own adventure text game ');
writeln(' by josh_axey ');
writeln(' ');
writeln(' ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
writeln(' PRESS [START] TO BEGIN YOUR JOURNEY ');
readln();
clrscr;
writeln();
writeln();
writeln();
writeln('A herald has come to deliver news from the King to all of his knights.');
writeln();
Delay(5000);
writeln('The princess and future queen, April, has been kidnapped by a dragon.');
writeln();
Delay(5000);
writeln('The dragon has stolen her away to his cave in the ruins of an old fortress.');
writeln();
Delay(5000);
writeln('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);
writeln('You bravely accept the King''s quest and head off into the dark forest, towards the dragon''s lair.');
writeln();
Delay(5000);
writeln();
writeln();
textcolor(8);
//psvDebugScreenSetFgColor(COLOR_GREY);
writeln(' .');
writeln(' . ; ');
writeln(' . . ;%% ;; ');
writeln(' , , :;%% %%; ');
writeln(' : ; :;%%;'' ., ');
writeln(' ,. %%; %%; ; %%;'' ,;');
writeln(' ; ;%%; %%%%; , %%; ;%%; ,%%''');
writeln(' %%; %%;%%; , ; %%; ;%%; ,%%;'' ');
writeln(' ;%%; %%; ;%%; %% ;%%; ,%%;''');
writeln(' `%%;. ;%%; %%;'' `;%%%%;.%%;''');
writeln(' `:;%%. ;%%%%. %%@; %%; ;@%%;%%''');
writeln(' `:%%;. :;bd%%; %%;@%%;''');
writeln(' `@%%:. :;%%. ;@@%%;'' ');
writeln(' `@%%. `;@%%. ;@@%%; ');
writeln(' `@%%%%. `@%%%% ;@@%%; ');
writeln(' ;@%%. :@%%%% %%@@%%; ');
writeln(' %%@bd%%%%%%bd%%%%:; ');
writeln(' #@%%%%%%%%%%:;;');
writeln(' %%@@%%%%%%::;');
writeln(' %%@@@%%(o); . ''');
writeln(' %%@@@o%%;:(.,'' ');
writeln(' `.. %%@@@o%%::; ');
writeln(' `)@@@o%%::; ');
writeln(' %%@@(o)::; ');
writeln(' .%%@@@@%%::; ');
writeln(' ;%%@@@@%%::;. ');
writeln(' ;%%@@@@%%%%:;;;. ');
writeln(' ...;%%@@@@@%%%%:;;;;,.. ');
textcolor(white);
//psvDebugScreenSetFgColor(COLOR_WHITE);
write('.');
Delay(3000);
write('.');
Delay(3000);
write('.');
Delay(3000);
location1;
end.