The parser is pretty complicated as it has to handle bags and items within them. I spent a good part of a week figuring the links out. Magelo also is close to the eqemu db format for bags and bank inventory, but the bag contents 'slot id's' are not the same as eqemu. That was a hard one to figure out.
Actually, I loaded in some pretty cool characters I found on magelo, and made a pretty naked necro very uber.
Just FYI, the function I wrote that parses out magelo id's is
Function find_itemnumber(i As Integer, itemnum As Long)
iitem$ = "items[" & i & "] = new Item("
srch_len = Len(iitem$)
srch_end$ = ",'"
first_find = InStr(1, magelo.Text, iitem$, vbTextCompare)
If (first_find) Then
last_find = InStr(first_find, magelo.Text, srch_end$, vbTextCompare)
itemnum = Mid(magelo.Text, first_find + srch_len, last_find - (first_find + srch_len))
Else
itemnum = 0
End If
GeorgeS
Last edited by GeorgeS; 11-01-2006 at 11:04 PM..
|