source: 2011/23/iltakuop/Blocks/Blocks/Blocks/Peli.cs @ 1791

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


class Taso2 : PhysicsObject
{
    public int hitPoints = 2;
    public Taso2()
        : base(40, 10)
    {
        MakeStatic();
    }


}





public class Peli : PhysicsGame
{
    int mailanNopeus = 600;
    int pallonNopeus = 300;
    int äläLuoPalloa = 0;
    //Vector nopeusVasen = new Vector(-600, 0);

    PhysicsObject pallo;
    PhysicsObject maila;
    PhysicsObject tnt;

    PhysicsObject alaReuna;
    int kenttäNro = 1;
    int kenttäMäärä = 3;

    int palloolemassa;
    const int RUUDUN_KOKO = 5;

    Image tntKuva = LoadImage("TNT");
    Image tasoKuva = LoadImage("Palikka");
    Image taso2Kuva = LoadImage("Vahvistettu palikka");
    Image taso2Kuva2 = LoadImage("Vahvistettu palikka2");
    Image tasoTuhoutumatonKuva = LoadImage("Tuhoutumaton");
    Image tasoTuhoutumatonKuvaPysty = LoadImage("TuhoutumatonPysty");
    Image taustaKuva = LoadImage("Taustakuva1");
    Image taustaKuva2 = LoadImage("Taustakuva2");
    Image taustaKuva3 = LoadImage("Taustakuva3");
    Image mailanKuva = LoadImage("Maila");
    int pisteet;
    int elämät = 3;
    int randomKentät = 0;
    IntMeter pisteetL;
    IntMeter elämätL;

    Label päälläPois;

    List<Label> valikonKohdat;
    List<PhysicsObject> tasot = new List<PhysicsObject>();
    List<PhysicsObject> taso2t = new List<PhysicsObject>();
    List<PhysicsObject> tntt = new List<PhysicsObject>();
    List<PhysicsObject> tasoTuhoutumatont = new List<PhysicsObject>();

    public override void Begin()
    {
        Valikko();
    }

    void Valikko()
    {
        äläLuoPalloa = 1;
        ClearAll();
        Level.Background.Image = taustaKuva3;
        Level.Background.Size = new Vector(Screen.Width, Screen.Height);
        Camera.ZoomToLevel(1);

        valikonKohdat = new List<Label>();

        Label kohta1 = new Label("Aloita uusi peli");
        kohta1.Position = new Vector(-80, 40);
        valikonKohdat.Add(kohta1);

        Label kohta2 = new Label("Asetukset");
        kohta2.Position = new Vector(-80, -40);
        valikonKohdat.Add(kohta2);

        Label kohta3 = new Label("Lopeta");
        kohta3.Position = new Vector(80, -40);
        valikonKohdat.Add(kohta3);

        Label kohta4 = new Label("Ohjeet");
        kohta4.Position = new Vector(80, 40);
        valikonKohdat.Add(kohta4);

        foreach (Label valikonKohta in valikonKohdat)
        {
            Add(valikonKohta);
        }

        Mouse.ListenOn(kohta1, MouseButton.Left, ButtonState.Pressed, AloitaPeli, null);
        Mouse.ListenOn(kohta2, MouseButton.Left, ButtonState.Pressed, Asetukset, null);
        Mouse.ListenOn(kohta3, MouseButton.Left, ButtonState.Pressed, Lopeta, null);
        Mouse.ListenOn(kohta4, MouseButton.Left, ButtonState.Pressed, Ohjeet, null);

        Mouse.IsCursorVisible = true;
        Mouse.ListenMovement(1.0, ValikossaLiikkuminen, null);
        Keyboard.Listen(Key.Escape, ButtonState.Pressed, Lopeta, "");
    }

    void ValikossaLiikkuminen(AnalogState hiirenTila)
    {
        foreach (Label kohta in valikonKohdat)
        {
            if (Mouse.IsCursorOn(kohta))
            {
                kohta.TextColor = Color.Red;
            }
            else
            {
                kohta.TextColor = Color.Black;
            }

        }
    }

    void ValikossaLiikkuminen2(AnalogState hiirenTila)
    {
        foreach (Label kohta in valikonKohdat)
        {
            if (Mouse.IsCursorOn(kohta))
            {
                kohta.TextColor = Color.Red;
            }
            else
            {
                kohta.TextColor = Color.White;
            }

        }
    }


    void AloitaPeli()
    {
        ClearAll();
        äläLuoPalloa = 0;
        nollaaPisteet();
        LuoKenttä(1);
        AsetaOhjaimet();
        LisääLaskurit(3, 0);
        AloitaPeliUudestaan();
    }

    void nollaaPisteet()
    {
        kenttäNro = 1;
        pisteet = 0;
        elämät = 3;
    }

    void Lopeta()
    {
        Exit();
    }

    void Ohjeet()
    {

    }

    void Asetukset()
    {
        ClearAll();

        Level.Background.Image = taustaKuva2;
        Level.Background.Size = new Vector(Screen.Width, Screen.Height);
        Camera.ZoomToLevel(1);

        valikonKohdat = new List<Label>();

        Label kohta1 = new Label("Pallon nopeus");
        kohta1.Position = new Vector(-80, 40);
        valikonKohdat.Add(kohta1);
        kohta1.TextColor = Color.White;

        Label kohta2 = new Label("Mailan nopeus");
        kohta2.Position = new Vector(-80, -40);
        valikonKohdat.Add(kohta2);
        kohta2.TextColor = Color.White;

        Label kohta3 = new Label("Takaisin");
        kohta3.Position = new Vector(80, -40);
        valikonKohdat.Add(kohta3);
        kohta3.TextColor = Color.White;

        Label kohta4 = new Label("Satunaiset kentät");
        kohta4.TextColor = Color.White;

        if (randomKentät == 1)
        {
            päälläPois = new Label("Päällä");
        }
        else { päälläPois = new Label("Pois päältä"); }
        kohta4.Position = new Vector(100, 40);
        päälläPois.Position = new Vector(70, 15);
        päälläPois.TextColor = Color.White;
        valikonKohdat.Add(päälläPois);
        Add(kohta4);

        foreach (Label valikonKohta in valikonKohdat)
        {
            Add(valikonKohta);
        }

        Mouse.ListenOn(kohta1, MouseButton.Left, ButtonState.Pressed, AsetaPallonNopeus, null);
        Mouse.ListenOn(kohta2, MouseButton.Left, ButtonState.Pressed, AsetaMailanNopeus, null);
        Mouse.ListenOn(kohta3, MouseButton.Left, ButtonState.Pressed, Valikko, null);
        Mouse.ListenOn(päälläPois, MouseButton.Left, ButtonState.Pressed, satunaisetKentät, null);

        Mouse.IsCursorVisible = true;
        Mouse.ListenMovement(1.0, ValikossaLiikkuminen2, null);
        Keyboard.Listen(Key.Escape, ButtonState.Pressed, Lopeta, "");
    }

    void satunaisetKentät()
    {
        if (randomKentät == 1)
        {
            randomKentät = 0;
        }
        else
        {
            randomKentät = 1;
        }
        Asetukset();
    }

    void AsetaPallonNopeus()
    {
        InputWindow kysymysIkkuna = new InputWindow("Pallon nopeus", "Oletus on 300");
        kysymysIkkuna.TextEntered += KäsitteleAsetukset;
        Add(kysymysIkkuna);

    }

    void AsetaMailanNopeus()
    {
        InputWindow kysymysIkkuna = new InputWindow("Mailan nopeus", "Oletus on 600");
        kysymysIkkuna.TextEntered += KäsitteleAsetukset2;
        Add(kysymysIkkuna);
    }

    void KäsitteleAsetukset(InputWindow ikkuna)
    {
        try
        {
            int vastaus = int.Parse(ikkuna.InputBox.Text);
            pallonNopeus = vastaus;
        }
        catch (FormatException)
        {
            ClearAll();
            Label tekstikentta = new Label("Anna luku!");
            Add(tekstikentta);
            Timer.SingleShot(2, ClearAll);
            Timer.SingleShot(2.01, Asetukset);
        }
    }

    void KäsitteleAsetukset2(InputWindow ikkuna)
    {
        try
        {
            int vastaus = int.Parse(ikkuna.InputBox.Text);
            mailanNopeus = vastaus;
        }
        catch (FormatException)
        {
            ClearAll();
            Label tekstikentta = new Label("Anna luku!");
            Add(tekstikentta);
            Timer.SingleShot(2, ClearAll);
            Timer.SingleShot(2.01, Asetukset);
        }
    }

    PhysicsObject LuoPallo() //-170
    {
        PhysicsObject pallo1 = new PhysicsObject(18.0, 18.0);
        pallo1.Shape = Shape.Circle;
        pallo1.Color = Color.LightGreen;
        pallo1.Tag = "pallo";
        pallo1.Restitution = 1.0;
        pallo1.X = 0;
        pallo1.Y = -168;
        palloolemassa = 1;
        return pallo1;
    }

    void LuoKenttä(int a)
    {

        LuoPalikat(a);
        Level.Background.Image = taustaKuva;
        Level.Background.Size = new Vector(Screen.Width, Screen.Height);

        Camera.ZoomToLevel(1);
    }

    void AloitaPeliUudestaan()
    {
        maila.X = 0;
        if (palloolemassa == 1)
        {
            pallo.Destroy();
        }
        if (äläLuoPalloa == 0)
        {
            pallo = LuoPallo();
            AddCollisionHandler(pallo, KäsittelePallonTörmäys);
            Add(pallo);
        }
    }

    void AsetaOhjaimet()
    {
        Vector nopeusVasen = new Vector(-mailanNopeus, 0);
        Vector nopeusOikea = new Vector(mailanNopeus, 0);
        Keyboard.Listen(Key.Right, ButtonState.Down, AsetaNopeus, "Liikuta mailaa oikealle", maila, nopeusOikea);
        Keyboard.Listen(Key.Right, ButtonState.Released, AsetaNopeus, null, maila, Vector.Zero);
        Keyboard.Listen(Key.Left, ButtonState.Down, AsetaNopeus, "Liikuta mailaa vasemmalle", maila, nopeusVasen);
        Keyboard.Listen(Key.Left, ButtonState.Released, AsetaNopeus, null, maila, Vector.Zero);

        Keyboard.Listen(Key.T, ButtonState.Pressed, AloitaPeliUudestaan, "Liikuta mailaa vasemmalle");
        Keyboard.Listen(Key.R, ButtonState.Pressed, DebugRäjäytys, "Liikuta mailaa vasemmalle");

        Keyboard.Listen(Key.F1, ButtonState.Pressed, ShowControlHelp, "Näytä ohjeet");
        Keyboard.Listen(Key.F2, ButtonState.Pressed, SeuraavaTaso, "Näytä ohjeet");

        Keyboard.Listen(Key.Escape, ButtonState.Pressed, Valikko, "Palaa valikkoon");


    }

    void DebugRäjäytys() { Räjähdys(tnt.Position); }

    void LisääLaskurit(int elämät, int pisteet)
    {
        pisteetL = LuoPisteLaskuri(Screen.Left + 180.0, Screen.Top - 80.0, pisteet);
        elämätL = LuoPisteLaskuri(Screen.Right - 100.0, Screen.Top - 80.0, elämät);
        Label tekstikentta = new Label("Palloja jäljellä: ");
        tekstikentta.X = Screen.Right - 180;
        tekstikentta.Y = Screen.Top - 80;
        tekstikentta.TextColor = Color.White;
        Label tekstikentta2 = new Label("Pisteet: ");
        tekstikentta2.X = Screen.Left + 100.0;
        tekstikentta2.Y = Screen.Top - 80;
        tekstikentta2.TextColor = Color.White;

        Add(tekstikentta2);
        Add(tekstikentta);
    }

    IntMeter LuoPisteLaskuri(double x, double y, int määrä)
    {
        IntMeter laskuri = new IntMeter(määrä);
        Label näyttö = new Label();
        näyttö.BindTo(laskuri);
        näyttö.X = x;
        näyttö.Y = y;
        näyttö.TextColor = Color.White;
        Add(näyttö);
        return laskuri;
    }

    void KäsittelePallonTörmäys(PhysicsObject pallo, PhysicsObject kohde)
    {
        if (kohde == alaReuna)
        {
            pallo.Destroy();
            palloolemassa = 0;
            elämät -= 1;
            if (elämät == 0)
            {
                HävisitPelin();
            }
            else Timer.SingleShot(1, AloitaPeliUudestaan);
        }
        if (kohde.Tag.ToString() == "taso")
        {
            pisteet += 100;
            Timer.SingleShot(0.01, kohde.Destroy);
            tasot.Remove(kohde);
            TarkistaVoitto();
        }
        if (kohde.Tag.ToString() == "taso2")
        {
            Taso2 taso2 = (Taso2)kohde;
            taso2.hitPoints--;
            if (taso2.hitPoints == 1)
            { taso2.Image = taso2Kuva2; }
            else if (taso2.hitPoints == 0)
            {
                Timer.SingleShot(0.01, kohde.Destroy);
                pisteet += 300;
            }
            taso2t.Remove(kohde);
            TarkistaVoitto();
        }
        if (kohde.Tag.ToString() == "TNT")
        {
            pisteet += 100;
            Räjähdys(kohde.Position);
            Timer.SingleShot(0.01, kohde.Destroy);
            TarkistaVoitto();
        }
        pisteetL.Value = pisteet;
        elämätL.Value = elämät;

    }

    void TarkistaVoitto()
    {
        if ((tasot.Count == 0) && (taso2t.Count == 0) && (tntt.Count == 0))
        {
            SeuraavaTaso();
        }

    }

    void SeuraavaTaso()
    {
        tasot.Clear();
        tntt.Clear();
        taso2t.Clear();
        kenttäNro += 1;
        if (kenttäNro > kenttäMäärä)
        {
            ClearAll();
            Label tekstikentta = new Label("Voitit, onneksi olkoon! Sait " + pisteet + " pistettä!");
            Add(tekstikentta);
            Timer.SingleShot(2, Exit);
        }
        else
        {
            ClearAll();
            Label tekstikentta = new Label("Pääsit seuraavaan tasoon");
            Add(tekstikentta);
            Timer.SingleShot(1.5, SeuraavaTaso2);
        }

    }

    void SeuraavaTaso2()
    {
        ClearAll();
        LuoKenttä(kenttäNro);
        AsetaOhjaimet();
        LisääLaskurit(elämät, pisteet);
        AloitaPeliUudestaan();
    }

    void Räjähdys(Vector kohde)
    {

        Explosion rajahdys = new Explosion(10);
        rajahdys.Position = kohde;
        rajahdys.Force = 0;
        Add(rajahdys);

        //foreach (PhysicsObject taso in tasot)
        //for(int i = 0; i<tasot.Count; i++)
        int i = 0;
        while (i < tasot.Count)
        {
            if (((tasot[i].X - kohde.X) < 100) && ((tasot[i].X - kohde.X) > -100)
                && ((tasot[i].Y - kohde.Y) < 80) && ((tasot[i].Y - kohde.Y) > -80))
            {
                tasot[i].Destroy();
                tasot.RemoveAt(i);
                pisteet += 100;
                pisteetL.Value = pisteet;
            }
            else
            {
                i++;
            }
        }
        int w = 0;
        while (w < taso2t.Count)
        {
            if (((taso2t[w].X - kohde.X) < 100) && ((taso2t[w].X - kohde.X) > -100)
                && ((taso2t[w].Y - kohde.Y) < 80) && ((taso2t[w].Y - kohde.Y) > -80))
            {
                taso2t[w].Destroy();
                taso2t.RemoveAt(w);
                pisteet += 300;
                pisteetL.Value = pisteet;
            }
            else
            {
                w++;
            }
        }
        int o = 0;
        while (o < tntt.Count)
        {
            if (((tntt[o].X - kohde.X) < 100) && ((tntt[o].X - kohde.X) > -100)
                && ((tntt[o].Y - kohde.Y) < 80) && ((tntt[o].Y - kohde.Y) > -80))
            {
                Vector räjähdysPaikka = tntt[o].Position;
                tntt[o].Destroy();
                tntt.RemoveAt(o);
                pisteet += 100;
                pisteetL.Value = pisteet;
                Räjähdys(räjähdysPaikka);

            }
            else
            {
                o++;
            }
        }
    }

    void LuoPalikat(int x)
    {

        if (randomKentät == 0)
        {
            TileMap kentta = TileMap.FromFile("kentta" + x + ".txt");
            kentta['#'] = lisaaTaso;
            kentta['!'] = lisaaTaso2;
            kentta['p'] = lisaaPystyTaso;
            kentta['P'] = lisaaPystyTasoTuhoutumaton;
            kentta['*'] = lisaaTNT;
            kentta['T'] = lisaaTasoTuhoutumaton;
            kentta['m'] = LuoMaila;
            kentta['-'] = LuoReunat;
            kentta['_'] = LuoAlaReuna;
            kentta['y'] = LuoYläReuna;
            kentta.Insert(20, 20);
        }
        else
        {
            TileMap kentta = TileMap.FromFile("kenttarandom.txt");
            kentta['#'] = lisaaRandomTaso;
            kentta['m'] = LuoMaila;
            kentta['-'] = LuoReunat;
            kentta['_'] = LuoAlaReuna;
            kentta['y'] = LuoYläReuna;
            kentta.Insert(40, 40);
        }
    }

    PhysicsObject lisaaTaso()
    {
        PhysicsObject taso = PhysicsObject.CreateStaticObject(40, 10);
        taso.Tag = "taso";
        taso.Image = tasoKuva;
        taso.Restitution = 1.0;
        tasot.Add(taso);
        return taso;
    }

    PhysicsObject lisaaTasoTuhoutumaton()
    {
        PhysicsObject tasoTuhoutumaton = PhysicsObject.CreateStaticObject(40, 10);
        //tasoTuhoutumaton.Tag = "taso";
        tasoTuhoutumaton.Image = tasoTuhoutumatonKuva;
        tasoTuhoutumaton.Restitution = 1.0;
        return tasoTuhoutumaton;
    }

    PhysicsObject lisaaPystyTaso()
    {
        PhysicsObject taso = PhysicsObject.CreateStaticObject(10, 40);
        taso.Tag = "taso";
        taso.Image = tasoKuva;
        taso.Restitution = 1.0;
        tasot.Add(taso);
        return taso;
    }

    PhysicsObject lisaaPystyTasoTuhoutumaton()
    {
        PhysicsObject tasoTuhoutumaton = PhysicsObject.CreateStaticObject(10, 40);
        //tasoTuhoutumaton.Tag = "taso";
        tasoTuhoutumaton.Image = tasoTuhoutumatonKuvaPysty;
        tasoTuhoutumaton.Restitution = 1.0;
        return tasoTuhoutumaton;
    }

    PhysicsObject lisaaTaso2()
    {
        Taso2 taso2 = new Taso2();
        taso2.Tag = "taso2";
        taso2.Image = taso2Kuva;
        taso2.Restitution = 1.0;
        taso2t.Add(taso2);
        return taso2;
    }

    PhysicsObject lisaaTNT()
    {
        tnt = PhysicsObject.CreateStaticObject(40, 10);
        tnt.Image = tntKuva;
        tnt.Restitution = 1;
        tntt.Add(tnt);
        tnt.Tag = "TNT";

        return tnt;
    }

    PhysicsObject LuoMaila()
    {
        maila = PhysicsObject.CreateStaticObject(60.0, 10);
        maila.Shape = Shape.Rectangle;
        maila.Image = mailanKuva;
        maila.Restitution = 1.0;
        maila.Color = Color.Green;
        return maila;
    }

    PhysicsObject lisaaRandomTaso()
    {
        int tasonTyyppi = RandomGen.NextInt(1, 4);
        PhysicsObject taso;

        if (tasonTyyppi == 1)
        {
            taso = lisaaTaso();
        }
        else if (tasonTyyppi == 2)
        {
            taso = lisaaTaso2();
        }
        else if (tasonTyyppi == 3)
        {
            taso = lisaaTNT();
        }
        else if (tasonTyyppi == 4)
        {
            MessageDisplay.Add("tuli nelonen");
            taso = lisaaTaso();
        }
        else
        {
            taso = lisaaTaso();
        }


        return taso;
    }

    PhysicsObject LuoReunat()
    {
        PhysicsObject reuna = PhysicsObject.CreateStaticObject(40, 800);
        reuna.IsVisible = false;
        reuna.Restitution = 1.0;
        return reuna;
    }

    PhysicsObject LuoAlaReuna()
    {
        alaReuna = PhysicsObject.CreateStaticObject(800, 40);
        alaReuna.Color = Color.Black;
        alaReuna.IsVisible = false;
        alaReuna.Restitution = 1.0;
        return alaReuna;
    }

    PhysicsObject LuoYläReuna()
    {
        PhysicsObject yläReuna = PhysicsObject.CreateStaticObject(800, 40);
        yläReuna.Color = Color.Black;
        yläReuna.IsVisible = false;
        yläReuna.Restitution = 1.0;
        return yläReuna;
    }

    void AsetaNopeus(PhysicsObject maila, Vector nopeus)
    {
        if ((nopeus.X < 0) && (maila.Left < Level.Left + 40))
        {
            maila.Velocity = Vector.Zero;
            return;
        }

        if ((nopeus.X > 0) && (maila.Right > Level.Right - 40))
        {
            maila.Velocity = Vector.Zero;
            return;
        }
        maila.Velocity = nopeus;
    }

    void HävisitPelin()
    {
        ClearAll();
        Label tekstikentta = new Label("Hävisit. Sait " + pisteet + " pistettä");
        Add(tekstikentta);
        Timer.SingleShot(3, Valikko);
    }

    protected override void Update(Time time)
    {
        if (pallo != null && Math.Abs(pallo.Velocity.Y) < pallonNopeus)
        {
            pallo.Velocity = new Vector(pallo.Velocity.X, pallo.Velocity.Y * 1.1);

        }
        if (pallo != null && Math.Abs(pallo.Velocity.X) < pallonNopeus)
        {
            pallo.Velocity = new Vector(pallo.Velocity.X * 1.1, pallo.Velocity.Y);

        }
        base.Update(time);

    }


}