[Love ~] Item CallerParty

[My Brave Shine]

Hi There!

This is the first tutorial I do, I hope you approve, is very simple, I know many here with a supreme capacity and would think of a better and more appropriately. But tutorial is tutorial.

### What does this do?

It is an item that can be used only if you are in Party, and the function is to call all party members no matter where they are.

###What is needed to be able to do this?

 - Visual Basic 6

 - Sourcer of you Engine =P

**Lets Work!**

**### Cliente and Server Side ###**

**01\. [Mod Constants]**

  Search for 

```
' Item constants

```
This area will be similar to this:

```
Public Const ITEM_TYPE_NONE As Byte = 0
Public Const ITEM_TYPE_WEAPON As Byte = 1
Public Const ITEM_TYPE_ARMOR As Byte = 2
Public Const ITEM_TYPE_HELMET As Byte = 3
Public Const ITEM_TYPE_LEG As Byte = 4
Public Const ITEM_TYPE_GLOVES As Byte = 5
Public Const ITEM_TYPE_BOOTS As Byte = 6
Public Const ITEM_TYPE_RING As Byte = 7
Public Const ITEM_TYPE_SHIELD As Byte = 8
Public Const ITEM_TYPE_CONSUME As Byte = 9
Public Const ITEM_TYPE_KEY As Byte = 10
Public Const ITEM_TYPE_CURRENCY As Byte = 11
Public Const ITEM_TYPE_SPELL As Byte = 12
Public Const ITEM_TYPE_LOGO_GUILD As Byte = 13
Public Const ITEM_TYPE_STAT_RESET As Byte = 14
Public Const ITEM_TYPE_AUTOHEAL As Byte = 15
Public Const ITEM_TYPE_RECIPE As Byte = 16

```
**Add this** (Remember to add this in your Sequence.)

```
Public Const ITEM_TYPE_PARTYCALL As Byte = 17

```
**### Client Side ###**

**2\. [frmEditor_Item]**

In cmbType, add the "Party Call" in the Property List;

** - Client Done =P**

**### Server Side ###**

**3\. [ModPlayer]**

Search for this Sub

```
Public Sub UseItem(ByVal Index As Long, ByVal invNum As Long)

```
Now, go to end of sub.

Before of **End Select ** - ADD this:

```
Case ITEM_TYPE_PARTYCALL

If TempPlayer(Index).inParty > 0 Then
Call SendAnimation(GetPlayerMap(Index), 1, GetPlayerX(Index), GetPlayerY(Index))
Call PartyWarp(Index, Player(Index).Map, Player(Index).x, Player(Index).y)
Else
Call PlayerMsg(Index, " You need stay in Party to use this.", Pink)
Exit Sub
End If

Call TakeInvItem(Index, Player(Index).Inv(invNum).num, 0)

' send the sound
SendPlayerSound Index, GetPlayerX(Index), GetPlayerY(Index), SoundEntity.seItem, ItemNum
Call PlayerMsg(Index, "You party have recalled!", BrightRed)

```
**4\. [ModPlayer]**

In end of this Module, ADD This:

```
Sub PartyWarp(ByVal Index As Long, ByVal mapNum As Long, ByVal x As Long, ByVal y As Long)
Dim i As Long

If TempPlayer(Index).inParty > 0 Then
For i = 1 To Party(TempPlayer(Index).inParty).MemberCount
Call PlayerWarp(Party(TempPlayer(Index).inParty).Member(i), mapNum, x, y)
Next
End If
End Sub

```
**~ Done s2**

**Now, Compile and Test. **

**Sorry for my bad English, if there is any failure to contact that help solve!**

[Mohenjo Daro]

So by "call" do you mean the item will teleport the players to the player that used the item?

[My Brave Shine]

Yes, No matter Member que use this item , it will bring the All Other party members When Call locations.

If you want you can add easily an implement that allows only the Leader , make that call .

:3

No matter Member que use this item , it will bring the All Other party members When Call locations.

No matter Member que use this item , it will bring the All Other party members When Call locations.No matter Member que use this item , it will bring the All Other party members When Call locations.

No matter Member que use this item , it will bring the All Other party members When Call locations.
No matter Member que use this item , it will bring the All Other party members When Call locations.

[PVJsquad]

cool, but it's better if you make the approval before you want to go to a friend who called you.
do not directly moved that would interfere

[Officer Johnson]

You may want to make a check to see if their in battle before you call the warps

[DarkDino]

Congrats for your first tutorial!  :D , I think this is very useful.

PS: Excuse me you speak spanish?

[Officer Johnson]

shes from Brazil so id assume she speaks Portuguese

[My Brave Shine]

;3 Thx John;

[DarkDino](http://www.eclipseorigins.com/community/index.php?/user/48122-darkdino/), if u need help, send pm haha :3

[J. Black]

Great tutorial. Would be better with a confirmation window for all party members.

__________________

Ótimo tutorial. Seria melhor com uma janela de confirmação para todos os membros do grupo.