Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

VitinhooxD

Members
  • Posts

    1365
  • Joined

  • Last visited

    Never

Posts posted by VitinhooxD

  1. Prewien of the attack of the pet
    ```
    Sub PetAttack(Index, Damage)
    Dim rnd
    Dim str
    Dim target

      If GetPlayerPet(index) > 0 Then

    target = GetPlayerTarget(index)
    Damage = GetPetSTR(GetPlayerPet(index) , GetPlayerMap(index))  * 2
    str = GetPetSTR(GetPlayerPet(index) , GetPlayerMap(index))
    rnd = (str , 100)

    Select Case rnd

    Case Else

    If Int(Damage) > 0 Then
    If Int(GetPlayerTarget(Index)) > 0 Then
    Target = GetPlayerTarget(Index)
    Call NPCAttack(GetPlayerPet(index)) , Target, Damage)
    Else
    Target = GetPlayerTargetNPC(Index)
    Call NPCAttack(GetPlayerPet(index)) , Target, Damage)
    End If
    End If
      Else
        Exit Sub
      End If

    End Select

    End Sub

    ```then call in SUb OnAttack(index) PetAttack(index)
    NOTE you will need the two function i said!
×
×
  • Create New...