Hallo,

also hier hab ich meinen Objectmanager für ein Spiel, nur das Problem ist das ich bislang nur ein bestimmtes Object anzeigen kann.

Code:
  Dim playerbase = wow.ReadUInt(wow.ReadUInt(wow.ReadUInt(oPlayerBase) + oPlayerBaseOffset1) + oPlayerBaseOffset2)
        Dim s_curMgr = wow.ReadUInt(wow.ReadUInt(&HC79CE0) + &H2ED0)
        Dim curObj = wow.ReadUInt(s_curMgr + &HAC)
        Dim nextObj = 0

        While curObj <> 0 AndAlso (curObj And 1) = 0
            Dim type As UInt64 = wow.ReadUInt(curObj + &H14)
            Dim Name = wow.ReadASCIIString(wow.ReadUInt((wow.ReadUInt((curObj + &H1A4)) + &H90)), 255)
            Dim myX = wow.ReadFloat(playerbase + &H798)
            Dim myY = wow.ReadFloat(playerbase + &H79C)
            Dim myZ = wow.ReadFloat(playerbase + &H7A0)

            If type = 5 Then
                If Name.IndexOf("Gras") > 0 Then
                    Dim oX = wow.ReadFloat(curObj + &HE8)
                    Dim oY = wow.ReadFloat(curObj + &HEC)
                    Dim oZ = wow.ReadFloat(curObj + &HF0)
                    Dim GUID = wow.readuint64(curObj + &H30)
                    RichTextBox1.AppendText("Object Name: " & Name & vbNewLine)
                    RichTextBox1.AppendText("Item Location: " & oX & " " & oY & " " & oZ & " " & vbNewLine)
                    RichTextBox1.AppendText("Your Location: " & myX & " " & myY & " " & myZ & vbNewLine)
                    RichTextBox1.AppendText("GUID: X" & GUID & vbNewLine)
                End If
            End If
            nextObj = wow.ReadUInt(curObj + &H3C)

            If nextObj = curObj Then
                Exit While
            Else

                curObj = nextObj
            End If

        End While
Der wichtigste Teil ist eig.
" If Name.IndexOf("Gras") > 0 Then"
so ich will halt z.B "Gras", "eule" etc. in einer If abfrage.
Mit einer Araylist hat es nicht funktioniert.
Früher hat ich das mal irgendwie gelöst nun komm ich seit par Tagen nicht drauf wie -.-

mfg, Bl1zz4rD