%This program is supposed to simulate the Monty Hall problem.

var winID : int
winID := Window.Open ("position:top;right,graphics:1024;512")

var correct:int         %Counts the number of correct choices
var a,b,c :boolean:=false       %3 doors
var d:int       %Represents the door the prize is behind
var q:int       %1 is stay, 2 is switch, 3 is random
var ch:string(1)
var randm :boolean

proc playerchoose
    cls
    randm:=false
    put "Type 1 to always stay, type 2 to always switch, 3 for random."
    put "There are 10000 trials. The number of times the correct door was chosen is displayed."
    get q
    if q=3 then
        randm:=true
    end if
    put "Press any key to start."
    getch (ch)
end playerchoose

proc prizegen           %Generates which door the prize is behind
    a:=false
    b:=false
    c:=false
    d:=Rand.Int(1,3)
    if d=1 then
        a:= true
    elsif d=2 then
        b:=true
    elsif d=3 then
        c:=true
    end if
end prizegen

proc pickdoor                   %Randomy pick a door, then stay or switch based on input from the start
    var d:int:=Rand.Int(1,3)
    if randm=true then
        q:= Rand.Int(1,2)
    end if
    if d=1 then
        if a=true then
            if q=1 then
                correct+=1
            elsif q=2 then
                correct+=0
            end if
        elsif b=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        elsif c=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        end if
       
    elsif d=2 then
        if a=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        elsif b=true then
            if q=1 then
                correct+=1
            elsif q=2 then
                correct+=0
            end if
        elsif c=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        end if
       
    elsif d=3 then
        if a=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        elsif b=true then
            if q=1 then
                correct+=0
            elsif q=2 then
                correct+=1
            end if
        elsif c=true then
            if q=1 then
                correct+=1
            elsif q=2 then
                correct+=0
            end if
        end if
    end if
end pickdoor
   
proc try            %Repeat 10000 times
    for i:1..10000
        prizegen
        pickdoor
    end for
        put correct," out of 10000 correct."
end try

loop
    correct:=0
    playerchoose
    try
    put "Press any key to restart or press ESC to quit."
    getch (ch)
    if ch=(KEY_ESC) then
        Window.Close (winID)
        exit
    end if
end loop