diff --git a/TextQuest.pas b/TextQuest.pas index 7bf9fbd..4e1b4fa 100644 --- a/TextQuest.pas +++ b/TextQuest.pas @@ -1,7 +1,8 @@ Program TextQuest; -uses crt; -var choice : string; - drankpotion, havesword, killedslug, haveflower, killedDragon {savedprincess} : integer; +uses winCrt, graph; +var choice : char; + drankpotion, havesword, killedslug, haveflower, killedDragon : integer; + gD, gM, X, Y : SmallInt; procedure location2 forward; procedure location4 forward; @@ -16,227 +17,283 @@ procedure location11 forward; procedure wait; begin - write('.'); + outtextxy(X,Y,'.'); Delay(2500); - write('.'); + outtextxy(X+10,Y,'.'); Delay(2500); - write('.'); + outtextxy(X+20,Y,'.'); Delay(2500); end; procedure savedprincess1; begin - clrscr; - textcolor(white); + cleardevice; + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); writeln(); writeln(); - writeln(' ///........./|\\.........\\\\\\ '); - writeln(' //// : ||| : \\\\\\\\ '); - writeln(' \\\\'''''''''''':''''''''|||'''''''':''''''''''''// '); - writeln(' \\\\`. . ||| . .''// '); - writeln(' \\\\\\`. . ||| . .''/// '); - writeln(' \\\\\\\\`. . ||| . .''//// '); - writeln(' \\\\\\\\\\`. .|||. .''///// '); - writeln(' ''\\\\\\\\\\`.|||.''/////'' '); - writeln(' ''\\\\\\\\\\\\|||//////'' '); - writeln(' ''\\\\\\\\\\|/////'' '); - textcolor(yellow); + outtextxy(10, 20,' ///........./|\\.........\\\ '); + outtextxy(10, 30,' //// : ||| : \\\\ '); + outtextxy(10, 40,' \\'''''''''''':''''''''|||'''''''':''''''''''''// '); + outtextxy(10, 50,' \\`. . ||| . .''// '); + outtextxy(10, 60,' \\\`. . ||| . .''/// '); + outtextxy(10, 70,' \\\\`. . ||| . .''//// '); + outtextxy(10, 80,' \\\\\`. .|||. .''///// '); + outtextxy(10, 90,' ''\\\\\`.|||.''/////'' '); + outtextxy(10, 100,' ''\\\\\\|||//////'' '); + outtextxy(10, 110,' ''\\\\\|/////'' '); + setcolor(yellow); //psvDebugScreenSetFgColor(COLOR_YELLOW); - writeln(' .:::::::::::::::::::::. '); - writeln(' .::::::::''''''''''''''''''::::::::. '); - writeln(' .::::::'''' ''''::::::. '); - writeln(' ::::::'''' '''':::::: '); - writeln(' ::::::'' '':::::: '); - writeln(' ::::::'' '':::::: '); - writeln(' ::::::'' '':::::: '); - writeln(' :::::: :::::: '); - writeln(' :::::: :::::: '); - writeln(' :::::: :::::: '); - writeln(' ::::::. .:::::: '); - writeln(' ::::::. .:::::: '); - writeln(' ::::::. .:::::: '); - writeln(' ::::::.. ..:::::: '); - writeln(' ''::::::.. ..::::::'' '); - writeln(' ''::::::::........::::::::'' '); - writeln(' ''::::::::::::::::::::'' '); - writeln(' ''''::::::::::::'''' '); - textcolor(green); + outtextxy(10, 120,' .:::::::::::::::::::::. '); + outtextxy(10, 130,' .::::::::''''''''''''''''''::::::::. '); + outtextxy(10, 140,' .::::::'''' ''''::::::. '); + outtextxy(10, 150,' ::::::'''' '''':::::: '); + outtextxy(10, 160,' ::::::'' '':::::: '); + outtextxy(10, 170,' ::::::'' '':::::: '); + outtextxy(10, 180,' ::::::'' '':::::: '); + outtextxy(10, 190,' :::::: :::::: '); + outtextxy(10, 200,' :::::: :::::: '); + outtextxy(10, 210,' :::::: :::::: '); + outtextxy(10, 220,' ::::::. .:::::: '); + outtextxy(10, 230,' ::::::. .:::::: '); + outtextxy(10, 240,' ::::::. .:::::: '); + outtextxy(10, 250,' ::::::.. ..:::::: '); + outtextxy(10, 260,' ''::::::.. ..::::::'' '); + outtextxy(10, 270,' ''::::::::........::::::::'' '); + outtextxy(10, 280,' ''::::::::::::::::::::'' '); + outtextxy(10, 290,' ''''::::::::::::'''' '); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('You have saved princess April.'); + outtextxy(10, 300,'You have saved princess April.'); Delay(5000); - writeln('You marry her and live happily ever after.'); + outtextxy(10, 310,'You marry her and live happily ever after.'); Delay(5000); - writeln('...'); + outtextxy(10, 320,'...'); Delay(5000); - writeln('THE END.'); + outtextxy(10, 330,'THE END.'); Delay(5000); - textcolor(white); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + halt; end; +procedure dead; + begin + cleardevice; + setcolor(8); + //psvDebugScreenSetFgColor(COLOR_GREY); + writeln(); + writeln(); + writeln(); + outtextxy(10, 20,' /'' '); + outtextxy(10, 30,' || '); + outtextxy(10, 40,' || *** '); + outtextxy(10, 50,' || __X_ '); + outtextxy(10, 60,' || ( ___\ '); + outtextxy(10, 70,' || |: \\ '); + outtextxy(10, 80,' ><>< ___)..:/_#__, '); + outtextxy(10, 90,' (X|) (|+(____)+\ _) '); + outtextxy(10, 100,' o|_\/>> + + + << \ '); + outtextxy(10, 110,' |:\/|+ + + +| \_\< '); + outtextxy(10, 120,' \./ XXXXXX. (o_)_ '); + outtextxy(10, 130,' /+ + + | \:| '); + outtextxy(10, 140,' /+ +/+ +| -/->>>----. '); + outtextxy(10, 150,' /+ +|+ /XX / _--, _ \ '); + outtextxy(10, 160,' \+ + + / |X (,\- \/_ , '); + outtextxy(10, 170,' /\+ + /\ |X \ /,//_/ '); + outtextxy(10, 180,' +_+_+_( )o_)X \ (( /// '); + outtextxy(10, 190,' (_o( /__/ X \ \\// '); + outtextxy(10, 200,' \_| |_/ X \ /// '); + outtextxy(10, 210,' \_| >(_/ \,/ '); + outtextxy(10, 220,' ,//__o\ /__//, V '); + setcolor(red); + //psvDebugScreenSetFgColor(COLOR_RED); + writeln(); + writeln(); + writeln(); + outtextxy(10, 260,'You have died on your quest.'); + Delay(5000); + outtextxy(10, 270,'For your bravery, the king erects a statue in the town centre.'); + Delay(5000); + outtextxy(10, 280,'You will be remembered until a better knight comes along.'); + Delay(5000); + setcolor(white); + //psvDebugScreenSetFgColor(COLOR_WHITE); + halt; + end; + procedure coward; begin - clrscr; - textcolor(8); + cleardevice; + setcolor(8); //psvDebugScreenSetFgColor(COLOR_GREY); - writeln(' ._--+. '); - writeln(' -'''' ''. '); - writeln(' +:'' ''. '); - writeln(' | ''. _.-''| '); - writeln(' | + .-'' J '); - writeln(' _.+ .....''.''| ''.-'' | '); - writeln(' _.-'''' ''. ..'' | + J''''.. '); - writeln(' +:'' ''.'' ;-+. | _+.| : '); - writeln(' | \\ _.-+ _.'' _.F F +:'' ''. ''.... '); - writeln(' L \\ _.-'''' | _.-'' _.'' J J J ''. + : '); - writeln(' | ''+'' |_.-'' _.-'' | | | + ''. ''._''''. '); - writeln(' .'' L L J _.-'' | | | ''. ''. _.-'' ''. '); - writeln(' : | | J-'' F F F ''. _.-'' ''. '); - writeln(' : L L _+ L J J J ''|. ''; '); - writeln(' : J | +-'' \\ L _.+.|.+. F ''. _.-'' F '); - writeln(' : | L L\\ \\| _.-'' '' ''. J ''. .-'' | '); - writeln(' : .L | | \\ '', _.-'' ''. | ''..-'' J''. '); - writeln(' : : | L L ''. \\ _.-+. ''. :+-. | F ''. '); - writeln(' : : L | | \\ ;.-'''' ''. :-'' '':+ J | : '); - writeln(' : : | L L +:'''' ''. _.-'' .-'' | | J: : '); - writeln(' : : L | | J \\ ''.-'' _.-'' J J F : : '); - writeln(' : : \\ L L L \\ _.-+ _.-'' | | | : : '); - writeln(' : : \\| | | ''. _.-'' |-'' J J J : : '); - writeln(' : ''. +''\\ J \\ _.-'' F ,-T''\\ | | .-'' : : '); - writeln(' : ''. \\ L +'' J / | J J J .-'' .'' : '); - writeln(' : : \\ | | | F ''.|.-''+|-'' .'' : '); - writeln(' : : \\ J | F J ''... .'' : '); - writeln(' : : \\ L | J | \\ ''.''''.''''''''.'' : '); - writeln(' : : \\| | | .-''\\ \\ : '); - writeln(' : ''. J | F-'' .''\\ \\ .'' '); - writeln(' : : L | J : \\ \\ .'' '); - writeln(' : : | | .+ ...'' \\ \\ .''''.'' '); - writeln(' : : J | .-'' .'' \\ \\''.''''''.''.'' '); - writeln(' : : \\ | .-'' .'' .\\ _-'' '); - writeln(' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' '); - textcolor(RED); + outtextxy(10, 20,' ._--+. '); + outtextxy(10, 30,' -'''' ''. '); + outtextxy(10, 40,' +:'' ''. '); + outtextxy(10, 50,' | ''. _.-''| '); + outtextxy(10, 60,' | + .-'' J '); + outtextxy(10, 70,' _.+ .....''.''| ''.-'' | '); + outtextxy(10, 80,' _.-'''' ''. ..'' | + J''''.. '); + outtextxy(10, 90,' +:'' ''.'' ;-+. | _+.| : '); + outtextxy(10, 100,' | \\ _.-+ _.'' _.F F +:'' ''. ''.... '); + outtextxy(10, 110,' L \\ _.-'''' | _.-'' _.'' J J J ''. + : '); + outtextxy(10, 120,' | ''+'' |_.-'' _.-'' | | | + ''. ''._''''. '); + outtextxy(10, 130,' .'' L L J _.-'' | | | ''. ''. _.-'' ''. '); + outtextxy(10, 140,' : | | J-'' F F F ''. _.-'' ''. '); + outtextxy(10, 150,' : L L _+ L J J J ''|. ''; '); + outtextxy(10, 160,' : J | +-'' \\ L _.+.|.+. F ''. _.-'' F '); + outtextxy(10, 170,' : | L L\\ \\| _.-'' '' ''. J ''. .-'' | '); + outtextxy(10, 180,' : .L | | \\ '', _.-'' ''. | ''..-'' J''. '); + outtextxy(10, 190,' : : | L L ''. \\ _.-+. ''. :+-. | F ''. '); + outtextxy(10, 200,' : : L | | \\ ;.-'''' ''. :-'' '':+ J | : '); + outtextxy(10, 210,' : : | L L +:'''' ''. _.-'' .-'' | | J: : '); + outtextxy(10, 220,' : : L | | J \\ ''.-'' _.-'' J J F : : '); + outtextxy(10, 230,' : : \\ L L L \\ _.-+ _.-'' | | | : : '); + outtextxy(10, 240,' : : \\| | | ''. _.-'' |-'' J J J : : '); + outtextxy(10, 250,' : ''. +''\\ J \\ _.-'' F ,-T''\\ | | .-'' : : '); + outtextxy(10, 260,' : ''. \\ L +'' J / | J J J .-'' .'' : '); + outtextxy(10, 270,' : : \\ | | | F ''.|.-''+|-'' .'' : '); + outtextxy(10, 280,' : : \\ J | F J ''... .'' : '); + outtextxy(10, 290,' : : \\ L | J | \\ ''.''''.''''''''.'' : '); + outtextxy(10, 300,' : : \\| | | .-''\\ \\ : '); + outtextxy(10, 310,' : ''. J | F-'' .''\\ \\ .'' '); + outtextxy(10, 320,' : : L | J : \\ \\ .'' '); + outtextxy(10, 330,' : : | | .+ ...'' \\ \\ .''''.'' '); + outtextxy(10, 340,' : : J | .-'' .'' \\ \\''.''''''.''.'' '); + outtextxy(10, 350,' : : \\ | .-'' .'' .\\ _-'' '); + outtextxy(10, 360,' '''''''''''''''''''''''''''''''''''''''''''''''' '''''''''' '); + setcolor(RED); //psvDebugScreenSetFgColor(COLOR_RED); writeln(); - writeln('You run away from your quest like a coward.'); + outtextxy(10, 380,'You run away from your quest like a coward.'); Delay(5000); - writeln('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.'); Delay(5000); - writeln('When you arrive back at the town, the King arrests you for your cowardice.'); + outtextxy(10, 400,'When you arrive back at the town, the King arrests you for your cowardice.'); Delay(5000); - writeln('The rest of your days are spent rotting in the dungeons.'); - textcolor(white); + outtextxy(10, 410,'The rest of your days are spent rotting in the dungeons.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); Delay(4000); - halt; + closegraph; end; procedure location1; begin - clrscr; + cleardevice; writeln(); writeln(); writeln(); - textcolor(8); + setcolor(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); + outtextxy(10, 20,' / \\ /''\\ _ '); + outtextxy(10, 30,' \\_.. /''.,/ \\_ .,'' \\ / \\_ '); + outtextxy(10, 40,' \\ / \\ _/ \\_ / \\ _ '); + outtextxy(10, 50,' \\__,. / \\ / \\/., _| _/ \\ '); + outtextxy(10, 60,' \\_/ \\ /'',.,''''\\ \\_ \\_/ \\/ \\ '); + outtextxy(10, 70,' _ \\/ / '',../'',.\\ _/ \\ '); + outtextxy(10, 80,' / _/m\\ \\ / | \\ /.,/''\\ _\\ '); + outtextxy(10, 90,' _/ /MMmm\\ \\_ | \\/ \\_/ \\ '); + outtextxy(10, 100,' / \\ |MMMMmm| \\__ \\ \\_ \\ \\_ '); + outtextxy(10, 110,' \\ /MMMMMMm| \\ \\ \\ \\ \\ '); + outtextxy(10, 120,' \\ |MMMMMMmm\\ \\___ \\_ \\_ \\ '); + outtextxy(10, 130,' \\|MMMMMMMMmm|____.'' /\\_ \\ \\ \\_ '); + outtextxy(10, 140,' /''.,___________...,,'' \\ \\ \\ \\ '); + outtextxy(10, 150,' / \\ | \\ |__ \\ \\_ \\ '); + outtextxy(10, 160,' _/ | \\ \\_ \\ \\ \\ \\_ '); + outtextxy(10, 170,' / \\ \\ \\_ \\ \\ '); + outtextxy(10, 180,' \\ \\ \\ \\__ \\ '); + outtextxy(10, 190,' \\ \\_ \\ \\ \\ '); + outtextxy(10, 200,' | \\ \\ \\ \\ '); + outtextxy(10, 210,' \\ | \\ '); + setcolor(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); + 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, 250,'You hear the bellow of the dragon.'); + outtextxy(10, 260,'What do you do?'); + outtextxy(10, 270,'X - Enter the lair.'); + outtextxy(10, 280,'O - Run away.'); + outtextxy(10, 290,'? '); + Moveto(20,290); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'O' : begin + #111,#79 : begin wait; coward; end; - 'X' : begin + #120,#88 : begin wait; location2; end; end; + until (choice = #111) or (choice = #120) or (choice = #79) or (choice = #88); end; procedure location2; begin - clrscr; + cleardevice; writeln(); writeln(); writeln(); - textcolor(8); + setcolor(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); + outtextxy(10, 20,' _______ ______________ ___ _______'); + outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 50,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 60,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 70,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 80,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 90,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 100,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 110,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 120,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 130,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 140,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 150,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 160,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 170,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 180,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 190,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(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); + 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, 250,'You see a door leading west, a door leading east, and a door leading south.'); + outtextxy(10, 260,'What do you do?'); + outtextxy(10, 270,'X - Go east.'); + outtextxy(10, 280,'O - Go west.'); + outtextxy(10, 290,'^ - Go south.'); + outtextxy(10, 300,'? '); + Moveto(20,300); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location4; end; - 'O' : begin + #111, #79 : begin wait; location3; end; - '^' : begin + #115, #83 : begin wait; location1; end; end; + until (choice = #111) or (choice = #120) or (choice = #79) or (choice = #88) or (choice = #115) or (choice = #83); end; @@ -245,13 +302,16 @@ begin writeln(); writeln(); writeln(); - writeln('It''s very dark in this room.'); + outtextxy(10,340,'It''s very dark in this room.'); Delay(5000); - writeln('You cannot see a thing.'); + outtextxy(10, 350,'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.'); + outtextxy(10, 360,'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.'); + outtextxy(10, 370,'Fumbling, you finally find your way out of the room.'); + Moveto(10, 380); + X := getX; + Y := getY; wait; location2; end; @@ -259,821 +319,951 @@ end; procedure location4; begin - clrscr; + cleardevice; writeln(); writeln(); writeln(); - textcolor(white); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); - writeln(' \\_______/ '); - writeln(' `.,-''\\_____/`-.,'' '); - writeln(' /`..''\\ _ /`.,''\\ '); - writeln(' / /`.,'' `.,''\\ \\ '); - writeln(' /__/__/ \\__\\__\\ '); - writeln(' \\ \\ \\ / / / '); - writeln(' \\ \\,''`._,''`./ / '); - writeln(' \\,''`./___\\,''`./ '); - writeln(' ,''`-./_____\\,-''`. '); - writeln(' / \\ '); - textcolor(white); + outtextxy(10, 20,' \_______/ '); + outtextxy(10, 30,' `.,-''\_____/`-.,'' '); + outtextxy(10, 40,' /`..''\ _ /`.,'' \ '); + outtextxy(10, 50,' / /`.,'' `.,''\\ \ '); + outtextxy(10, 60,' /__/__/ \__\__\ '); + outtextxy(10, 70,' \ \ \ / / / '); + outtextxy(10, 80,' \ \,''`._,''`./ / '); + outtextxy(10, 90,' \,''`./____\,''`./ '); + outtextxy(10, 100,' ,''`-./______\,-''`. '); + outtextxy(10, 110,' / \ '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); - textcolor(8); + setcolor(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); + outtextxy(10, 120,' _______ ______________ ___ _______'); + outtextxy(10, 130,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 140,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 150,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 160,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 170,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 180,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 190,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 200,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 210,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 220,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 230,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 240,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 250,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 260,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 270,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 280,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 290,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 300,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 310,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(white); //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); + 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, 350,'What do you do?'); + outtextxy(10, 360,'X - Go east.'); + outtextxy(10, 370,'O - Go north.'); + outtextxy(10, 380,'^ - Go west.'); + outtextxy(10, 390,'? '); + Moveto(20, 390); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location5; end; - 'O' : begin + #111, #79 : begin wait; location8; end; - '^' : begin + #115, #83 : begin wait; location2; end; end; + until (choice = #111) or (choice = #79) or (choice = #120) or (choice = #88) or (choice = #115) or (choice = #83); end; procedure location5; begin + cleardevice; if (drankpotion <> 1) then begin - textcolor(green); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); writeln(); writeln(); writeln(); - writeln(' _____ '); - writeln(' `.___,'' '); - writeln(' (___) '); - writeln(' < > '); - writeln(' ) ( '); - writeln(' /`-.\\ '); - writeln(' / \\ '); - writeln(' / _ _\\ '); - writeln(' :,'' `-.'' `: '); - writeln(' | | '); - writeln(' : ; '); - writeln(' \\ / '); - writeln(' `.___.'' '); - textcolor(white); + outtextxy(10, 20,' _____ '); + outtextxy(10, 30,' `.___,'' '); + outtextxy(10, 40,' (___) '); + outtextxy(10, 50,' < > '); + outtextxy(10, 60,' ) ( '); + outtextxy(10, 70,' /`-.\ '); + outtextxy(10, 80,' / \ '); + outtextxy(10, 90,' / _ _\ '); + outtextxy(10, 100,' :,'' `-.'' `: '); + outtextxy(10, 110,' | | '); + outtextxy(10, 120,' : ; '); + outtextxy(10, 130,' \ / '); + outtextxy(10, 140,' `.___.'' '); + setcolor(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.'); + 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.'); end else begin - textcolor(8); + setcolor(8); //psvDebugScreenSetFgColor(COLOR_GREY); writeln(); writeln(); writeln(); writeln(); writeln(); - writeln(' ___ '); - writeln(' < > '); - writeln(' ) ( '); - writeln(' / \\ '); - writeln(' / \\ '); - writeln(' / \\ '); - writeln(' : : '); - writeln(' | | '); - writeln(' : ; '); - writeln(' \\ / '); - writeln(' `.___.'' '); - textcolor(white); + outtextxy(10, 20,' ___ '); + outtextxy(10, 30,' < > '); + outtextxy(10, 40,' ) ( '); + outtextxy(10, 50,' / \ '); + outtextxy(10, 60,' / \ '); + outtextxy(10, 70,' / \ '); + outtextxy(10, 80,' : : '); + outtextxy(10, 90,' | | '); + outtextxy(10, 100,' : ; '); + outtextxy(10, 110,' \ / '); + outtextxy(10, 120,' `.___.'' '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('You are in a room with an empty potion bottle.'); + outtextxy(10, 140,'You are in a room with an empty potion bottle.'); end; - textcolor(8); + setcolor(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); + outtextxy(10, 190,' _______ ______________ ___ _______'); + outtextxy(10, 200,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 210,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 220,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 230,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 240,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 250,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 260,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 270,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 280,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 290,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 300,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 310,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 320,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 330,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 340,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 350,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 360,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 370,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 380,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('There is a door to the west.'); - writeln('What do you do?'); - writeln('X - Go west.'); + outtextxy(10, 400,'There is a door to the west.'); + outtextxy(10, 410,'What do you do?'); + outtextxy(10, 420,'X - Go west.'); if (drankpotion <> 1) then begin - writeln('O - Drink the potion.'); + outtextxy(10, 430,'O - Drink the potion.'); + outtextxy(10, 440,'? '); + Moveto(20,440); + X := getX; + Y := getY; + end + else + begin + outtextxy(10,430,'? '); + Moveto(20,430); + X := getX; + Y := getY; end; - writeln('? '); - readln(choice); + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location4; end; - 'O' : begin + #111, #79 : begin + repeat if (drankpotion <> 1) then begin writeln(); - textcolor(red); + setcolor(red); //psvDebugScreenSetFgColor(COLOR_RED); - writeln('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); - textcolor(green); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('Suddenly you feel much stronger!'); - textcolor(white); + outtextxy(10, 460,'Suddenly you feel much stronger!'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); drankPotion := 1; - end; + Moveto(10,470); + X := getX; + Y := getY; wait; location5; + end + else + begin + choice := Readkey; + if (choice = #120) or (choice = #88) then + begin + wait; + location4 + end; + end; + until (choice = #120) or (choice = #88); end; end; + until (choice = #111) or (choice = #79) or (choice = #120) or (choice = #88); end; procedure location6; begin - clrscr; + cleardevice; if (havesword <> 1) then begin - textcolor(yellow); + setcolor(yellow); //psvDebugScreenSetFgColor(COLOR_YELLOW); writeln(); writeln(); writeln(); - writeln(' (O) '); - writeln(' ================================------------> '); - writeln(' \\| ^^^^^^ \\:W/------------------------------------------------'''''''''''''''); - writeln(' o ================================------------> '); + outtextxy(10, 70,' \\|^^^^^^ \:W/------------------------------------------------'''''''''''''''); + outtextxy(10, 80,' o 1) then begin - writeln('O - Take the sword.'); - end; - writeln('? '); - readln(choice); + outtextxy(10, 400,'O - Take the sword.'); + outtextxy(10, 410,'? '); + end + else + begin + outtextxy(10, 400,'? '); + Moveto(20, 400); + X := getX; + Y := getY; + end; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin + Moveto(20, 400); + X := getX; + Y := getY; wait; location7; end; - 'O' : begin + #111, #79 : begin + repeat if (havesword <> 1) then begin - textcolor(green); + setcolor(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); + outtextxy(10, 420,'You pick up the sword and buff it with the cloth, placing the cloth back onto the table.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); haveSword := 1; - end; - wait; - location6; + Moveto(10, 430); + X := getX; + Y := getY; + wait; + location6; + end + else + begin + choice := ReadKey; + if (choice = #120) or (choice = #88) then + begin + wait; + location7; + end; + end; + until (choice = #120) or (choice = #88); end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end; procedure location7; begin - clrscr; + cleardevice; if (killedslug <> 1) then begin - textcolor(8); + setcolor(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); + outtextxy(10, 20,' ____ , '); + outtextxy(10, 30,' /---.''.__ ____// '); + outtextxy(10, 40,' ''--.\ /.---'' '); + outtextxy(10, 50,' _______ \\ // '); + outtextxy(10, 60,' /.------.\ \| .''/ ______ '); + outtextxy(10, 70,' // ___ \ \ ||/|\ // _/_----.\__ '); + outtextxy(10, 80,' |/ /.-.\ \ \:|< >|// _/.''..\ ''--'' '); + outtextxy(10, 90,' // \''. | \''.|.''/ /_/ / \\ '); + outtextxy(10, 100,' // \ \_\/'' '' ~\-''.-'' \\ '); + outtextxy(10, 110,' // ''-._| :H: |''-.__ \\ '); + outtextxy(10, 120,' // (/''===''\\)''-._\ || '); + outtextxy(10, 130,' || \\ \| '); + outtextxy(10, 140,' || \\ '' '); + outtextxy(10, 150,' |/ \\ '); + outtextxy(10, 160,' || '); + outtextxy(10, 170,' || '); + outtextxy(10, 180,' \\ '); + outtextxy(10, 190,' '' '); + setcolor(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); + outtextxy(10, 210,'You are in a musty room.'); + outtextxy(10, 220,'On the ground, you see an unusually large spider.'); + outtextxy(10, 230,'What do you do?'); + outtextxy(10, 240,'X - Run away.'); + outtextxy(10, 250,'O - Crunch it under your heel.'); + outtextxy(10, 260,'? '); + repeat + choice := ReadKey; case (choice) of - 'X' : begin - textcolor(red); + #120, #88 : begin + setcolor(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); + 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!?"'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10,290); + X := getX; + Y := getY; wait; location8; end; - 'O' : begin - textcolor(green); + #111, #79 : begin + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('You get bug guts on your boots as you crush the spider with a violent stomp.'); - textcolor(white); + outtextxy(10, 270,'You get bug guts on your boots as you crush the spider with a violent stomp.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); killedSlug := 1; + Moveto(10, 280); + X := getX; + Y := getY; wait; location7; end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end else begin - textcolor(8); + setcolor(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); + outtextxy(10, 20,' _______ ______________ ___ _______'); + outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 50,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 60,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 70,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 80,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 90,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 100,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 110,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 120,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 130,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 140,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 150,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 160,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 170,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 180,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 190,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(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); + 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, 250,'What do you do?'); + outtextxy(10, 260,'X - Go west.'); + outtextxy(10, 270,'O - Go east.'); + outtextxy(10, 280,'? '); + Moveto(20, 280); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location6; end; - 'O' : begin + #111, #79 : begin wait; location8; end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end; end; procedure location8; begin - clrscr; - textcolor(8); + cleardevice; + setcolor(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); + outtextxy(10, 20,' _______ ______________ ___ _______'); + outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 50,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 60,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 70,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 80,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 90,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 100,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 110,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 120,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 130,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 140,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 150,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 160,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 170,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 180,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 190,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(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); + 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, 250,'What do you do?'); + outtextxy(10, 260,'X - Go west.'); + outtextxy(10, 270,'O - Go north.'); + outtextxy(10, 280,'^ - Go east.'); + outtextxy(10, 290,'[] - Go south.'); + outtextxy(10, 300,'? '); + Moveto(20, 300); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location7; end; - 'O' : begin + #111, #79 : begin wait; location10; end; - '^' : begin + #115, #83 : begin wait; location9; end; - 'S' : begin + #122, #90 : begin wait; location4; end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79) or (choice = #115) or (choice = #83) or (choice = #122) or (choice = #90); end; procedure location9; begin - clrscr; + cleardevice; if (haveflower <> 1) then begin - textcolor(yellow); + setcolor(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); + outtextxy(10, 20,' .-''`''-. _.---. '); + outtextxy(10, 30,' .'' \ .'' ''. '); + outtextxy(10, 40,' / \ / \ '); + outtextxy(10, 50,' | __ Y __ | '); + outtextxy(10, 60,' | .''` ''-./ \.-'' `''. | '); + outtextxy(10, 70,' \ / '',,'' \ /-. '); + outtextxy(10, 80,' \ | .-''()''-. |/--.`\ '); + outtextxy(10, 90,' | /` /||\ `\ | \ \ '); + outtextxy(10, 100,' \ | | / ; ; '); + outtextxy(10, 110,' ''--`\ /`--'' | | '); + outtextxy(10, 120,' ''-.__.-'' ; ; '); + outtextxy(10, 130,' __ / / '); + outtextxy(10, 140,' .-''''''-` ''. .-. _ /`/` '); + outtextxy(10, 150,' (_ .--..._ `-'' \_| \ /`/` '); + outtextxy(10, 160,' ''.__. `---._ |/`/` '); + outtextxy(10, 170,' `) _.. ''-./`/` '); + outtextxy(10, 180,' (__.-'' _) /`/` '); + outtextxy(10, 190,' `--`/` '); + outtextxy(10, 200,' ` '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('You are in a humid, musty room.'); - writeln('On the ground, you see a single yellow flower growing.'); + outtextxy(10, 220,'You are in a humid, musty room.'); + outtextxy(10, 230,'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.'); + outtextxy(10, 150,'You are in a humid, musty room. You see a patch of dirt where flowers once grew.'); end; - textcolor(8); + setcolor(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); + outtextxy(10, 240,' _______ ______________ ___ _______'); + outtextxy(10, 250,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 260,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 270,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 280,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 290,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 300,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 310,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 320,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 330,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 340,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 350,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 360,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 370,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 380,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 390,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 400,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 410,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 420,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 430,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('There is a door to the west.'); - writeln('What do you do?'); - writeln('X - Go west.'); + outtextxy(10, 450,'There is a door to the west.'); + outtextxy(10, 460,'What do you do?'); + outtextxy(10, 470,'X - Go west.'); if (haveflower <> 1) then begin - writeln('O - Pick the flower'); + outtextxy(10, 480,'O - Pick the flower'); + outtextxy(10, 490,'? '); + Moveto(20, 490); + X := getX; + Y := getY; + end + else + begin + outtextxy(10, 480,'? '); + Moveto(20, 480); + X := getX; + Y := getY; end; - writeln('? '); - readln(choice); + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location8; end; - 'O' : if (haveflower <> 1) then + #111, #79 : begin + repeat + if (haveflower <> 1) then begin - textcolor(green); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('You pick the flower and place it in your chainmail.'); - writeln('It smells subtle and sweet.'); - textcolor(white); + outtextxy(10, 500,'You pick the flower and place it in your chainmail.'); + outtextxy(10, 510,'It smells subtle and sweet.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); haveflower := 1; + Moveto(10, 520); + X := getX; + Y := getY; wait; location9; - end; + end + else + begin + choice := ReadKey; + if (choice = #120) or (choice = #88) then + begin + wait; + location8; + end; + end; + until (choice = #120) or (choice = #88); + end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end; procedure location10; begin - clrscr; + cleardevice; if (killedDragon <> 1) then begin - textcolor(red); + setcolor(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); + outtextxy(10, 20,' .%%, '); + outtextxy(10, 30,' X:-x\\'', '); + outtextxy(10, 40,' X:/%%;::\\:X '); + outtextxy(10, 50,' X:l%% ; :''\\:X '); + outtextxy(10, 60,' X:l%% : : ''\\:X '); + outtextxy(10, 70,' X:l%% : : ''\\:X '); + outtextxy(10, 80,' b, b, X:/l%% : : \\:X '); + outtextxy(10, 90,' JPQ, JPQ, X:l%% : : ''\\:X '); + outtextxy(10, 100,' .dP''d|._,=dPQq\\ X:l%%'' : : ''\\:X '); + outtextxy(10, 110,' xdP #P''_ _,: .X:l%% : : ''\\:X '); + outtextxy(10, 120,' .d/''p '' ''O \\ ''O:; X:l%%'' : : \\:X '); + outtextxy(10, 130,' ,pP'' q. \\: `# X:ld : : '':X '); + outtextxy(10, 140,' ,d'' ,pq .,-qx_, ''\\ `Q: l%% : : k:X '); + outtextxy(10, 150,' ./'' Jp . ` ` 3 %% : ; k:X '); + outtextxy(10, 160,' dP p p ` `q : : k:X '); + outtextxy(10, 170,' d/ ; J,/'';xpx''\\: ''*q ` `\\, : : l:X. '); + outtextxy(10, 180,' dP ;'' dP ''\\:_,`.q. /d b\\ : : k:X '); + outtextxy(10, 190,' .d'' ; dP .\\_j ''- u-'' : : k:X '); + outtextxy(10, 200,'X ./'' ;'' /'''' .'' : ; k:X '); + outtextxy(10, 210,'\\X .d'' ; ,'''' : X:l%% : : k:X '); + outtextxy(10, 220,':\\X d'' ; ./'' : X:/%% : ; k:X '); + outtextxy(10, 230,'::lX JP ; J : .X:/ %% : : k;X '); + outtextxy(10, 240,'k:lX #'' : j'' : .X:/ %% : : d:lX '); + outtextxy(10, 250,'k:lX |P ; | : .X:/ %% : ; k;lX '); + outtextxy(10, 260,'k:lX || ; |'' : X:/ %% ; : d:;X'' '); + outtextxy(10, 270,'k:lX d| ; :l :X:/ %%'' : : k:lX '); + outtextxy(10, 280,'k:iX #| ; || X:/ %% ; ; k:lX '); + outtextxy(10, 290,' k:\\X || ; || X:/ %% : : k:lX '); + outtextxy(10, 300,' k:\\pQJb ; \.PQ XX/ %% ; ; k:lX '); + outtextxy(10, 310,' kJP.Ql\\; XQ. J Q J : ; k:lX '); + outtextxy(10, 320,' 6Q : Q%% \\Q Q J ;'''''''''':.:;''''::. : k:lX '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('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); - writeln('You see the dragon!'); + outtextxy(10, 350,'You see the dragon!'); Delay(5000); - writeln('Fear grips you.'); + outtextxy(10, 360,'Fear grips you.'); Delay(5000); - writeln('What do you do?'); - writeln('X - Run away.'); - writeln('O - Fight the dragon.'); - writeln('? '); - readln(choice); + outtextxy(10, 370,'What do you do?'); + outtextxy(10, 380,'X - Run away.'); + outtextxy(10, 390,'O - Fight the dragon.'); + outtextxy(10, 400,'? '); + repeat + choice := ReadKey; case (choice) of - 'X' : begin - textcolor(red); + #120, #88 : begin + setcolor(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); + outtextxy(10, 410,'You run away wailing.'); + outtextxy(10, 420,'You hear the princess call out, "Where are you going, knight!? Help me!"'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10, 430); + X := getX; + Y := getY; wait; location8; end; - 'O' : begin + #111, #79 : begin if (havesword <> 1) then begin - textcolor(red); + setcolor(red); //psvDebugScreenSetFgColor(COLOR_RED); - writeln('You lunge at the dragon.'); + outtextxy(10, 410,'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.'); + outtextxy(10, 420,'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.'); + outtextxy(10, 430,'The dragon arches down and swallows you.'); Delay(5000); - writeln('You are dead.'); - textcolor(white); + outtextxy(10, 440,'You are dead.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10, 450); + X := getX; + Y := getY; wait; - //dead = 1; TODO: make a "dead" procedure. + dead; end else if (drankpotion <> 1) then begin - textcolor(red); + setcolor(red); //psvDebugScreenSetFgColor(COLOR_RED); - writeln('You lunge at the dragon swinging the golden sword.'); + outtextxy(10, 410,'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.'); + outtextxy(10, 420,'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.'); + outtextxy(10, 430,'It breathes a burst of fire and burns you to a crisp.'); Delay(5000); - writeln('You are dead.'); - textcolor(white); + outtextxy(10, 440,'You are dead.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10, 450); + X := getX; + Y := getY; wait; - //dead = 1; TODO: make a "dead" procedure + dead; end else begin - textcolor(green); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('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); - writeln('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.'); Delay(5000); - writeln('The dragon roars in pain, clasping at it''s chest.'); + outtextxy(10, 430,'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.'); + outtextxy(10, 440,'It snorts it''s final breath as life ebbs from it''s nostrils.'); Delay(5000); - textcolor(white); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); killedDragon := 1; + Moveto(10, 450); + X := getX; + Y := getY; wait; location10; end; end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end else begin - textcolor(8); + setcolor(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); + outtextxy(10, 20,' _______ ______________ ___ _______'); + outtextxy(10, 30,' |_|_____|/////////////|+-+-+-+-+-+-+-|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 40,' |____|__|/////////////|-+-+______+-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 50,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 60,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 70,' |_|_____|/////////////|+-+| | ++|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 80,' |____|__|/////////////|-+-I |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 90,' |_|_____|/////////////|+-+| |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 100,' |____|__|/////////////|-+-| |-+-|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 110,' |_|_____|/////////////|+-+I |+-+|\\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 120,' |____|__|/////////////|===--------===|\\\\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 130,' |_|_____|///////////// \\\\\\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 140,' |____|__|//////////// \\\\\\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 150,' |_|_____|/////////// \\\\|___|\\\\\\\\|_____|_|'); + outtextxy(10, 160,' |____|__|////////// \\|_|_|\\\\\\\\|__|____|'); + outtextxy(10, 170,' |_|_____|///////// |\\\\\\\\|_____|_|'); + outtextxy(10, 180,' |____|__|//////// |\\\\\\\\|__|____|'); + outtextxy(10, 190,' |_|_____|/////// |\\\\\\\\|_____|_|'); + outtextxy(10, 200,' |____|__|////// |\\\\\\\\|__|____|'); + outtextxy(10, 210,' |_|_____|///// \\\\\\\\|_____|_|'); + setcolor(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); + 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, 250,'What do you do?'); + outtextxy(10, 260,'X - Go north.'); + outtextxy(10, 270,'O - Go south.'); + outtextxy(10, 280,'? '); + Moveto(20, 280); + X := getX; + Y := getY; + repeat + choice := ReadKey; case (choice) of - 'X' : begin + #120, #88 : begin wait; location11; end; - 'O' : begin + #111, #79 : begin wait; location8; end; end; + until (choice = #120) or (choice = #88) or (choice = #111) or (choice = #79); end; end; procedure location11; begin - clrscr; + cleardevice; if (haveflower <> 1) then begin - textcolor(yellow); + setcolor(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); + outtextxy(10, 20,' %%%%%%%% '); + outtextxy(10, 30,' %%%%%%%%-( '); + outtextxy(10, 40,' _%%%%%%%%%%_/ '); + outtextxy(10, 50,' _%%%%%%%%%%%%%%%% '); + outtextxy(10, 60,' _%%%%%%%%%%%%%%/ \%% '); + outtextxy(10, 70,' %%%%%%%%%%%%%%%%%%\\ \_ '); + outtextxy(10, 80,' %%%%%%%%%%%% \ \\ '); + outtextxy(10, 90,' ) /\_/ '); + outtextxy(10, 100,' /(___. \ '); + outtextxy(10, 110,' ''----'' ( '); + outtextxy(10, 120,' / ) '); + outtextxy(10, 130,' / ( '); + outtextxy(10, 140,' / ) '); + outtextxy(10, 150,' ,'' ( '); + outtextxy(10, 160,' ,-'' ) '); + outtextxy(10, 170,' ''-._ ''-..___( '); + outtextxy(10, 180,' ``---....__) '); + outtextxy(10, 190,' )|)| '); + outtextxy(10, 200,' ''-''-.\ '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('You enter the room.'); + outtextxy(10, 220,'You enter the room.'); Delay(5000); - writeln('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); - textcolor(yellow); + setcolor(yellow); //psvDebugScreenSetFgColor(COLOR_YELLOW); - writeln('She looks upset.'); + outtextxy(10, 240,'She looks upset.'); Delay(5000); - textcolor(red); + setcolor(red); //psvDebugScreenSetFgColor(COLOR_RED); - writeln('"No flowers!? Not even a poem!?"'); + outtextxy(10, 250,'"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); + outtextxy(10, 260,'Annoyed, she pushes you out of the room and huffs at the barred window.'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10, 270); + X := getX; + Y := getY; wait; location10; end else begin - textcolor(cyan); + setcolor(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); + outtextxy(10, 20,' ,-''. '); + outtextxy(10, 30,' ,@@o. ) '); + outtextxy(10, 40,' (_ ) '); + outtextxy(10, 50,' s S. '' '); + outtextxy(10, 60,' )= ''? / '); + outtextxy(10, 70,' \ (` '); + outtextxy(10, 80,' `-; \ '); + outtextxy(10, 90,' /,-. ) '); + outtextxy(10, 100,' ,-''''-.`-''| '); + outtextxy(10, 110,' ( /\ /{_\ ! '); + outtextxy(10, 120,' ,/\ /\ / {_\ ; '); + outtextxy(10, 130,' /\ /\ /\ {V '); + outtextxy(10, 140,' ,/\ /\ // ) (_ '); + outtextxy(10, 150,' ,\ /\ /\ //,- `-. '); + outtextxy(10, 160,' /\ /\ /\ /-'' \ _ `-. '); + outtextxy(10, 170,' __,--\ /\ /\ /( ''. `-. `. '); + outtextxy(10, 180,' ///`-\ /\ / \ `. `-.__ `. '); + outtextxy(10, 190,' ,\ / `. `. `----''''\ '); + outtextxy(10, 200,' / `. `-. \ '); + outtextxy(10, 210,' / `-. `-. \ '); + outtextxy(10, 220,' / `-. `----''--'''' \ '); + outtextxy(10, 230,' / `-.____.__.-''-'' '); + outtextxy(10, 240,' / \ '); + outtextxy(10, 250,' / \ '); + outtextxy(10, 260,' / \ '); + outtextxy(10, 270,' `--___-_ __-__--'' '); + outtextxy(10, 280,' `-___-_ ___-'' '); + outtextxy(10, 290,' `---___-_____--'' '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); writeln(); - writeln('You enter the room.'); + outtextxy(10, 310,'You enter the room.'); Delay(5000); - writeln('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); - textcolor(green); + setcolor(green); //psvDebugScreenSetFgColor(COLOR_GREEN); - writeln('She runs toward you with her arms open!'); + outtextxy(10, 330,'She runs toward you with her arms open!'); Delay(5000); - writeln('"My hero!!!"'); + outtextxy(10, 340,'"My hero!!!"'); Delay(5000); - writeln('"What a beautfil flower! I love flowers!"'); + outtextxy(10, 350,'"What a beautfil flower! I love flowers!"'); Delay(5000); - writeln('"Get me out of here! I want to go home!"'); - textcolor(white); + outtextxy(10, 360,'"Get me out of here! I want to go home!"'); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); - //savedprincess := 1; + Moveto(10, 370); + X := getX; + Y := getY; wait; savedprincess1; end; end; begin + gD := Detect; + Initgraph(gD, gM, ''); drankpotion := 0; havesword := 0; killedslug := 0; @@ -1083,90 +1273,97 @@ 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" + setcolor(yellow); + outtextxy(10,10,' , \ / , '); + outtextxy(10,20,' / \ )\__/( / \ '); + outtextxy(10,30,' / \ (_\ /_) / \ '); + outtextxy(10,40,' __________________/_____\_ \@ @/___/_____\__________________ '); + outtextxy(10,50,' | |\../| | '); + outtextxy(10,60,' | \VV/ | '); + outtextxy(10,70,' | __ __| | | '); + outtextxy(10,80,' | | _ \ \ \ / __| | '); + outtextxy(10,90,' | | __/ ` < | | '); + outtextxy(10,100,' | ________ _| \___| _/\_\ \__| __ | '); + outtextxy(10,110,' | \_____ \ __ __ ____ _______/ |_ | '); + outtextxy(10,120,' | / / \ \| | \_/ __ \ / ___/\ __\ | '); + outtextxy(10,130,' | / \_/. \ | /\ ___/ \___ \ | | | '); + outtextxy(10,140,' | \_____\ \_/____/ \___ >____ > |__| | '); + outtextxy(10,150,' | \__> \/ \/ | '); + outtextxy(10,160,' |_____________________________________________________________| '); + outtextxy(10,170,' | /\ / \\ \ /\ | '); + outtextxy(10,180,' | / V )) V \ | '); + outtextxy(10,190,' |/ ` // '' \| '); + outtextxy(10,200,' '' V '' '); + setcolor(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 '); + outtextxy(10,210,' A simple choose your own adventure text game '); + outtextxy(10,220,' by josh_axey ported to windows by IllusionMan1212 '); writeln(' '); writeln(' '); - textcolor(white); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); - writeln(' PRESS [START] TO BEGIN YOUR JOURNEY '); - readln(); - clrscr; + outtextxy(10,230,' PRESS [START] TO BEGIN YOUR JOURNEY '); + choice := ReadKey; + if (choice = #13) then + begin + //readkey(); + cleardevice; writeln(); writeln(); writeln(); - writeln('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); - writeln('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); - writeln('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); - writeln('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); - writeln('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); writeln(); writeln(); - textcolor(8); + setcolor(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); + outtextxy(10, 100,' .'); + outtextxy(10, 110,' . ; '); + outtextxy(10, 120,' . . ;%% ;; '); + outtextxy(10, 130,' , , :;%% %%; '); + outtextxy(10, 140,' : ; :;%%;'' ., '); + outtextxy(10, 150,' ,. %%; %%; ; %%;'' ,;'); + outtextxy(10, 160,' ; ;%%; %%%%; , %%; ;%%; ,%%'''); + outtextxy(10, 170,' %%; %%;%%; , ; %%; ;%%; ,%%;'' '); + outtextxy(10, 180,' ;%%; %%; ;%%; %% ;%%; ,%%;'''); + outtextxy(10, 190,' `%%;. ;%%; %%;'' `;%%%%;.%%;'''); + outtextxy(10, 200,' `:;%%. ;%%%%. %%@; %%; ;@%%;%%'''); + outtextxy(10, 210,' `:%%;. :;bd%%; %%;@%%;'''); + outtextxy(10, 220,' `@%%:. :;%%. ;@@%%;'' '); + outtextxy(10, 230,' `@%%. `;@%%. ;@@%%; '); + outtextxy(10, 240,' `@%%%%. `@%%%% ;@@%%; '); + outtextxy(10, 250,' ;@%%. :@%%%% %%@@%%; '); + outtextxy(10, 260,' %%@bd%%%%%%bd%%%%:; '); + outtextxy(10, 270,' #@%%%%%%%%%%:;;'); + outtextxy(10, 280,' %%@@%%%%%%::;'); + outtextxy(10, 290,' %%@@@%%(o); . '''); + outtextxy(10, 300,' %%@@@o%%;:(.,'' '); + outtextxy(10, 310,' `.. %%@@@o%%::; '); + outtextxy(10, 320,' `)@@@o%%::; '); + outtextxy(10, 330,' %%@@(o)::; '); + outtextxy(10, 340,' .%%@@@@%%::; '); + outtextxy(10, 350,' ;%%@@@@%%::;. '); + outtextxy(10, 360,' ;%%@@@@%%%%:;;;. '); + outtextxy(10, 370,' ...;%%@@@@@%%%%:;;;;,.. '); + setcolor(white); //psvDebugScreenSetFgColor(COLOR_WHITE); + Moveto(10, 380); + X := getX; + Y := getY; wait; location1; + end; end. \ No newline at end of file