Library1.fs

namespace FSharpBot

open Robocode

type MyFSharpBot() =
    inherit Robot()

    override this.Run() =
        this.Initialize()
        this.MainLoop()

    member private this.Initialize() =
        this.TurnLeft (this.Heading - 90.)
        this.TurnGunRight 90.

    member private this.MainLoop() =
        while true do
            this.ExecuteSingleStep()

    member private this.ExecuteSingleStep() =
        this.Ahead 5000.
        this.TurnRight 90.
    
    override this.OnScannedRobot evt =
        this.Fire 1.