View Single Post
  #30  
Old 11-01-2006, 03:01 PM
GeorgeS
Forum Guide
 
Join Date: Sep 2003
Location: California
Posts: 1,474
Default

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
__________________
Your source for EQ database tools
Toolshop is open for business


http://www.georgestools.chrsschb.com//

Last edited by GeorgeS; 11-01-2006 at 11:04 PM..
Reply With Quote