Code:
Public Shared Function GetGold() As Long
Dim c As Integer = cMem.MemoryHelpers.readPtr(Enums.ObjectManager.ObjectManager, Enums.ObjectManager.ACDContainer, 0)
Dim count As Integer = cMem.MemoryHelpers.readInt(c + &H108)
Dim current As Long = cMem.MemoryHelpers.readPtr(c + Enums.ObjectManager.ObjectStart, 0)
Dim item_count As Integer = 0
For i = 0 To count
Dim en As New Entity(current - 4, current)
If InStr(en.GenericName, "GoldCoin") Then
Dim attr As New AttributeReader(current)
Dim gcount As Single = cMem.MemoryHelpers.readInt(attr.GetAttribute(Enums.Attrib.ItemStackQuantityLo))
Console.WriteLine(en.GenericName)
Return gcount
End If
current += &H2D0
Next
End Function