[vb.net] Objectmanager

[Bl1zz4rD]

Hallo,

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


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((cu rObj + &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

[kInGoFcHaOs]

ich versteh gerade iwie ned was ned klappt...

erläuter mal genau was du haben willst...