Computer Vision

SuperTracker – это Супер – Sample Robot от CrazyBassonist.

В его основе – робот Tracker от Mathew Nelson’а, доработанный Flemming N. Larsen.

Захватывает цель, приближается к ней, и стреляет.
(далее…)

.Net - версия нанобота DustBunny 3.0, который использует антигравитационный механизм движения.
// DustBunny 3.0
// Автор - Mike (--Miked0801)
// Это нанобот, использующий антигравитационное движение.
// Стреляет по ближайшей цели прямо по направлению обнаруженной цели.

using System;
using Robocode;
using Robocode.Util;

namespace RobocodeBotsDotNet
{
    public class DustBunny : AdvancedRobot
    {
        const double GunFactor = 50;

        static double _xForce;
        static double _yForce;
        static String _lastTarget;
        static double _lastDistance;

        public override void Run()
        {
            // это нужно, чтобы было удобнее стрелять по неподвижным целям
            IsAdjustGunForRobotTurn = true;

            // Сброс показаний дальномера
            _lastDistance = Double.PositiveInfinity;

            // Запустить бесконечную команду для радара.
            // Такой код позволяет сохранить много места (спасибо Dr. Loco!)
            TurnRadarRightRadians(Double.PositiveInfinity);
        }

        public override void OnScannedRobot(ScannedRobotEvent e)
        {
            // Вычисление абсолютного местоположения для процедур
            // прицеливания и антигравитационного движения,
            // и определение расстояний
            double absoluteBearing = e.BearingRadians + HeadingRadians;
            double distance = e.Distance;

            // Используем очень простую систему для имитации антигравитационных сил
            _xForce = _xForce * 0.9 - Math.Sin(absoluteBearing) / distance;
            _yForce = _yForce * 0.9 - Math.Cos(absoluteBearing) / distance;

            // Вычисление угла поворота
            // по приближении к стенам робота сильнее притягивает к центру
            SetTurnRightRadians(Utils.NormalRelativeAngle(
                Math.Atan2(_xForce + 1 / X - 1 / (BattleFieldWidth - X),
                _yForce + 1 / Y - 1 / (BattleFieldHeight - Y))
                - HeadingRadians));

            // Едем вперед
            SetAhead(Double.PositiveInfinity);

            // Перед резким поворотом сбрасываем скорость
            MaxVelocity = 420 / TurnRemaining;

            // Если пушка не нагрета и правильно нацелена,
            // то производим выстрел
            if (GunHeat == 0)
            {
                // Вычислить мощность выстрела в зависимости от текущего
                // количества энергии и расстояния до цели
                // после чего сбросить значение дистанции
                SetFireBullet(Energy * GunFactor / distance);

                _lastDistance = Double.PositiveInfinity;
            }

            // Захватить радаром ближайшие боты
            if (_lastDistance > distance)
            {
                _lastDistance = distance;
                _lastTarget = e.Name;
            }

            // а стрелять по самому близкому боту
            if (_lastTarget == e.Name)
            {
                // Сопровождать радаром цель
                if (GunHeat < 1)
                {
                    // Повернуть радар угол, доступный в пределах хода
                    SetTurnRadarLeft(RadarTurnRemaining);
                }

                // Прицелиться по текущему местоположению цели
                SetTurnGunRightRadians(
                    Utils.NormalRelativeAngle(absoluteBearing - GunHeadingRadians));
            }
        }
    }
}