source: 2010/23/hniemi/Matopeli/Peli.cs @ 1638

using System;
using System.Collections.Generic;
using Jypeli;
using Jypeli.Widgets;
using Jypeli.Assets;

public class Peli : Game
{
    const double ruudunKoko = 20;
    int madonPituus = 6;
    const double vaikeusaste = 0.2;
    double kerattavienLisaysAikaSek = 1.0;
    bool peliPysaytetty = false;

    int ruutujaVaakasuunnassa;
    int ruutujaPystysuunnassa;
    List<GameObject> mato = new List<GameObject>();
    List<GameObject> kerattavat = new List<GameObject>();
    Direction liikkumissuunta;
    Direction viimesuunta;
    Timer liikutusajastin;
    Timer kerattavienLisaysAjastin;
    IntMeter pistelaskuri;

    String[] kerattavienVaihtoehdot = new String[] {"nopeus", "omena"};
    Image nopeusKuva = LoadImage("nopeus");
    Image omenaKuva = LoadImage("omena");

    protected override void Begin()
    {
        LuoKentta();
        LuoAjastimet();
        LuoMato(madonPituus);
        LisaaOhjaimet();
        LisaaPistelaskuri();
        AloitaPeli();
    }

    void LuoKentta()
    {
        Level.BackgroundColor = new Color(50, 50, 50);
        Level.Height = 500;
        Level.Width = 500;
        Level.CreateBorders(true);
        ruutujaPystysuunnassa = (int)Math.Floor(Level.Height / ruudunKoko);
        ruutujaVaakasuunnassa = (int)Math.Floor(Level.Width / ruudunKoko);
        Camera.ZoomToLevel();
        Camera.ZoomFactor /= 1.5;
    }

    void LuoMato(int pituus)
    {
        for (int i = 0; i < pituus - 1; i++)
        {
            LisaaPalaMatoon();
        }
        mato.Insert(0, new GameObject(ruudunKoko - 1, ruudunKoko - 1));
        mato[0].Tag = "matopala";
        Add(mato[0], 1);

    }

    void LisaaPalaMatoon()
    {
        GameObject pala = new GameObject(ruudunKoko - 1, ruudunKoko - 1);
        pala.Tag = "matopala";
        if(mato.Count>0) pala.Position = mato[mato.Count - 1].Position;
        mato.Add(pala);
        Add(pala);
    }

    void LisaaOhjaimet()
    {
        Keyboard.Listen(Key.Up, ButtonState.Pressed, AsetaSuunta, "Kääntää ylös", Direction.Up);
        Keyboard.Listen(Key.Down, ButtonState.Pressed, AsetaSuunta, "Kääntää alas", Direction.Down);
        Keyboard.Listen(Key.Left, ButtonState.Pressed, AsetaSuunta, "Kääntää vasemmalle", Direction.Left);
        Keyboard.Listen(Key.Right, ButtonState.Pressed, AsetaSuunta, "Kääntää oikealle", Direction.Right);
        Keyboard.Listen(Key.P, ButtonState.Pressed, Pause, "Pysäyttää/Jatkaa");
        Keyboard.Listen(Key.Escape, ButtonState.Pressed, Exit, "Poistuu pelistä");
    }


    void Pause()
    {

        liikutusajastin.Enabled = peliPysaytetty;
        peliPysaytetty = !peliPysaytetty;

    }
    void LisaaPistelaskuri()
    {
        pistelaskuri = new IntMeter(0);
        Label pisteteksti = new Label("Pisteesi");
        pisteteksti.Position = new Vector(0, Screen.Top - 45);
        pisteteksti.Color = Color.White;
        Add(pisteteksti);

        Label pistenaytto = new Label();
        pistenaytto.Position = new Vector(0, Screen.Top - 80);
        pistenaytto.Color = Color.Magenta;
        pistenaytto.BindTo(pistelaskuri);
        Add(pistenaytto);
    }

    /// <summary>
    /// Asettaa madon liikkumissuunnan
    /// 
    /// Ei voi asettaa menemään matoa taaksepäin
    /// </summary>
    /// <param name="suunta">Asetettava suunta</param>
    void AsetaSuunta(Direction suunta)
    {
        if (Directions.Inverse(suunta) != viimesuunta) liikkumissuunta = suunta;
    }

    void LuoAjastimet()
    {
        liikutusajastin = new Timer();
        liikutusajastin.Interval = vaikeusaste;
        liikutusajastin.Trigger += SiirraMatoa;

        kerattavienLisaysAjastin = new Timer();
        kerattavienLisaysAjastin.Interval = kerattavienLisaysAikaSek;
        kerattavienLisaysAjastin.Trigger += LisaaSatunnainenKerattava;
    }

    void SiirraMatoa(Timer ajastin)
    {
        Vector suunta = Vector.FromLengthAndAngle(ruudunKoko, Angle.FromDirection(liikkumissuunta));

        for (int i = mato.Count - 1; i > 0; i--)
        {
            mato[i].Position = mato[i - 1].Position;
        }

        GameObject seuraavanRuudunOlio = MitaSisaltaa(mato[0].Position + suunta);
        mato[0].Position = mato[0].Position + suunta;
        viimesuunta = liikkumissuunta;

        if (seuraavanRuudunOlio == null)
        {
            return;
        }

        if (seuraavanRuudunOlio.Tag.ToString().Contains("kerattava")) // Siltä varalta Contains-metodi, että tagissa joutuu jatkossa viemään jotain muutakin
        {
            seuraavanRuudunOlio.Destroy();
            kerattavat.Remove(seuraavanRuudunOlio);
            pistelaskuri.Value++;
            LisaaPalaMatoon();
        }

        if (seuraavanRuudunOlio.Tag.ToString() == "seina" || seuraavanRuudunOlio.Tag.ToString() == "matopala")
        {
            liikutusajastin.Stop();
            kerattavienLisaysAjastin.Stop();
            mato[0].Color = Color.Blue;
        }
    }

    void LisaaSatunnainenKerattava(Timer ajastin)
    {
        int arvottavaIndeksi = RandomGen.NextInt(0, kerattavienVaihtoehdot.Length - 1);
        LisaaKerattava(kerattavienVaihtoehdot[arvottavaIndeksi]);
    }

    /// <summary>
    /// Lisää kerättävän esineen satunnaiseen paikkaan pelikentällä. 
    /// Ei lisätä kentällä jo olemassa olevien kamojen päälle.
    /// </summary>
    /// <param name="ajastin"></param>
    void LisaaKerattava(String kerattavanNimi)
    {
        double kerattavanX = RandomGen.NextInt(-ruutujaVaakasuunnassa/2, ruutujaVaakasuunnassa/2) * ruudunKoko;
        double kerattavanY = RandomGen.NextInt(-ruutujaPystysuunnassa/2, ruutujaPystysuunnassa/2) * ruudunKoko;
        MessageDisplay.Add(kerattavat.Count.ToString());
        if (kerattavat.Count >= ruutujaVaakasuunnassa * ruutujaPystysuunnassa - madonPituus) return;

        while (MitaSisaltaa(new Vector(kerattavanX, kerattavanY)) != null)
        {
            kerattavanX = RandomGen.NextInt(-ruutujaVaakasuunnassa / 2, ruutujaVaakasuunnassa / 2) * ruudunKoko;
            kerattavanY = RandomGen.NextInt(-ruutujaPystysuunnassa / 2, ruutujaPystysuunnassa / 2) * ruudunKoko;
        }

                
        GameObject kerattava = new GameObject(ruudunKoko, ruudunKoko, Shapes.Rectangle);
        Add(kerattava);
        kerattava.X = kerattavanX;
        kerattava.Y = kerattavanY;
        kerattava.Tag = "kerattava_" + kerattavanNimi;
        Image kerattavanKuva = Image.FromColor((int)ruudunKoko, (int)ruudunKoko, Color.White);
        switch (kerattavanNimi)
        {
            case "nopeus":
                kerattavanKuva = nopeusKuva;
                break;
            case "omena":
                kerattavanKuva = omenaKuva;
                break;
        }
        kerattava.Image = kerattavanKuva;
        kerattavat.Add(kerattava);
    }

    /// <summary>
    /// Palauttaa annetun koordinaatin sisällön
    /// 
    /// Etsii ainoastaan kerättävistä, madosta ja seinistä.
    /// 
    /// Seinien peliobjektin tag on "seina"
    /// </summary>
    /// <param name="paikka">Tarkistettava paikka</param>
    /// <returns>Ruudun sisältämä GameObject. Palauttaa null, jos paikasta ei löydy mitään.</returns>
    GameObject MitaSisaltaa(Vector paikka)
    {
        double puskuri = ruudunKoko / 2;

        //Tarkistaa, onko annettu paikka madon sisällä
        foreach (GameObject matopala in mato)
        {
            if (Vector.Distance(paikka, matopala.Position) < puskuri)
            {
                return matopala;
            }
        }

        foreach (GameObject kerattava in kerattavat)
        {
            if (Vector.Distance(paikka, kerattava.Position) < puskuri)
            {
                return kerattava;
            }
        }

        //Tarkistaa, onko paikka pelialueen ulkopuolella
        GameObject seina = new GameObject(1, 1);
        seina.Tag = "seina";
        if (paikka.X < Level.Left || paikka.X > Level.Right) return seina;
        if (paikka.Y < Level.Bottom || paikka.Y > Level.Top) return seina;

        return null;
    }

    void AloitaPeli()
    {
        liikkumissuunta = Direction.Right;
        liikutusajastin.Start();
        kerattavienLisaysAjastin.Start();
    }
}