using System;
using System.Collections.Generic;
using System.Drawing;
using System.Windows.Forms;

namespace Kigyo
{
    public partial class Form1 : Form
    {
        private const int Cella = 20;
        private const int Meret = 20;   // a pálya 20 x 20 cella

        private readonly List<Point> kigyo = new List<Point>();
        private Point irany = new Point(1, 0);
        private Point kovetkezoIrany = new Point(1, 0);
        private Point etel;
        private readonly Random veletlen = new Random();
        private Bitmap kep;

        private int pont = 0;
        private int rekord = 0;
        private bool fut = false;
        private bool szunet = false;
        private bool vege = false;
        private bool frissites = false;

        public Form1()
        {
            InitializeComponent();
        }

        // ---- életciklus ----

        private void Form1_Load(object sender, EventArgs e)
        {
            kep = new Bitmap(Meret * Cella, Meret * Cella);
            pbPalya.Image = kep;

            rekord = Properties.Settings.Default.Rekord;

            KigyoAlap();
            EtelHelyez();
            Rajz();
            Frissit();
        }

        private void Form1_Deactivate(object sender, EventArgs e)
        {
            if (fut && !szunet && !vege)
            {
                SzunetValt();
            }
        }

        private void Form1_FormClosing(object sender, FormClosingEventArgs e)
        {
            if (!fut || vege || e.CloseReason != CloseReason.UserClosing)
            {
                return;
            }

            if (!szunet)
            {
                SzunetValt();
            }

            if (MessageBox.Show("A játék még tart. Biztosan kilépsz?", "Kilépés", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No)
            {
                e.Cancel = true;
            }
        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)
        {
            RekordMent();
            tmrJatek.Stop();
            kep.Dispose();
        }

        // ---- játékmenet ----

        private int Szint
        {
            get { return (int)nudSebesseg.Value; }
        }

        private int Intervallum()
        {
            return 240 - Szint * 25;
        }

        private void KigyoAlap()
        {
            kigyo.Clear();
            kigyo.Add(new Point(10, 10));
            kigyo.Add(new Point(9, 10));
            kigyo.Add(new Point(8, 10));
            irany = new Point(1, 0);
            kovetkezoIrany = new Point(1, 0);
        }

        private void UjJatek()
        {
            KigyoAlap();
            pont = 0;
            vege = false;
            szunet = false;
            fut = true;

            EtelHelyez();
            tmrJatek.Interval = Intervallum();
            tmrJatek.Start();

            Rajz();
            Frissit();
        }

        private void EtelHelyez()
        {
            if (kigyo.Count >= Meret * Meret)
            {
                Vege();   // a pálya megtelt: a játékos nyert
                return;
            }

            Point p;

            do
            {
                p = new Point(veletlen.Next(Meret), veletlen.Next(Meret));
            }
            while (kigyo.Contains(p));

            etel = p;
        }

        private void tmrJatek_Tick(object sender, EventArgs e)
        {
            irany = kovetkezoIrany;

            Point fej = kigyo[0];
            Point uj = new Point(fej.X + irany.X, fej.Y + irany.Y);

            if (chkAtlep.Checked)
            {
                uj = new Point((uj.X + Meret) % Meret, (uj.Y + Meret) % Meret);
            }
            else if (uj.X < 0 || uj.Y < 0 || uj.X >= Meret || uj.Y >= Meret)
            {
                Vege();
                return;
            }

            bool eszik = uj == etel;

            // evéskor a farok nem mozdul, ezért az is ütközik; egyébként a farok éppen elhagyja a helyét
            int vizsgalat = eszik ? kigyo.Count : kigyo.Count - 1;

            for (int i = 0; i < vizsgalat; i++)
            {
                if (kigyo[i] == uj)
                {
                    Vege();
                    return;
                }
            }

            kigyo.Insert(0, uj);

            if (eszik)
            {
                pont = pont + Szint;

                if (pont > rekord)
                {
                    rekord = pont;
                }

                EtelHelyez();
            }
            else
            {
                kigyo.RemoveAt(kigyo.Count - 1);
            }

            Rajz();
            Frissit();
        }

        private void Vege()
        {
            tmrJatek.Stop();
            fut = false;
            vege = true;
            RekordMent();
            Rajz();
            Frissit();
        }

        private void SzunetValt()
        {
            if (!fut || vege)
            {
                return;
            }

            szunet = !szunet;

            if (szunet)
            {
                tmrJatek.Stop();
            }
            else
            {
                tmrJatek.Start();
            }

            Rajz();
            Frissit();
        }

        private void IranyValt(int dx, int dy)
        {
            // a visszafordulás ellenőrzése az éppen érvényes irányhoz képest
            if (irany.X + dx == 0 && irany.Y + dy == 0)
            {
                return;
            }

            kovetkezoIrany = new Point(dx, dy);
        }

        private void RekordMent()
        {
            Properties.Settings.Default.Rekord = rekord;
            Properties.Settings.Default.Save();
        }

        // ---- vezérlés ----

        protected override bool ProcessCmdKey(ref Message msg, Keys keyData)
        {
            if (keyData == Keys.Enter)
            {
                UjJatek();
                return true;
            }

            if (keyData == Keys.Space)
            {
                SzunetValt();
                return true;
            }

            if (fut && !szunet && !vege)
            {
                switch (keyData)
                {
                    case Keys.Up:
                    case Keys.W:
                        IranyValt(0, -1);
                        return true;

                    case Keys.Down:
                    case Keys.S:
                        IranyValt(0, 1);
                        return true;

                    case Keys.Left:
                    case Keys.A:
                        IranyValt(-1, 0);
                        return true;

                    case Keys.Right:
                    case Keys.D:
                        IranyValt(1, 0);
                        return true;
                }
            }

            return base.ProcessCmdKey(ref msg, keyData);
        }

        private void pbPalya_MouseClick(object sender, MouseEventArgs e)
        {
            if (e.Button != MouseButtons.Left)
            {
                return;
            }

            if (!fut || vege)
            {
                UjJatek();
            }
            else
            {
                SzunetValt();
            }
        }

        // ---- sebesség és nehézség ----

        private void nudSebesseg_ValueChanged(object sender, EventArgs e)
        {
            if (frissites)
            {
                return;
            }

            if (tmrJatek.Enabled)
            {
                tmrJatek.Interval = Intervallum();   // futás közben is érvényesül
            }
        }

        private void Nehezseg_CheckedChanged(object sender, EventArgs e)
        {
            RadioButton rb = (RadioButton)sender;
            int kezdo;

            if (!rb.Checked || rb.Tag == null || !int.TryParse(rb.Tag.ToString(), out kezdo))
            {
                return;
            }

            frissites = true;

            try
            {
                nudSebesseg.Value = kezdo;
            }
            finally
            {
                frissites = false;
            }

            if (tmrJatek.Enabled)
            {
                tmrJatek.Interval = Intervallum();
            }
        }

        // ---- megjelenítés ----

        private void Frissit()
        {
            lblPont.Text = "Pont: " + pont;
            lblRekord.Text = "Rekord: " + rekord;

            if (vege)
            {
                lblAllapot.Text = "Vége";
            }
            else if (szunet)
            {
                lblAllapot.Text = "Szünet";
            }
            else if (fut)
            {
                lblAllapot.Text = "Fut";
            }
            else
            {
                lblAllapot.Text = "Nyomj Entert!";
            }
        }

        private void Felirat(Graphics g, string szoveg)
        {
            using (Font betu = new Font("Segoe UI", 20, FontStyle.Bold))
            using (SolidBrush ecset = new SolidBrush(Color.White))
            {
                SizeF meret = g.MeasureString(szoveg, betu);
                g.DrawString(szoveg, betu, ecset, (kep.Width - meret.Width) / 2, (kep.Height - meret.Height) / 2);
            }
        }

        private void Rajz()
        {
            using (Graphics g = Graphics.FromImage(kep))
            {
                g.Clear(Color.FromArgb(24, 24, 32));

                using (SolidBrush etelEcset = new SolidBrush(Color.OrangeRed))
                {
                    g.FillEllipse(etelEcset, etel.X * Cella + 2, etel.Y * Cella + 2, Cella - 4, Cella - 4);
                }

                for (int i = kigyo.Count - 1; i >= 0; i--)
                {
                    Color szin = i == 0 ? Color.LimeGreen : Color.SeaGreen;

                    using (SolidBrush ecset = new SolidBrush(szin))
                    {
                        g.FillRectangle(ecset, kigyo[i].X * Cella + 1, kigyo[i].Y * Cella + 1, Cella - 2, Cella - 2);
                    }
                }

                if (vege)
                {
                    Felirat(g, "Játék vége");
                }
                else if (szunet)
                {
                    Felirat(g, "Szünet");
                }
                else if (!fut)
                {
                    Felirat(g, "Nyomj Entert!");
                }
            }

            pbPalya.Invalidate();
        }
    }
}