%***** *****
%Create-A-Car!
%30/05/10
%Ms.****
%This program allows the user to create a car using components of their choice and view the car they made


%Imports all the needed GUI
import GUI

%Decleration Section
var buildWin : int := 0
var mainWin := Window.Open ("position:320;300, graphics:640;400")
var mainMenuButton, exitButton, buildButton : int := 0
var titlePictureID : int := Pic.FileNew ("title.jpg")
var licensePlateCode : string

%Set up screen
setscreen ("noecho")

%Program Title
procedure title
    cls
    Pic.Draw (titlePictureID, 183, 338, picMerge)
end title

%Program Intro Screen
procedure introduction
    Window.Hide (buildWin)
    var introPictureID : int := Pic.FileNew ("IntroPic.bmp")
    title
    Pic.Draw (introPictureID, 100, 73, picMerge)
    GUI.Show (mainMenuButton)
    Pic.Free (introPictureID)
end introduction

%Program Main Menu
procedure mainMenu
    var whiteCarID : int := Pic.FileNew ("whiteCar.jpg")
    Window.Hide (buildWin)
    Window.Show (mainWin)
    GUI.Hide (mainMenuButton)
    title
    Pic.Draw (whiteCarID, 100, 100, picMerge)
    GUI.Show (exitButton)
    GUI.Show (buildButton)
end mainMenu

procedure licensePlateInput
    var inputWindow : int := Window.Open ("position:800;800, graphics:100;100")
    var key : string (1)
    title
    locate (6, 1)
    put "Enter a license plate code you want 6 characters in length: " ..
    get licensePlateCode
    if length (licensePlateCode) not= 6 then
        put "Error! License plate must be 6 characers in length!"
        put "Press any key to continue: " ..
        getch (key)
        licensePlateInput
    else
        buildCar
    end if
end licensePlateInput

%Program build screen
procedure buildCar
    %Declares variables
    buildWin := Window.Open ("position:100;100, graphics:800;600")
    var carMake, carColour, carModel, carDoors, carBumper, licensePlate, hubCap, start : int
    var item : array 1 .. 20 of int
    %Hides GUI and other windows
    Window.Hide (mainWin)
    Window.Show (buildWin)
    GUI.Hide (buildButton)
    GUI.Hide (exitButton)
    %Menu Creation
    carMake := GUI.CreateMenu ("Make")
    item (1) := GUI.CreateMenuItem ("Cadillac", GUI.Quit)
    item (2) := GUI.CreateMenuItem ("Honda", GUI.Quit)
    item (3) := GUI.CreateMenuItem ("Toyota", GUI.Quit)
    carColour := GUI.CreateMenu ("Colour")
    item (4) := GUI.CreateMenuItem ("Black", GUI.Quit)
    item (5) := GUI.CreateMenuItem ("Red", GUI.Quit)
    item (6) := GUI.CreateMenuItem ("Green", GUI.Quit)
    carModel := GUI.CreateMenu ("Model")
    item (7) := GUI.CreateMenuItem ("Sedan", GUI.Quit)
    item (8) := GUI.CreateMenuItem ("SUV", GUI.Quit)
    item (9) := GUI.CreateMenuItem ("Convertible", GUI.Quit)
    carDoors := GUI.CreateMenu ("Doors")
    item (10) := GUI.CreateMenuItem ("2", GUI.Quit)
    item (11) := GUI.CreateMenuItem ("4", GUI.Quit)
    carBumper := GUI.CreateMenu ("Bumper")
    item (12) := GUI.CreateMenuItem ("Heavy", GUI.Quit)
    item (13) := GUI.CreateMenuItem ("Light", GUI.Quit)
    item (14) := GUI.CreateMenuItem ("Bling", GUI.Quit)
    licensePlate := GUI.CreateMenu ("License Plate")
    item (15) := GUI.CreateMenuItem ("Enter a license plate...", licensePlateInput)
    hubCap := GUI.CreateMenu ("Hub Cap")
    item (16) := GUI.CreateMenuItem ("Plain", GUI.Quit)
    item (17) := GUI.CreateMenuItem ("Bling", GUI.Quit)
    item (18) := GUI.CreateMenuItem ("Golden", GUI.Quit)
    start := GUI.CreateMenu ("Start")
    item (19) := GUI.CreateMenuItem ("Main Menu", mainMenu)
    item (20) := GUI.CreateMenuItem ("Exit", GUI.Quit)
    %Display Box Titles
    locate (6, 24)
    put "Side View"
    locate (6, 68)
    put "Front View"
    %Display Box Creation Left
    drawline (75, 100, 75, 500, 1)
    drawline (75, 100, 375, 100, 1)
    drawline (375, 100, 375, 500, 1)
    drawline (375, 500, 75, 500, 1)
    %Display Box Creation Right
    drawline (425, 100, 425, 500, 1)
    drawline (425, 100, 725, 100, 1)
    drawline (725, 100, 725, 500, 1)
    drawline (725, 500, 425, 500, 1)
end buildCar

%Goodbye Screen
procedure goodBye
    Window.Hide (buildWin)
    Window.Show (mainWin)
    Window.SetActive (mainWin)
    var reply : string (1)
    title
    locate (6, 1)
    put "This program was coded by ***** *****."
    put "For more information call ***-***-****."
    put ""
    put "Press any key to continue..." ..
    getch (reply)
    Pic.Free (titlePictureID)
    Window.Close (mainWin)
end goodBye

%Button Creation
mainMenuButton := GUI.CreateButtonFull (273, 40, 0, "M. Main Menu", mainMenu, 0, "^M", true)
exitButton := GUI.CreateButton (273, 10, 0, "Exit", GUI.Quit)
buildButton := GUI.CreateButton (273, 40, 0, "Build Your Car!", buildCar)

%MainProgram
introduction
loop
    exit when GUI.ProcessEvent
end loop
goodBye