obstacle.vb

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

'简单的障碍类
Public Class Obstacle
    Inherits BaseGameEntity
    Public Sub New(ByVal x As Double, ByVal y As Double, ByVal r As Double)
        MyBase.New(0, New Vector2D(x, y), r)
    End Sub
    Public Sub New(ByVal pos As Vector2D, ByVal radius As Double)
        MyBase.New(0, pos, radius)
    End Sub

    Public Overrides Sub Render(ByVal g As Graphics)
        g.DrawEllipse(Pens.Black, CInt(Pos.x - BRadius), CInt(Pos.y - BRadius), CInt(BRadius * 2), CInt(BRadius * 2))
    End Sub

    Public Overrides Sub Update(ByVal time_elapsed As Double)

    End Sub
End Class