{******************************************************************************
*******************************************************************************
*******************************************************************************

  Jyväskylän Yliopisto
  Tietotekniikan laitos
  GKOSYKSY99 harjoitustyö

        Macho Myyrä & Taistelu Silli VIII
        ---------------------------------

        MachoMole.pas
        -------------
        Pelin päämenu

        Tarvittavat tiedostot:
         fintro.pas , .dfm
         fabout.pas , .dfm
         fsetup.pas , .dfm
         fpeli.pas , .dfm

         Version: 0.87
         By: Tomi Nieminen
         Date: 23.11.1999
         Comments:

         Version: 0.88
         By: Saku  "Copper" Kukonlehto
             Lasse "Drunken" Lilja
         Date: 26.11.1999
         Comments:
         1) Load pois
         2) Pikkusen kuvia ja napit pois

         Version: 0.89
         By: Lasse "Iskias" Lilja
         Date: 29.11.1999
         Comments:
         1) Testi päälle ja introa saadin
         2) mainmenu soittaa game musat assign varmistaa
         3) HUOM. seuraavaksi mm. new load juttu valmiiksi
         eli pelihahmon teko yms...



*******************************************************************************
*******************************************************************************
*******************************************************************************}

unit MachoMole;

interface

uses
  Windows, Messages, SysUtils,
  Classes, Graphics, Controls,
  Forms,   Dialogs,  StdCtrls,
  ExtCtrls,Menus,    jpeg,
  MPlayer, XIntro,   xsetup,
  xabout,  XHiscore, testi,
  kysymys,  Videos, fhelp;

type
  TFormMain = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Options1: TMenuItem;
    Color1: TMenuItem;
    ColorDialog1: TColorDialog;
    Help1: TMenuItem;
    Help2: TMenuItem;
    N3: TMenuItem;
    About1: TMenuItem;
    MPTaustaMusa: TMediaPlayer;
    Paneltausta: TPanel;
    PanelValinnat: TPanel;
    IExit: TImage;
    IAbout: TImage;
    ISetup: TImage;
    ImLoad: TImage;
    IHS: TImage;
    IIntro: TImage;
    INew: TImage;
    ImageLogo: TImage;
    Iname: TImage;
    ImageVasenPanel: TImage;
    procedure Exit1Click(Sender: TObject);
    procedure Color1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure IIntroClick(Sender: TObject);
    procedure ImLoadClick(Sender: TObject);
    procedure INewClick(Sender: TObject);
    procedure IHSClick(Sender: TObject);
    procedure ISetupClick(Sender: TObject);
    procedure IAboutClick(Sender: TObject);
    procedure IExitClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Help2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMain: TFormMain;

implementation



{$R *.DFM}

//************************************************************************
//  Konstruktori
//************************************************************************
procedure TFormMain.FormCreate(Sender: TObject);
var FormIntro : TFormIntro;
begin

  MPTaustaMusa.Open;
  MPTaustaMusa.Play;

  formIntro := TFormIntro.create(self);
  formIntro.showModal;
  formIntro.destroy;
end;

//************************************************************************
//  YLÄPALKIN JUTUT
//************************************************************************
procedure TFormMain.Exit1Click(Sender: TObject);
begin
     Close;
end;

procedure TFormMain.Color1Click(Sender: TObject);
begin
  colordialog1.color := color;
  if (not colordialog1.execute) then exit;
  formSetup.setColor(colordialog1.color);
end;


{************************************************************************************}
procedure TFormMain.IIntroClick(Sender: TObject);
var FormVideos : TFormvideos;
begin
  formvideos := Tformvideos.create(self);
  formvideos.showModal;
  formvideos.destroy;
end;

{************************************************************************************}
procedure TFormMain.INewClick(Sender: TObject);
var FormPeli : TFormPelipohja;
    KysymysLomake : TKysymysLomake;
    nimi          : string;
begin
  kysymyslomake:=TKysymysLomake.create(self);
  KysymysLomake.ShowModal;

  formPeli := Tformpelipohja.create(self);

  MPTaustamusa.Stop; //Close???
  MPTaustamusa.filename:='.\aania\jazz.mid';
  MPTaustamusa.Open;
  MPTaustamusa.play;

  nimi:= kysymyslomake.EditNimi.text;
  kysymyslomake.destroy;

  formpeli.aloitapeli(1,nimi);
  formpeli.ShowModal;


  formpeli.destroy;


end;

{************************************************************************************}
procedure TFormMain.ImLoadClick(Sender: TObject);
var FormPeli : TFormPeliPohja;
begin
  formPeli := Tformpelipohja.create(self);
  MPTaustamusa.Stop;
  MPTaustamusa.filename:='.\aania\musa.mid';
  MPTaustamusa.Open;
  MPTaustamusa.play;

  formpeli.aloitapeli(0,'Pekko');
  formpeli.ShowModal;

  formpeli.destroy;

end;

{************************************************************************************}
procedure TFormMain.IHSClick(Sender: TObject);
var formHS : TformHS;
begin
  formHS := Tformhs.create(self);
  formHS.Showmodal;
  formHs.destroy;
end;

{************************************************************************************}
procedure TFormMain.ISetupClick(Sender: TObject);
var formsetup:Tformsetup;
begin
  formsetup := Tformsetup.create(self);
  formSetup.showModal;
  formsetup.destroy;
end;

{************************************************************************************}
procedure TFormMain.IAboutClick(Sender: TObject);
var formabout:tformabout;
begin
  formabout:=tformabout.create(self);
  formAbout.showModal;
  formabout.Destroy;
end;

{************************************************************************************}
procedure TFormMain.IExitClick(Sender: TObject);
begin
//  formpelipohja.destroy;
//  if assigned(FORMpelipohja) then formpelipohja.destroy;
  Close;
end;

{************************************************************************************}
procedure TFormMain.FormDestroy(Sender: TObject);
begin
// Veikko hyppii narua Iisan kanssa, kello on jo 3:33
// Veikko triplasi ja kaatui PRONSSIA!!!
// Ja tontut hyppi silmille

//  MPTaustamusa.Stop;
  MPTaustamusa.Free;
//  if assigned  formSetup.Free;
//  formAbout.Free;
  inherited;
end;

{************************************************************************************}
{************************************************************************************}
{************************************************************************************}




procedure TFormMain.Help2Click(Sender: TObject);
var helpform : TFormhlp;
begin
  helpform := TFormhlp.create(self);
  helpform.showModal;
  helpform.destroy;
end;

procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//  MPTaustamusa.Stop;
//  MPTaustamusa.Free;
//  formpelipohja.Free;
//  formAbout.Free;
//  formSetup.Free;
end;

end.