willunited Posted August 10, 2012 Author Share Posted August 10, 2012 In alatar quest system,quests is party doesnt work.Example,in a party i need to kill a boss,my friend too,lets party,we kill,but i kill,im done,my friend no =\Someone can help? Link to comment Share on other sites More sharing options...
Dawntide Posted August 10, 2012 Share Posted August 10, 2012 i am interested too! Link to comment Share on other sites More sharing options...
Vus Posted August 10, 2012 Share Posted August 10, 2012 @Dawntide:> i am interested too!Yea, me too. This would be nice if it would work. Link to comment Share on other sites More sharing options...
willunited Posted August 10, 2012 Author Share Posted August 10, 2012 It will make partys usefull,we need contact Alatar… Link to comment Share on other sites More sharing options...
Ariel Posted August 11, 2012 Share Posted August 11, 2012 I think its easy to edit, just need to make a check if party both get the kill.ill look into it and release if works. :) Link to comment Share on other sites More sharing options...
willunited Posted August 12, 2012 Author Share Posted August 12, 2012 Ill wait… Link to comment Share on other sites More sharing options...
Joyce Posted August 12, 2012 Share Posted August 12, 2012 Look at how exp is distrubuted through the party, and apply this to the quest system to tag off a certain quest objective as complete(Given that they have the quest, that is). Link to comment Share on other sites More sharing options...
willunited Posted August 12, 2012 Author Share Posted August 12, 2012 > Public Sub Party_ShareExp(ByVal partyNum As Long, ByVal EXP As Long, ByVal Index As Long)> Dim expShare As Long, leftOver As Long, i As Long, tmpIndex As Long> > ' check if it's worth sharing> If Not EXP >= Party(partyNum).MemberCount Then> ' no party - keep exp for self> GivePlayerEXP Index, EXP> Exit Sub> End If> > ' find out the equal share> expShare = EXP \ Party(partyNum).MemberCount> leftOver = EXP Mod Party(partyNum).MemberCount> > ' loop through and give everyone exp> For i = 1 To MAX_PARTY_MEMBERS> tmpIndex = Party(partyNum).Member(i)> ' existing member?Kn> If tmpIndex > 0 Then> ' playing?> If IsConnected(tmpIndex) And IsPlaying(tmpIndex) Then> ' give them their share> GivePlayerEXP tmpIndex, expShare> End If> End If> Next> > ' give the remainder to a random member> tmpIndex = Party(partyNum).Member(RAND(1, Party(partyNum).MemberCount))> ' give the exp> GivePlayerEXP tmpIndex, leftOver> End SubIs this,but idk what i do,im new,srry. Link to comment Share on other sites More sharing options...
Joyce Posted August 14, 2012 Share Posted August 14, 2012 Neither do I, I don't use Alatar's system. ;] Just look through his code and see how he handles finishing quests and checking if a player has the right one(s). :] The best way to learn is to try and do it yourself really. Link to comment Share on other sites More sharing options...
willunited Posted August 20, 2012 Author Share Posted August 20, 2012 Idk how to do it…ill learn about programation Link to comment Share on other sites More sharing options...
Ecto Posted August 20, 2012 Share Posted August 20, 2012 > Is this,but idk what i do,im new,srry.Just take that sub and call it whenever you kill an NPC. Link to comment Share on other sites More sharing options...
willunited Posted August 31, 2012 Author Share Posted August 31, 2012 Bump 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