var questions:array 1..10 of string
var choice1,choice2,choice3,choice4,real_answer:array 1..10 of string
var money_for_question:array 1..10 of int
var lifelinez:array 1..3 of string
var lifeline_used:array 1..3 of boolean
var input:string:=""
var money,num:int:=0
lifelinez(1):="Ask the Audience"
lifelinez(2):="Fifty Fifty"
lifelinez(3):="Phone a Friend"
for i:1..3
lifeline_used(i):=false
end for

procedure lifelines
put "Lifelines: "..
for i:1..3
put lifelinez", "..
end for
put ""
put "Which lifeline do you wish to use: "..
get input:*
if input="Ask the Audience" and lifeline_used(1)=false then
ask_the_audience
elsif input="Fifty Fifty" and lifeline_used(2)=false then
fifty_fifty
elsif input="Phone a Friend" and lifeline_used(3)=false then
phone_a_friend
else
put "That is not a lifeline, or it has already been used..."
end if
num:=num-1
end lifelines
procedure ask_the_audience
%Ask the Audience procedure
lifeline_used(1):=true
end ask_the_audience
procedure fifty_fifty
%50/50 procedure
lifeline_used(2):=true
end fifty_fifty
procedure phone_a_friend
%Phone a Friend procedure
lifeline_used(3):=true
end phone_a_friend

put "Welcome to Who Wants to be a Millionaire!!"
put "HINT: Type 'lifeline' to use a lifeline."
put ""
loop
num:=num+1
put "Question: " question (num)
put "a) green ",choice1(num)
put "b) white ",choice2(num)
put "c) blue ",choice3(num)
put "d) brown",choice4(num)
put "Answer: "..
get anwer
if answer = real_answer (num) then
money:= money+money_for_question(num)
elsif answer = "lifeline" then
lifelines
elsif answer not = real_answer(num) then
put "Sorry buddy, you LOSE!"
exit
end if
exit when num>=10
end loop
if num=10 then
put "Congratulations! You won ",money," dollars!!"
else
put "You have lost everything...now go home and cry yourself to sleep!"
end if