Permite que você veja a tabela de pontos apertando ESC
Client~Side
Procure Por:
Abaixo coloque isso:
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:
No ComandButton "Adicionar Defesa"
Adicione:
No ComandButton "Adicionar Agilidade"
Adicione:
No ComandButton "Adicionar Inteligência"
Adicione:
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]
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]