Masterful Magazine

program CocoaInvitation;

uses crt;

{Function to display the opening message}
procedure OpeningMessage;
begin
writeln('Welcome to "The Day Varg Vikernes Invited Euronymous for Cocoa" game.');
writeln('In this game, you will play as either Varg Vikernes or Euronymous.');
writeln('Your goal is to make it to Varg''s house safely and enjoy a cup of cocoa together.');
writeln('Be careful though, there may be some obstacles in your way!');
writeln('Press any key to start.');
readkey;
end;

{Function to display the game over message}
procedure GameOverMessage;
begin
writeln('Game over.');
writeln('Unfortunately, you did not make it to Varg''s house for cocoa.');
writeln('Better luck next time!');
readln;
end;

{Function to display the success message}
procedure SuccessMessage;
begin
writeln('Congratulations!');
writeln('You have successfully made it to Varg''s house for cocoa.');
writeln('Enjoy your drink!');
readln;
end;

{Function to play the game}
procedure PlayGame;
var
playerChoice: char;
begin
clrscr;
OpeningMessage;
writeln('Choose your character:');
writeln('1. Varg Vikernes');
writeln('2. Euronymous');
readln(playerChoice);

case playerChoice of
'1': begin
clrscr;
writeln('You are Varg Vikernes.');
writeln('You are on your way to your house to enjoy some cocoa with Euronymous.');
writeln('You are walking down a dark alley when suddenly, you hear footsteps behind you.');
writeln('Press any key to continue.');
readkey;
writeln('You turn around and see Euronymous running towards you with a knife in his hand!');
writeln('Quickly, you must decide what to do:');
writeln('A. Run away');
writeln('B. Fight back');
readln(playerChoice);

if playerChoice = 'A' then
GameOverMessage
else
SuccessMessage;
end;

'2': begin
clrscr;
writeln('You are Euronymous.');
writeln('You are on your way to Varg''s house to enjoy some cocoa together.');
writeln('As you approach Varg''s house, you notice that the front gate is locked.');
writeln('Press any key to continue.');
readkey;
writeln('You must find another way to get inside.');
writeln('A. Climb over the fence');
writeln('B. Look for another entrance');
readln(playerChoice);

if playerChoice = 'A' then
SuccessMessage
else
GameOverMessage;
end;

else
begin
writeln('Invalid choice. Please choose 1 or 2.');
readln;
PlayGame;
end;
end;
end;

{Main Program}
begin
PlayGame;
end.

program JonNodtveidt;

uses
crt;

var
alive: boolean;
afterlife: string;

begin
clrscr;
writeln('Welcome to Jon Nodtveidt''s Life After Life Simulator!');
writeln('----------------------------------------------------');

alive := true;
afterlife := '';

repeat
if alive then
begin
writeln('You are currently alive. What would you like to do?');
writeln('1. Practice your guitar skills.');
writeln('2. Write new songs for your band.');
writeln('3. Perform at a live concert.');
writeln('4. End your life.');
writeln('5. Exit the program.');

case readkey of
'1': writeln('You spend hours practicing your guitar skills.');
'2': writeln('You write new songs for your band.');
'3': writeln('You perform at a live concert and receive a standing ovation.');
'4': alive := false;
'5': halt;
end;

writeln('You continue living your life to the fullest.');
writeln('----------------------------------------------------');
end
else
begin
writeln('You have passed away. What happens in the afterlife?');
writeln('1. You are greeted by your deceased loved ones.');
writeln('2. You reunite with your musical inspirations.');
writeln('3. You meet Satan and join his army of the damned.');
writeln('4. You are reincarnated as a new person.');
writeln('5. Exit the program.');

case readkey of
'1': afterlife := 'You are greeted by your deceased loved ones.';
'2': afterlife := 'You reunite with your musical inspirations.';
'3': afterlife := 'You meet Satan and join his army of the damned.';
'4': afterlife := 'You are reincarnated as a new person.';
'5': halt;
end;

writeln('In the afterlife, ', afterlife);
writeln('----------------------------------------------------');
end;
until false;
end.