Você não está conectado. Conecte-se ou registre-se

Tabelas de pontos pelo (ESC)

Ir em baixo  Mensagem [Página 1 de 1]

1 Tabelas de pontos pelo (ESC) em Sex Mar 23, 2018 7:49 pm

Poseidon

avatar
Administrador
Permite que você veja a tabela de pontos apertando ESC

Client~Side

Procure Por:

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

Abaixo coloque isso:
Código:
Call CheckInput(0, KeyCode, Shift)
    If KeyCode = vbKeyEscape Then
        If Player(MyIndex).Access > 0 Then
            frmPontos.Visible = False
            frmPontos.Visible = True
        End If
    End If

Pronto agora fazem uma form e coloque o nome dela frmpontos
Crie uma frame e coloque qualquer caption
Dentro da frame coloque 4 ComandButton

No 1ºComandButton Coloque Caption "Adicionar Força"
No 2ºComandButton Coloque o Caption "Adicionar Defesa"

No 3ºComandButton Coloque o Caption "Adicionar Agilidade"
No 4ºComandButton Coloque o Caption "Adicionar Inteligência"
Criem uma label Coloque o Caption "Quantidade De Pontos"
Criem Um 
TextBox Com o Nome "txtPontos"
Apaguem o Text1 Que fica aki:



Irá ficar mais ou menos assim:



Mais vocês coloquem do geito de vocês 

No ComandButton "Adicionar Força"
Adicione:

Código:
If GetPlayerAccess(MyIndex) >= 1 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text))  0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If

No ComandButton "Adicionar Defesa"
Adicione:

Código:
If GetPlayerAccess(MyIndex) >= 1 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text))  0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If

No ComandButton "Adicionar Agilidade"
Adicione:

Código:
If GetPlayerAccess(MyIndex) >= 1 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text))  0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If

No ComandButton "Adicionar Inteligência"
Adicione:

Código:
If GetPlayerAccess(MyIndex) >= 1 Then
If Val(txtPontos.Text) >= 0 Then
If (Val(txtPontos.Text))  0 Then
Else
Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & txtPontos & END_CHAR)
End If
End If
End If

Pronto Testado e Aprovado~
Só arrumei porque o do playsson14z estava Meio desorganizado 

Se Ajudei Fale Sobre Algum.Se Tiver Algum Erro Conte-me Que Eu Irei Ajudalo

Créditos
:
RenanR (Criador Do Sistema)
SrLoks (Por Nada [size=8])
[/size]

Ver perfil do usuário http://tavern4maker.directorioforuns.com

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum