Gu1lh3rm33

_Access Level - Att. Gu1lh3rm33_ **..::description::..** •Works who want to change any access by the server. **..::requirements::..** •computer (lol???) **>>Tutorial 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