15 lines
216 B
VB.net
15 lines
216 B
VB.net
|
Namespace Items.Gems
|
||
|
|
|
||
|
|
<Item(641, "Rock Gem")>
|
||
|
|
Public Class RockGem
|
||
|
|
|
||
|
|
Inherits GemItem
|
||
|
|
|
||
|
|
Public Sub New()
|
||
|
|
MyBase.New(Element.Types.Rock)
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
End Class
|
||
|
|
|
||
|
|
End Namespace
|