Mirage Source

Public Sub HealPet(Index As Long, PetName As String)
  Dim i As Long

  For i = 1 To MAX_PETS ' Just a guess here... whatever variable you're using..
    If Player(Index).Pet(i).Name = PetName Then Exit For
  Next

  If i > MAX_PETS Then
    PlayerMsg(Index, "I could not find a pet belonging to you with that name.") ' I don't know the actual subroutine for this, nor do I know the required arguments..
    Exit Sub
  End If

  Player(Index).Pet(i).HP = Player(Index).Pet(i).HP + 10 ' Replace 10 with whatever value you want to increase a pets health.. or a variable..
  PlayerMsg(Index, "Your pet named " & Player(Index).Pet(i).Name & " has been healed for 10 points of health. (Yay you!)")
End Sub