state.vb

来自「一个.Net下用VB编写的用于游戏的人工智能引擎」· VB 代码 · 共 19 行

Public Class State
    '//this will execute when the state is entered
    Public Overridable Sub Enter(ByVal m As Miner)

    End Sub

    '//this is the state's normal update function
    Public Overridable Sub Execute(ByVal m As Miner)

    End Sub

    '//this will execute when the state is exited. (My word, isn't
    '//life full of surprises... ;o))
    Public Overridable Sub ExitState(ByVal m As Miner)

    End Sub

End Class