source: 2015/24/ohjaajat/Dungeon/Dungeon/Dungeon/Dungeon.cs @ 5963

using System;
using System.Linq;
using System.Collections.Generic;
using Jypeli;
using Jypeli.Assets;
using Jypeli.Controls;
using Jypeli.Effects;
using Jypeli.Widgets;
using Point = Microsoft.Xna.Framework.Point;

class Room : GameObject
{
    // Sijainti pelin ruudukossa.
    public Point Location { get; set; }

    // Päällä näkyvä "katto" kun huone ei ole vielä kaivettu.
    public GameObject Roof { get; set; }

    // Neljä seinää, jotka on GameObjekteja.
    public Dictionary<Direction, GameObject> Walls { get; set; }

    private bool dug; // Onko huone kaivettu?
    public bool Dug
    {
        get { return dug; }
        set
        {
            dug = value;
            Roof.IsVisible = !Dug;
        }
    }

    public Room(Point paikka)
        : base(Dungeon.RUUDUN_KOKO, Dungeon.RUUDUN_KOKO)
    {
        Walls = new Dictionary<Direction, GameObject>();
        Location = paikka;
    }
}

public class Dungeon : PhysicsGame
{
    public const int RUUDUN_KOKO = 64;

    Image lattiaKuva = LoadImage("floor");
    Image seinaKuva = LoadImage("wall");
    Image reikaSeinaKuva = LoadImage("wallhole");
    Image kiviKuva = LoadImage("rock");

    Room[,] huoneet;
    Point digStart; // Huoneen sijainti, josta kaivuu aloitetaan.
    bool digging = false;

    public override void Begin()
    {
        ClearAll();
        IsMouseVisible = true;

        // Luodaan huoneet ruutuihin.
        huoneet = new Room[12, 8];
        foreach (var paikka in RuutujenPaikat())
        {
            var huone = CreateRoom(paikka);
            Mouse.ListenOn(huone, MouseButton.Left, ButtonState.Pressed, () => RoomPressed(huone), null);
            Mouse.ListenOn(huone, MouseButton.Left, ButtonState.Released, () => RoomReleased(huone), null);
            huoneet[paikka.X, paikka.Y] = huone;
        }

        Keyboard.Listen(Key.Escape, ButtonState.Pressed, ConfirmExit, "Lopeta peli");
        Keyboard.Listen(Key.F1, ButtonState.Pressed, Begin, null);
    }

    void RoomPressed(Room huone)
    {
        digStart = huone.Location;
        digging = true;
    }

    void RoomReleased(Room kohdeHuone)
    {
        digging = false;
        if (CanDig()) 
        {
            // Merkataan huoneet kaivetuksi.
            var alkuHuone = huoneet[digStart.X, digStart.Y];
            kohdeHuone.Dug = alkuHuone.Dug = true;

            // Reiät seinään.
            Direction oviSuunta = (kohdeHuone.Position - alkuHuone.Position).Angle.MainDirection;
            Direction toinenOviSuunta = Direction.Inverse(oviSuunta);
            alkuHuone.Walls[oviSuunta].Image = reikaSeinaKuva;
            kohdeHuone.Walls[toinenOviSuunta].Image = reikaSeinaKuva;
        }
    }

    Room CreateRoom(Point paikka)
    {
        Room huone = new Room(paikka);
        huone.Image = lattiaKuva;
        huone.Position = new Vector(paikka.X - huoneet.GetLength(0) / 2, paikka.Y - huoneet.GetLength(1) / 2) * RUUDUN_KOKO;
        foreach (var suunta in Suunnat())
            huone.Walls[suunta] = CreateWall(huone.Position, suunta);
        Add(huone, -1);
        huone.Roof = new GameObject(RUUDUN_KOKO, RUUDUN_KOKO);
        huone.Roof.Image = kiviKuva;
        huone.Roof.Position = huone.Position;
        Add(huone.Roof, 2);
        return huone;
    }

    GameObject CreateWall(Vector paikka, Direction suunta)
    {
        GameObject wall = new GameObject(RUUDUN_KOKO, RUUDUN_KOKO);
        wall.Position = paikka;
        wall.Image = seinaKuva;
        wall.Angle = suunta.Angle;
        Add(wall, 1);
        return wall;
    }

    bool CanDig()
    {
        Room kohdeHuone = GetRoom(MuunnaJypelista(Mouse.PositionOnWorld));
        int dx = Math.Abs(kohdeHuone.Location.X - digStart.X);
        int dy = Math.Abs(kohdeHuone.Location.Y - digStart.Y);
        return dx + dy == 1;
    }

    protected override void Paint(Canvas canvas)
    {
        if (digging)
        {
            canvas.BrushColor = CanDig() ? Color.Green : Color.Red;
            canvas.DrawLine(huoneet[digStart.X, digStart.Y].Position, Mouse.PositionOnWorld);
        }
        base.Paint(canvas);
    }

    #region Extra Juttuja

    IEnumerable<Direction> Suunnat()
    {
        yield return Direction.Left;
        yield return Direction.Right;
        yield return Direction.Up;
        yield return Direction.Down;
    }

    IEnumerable<Point> RuutujenPaikat()
    {
        return from y in Enumerable.Range(0, huoneet.GetLength(1))
               from x in Enumerable.Range(0, huoneet.GetLength(0))
               select new Point(x, y);
    }

    Room GetRoom(Point paikka)
    {
        if (paikka.X >= 0 && paikka.X < huoneet.GetLength(0) && paikka.Y >= 0 && paikka.Y < huoneet.GetLength(1))
        {
            return huoneet[paikka.X, paikka.Y];
        }
        return null;
    }

    /// <summary>
    /// Muuntaa Jypeli-koordinaatin peliruudukon koordinaatiksi.
    /// </summary>
    Point MuunnaJypelista(Vector paikka)
    {
        Vector siirrettyOrigo = paikka + RUUDUN_KOKO * (0.5 * new Vector(huoneet.GetLength(0), huoneet.GetLength(1)) + new Vector(0.5, 0.5));
        Vector wtf = new Vector(siirrettyOrigo.X < 0 ? -1 : 0, siirrettyOrigo.Y < 0 ? -1 : 0);
        Vector valmis = wtf + siirrettyOrigo / RUUDUN_KOKO;
        return new Point((int)valmis.X, (int)valmis.Y);
    }

    #endregion
}