Chess Playing Robot Controller

    Public Shared Sub Main()
        Dim GameEngine As New EngineRules(Chess)
        GameEngine.Connect(MyRobot.Arms)
        MyRobot.Setup(Board, GameEngine)
        If GameEngine.Side = White Then
            GameEngine.Connector.Move(Piece.KP, Position.KP(4))
        End If
        Do
            MyRobot.Wait(Patiently)
        Loop Until (MyRobot.IsMyMove)
        MyRobot.Speakers.Volume.Maximize()
        MyRobot.Speech.Output("Look over there!")
        MyRobot.Arms.Right.Point(Location.BehindOpponent)
        MyRobot.Legs.Kick(Board, ForceSettings.Maximum)
        MyRobot.Speech.Output("Earthquake!")
        GameEngine.Accept(Draw)
    End Sub

Ratings & Comments

The following ratings and comments have been submitted about this code:

Rating: Hilarious

LOL! Incredible strategy!

By: Taxi