Adress of Tibia 9.31

[m4ayhem]

Hey guys!
I need an adresse's of Tibia 9.31 like a battlelist or player exp, it looks like this ;

Player_Experience = $632EC4;
Player_ID = Player_Experience + 12;
BATTLELIST_START = $632F30;
Distance_Between_Chars = 168;
Distance_Name= 4;

have it anyone?
thanks

[blackd]

you can find that in blackd proxy config931 folder.

just download the free blackd proxy update zip if you only want to read that. You don't even need to install blackd proxy.

[maozao]

Hey Daniel, can you tell us what changed in the Tibia.Dat ?! Because the old flags isn't working.

Thanks.

[blackd]

some tiles now include his item name as new property.

that is the new property &H21

Just have a look at modTiles.bas , open it with a notepad, then search the function LoadDatFile6



Case &H21 ' item group, something, and name (tibia 9.4)
Get fn, , b1 ' item group (byte 1)
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' item group (byte 2)
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' size of text (byte 1)
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b2 ' size of text (byte 2)
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b2)
#End If

tmpSize = GetTheLong(b1, b2)
tmpName = ""
For tmpI = 1 To tmpSize
Get fn, , b1 ' size of text
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
tmpName = tmpName & Chr(b1)
Next tmpI
DatTiles(i).haveName = True
DatTiles(i).itemName = tmpName
#If TileDebug = 1 Then
tileLog = tileLog & " (" & tmpName & ")"
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If
Get fn, , b1 ' unknown meaning
#If TileDebug = 1 Then
tileLog = tileLog & " " & GoodHex(b1)
#End If