aqleus

3 people have created a party. Party leader has left party when the error is coming. Error Line in Party_ShareExp > expShare = EXP \ Party(partyNum).MemberCount I think this is the error code in Party_PlayerLeave; ``` Public Sub Party_PlayerLeave(ByVal Index As Long) Dim partyNum As Long, i As Long partyNum = TempPlayer(Index).inParty If partyNum > 0 Then ' find out how many members we have Party_CountMembers partyNum ' make sure there's more than 2 people If Party(partyNum).MemberCount > 2 Then ' check if leader If Party(partyNum).Leader = Index Then ' set next person down as leader For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) > 0 And Party(partyNum).Member(i) Index Then Party(partyNum).Leader = Party(partyNum).Member(i) PartyMsg partyNum, GetPlayerName(i) & " is now the party leader.", BrightBlue Exit For End If Next ' leave party PartyMsg partyNum, GetPlayerName(Index) & " partiden ayrıldı.", BrightRed ' remove from array For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) = Index Then Party(partyNum).Member(i) = 0 Exit For End If Next ' recount party Party_CountMembers partyNum ' set update to all SendPartyUpdate partyNum ' send clear to player SendPartyUpdateTo Index Else ' not the leader, just leave PartyMsg partyNum, GetPlayerName(Index) & " partiden ayrıldı.", BrightRed ' remove from array For i = 1 To MAX_PARTY_MEMBERS If Party(partyNum).Member(i) = Index Then Party(partyNum).Member(i) = 0 Exit For End If Next ' recount party Party_CountMembers partyNum ' set update to all SendPartyUpdate partyNum ' send clear to player SendPartyUpdateTo Index End If Else ' find out how many members we have Party_CountMembers partyNum ' only 2 people, disband PartyMsg partyNum, "Parti bozuldu.", BrightRed ' clear out everyone's party Party(partyNum).PTEXP = 0 Party(partyNum).PTlevel = 0 For i = 1 To MAX_PARTY_MEMBERS Index = Party(partyNum).Member(i) ' player exist? If Index > 0 Then ' remove them TempPlayer(Index).inParty = 0 ' send clear to players SendPartyUpdateTo Index End If Next ' clear out the party itself ClearParty partyNum End If End If End Sub ```

Run-Time Error '11' division by zero ? 

Update your whole system from v1.1 to v1.2 ?

@Soul: > Did you read the guide completely? (I edited some of the irrelevant parts out.) > > So make sure you [download the extra files](http://www.mediafire.com/?g1gn1bosic8aan1) and also add the appropriate files to the project. yes, I did it all but the same problem again

Ambigouous name detected : Quest in HandleSaveQuest ' Update the Quest QuestSize = LenB(**Quest**(n)) how i can fix?

Such a script can be done? Help me!

Run Time Error 9 Help Me!

how to open the task window?

what shop open ?