EQ2Extreme with Exhume : EverQuest 2 Premium Discussions

Code: Select all

Sub DumpMobs
    dim Mobs
    dim count
    count = 0
    memo.SetCaption ""
    set Mobs = EQ.GetMobs(&H6000)    'TYPE_MOB
    
    for each Mob in Mobs
        if Mob.Aggro <= 4 then
            MemoWrite Mob.Name
            count = count + 1
        end if
    next
end sub

Code: Select all

EQ2Mob properties 

Public Property Get IsAttacking() As Boolean 
Public Property Get IsCorpse() As Boolean 
Public Property Get IsGrouped() As Boolean 


EQ.PlayerStats properties 

Public Property Get Health() As Long 
Public Property Get Health_Max() As Long 
Public Property Get Power() As Long 
Public Property Get Power_Max() As Long 
Public Property Get Attack() As Integer 
Public Property Get Attack_Base() As Integer 
Public Property Get Mitigation() As Integer 
Public Property Get Mitigation_Percent() As Single '00.0% 
Public Property Get Strength() As Integer 
Public Property Get Stamina() As Integer 
Public Property Get Agility() As Integer 
Public Property Get Wisdom() As Integer 
Public Property Get Intelligence() As Integer 
Public Property Get Strength_Base() As Integer 
Public Property Get Stamina_Base() As Integer 
Public Property Get Agility_Base() As Integer 
Public Property Get Wisdom_Base() As Integer 
Public Property Get Intelligence_Base() As Integer 
Public Property Get Heat() As Integer 
Public Property Get Cold() As Integer 
Public Property Get Magic() As Integer 
Public Property Get Mental() As Integer 
Public Property Get Divine() As Integer 
Public Property Get Disease() As Integer 
Public Property Get Adventure_Exp() As Single '00.0% 
Public Property Get Tradeskill_Exp() As Single '00.0% 
Public Property Get Adventure_Vitality() As Single '00.0% 
Public Property Get Achievement_Points_Left() As Integer 
Public Property Get Achievement_Exp() As Single '00% 
Public Property Get Achievement_Items() As Long 
Public Property Get Achievement_Kills() As Long 
Public Property Get Achievement_Quests() As Long 
Public Property Get Achievement_Explorations() As Long 
Public Property Get Achievement_Collections() As Long 

Code: Select all

set oPlayer = EQ.Player
set oMaster = oPlayer.Target

Code: Select all

If oMaster.IsAttacking then 

Code: Select all

If EQ.Target.IsAttacking Then

Code: Select all

Public Function GetMobByName(sName)
    Dim oMob

    Set GetMobByName = Nothing

    For Each oMob In EQ.GetMobs(EQ2.TYPE_ALL)
        If oMob.Name = sName Then
            Set GetMobByName = oMob
            Exit For
        End If
    Next
End Function

Code: Select all

set EQ2_SvcObj = XUScriptPlugin.GetService("EQ2Service.Service")
if Err.number = 0 then
    XUScriptPlugin.staStatus.Text = "EQ2Service failed to load"
end if