Pet System script (No Longer Beign Worked On)

[VitinhooxD]

want help with the attack script? i think i can help!

[Patrick]

Ok pm me with the details.

[Dennys]

YOu will need TO add this Undex Function GetMapNpcNumber:
```
Function GetMapPetNumber(ByVal MapNum As Long, ByVal Index As Long) As Long
    GetMapPetNumber = MapPET(MapNum, Index).num
End Function
```
Ad then use THis COmmand:
```
Case "/sp"
Dim PetIndex
Dim Map
Dim X
Dim Y
Dim PetNum
Map = GetPlayerMap(Index)
X = GetPlayerX(Index) + 1
Y = GetPlayerY(Index) + 1
PetIndex = 1

For I = 1 to 15
If GetMapPetNumber(map, NpcIndex) <> 0 Then
    PetIndex = PetIndex + 1
    Exit For
Else
Next I

If PetIndex > 14
  Call PlayerMsg(Index, "Sorry Map Is Full.", BRIGHTGREEN)
  Exit Sub
End If

Call ScriptSpawnPet(PetIndex, Map, X, Y, TextSay(1))
Exit Sub
```

[VitinhooxD]

better we talk via msn in real time =D
mcnugget add me [email protected]

[Dennys]

We should make a 4way chat

[Patrick]

Ah ok. I see what the problem was.

[VitinhooxD]

whats is 4way chat blood?

[Dennys]

a chat between 4 people…

[VitinhooxD]

hmm sorry i'm not american =X

[Patrick]

gtg guys. I'll be back.

[VitinhooxD]

Bloodmyst when the player spwans the pet you put , some vars of the pet level strengh etc?
EDIT : SUGGEST: make a command like GetPlayerPet(index)

if it i'm sure i can do the pet attack system!

[Dennys]

Ohhh….. I forgot about that lol got to redo some COdes Then....See tahst why i wanted only 1 person to Edit/Add Stuff to teh COde at a time

[Dennys]

Or atleast for all of us to be able to Modify it at the same time, like oevr SVN….

[Ridrik]

I need to chat too l;)

[Mr. Bob Firefarter]

You guys are doing a great job! :azn:

NOTE: This IS constructive. I'm giving them motivation!

[Dennys]

RidRik how about you finish what you are doing and you send over, ill Add in the Spawning Scripts?

[VitinhooxD]

Please guys , downlaod Mirc i'm making a chat channel to us

Channel name EclipsePetSystemChat
PAss : 15975300

[Dennys]

i have Mirc

[VitinhooxD]

SO enter in the channel is better talk in real time

[Dennys]

I cant connect

[VitinhooxD]

lol
strange

try you making a channel

[Dennys]

I need teh server Ip

[Ridrik]

http://armageddonz.ucoz.com/index/0-11 - go here, my web-site's chat room. way better. no software needed.

[VitinhooxD]

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!

[Dennys]

Awsome