F3 = Mudar o Nome

Este tutorial é o seguinte:

O Player aperta F3, ai aparece uma Picturebox, com um text para o novo nome, ai você escreve seu novo nome e aperta no botão Mudar, e seu nome virárá o nome que você escreveu.

Começando

Frm~~Mirage
Procure por:

Código:

Call CheckInput(0, KeyCode, Shift)
    If KeyCode = vbKeyF1 Then
        If Player(MyIndex).Access > 0 Then
            frmadmin.Visible = False
            frmadmin.Visible = True
        End If
    End If

Abaixo adicione:

Código:

' Mudar o Nome
    If KeyCode = vbKeyF3 Then
        If Player(MyIndex).Access > 0 Then
            If picMudarNome.Visible = True Then
            picMudarNome.Visible = False
        Else
            picMudarNome.Visible = True
        End If
        End If
    End If

Agora crie uma picturebox com o nome de picMudarNome,e dentro ponha um textbox com o name de "txtNome" e dois commands button, um com caption de Cancelar e outro de Mudar.

Double-click no botão Mudar e adicione:

Código:

If txtNome.Text = vbNullString Then
    MsgBox "Safado, você não pode ter um nome em branco!!"
    Exit Sub
Else
Call SetPlayerName(MyIndex, txtNome.Text)
End If

Double-click no botão Cancelar e adicione:

Código:

picMudarNome.Visible = False

Mude o Visible da picMudarNome pra = False.

Pronto! Testado por mim e pegando!

--------------------

Caso queiram que é preciso ser VIP para usar isto, faça o sistema do pra sem vip e mude o código:

Código:

' Mudar o Nome
    If KeyCode = vbKeyF3 Then
        If Player(MyIndex).Access > 0 Then
            If picMudarNome.Visible = True Then
            picMudarNome.Visible = False
        Else
            picMudarNome.Visible = True
        End If
        End If
    End If

Para:

Código:

' Mudar o Nome
    If KeyCode = vbKeyF3 Then
        If Player(MyIndex).Access >= 1 Then
            If picMudarNome.Visible = True Then
            picMudarNome.Visible = False
        Else
            picMudarNome.Visible = True
        End If
        End If
    End If

Feito!

Créditos:
RenanR - Por fazer o sistema e postar.

Vlw gente!! se achou bom ou está usando ou que dar créditos pra mim ou pra qlker outra pessoa, me dê Créditos!