colorback (black)
cls
%the var statements
var reply : string (1)
var answer : int
var right_answer,P,R : int
var restart : string
var choicea, choiceb, choicec, choiced, question : string
var elim1, elim2 : int 
var value, valran : int
var name :string
%the title page
color (red)
locate (11, 27)
colorback (101)
put "Welcome to the Gameshow:"
locate (12, 25)
put "WHO WANTS TO BE A MILLIONAIRE!"

delay (500)
color (purple)
locate (2,3)
put"please enter your name"
drawfillbox (200,350,maxx,400,black)
get name:*

%50/50 lifeline
colorback(black) cls
procedure fiftyfifty
    loop
   
        randint (elim1, 1, 4)
        randint (elim2, 1, 4)
        if elim1 = right_answer or elim2 = right_answer then
            put ""
        elsif elim1 = elim2 then
            put ""
        else
            exit
        end if
    end loop
    if elim1 = 1 or elim2 = 1 then
        drawfillbox (1, 50, maxx div 2, 100, 53)
    elsif elim1 = 2 or elim2 = 2 then
        drawfillbox (maxx div 2, 50, maxx, 100, 53)
    elsif elim1 = 3 or elim2 = 3 then
        drawfillbox (1, 1, maxx div 2, 50,53) 
    elsif elim1 = 4 or elim2 = 4 then
        drawfillbox (maxx div 2, 1, maxx, 50, 53)
    end if
    get answer
end fiftyfifty
%phonecall lifeline
procedure phone
    locate (4, 1)
    put "Freind: Hi" ..
    locate (5, 1)
    put "You: *Tells question to friend*" ..
    locate (6, 1)
    randint (valran, 1, 20)
    if valran <= value then
        put "Freind:",name,"I am really not sure, sorry!" ..
    else
        put "Freind: I think the answer ", right_answer ..
    end if
    get answer
end phone
%seeing if the answer is correct
procedure right 
    locate (2, 1)
    if answer = right_answer then
        locate (8, 1)
        put name,"":1, "YOU ARE RIGHT!!!" ..
        locate (9, 1)
        put "Press any key to go to next question" ..
        getch (reply)
    else
        locate (8, 1)
        put "Wrong,Sorry",name,"you lose" ..
        getch (reply)
    end if
end right
procedure format %the game format or where everything is placed
    drawbox (1, 1, maxx, 100, white) % options box
    drawline (maxx div 2, 1, maxx div 2, 100, white)
    drawline (1, 50, maxx, 50, white)
    drawline (1, 180, maxx, 180, white) %box in question
    drawline (maxx div 2, 180, maxx div 2, maxy, white) % vertical line
    color (yellow)
    locate (1, 55)
    put "INSTRUCTIONS"
    locate (2, 42)
    put "-Select 1,2,3 or 4 as your answer"
   
 
    locate (4, 42)
    put "-5 gives the fifty-fifty lifeline"
    locate (5, 42)
    put "-6 gives the phonecall lifeline."
   
   
    %where the choices are places
    locate (15, 2)
    put question ..
    locate (21, 2)
    put choicea ..
    locate (21, 42)
    put choiceb ..
    locate (24, 2)
    put choicec ..
    locate (24, 42)
    put choiced ..
color (green)
    locate (18, 2)
    put "What Do You Think The Answer Is ???" ..
    get answer
   
    if answer = 5 then%lifelines
        fiftyfifty
    elsif answer = 6 then
        phone
    end if
    right
end format
%All the Questons for this program
%$100 question
procedure onehundred 
    cls
    value := 1
   
    put "For $100:"
    put ""
    question := "What is the Capital of Canada?"
    choicea := "1)Quebec"
    choiceb := "2)Ontario"
    choicec := "3)Ottawa"
    choiced := "4)Toronto"
    right_answer := 3
    format
   
end onehundred
%$200 question
procedure twohundred 
    cls
    value := 2
    put "For $200:"
    put ""
    question := "What Year Did WW1 Star?"
    choicea := "1)1941"
    choiceb := "2)1914"
    choicec := "3)1491"
    choiced := "4)9141"
    right_answer := 2
    format
end twohundred
 %$500 question
procedure fivehundred
    cls
    value := 3
    put "For $500:"
    put ""
    question := "What are the three forms of matter?"
    choicea := "1)Solid, Liquid  and Gas"
    choiceb := "2)Solid, Liquid and Air"
    choicec := "3)Ice, Water and Steam"
    choiced := "4)Solid, Liquid and plasma"
    right_answer := 1
    format
end fivehundred
%$1,000 question
procedure oneth
    cls
    value := 4
    put "For $1 000:"
    put ""
    question := "What Was The Name of The Cat off Of Cat And Dog ?"
    choicea := "1)Fred"
    choiceb := "2)Kat "
    choicec := "3)cat"
    choiced := "4)kitty"
    right_answer := 3
    format
end oneth
%$2,000 question
procedure twoth
    cls
    value := 5
    put "For $2 000:"
    put ""
    question := "What Color boots off of dora the explorer?"
    choicea := "1)Brown"
    choiceb := "2)green"
    choicec := "3)bule"
    choiced := "4)orange"
    right_answer := 3
    format
end twoth
 %$4,000 question
procedure fourth
    cls
    value := 6
    put "For $4 000:"
    put ""
    question := "How Many ?"
    choicea := "1)Brown"
    choiceb := "2)green"
    choicec := "3)bule"
    choiced := "4)orange"
    right_answer := 3
    format
end fourth
%main program
onehundred
twohundred
fivehundred
oneth
twoth
fourth
cls

procedure fourth
    cls
    value := 6
    put "For $4 000:"
    put ""
    question := "How Many Questions Have Been Asked So Far?"
    choicea := "1)6"
    choiceb := "2)7"
    choicec := "3)4"
    choiced := "4)5"
    right_answer := 3
    format
end fourth