source: 2011/31/TeemuT/Diamond TD/Diamond TD/Diamond TD/Peli.cs @ 2529

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

public class Peli : PhysicsGame
{
    List<Vector> polku = new List<Vector>();
    Vector[] reitti;

    GameObject start;
    PhysicsObject maali;

    bool asetetaanTykkia = false;

    public override void Begin()
    {
        TeeKentta();
        TeeKayttoliittyma();
        LuoPolku();
        Timer ajastin = new Timer();
        ajastin.Interval = 0.2;
        ajastin.Timeout += LuoViholline;
        ajastin.Start(10);
        Mouse.IsCursorVisible = true;
    }

    void TeeKentta()
    {
        Level.BackgroundColor = Color.ForestGreen;
        TileMap ruudut = TileMap.FromLevelAsset("kentta");
        ruudut.SetTileMethod('=', LuoPalikka);
        ruudut.SetTileMethod('o', LuoPalikka);
        ruudut.SetTileMethod('a', LuoWaypoint);
        ruudut.SetTileMethod('s', LuoStartti);
        ruudut.SetTileMethod('l', LuoMaali);
        ruudut.Execute(20, 20);
        Level.CreateBorders(1.0, true);
    }

    void TeeKayttoliittyma()
    {
        Widget tykki = new Widget(50, 50);
        tykki.Top = Level.Top;        
        Add(tykki);
        Mouse.ListenOn(tykki, MouseButton.Left, ButtonState.Pressed, TykkinappiPainettu, null, tykki);
    }

    void TykkinappiPainettu(Widget w)
    {        
        w.Color = Color.Black;
        // Voit muuttaa kuvaa
        asetetaanTykkia = true;
        Mouse.Listen(MouseButton.Left, ButtonState.Pressed, AsetaTykki, null, w);
    }

    void AsetaTykki(Widget w)
    {
        if (asetetaanTykkia)
        {
            GameObject tykki = new GameObject(20, 20);
            Add(tykki);
            tykki.Position = new Vector(Mouse.PositionOnWorld.X, Mouse.PositionOnWorld.Y);
            asetetaanTykkia = false;
            w.Color = Color.White;
        }
    }

    void LuoPolku()
    {
        reitti = ParsiReitti(start, polku);
    }

    void LuoWaypoint(Vector paikka, double leveys, double korkeus)
    {
        polku.Add(paikka);
    }

    void LuoStartti(Vector paikka, double leveys, double korkeus)
    {
        start = new GameObject(1, 1);
        start.Position = paikka;
    }

    void LuoMaali(Vector paikka, double lev, double korkeus)
    {
        maali = PhysicsObject.CreateStaticObject(20, 20);
        polku.Add(paikka);
        maali.Position = paikka;
        Add(maali);
        AddCollisionHandler(maali, KasitteleMaalinTormaus);
        maali.IsVisible = false;

    }

    void KasitteleMaalinTormaus(PhysicsObject maali, PhysicsObject vih)
    {
        vih.Destroy();
    }

    void LuoViholline()
    {
        PhysicsObject vih = new PhysicsObject(20, 20);
        vih.Position = start.Position;

        PathFollowerBrain testiaivot = new PathFollowerBrain();
        testiaivot.Path = reitti;
        testiaivot.Speed = 200;
        testiaivot.Loop = false;

        vih.Brain = testiaivot;
        Add(vih);
        vih.Color = Color.Red;
        vih.Shape = Shape.Circle;
    }

    void LuoPalikka(Vector paikka, double leveys, double korkeus)
    {
        PhysicsObject palikka = PhysicsObject.CreateStaticObject(leveys, korkeus);
        palikka.Position = paikka;
        palikka.Shape = Shape.Rectangle;
        palikka.Color = Color.Gray;
        Add(palikka);

    }

    Vector[] ParsiReitti(GameObject npc, List<Vector> waypoints)
    {
        int n = waypoints.Count;
        Vector[] reitti = new Vector[n];
        Vector v = npc.Position;

        for (int i = 0; i < n; i++)
        {
            v = FindNearest(waypoints, v);
            waypoints.Remove(v);
            reitti[i] = v;
        }

        return reitti;
    }

    Vector FindNearest(IEnumerable<Vector> list, Vector vector)
    {
        Vector nearest = Vector.Zero;
        double minDistance = double.PositiveInfinity;

        foreach (Vector candidate in list)
        {
            double d = Vector.Distance(vector, candidate);

            if (d < minDistance)
            {
                nearest = candidate;
                minDistance = d;
            }
        }

        return nearest;






    }
}