050601六一儿童节快乐^_^circlists liner demo 0.0b

Public Class baseClass base
    Public belongs_player As Byte
    Public number As Byte
    Public level As Boolean
    Public hp As Int16
    Public x As Int16
    Public y As Int16
    Public money As Int32
    Private Sub produce()Sub produce(ByVal soldier As Byte)

    End Sub
    Private Sub addmoney()Sub addmoney()
        money += 100
    End Sub
End Class

Public Class monocirclistClass monocirclist
    Public hp As Int16
    Public x As Int16
    Public y As Int16
    Public liner1 As Int16
    Private Sub connectmono()Sub connectmono(ByVal another As monocirclist)

    End Sub
    Private Sub connectbi()Sub connectbi(ByVal another As bicirclist)

    End Sub
    Public last_action As action
    Public current_action As action
End Class