Updated Tool - EqItems Item Editor

[GeorgeS]

ChaosSlayer - I'll add those to the to do list.

I started the profile editor and have it read only so far.
I will release it as read only until the bugs are figured out (Don't want to destroy toon's profiles).

What I still have not figured out is the :
'/*5508*/ SpellBuff_Struct buffs[BUFF_COUNT]; // Buffs currently on the player
'/*4796*/ uint32 skills[MAX_PP_SKILL]; --update -- Completed!
'/*2552*/ uint8 languages[MAX_PP_LANGUAGE];
'/*2584*/ int32 spell_book[MAX_PP_SPELLBOOK]; --update -- Completed!
'/*4632*/ int32 mem_spells[MAX_PP_MEMSPELL]; --update -- Completed!
'/*0432*/ AA_Array aa_array[MAX_PP_AA_ARRAY];


All other's are in.

Now, does any programer here know how to calculate a float from 4 bytes?


For uint32, I do

conversion 4 bytes => 4byte int
0A 0B 0C 0D
0D*16777216  + 0C*65536 + 0B*256 + 0A*1
I used little endian byte order

GeorgeS

[GeorgeS]

So I'm still working on the 4 byte Hex to float. I am trying to figure out if the format used is little endian byte order - AABBCCDD = DDCCBBAA .
Since the location of the toon is stored as a float, I need to convert the 4x8 bits (32 bits) to float..., but the byte order is important

edit
some progress. Looks like little endian format - low byte to hi byte order AABBCCDD = DDCCBBAA
Thus a 4 hex byte of '00 00 C7 41' decodes to '24.875' if my code is good.

'/*4700*/    float               y;                  // Player y position
'/*4704*/    float               x;                  // Player x position
'/*4708*/    float               z;                  // Player z position
'/*4712*/    float               heading;            // Direction player is facing

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Public Function Hex2Float(ByVal tmpHex As String) As Single
Dim TmpSng As Single
Dim tmpLng As Long
tmpLng = CLng("&H" & tmpHex)
Call CopyMemory(ByVal VarPtr(TmpSng), ByVal VarPtr(tmpLng), 4)
Hex2Float = TmpSng
End Function

..and my float to hex (32bits) converter

Public Function Float2Hex(ByVal TmpFloat As Single) As String
Dim TmpBytes(0 To 3) As Byte
Dim TmpSng As Single
Dim tmpStr As String
Dim X As Long
TmpSng = TmpFloat
Call CopyMemory(ByVal VarPtr(TmpBytes(0)), ByVal VarPtr(TmpSng), 4)
For X = 3 To 0 Step -1
If Len(HEX(TmpBytes(X))) = 1 Then
tmpStr = tmpStr & "0" & HEX(TmpBytes(X))
Else: tmpStr = tmpStr & HEX(TmpBytes(X))
End If
Next X
Float2Hex = tmpStr
End Function

GeorgeS

[Shendare]

I've never messed with encoding/decoding floats, but you piqued my curiosity. Maybe this article will be helpful, GeorgeS?

http://en.wikipedia.org/wiki/Single_precision

[GeorgeS]

So far, here's the progress, almost done...




GeorgeS

[GeorgeS]

Progress has been good, and the save profile has been coded and appears to work ok.
I have a few things to finish off before release.

edit - I just released the final version. I tested it as best I could and it works well. Just make a copy of yor toons first (with my copy toon button) and play around with the profile.
I also added a wipe all spells from spellbook button as reuested.

I have not figured out AA's yet, but that is next.

Everquest Item Editor and Character Inventory Editor
- 14.4.2 - Enabled editing of toon profile structs - click and look in load character - there click on profile editor. Back up your toons!



GeorgeS