Valentine90 Posted September 23, 2012 Author Share Posted September 23, 2012 **Sorry my english**The Party system contains several serious errors:1) You can accept invitation to anyone who has left the game;2) The name of the new leader of the party is wrong;3) When the party ends some members continues with a party that no longer exists;4) Other errors.**Open Server****1 -** In **modHandleData**, look for:```Sub HandleAcceptParty```**2 -** Below add:``` If Not IsConnected(TempPlayer(index).partyInvite) Or Not IsPlaying(TempPlayer(index).partyInvite) ThenTempPlayer(index).partyInvite = 0Exit SubEnd If```**3 -** In **modGameLogic**, look for:```Public Sub Party_PlayerLeave```**4 -** Replace:```PartyMsg partyNum, GetPlayerName(i) & " is now the party leader.", BrightBlue```**5 -** By:```PartyMsg partyNum, GetPlayerName(Party(partynum).Leader) & " is now the party leader.", BrightBlue```**6 -** Beneath of:``` ' remove from arrayFor i = 1 To MAX_PARTY_MEMBERSIf Party(partynum).Member(i) = index ThenParty(partynum).Member(i) = 0Exit ForEnd IfNext```**7 -** Add:``` TempPlayer(index).inParty = 0TempPlayer(index).partyInvite = 0```**8 -** Beneath of:``` For i = 1 To MAX_PARTY_MEMBERSIf Party(partyNum).Member(i) = index ThenParty(partyNum).Member(i) = 0Exit ForEnd IfNext```**9 -** Add:``` TempPlayer(index).inParty = 0TempPlayer(index).partyInvite = 0```**10 -** Look for:```Public Sub Party_InviteAccept```**11 -** Replace:```Dim partynum As Long, i As Long```**12 -** By:```Dim partynum As Long, i As Long, x As Long```**13 -** Replace:```SendPartyVitals partyNum, targetPlayer```**14 -** By:``` For x = 1 To MAX_PARTY_MEMBERSIf Party(partynum).Member(x) > 0 ThenSendPartyVitals partynum, Party(partynum).Member(x)End IfNext```**15 -** Beneath of:```PlayerMsg targetPlayer, "Party is full.", BrightRed```**16 -** Add:```TempPlayer(targetPlayer).partyInvite = 0```**17 -** Look for:```Public Sub Party_ShareExp```**18 -** Beneath of:```Dim expShare As Long, leftOver As Long, i As Long, tmpIndex As Long```**19 -** Add:```If Party(partynum).MemberCount <= 0 Then Exit Sub```**Credits:**Valentine Link to comment Share on other sites More sharing options...
JohnPony Posted September 24, 2012 Share Posted September 24, 2012 Oh nice bug fix man, i overlooked this completely when i was making some edits to the party framework in a project. Link to comment Share on other sites More sharing options...
Alerd Posted October 22, 2012 Share Posted October 22, 2012 I have 2```SendPartyVitals partyNum, targetPlayer``````' send update to all - including new player SendPartyUpdate partyNum SendPartyVitals partyNum, targetPlayer```or```' create the party Party(partyNum).MemberCount = 2 Party(partyNum).Leader = Index Party(partyNum).Member(1) = Index Party(partyNum).Member(2) = targetPlayer SendPartyUpdate partyNum SendPartyVitals partyNum, Index SendPartyVitals partyNum, targetPlayer```hich I replace? Link to comment Share on other sites More sharing options...
Valentine90 Posted October 22, 2012 Author Share Posted October 22, 2012 The First``` ' send update to all - including new player SendPartyUpdate partyNum SendPartyVitals partyNum, targetPlayer``` Link to comment Share on other sites More sharing options...
Whackeddie99 Posted October 22, 2012 Share Posted October 22, 2012 Shouldn't```If Party(partynum).MemberCount <= 0 Then Exit Sub```Be```If Party(partynum).MemberCount <= 1 Then Exit Sub```Because you can't make a party without two people, this would prevent it if for some reason only one player was in a party. Link to comment Share on other sites More sharing options...
Valentine90 Posted October 23, 2012 Author Share Posted October 23, 2012 I put this, for if the player has left the party and for some reason the server trying to divide the exp using **Party_ShareExp**, it will exit the sub. Link to comment Share on other sites More sharing options...
Alerd Posted October 23, 2012 Share Posted October 23, 2012 that is, I have to replace the 0 to 1? and more generally```If Party (partynum). MemberCount <= 0 Then Exit Sub```Be```If Party (partynum). MemberCount <= 1 Then Exit Sub```? Link to comment Share on other sites More sharing options...
Ganjika Posted November 24, 2012 Share Posted November 24, 2012 Are these bugs in _dragon eclipse_ and/or eclipse reborn? Link to comment Share on other sites More sharing options...
Wortel Angels Posted November 24, 2012 Share Posted November 24, 2012 Take a look and youll know it… Link to comment Share on other sites More sharing options...
Valentine90 Posted November 25, 2012 Author Share Posted November 25, 2012 Are bugs on the version of eclipse origins v2 officer, who has the same bugs provavalmente on derivative versions as you mentioned, since these versions are just a bunch of poorly made and bugs systems, systems upon systems. 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