My Brave Shine Posted February 19, 2015 Author Share Posted February 19, 2015 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 = 0Public Const ITEM_TYPE_WEAPON As Byte = 1Public Const ITEM_TYPE_ARMOR As Byte = 2Public Const ITEM_TYPE_HELMET As Byte = 3Public Const ITEM_TYPE_LEG As Byte = 4Public Const ITEM_TYPE_GLOVES As Byte = 5Public Const ITEM_TYPE_BOOTS As Byte = 6Public Const ITEM_TYPE_RING As Byte = 7Public Const ITEM_TYPE_SHIELD As Byte = 8Public Const ITEM_TYPE_CONSUME As Byte = 9Public Const ITEM_TYPE_KEY As Byte = 10Public Const ITEM_TYPE_CURRENCY As Byte = 11Public Const ITEM_TYPE_SPELL As Byte = 12Public Const ITEM_TYPE_LOGO_GUILD As Byte = 13Public Const ITEM_TYPE_STAT_RESET As Byte = 14Public Const ITEM_TYPE_AUTOHEAL As Byte = 15Public 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 IfEnd Sub```**~ Done s2****Now, Compile and Test. ****Sorry for my bad English, if there is any failure to contact that help solve!** Link to comment Share on other sites More sharing options...
Mohenjo Daro Posted February 19, 2015 Share Posted February 19, 2015 So by "call" do you mean the item will teleport the players to the player that used the item? Link to comment Share on other sites More sharing options...
My Brave Shine Posted February 19, 2015 Author Share Posted February 19, 2015 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 .:3No 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. Link to comment Share on other sites More sharing options...
PVJsquad Posted March 1, 2015 Share Posted March 1, 2015 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 Link to comment Share on other sites More sharing options...
Officer Johnson Posted March 2, 2015 Share Posted March 2, 2015 You may want to make a check to see if their in battle before you call the warps Link to comment Share on other sites More sharing options...
DarkDino Posted March 4, 2015 Share Posted March 4, 2015 Congrats for your first tutorial! :D , I think this is very useful.PS: Excuse me you speak spanish? Link to comment Share on other sites More sharing options...
Officer Johnson Posted March 4, 2015 Share Posted March 4, 2015 shes from Brazil so id assume she speaks Portuguese Link to comment Share on other sites More sharing options...
My Brave Shine Posted March 5, 2015 Author Share Posted March 5, 2015 ;3 Thx John;[DarkDino](http://www.eclipseorigins.com/community/index.php?/user/48122-darkdino/), if u need help, send pm haha :3 Link to comment Share on other sites More sharing options...
J. Black Posted March 5, 2015 Share Posted March 5, 2015 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now