EQ2Extreme with Exhume : EverQuest 2 Premium Discussions

Code: Select all

'Gheezer 07/08/2007
'EQ2Extreme.exe Functions and Properties

'MOB Types
'Public Enum enumMobType
'    TYPE_ALL = &H0&
'    TYPE_MOB = &H6008&
'    TYPE_RESOURCE = &HF808&
'    TYPE_NPC = &HE008&
'    TYPE_PC = &H6000&
'    TYPE_PET = &H6018&
'    TYPE_PORTAL = &HCC08&
'    TYPE_MAIL = &HC808&
'    TYPE_MERCHANT = &HE048&
'    TYPE_QUEST_ITEM = &H9808&
'    TYPE_OBJECT = &H8808&
'End Enum

'EQ2 Class
'Public Property Get Zone() As String                        'Zone name
'Public Property Get hWnd() As Long                          'HWND of EQ2 Window
'Public Property Get Player() As EQ2Mob                      'EQ2Mob Object
'Public Property Get Target() As EQ2Mob                      'EQ2Mob Object
'Public Property Get Inventory() As Collection               'Collection of EQ2Item
'Public Property Get Equipment() As Collection               'Collection of EQ2Item
'Public Property Get MerchantItems() As Collection           'Collection of EQ2MerchantItem
'Public Property Get Channels() As Collection                'Collection of EQ2Channel
'Public Property Get Recipes() As Collection                 'Collection of EQ2Recipe
'Public Function GetMobs(lType As enumMobType) As Collection 'Collection of EQ2Mob
'Public Function GetMobByID(lMobID As Long) As EQ2Mob        'EQ2Mob Object

'EQ2Mob Class
'Public Property Get Name() As String                        'Zone Name
'Public Property Get ID() As Long                            'Mob ID
'Public Property Get Health() As Long                        'Health%
'Public Property Get Power() As Long                         'Power%
'Public Property Get Race() As String                        'Race Name
'Public Property Get Level() As Long                         'Level
'Public Property Get Aggro() As Long                         'Aggro (Aggressive -5 to +5 Friendly)
'Public Property Get Con() As Long                           'Con color (grey=0 to red>=6)
'Public Property Get Skill_2() As Long                       'Difficulty
                                                             '(0..5=easy - vvv,vv,v, etc) (6=normal) (7..9+ hard - ^, ^^, ^^^, EPIC..etc)
'Public Property Get Heading() As Single                     'Heading in degrees
'Public Property Get Invis() As Boolean                      'True is invisible
'Public Property Get SeeInvis() As Boolean                   'True if Mob can see invis
'Public Property Get X() As Single                           'X
'Public Property Get Y() As Single                           'Y
'Public Property Get Z() As Single                           'Z
'Public Property Get Watched_Mob() As EQ2Mob                 'EQ2Mob object being watched
'Public Property Get Target() As EQ2Mob                      'EQ2Mob object targeted

'EQ2MerchantItem
'Public Property Get ItemName() As String                    'Item Name
'Public Property Get Price() As Long                         'Item Price in Copper

'EQ2Item
'Public Property Get ItemID() As Long                        'ItemID
'Public Property Get Quantity() As Byte                      'Quantity
'Public Property Get ItemName() As String                    'Item Name

'EQ2Channel
'Public Property Get ChannelID() As Long                     'Channel#
'Public Property Get ChannelName() As String                 'Channel Name

'EQ2Recipe
'Public Property Get Level() As Long                         'Recipe Level
'Public Property Get RecipeName() As String                  'Recipe Name
'Public Property Get CraftingStation() As String             'Crafting Station Name
'Public Property Get Description() As String                 'Description
'Public Property Get Book() As String                        'Book Name

Code: Select all

    set Mobs = EQ.GetMobs(&H6000)    'TYPE_MOB
    
    for each Mob in Mobs
        if Mob.Aggro <= 0 then
            MemoWrite Mob.Name
            count = count + 1
        end if
    next