%%% Program Name: Abandoned
%%% Program Date: 01/04/2014
%%% Programmer: Ayub

%Importing GUI
import GUI

%Getting the mouse variables so the user can click on images and objects
var mx, my, mb : int
mb := 0
%Setting the font varibales
var font1 : int := Font.New ("chiller:50")
var font2 : int := Font.New ("chiller:40")
%Grabbing the images for the program
var asylum_outside : int := Pic.FileNew ("dskirkbride.jpg")
var asylum_hall1 : int := Pic.FileNew ("HauntedHallway.jpg")
var asylum_kitchen : int := Pic.FileNew ("Kitchen II.jpg")
var asylum_hall2 : int := Pic.FileNew ("download.jpg")
var asylum_room1 : int := Pic.FileNew ("asylum_room_by_RUCgost.jpg")
var asylum_room2 : int := Pic.FileNew ("HDR-haunted-bed-in-a-haunted-room-in-a-haunted-hospital-in-a-haunted-city-in-a-.....well-you-get-the-idea.jpg")
var asylum_room3 : int := Pic.FileNew ("paddedcell.jpg")
var asylum_room4 : int := Pic.FileNew ("canehillasylumdentist.jpg")
var asylum_picture1 : int := Pic.FileNew ("insane-asylum-patients1.jpe")
var asylum_picture2 : int := Pic.FileNew ("Maats_Beer_Yaakov_Asylum_Kitchen.jpg")
var asylum_picture3 : int := Pic.FileNew ("Magdalen-asylum.jpg")
var circle : int := Pic.FileNew ("ToM_EnsoCircle.jpg")
var background : int := Pic.FileNew ("bloody_background.jpg")
var static : int := Pic.FileNew ("Static.gif")
var dead1 : int := Pic.FileNew ("4e86a4677ce249d2a86caeca3463df49.jpg")
var dead2 : int := Pic.FileNew ("_origin_The-Expressionless-3.jpg")
var logo : int := Pic.FileNew ("satanlogo.jpg")

%The window settings and screen settings for the "movie"
View.Set ("graphics:1000;800,nobuttonbar")
colorback (black)
cls
GUI.HideMenuBar

%Making the Title Screen. I'm gonna add some music and a title screen

process DoMusic
    loop
        Music.PlayFile ("Scary and creepy piano improv (Yamaha DGX-630).mp3")
    end loop
end DoMusic
fork DoMusic

for c : 16 .. 31
    Draw.Text ("Ayub Presents...", 400, 400, font2, c)
    delay (50)
end for

delay (1000)

for decreasing c : 31 .. 16
    Draw.Text ("Ayub Presents...", 400, 400, font2, c)
    delay (50)
end for

cls
delay (1000)

for c : 16 .. 31
    Draw.Text ("Abandoned", 400, 600, font1, c)
    delay (50)
end for


for c : 16 .. 31
    Draw.Text ("Play", 450, 400, font1, c)
    delay (50)
end for

loop
    Mouse.Where (mx, my, mb)

    if mb = 0 and mx > 450 and mx < 550 and my > 400 and my < 450
            then
        Draw.Text ("Play", 450, 400, font1, red)
    else
        Draw.Text ("Play", 450, 400, font1, white)
    end if

    if mb = 1 and mx > 450 and mx < 550 and my > 400 and my < 450
            then
        for decreasing c : 31 .. 16
            Draw.Text ("Play", 450, 400, font1, c)
            Draw.Text ("Abandoned", 400, 600, font1, c)
            delay (50)
        end for
        cls
        exit
    end if
end loop


%Drawing the first level and image
Pic.Draw (asylum_outside, 0, 0, 0)

Pic.Draw (asylum_outside, 0, 0, 0)

put picCopy
put picXor
put picMerge
put picUnderMerge