mirror of
https://github.com/IllusionMan1212/TextQuest-win.git
synced 2026-10-24 10:12:29 +00:00
Implemented almost half of the code
This commit is contained in:
IllusionMan1212
+515
-133
@@ -1,142 +1,67 @@
|
|||||||
Program TextQuest;
|
Program TextQuest;
|
||||||
uses crt;
|
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
|
begin
|
||||||
|
clrscr;
|
||||||
|
textcolor(white);
|
||||||
|
//psvDebugScreenSetFgColor(COLOR_WHITE);
|
||||||
writeln();
|
writeln();
|
||||||
writeln();
|
writeln();
|
||||||
writeln();
|
writeln();
|
||||||
|
writeln(' ///........./|\\.........\\\\\\ ');
|
||||||
|
writeln(' //// : ||| : \\\\\\\\ ');
|
||||||
|
writeln(' \\\\'''''''''''':''''''''|||'''''''':''''''''''''// ');
|
||||||
|
writeln(' \\\\`. . ||| . .''// ');
|
||||||
|
writeln(' \\\\\\`. . ||| . .''/// ');
|
||||||
|
writeln(' \\\\\\\\`. . ||| . .''//// ');
|
||||||
|
writeln(' \\\\\\\\\\`. .|||. .''///// ');
|
||||||
|
writeln(' ''\\\\\\\\\\`.|||.''/////'' ');
|
||||||
|
writeln(' ''\\\\\\\\\\\\|||//////'' ');
|
||||||
|
writeln(' ''\\\\\\\\\\|/////'' ');
|
||||||
textcolor(yellow);
|
textcolor(yellow);
|
||||||
writeln(' , \\ / , ');
|
//psvDebugScreenSetFgColor(COLOR_YELLOW);
|
||||||
writeln(' / \\ )\\__/( / \\ ');
|
writeln(' .:::::::::::::::::::::. ');
|
||||||
writeln(' / \\ (_\\ /_) / \\ ');
|
writeln(' .::::::::''''''''''''''''''::::::::. ');
|
||||||
writeln(' __________________/_____\\_\\@ @/___/_____\\_________________ ');
|
writeln(' .::::::'''' ''''::::::. ');
|
||||||
writeln(' | |\\../| | ');
|
writeln(' ::::::'''' '''':::::: ');
|
||||||
writeln(' | \\VV/ | ');
|
writeln(' ::::::'' '':::::: ');
|
||||||
writeln(' | __ __| | | ');
|
writeln(' ::::::'' '':::::: ');
|
||||||
writeln(' | | _ \\ \\ \\ / __| | ');
|
writeln(' ::::::'' '':::::: ');
|
||||||
writeln(' | | __/ ` < | | ');
|
writeln(' :::::: :::::: ');
|
||||||
writeln(' | ________ _| \\___| _/\\_\\ \\__| __ | ');
|
writeln(' :::::: :::::: ');
|
||||||
writeln(' | \\_____ \\ __ __ ____ _______/ |_ | ');
|
writeln(' :::::: :::::: ');
|
||||||
writeln(' | / / \\ \\| | \\_/ __ \\ / ___/\\ __\\ | ');
|
writeln(' ::::::. .:::::: ');
|
||||||
writeln(' | / \\_/. \\ | /\\ ___/ \\___ \\ | | | ');
|
writeln(' ::::::. .:::::: ');
|
||||||
writeln(' | \\_____\\ \\_/____/ \\___ >____ > |__| | ');
|
writeln(' ::::::. .:::::: ');
|
||||||
writeln(' | \\__> \\/ \\/ | ');
|
writeln(' ::::::.. ..:::::: ');
|
||||||
writeln(' |_____________________________________________________________| ');
|
writeln(' ''::::::.. ..::::::'' ');
|
||||||
writeln(' | /\\ / \\\\ \\ /\\ | ');
|
writeln(' ''::::::::........::::::::'' ');
|
||||||
writeln(' | / V )) V \\ | ');
|
writeln(' ''::::::::::::::::::::'' ');
|
||||||
writeln(' |/ ` // '' \\| ');
|
writeln(' ''''::::::::::::'''' ');
|
||||||
writeln(' '' V '' ');
|
textcolor(green);
|
||||||
textcolor(8); // 8 is grey but the fucking pascal compiler is stupid and wont accept "grey"
|
//psvDebugScreenSetFgColor(COLOR_GREEN);
|
||||||
//psvDebugScreenSetFgColor(COLOR_GREY);
|
writeln('You have saved princess April.');
|
||||||
writeln(' A simple choose your own adventure text game ');
|
Delay(5000);
|
||||||
writeln(' by josh_axey ');
|
writeln('You marry her and live happily ever after.');
|
||||||
writeln(' ');
|
Delay(5000);
|
||||||
writeln(' ');
|
writeln('...');
|
||||||
|
Delay(5000);
|
||||||
|
writeln('THE END.');
|
||||||
|
Delay(5000);
|
||||||
textcolor(white);
|
textcolor(white);
|
||||||
//psvDebugScreenSetFgColor(COLOR_WHITE);
|
//psvDebugScreenSetFgColor(COLOR_WHITE);
|
||||||
writeln(' PRESS [START] TO BEGIN YOUR JOURNEY ');
|
end;
|
||||||
readln();
|
|
||||||
|
|
||||||
clrscr;
|
procedure coward;
|
||||||
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
|
|
||||||
begin
|
begin
|
||||||
clrscr;
|
clrscr;
|
||||||
textcolor(8);
|
textcolor(8);
|
||||||
@@ -189,13 +114,470 @@ begin
|
|||||||
textcolor(white);
|
textcolor(white);
|
||||||
//psvDebugScreenSetFgColor(COLOR_WHITE);
|
//psvDebugScreenSetFgColor(COLOR_WHITE);
|
||||||
readln();
|
readln();
|
||||||
|
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
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
repeat
|
textcolor(8);
|
||||||
WriteLn('Please enter a correct answer');
|
//psvDebugScreenSetFgColor(COLOR_GREY);
|
||||||
readln(choice1);
|
writeln();
|
||||||
until (choice1 = 'x') or (choice1 = 'X') or (choice1 = 'O') or (choice1 = 'o')
|
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;
|
end;
|
||||||
// Very incomplete, needs a lot of reworking
|
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.
|
end.
|
||||||
Reference in New Issue
Block a user