%Procedures that involve the buttons

forward procedure armor_selection
forward procedure armor_buttons
forward procedure mission_selection
forward procedure mission1

%Screen where buttons will be drawn

body proc armor_selection

    Font.Draw ("Please select your armor you will be using for your SPARTAN career.", 100, 600, font2, white)

    Font.Draw ("(Only Click your Selection Once)", 200, 570, font2, white)

    cio_armor_display := Pic.Scale (cio_armor, 290, 470)

    Pic.Draw (cio_armor_display, 0, 0, picCopy)

    fotus_armor_display := Pic.Scale (fotus_armor, 290, 470)

    Pic.Draw (fotus_armor_display, 260, 0, picCopy)

    rogue_armor_display := Pic.Scale (rogue_armor, 290, 470)

    Pic.Draw (rogue_armor_display, 540, 0, picCopy)

    orbital_armor_display := Pic.Scale (orbital_armor, 290, 470)

    Pic.Draw (orbital_armor_display, 790, 0, picCopy)

    mark6_armor_display := Pic.Scale (mark6_armor, 290, 470)

    Pic.Draw (mark6_armor_display, 1070, 0, picCopy)


end armor_selection

%Procedure for buttons

body proc armor_buttons
    cio_armor_button := GUI.CreateButton (100, 490, 0, "C.I.O. Armor", mission_selection)
    GUI.SetColor (cio_armor_button, 41)

    fotus_armor_button := GUI.CreateButton (360, 490, 0, "Fotus Armor", mission_selection)
    GUI.SetColor (fotus_armor_button, 24)

    rogue_armor_button := GUI.CreateButton (635, 490, 0, "Rogue Armor", mission_selection)
    GUI.SetColor (rogue_armor_button, 55)

    orbital_armor_button := GUI.CreateButton (880, 490, 0, "Orbital Armor", mission_selection)
    GUI.SetColor (orbital_armor_button, 40)

    mark6_armor_button := GUI.CreateButton (1150, 490, 0, "Mark VI Armor", mission_selection)
    GUI.SetColor (mark6_armor_button, 48)
end armor_buttons

%Procedure buttons must initiate

body proc mission_selection

    put "hi"

end mission_selection

%Deployment (for lack of a better term) of procedures
armor_selection
armor_buttons