setscreen ("graphics")
procedure icywitch
    var icywitch : int := Pic.FileNew ("icywitch.bmp")
    for y : 200 .. 600
        Pic.Draw (icywitch, 250, (maxx - y), 0)
        delay (5)
        cls
    end for
end icywitch
procedure ghost
    var ghost : int := Pic.FileNew ("ghost.bmp")
    for y : 200 .. 600
        Pic.Draw (ghost, 250, (maxx - y), 0)
        delay (5)
        cls
    end for
end ghost
procedure blue_monster
    var blue_monster : int := Pic.FileNew ("blue_monster.bmp")
    for y : 200 .. 600
        Pic.Draw (blue_monster, 250, (maxx - y), 0)
        delay (5)
        cls
    end for
end blue_monster
loop
    put "Do you wish to play this spooky freaky intense game?(y/n)*WARNING MAY CAUSE SEIZURES AND WEIRD PROBLEMS"
    var reply : string (1)
    get reply
    cls
    exit when reply not= "y"
    put "Whats your difficulty? (e,m,h)"
    var replydifficulty : string (1)
    get replydifficulty
    exit when replydifficulty = "l"
    if replydifficulty = "e" then
        if replydifficulty = "m" then
            if replydifficulty = "h" then
            end if
        end if
    end if
    loop
        var menace : int := Rand.Int (1, 3)
        if menace = 1 then
            ghost
        elsif menace = 2 then
            icywitch
        elsif menace = 3 then
            blue_monster
        end if
    end loop
end loop

if x>50 and x<100 and y>50 and y<100 and button =0 then
%whatever
end if