[EO] Membership System

[bunny123]

I found the problem (I think), I have i instead of index

[bunny123]

(This is based off of [this tutorial (link)](http://www.touchofdeathforums.com/community/index.php?/topic/128919-party-only-maps/))

Server Side

In modPlayer find the

```
Sub PlayerWarp
```

underneath

```
' Save old map to send erase player data to

OldMap = GetPlayerMap(index)
```

Add

```
' Check to see if its a Member Map

If Map(mapnum).Moral = MAP_MORAL_MEMBER Then

' Check to make sure the player is a member. If not exit the sub so they dont change maps

If Player(index).IsMember = 0 Then

Call PlayerMsg(index, "This is a member map. You have to be a member to enter it.", Red)

Exit Sub

End If

End If
```

EDIT: The above has been fixed. It originally would only let non-members in.

[tslusny]

So i only fixed his system to work? Or is someone else using this tut too? (btw its great system, i can make christmass events and everything with this base  )

[or3o]

I added it for a friend today and it seemed to work fine.. but i havent exactly stressed tested it yet.

[Guest]

Ok so it seems that you cant change there members whilst there not online. Meaning the player has to be online in order for the changes to stick.

[iSnow]

Does anyone have a fix for the problem where you cannot update an offline player's data?

[Stein]

You'd need to keep a second record somewhere storing ALL memberships, and parse through it and account files afterwards to apply the changes.

[Geotri]

how do i do this?

> You have to add two textbox controls on the server, name them txttime and txtday.

[Geotri]

how do i do this?

> You have to add two textbox controls on the server, name them txttime and txtday.

[Shasokais]

Guys i have error

```

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim strload As String
Dim i As Long
Dim TotalCount As Long

If frmServer.SSTab1.Tab = 3 Then
    frmServer.lstaccounts.Clear
    strload = Dir(App.path & "\data\accounts\" & "*.bin")
    i = 1
    Do While strload > vbNullString
        frmServer.lstaccounts.AddItem Mid(strload, 1, Len(strload) - 4)
        strload = Dir
        i = i + 1
    Loop

    TotalCount = (i - 1)

    With frmServer
    .TextName.Text = vbNullString
    .TextPass.Text = vbNullString
    .TextCount.Text = Format(Date, "m/d/yyyy")
    .ChkMember.Value = 0
    .lblAcctCount.Caption = "" & TotalCount
    End With
End If
End Sub
```
on .Clear and .AddItem

Metod or data member not found

Help please!

[abhi2011]

Do you have a listbox names lstAccounts on your server form?

[Shasokais]

Thx Abhi2011 now work! :)

[irvanshihap]

http://www.freemmorpgmaker.com/files/imagehost/pics/13c90ffcdbad9eb4bfd808e6813bf8c5.PNG

server not found -,-