[EO] Access Level by Server

[Gu1lh3rm33]

_Access Level - Att. Gu1lh3rm33_

**..::description::..**
•Works who want to change any access by the server.

**..::requirements::..**
•computer (lol???)

**>>Tutorial<<**
•(Server Side)

1º: Create 4 Things!, 2 labels, a HScrollBar and a Command Button!, Place the name of one of the lblAccess labile, and the name of the ScrollBar scrlAccess leave them this way:

> label1: lblAccess, Command Button1
> scrlAccess

Look at a picture of how it goes:

2º: Click 2x on the Button and add this code in it!
```
SetAccess

```
Now Click on scrlAccess 2x and add this inside:
```
lblAccess.Caption = scrlAccess.Value

```And change the scrlAcces for Max 5

3º: search for

```
Sub mnuRemoveAdmin_click()
    Dim Name As String
    Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

    If Not Name = "Not Playing" Then
        Call SetPlayerAccess(FindPlayer(Name), 0)
        Call SendPlayerData(FindPlayer(Name))
        Call PlayerMsg(FindPlayer(Name), "You have had your administrator access revoked.", BrightRed)
    End If

End Sub

```
add below
```
Sub SetAccess()
Dim Name As String
Name = frmServer.lvwInfo.SelectedItem.SubItems(3)

If Not Name = "Not Playing" Then
Player(FindPlayer(Name)).Access = frmServer.scrlAccess.Value
Call SendPlayerData(FindPlayer(Name))
Call PlayerMsg(FindPlayer(Name), "You have been granted administrator access:" & frmServer.scrlAccess.Value, Cyan)
End If

End Sub

```
**>>End Tutorial<<**

sorry for the mistakes of english, is because i am Portuguese

**..::credits::..**
•Gu1lh3rm33

[SpiceyWolf]

Great tutorial :P thanks pal (yay u have first reply XD)

[RyokuHasu]

O.o why did you Center the code? Please nest the code properly, it looks horrible. No programmers ever center their code.

Other than that, Nice tutorial. =D

[SpiceyWolf]

lol when i put it in the server it came out lookin great XD