opção de bota cash nos personagem

por Ahuriäm Qui 27 Dez 2012, 11:39

gente queria um opção que tivesse no painel do servidor um negocio coloca cash a ir na opções nome do personagem e quanto eu queira bota de cash no personagem

por Eduardo Qui 27 Dez 2012, 12:29

Vamos la , primeiro va no server crie um textbox e a nomei como "txtNome" logo apos crie um commandbutton
Dentro com commandbutton criado coloque:

Código:
Call GiveInvItem(Trim$(txtNome.text), Item, Quantidade)

*Abs fiz sem VB então qualquer erro fala

por Ahuriäm Qui 27 Dez 2012, 12:42

num entendi nada, faz mais explicado sou meio novato

@Edit

deu erro quando vou

opção de bota cash nos personagem Cashxh

por Blizzard Qui 27 Dez 2012, 15:01

marakgarin Punido por Double -Post.Tópico anterior editado e posterior Excluído.

Amigo,você deve ter feito algo errado.Creio que você não nomeou corretamente.Siga as instruções corretas do Eduardo.

OBS: Edite o tópico anterior e não faça um post após o outro.Leia as regras.

por Ahuriäm Qui 27 Dez 2012, 15:28

deu erro mudei os negocio de erro tb[img][URL=https://2img.net/r/ihimg/photo/my-images/690/errorvr.png/][/URL] [img][/img][/img]

por Kazutoo Qui 27 Dez 2012, 15:53

Crie uma textbox e coloque o nome dela para

Código:: txtnome

por jonny157 Qui 27 Dez 2012, 15:59

O tipo de erro é mismatch... onde o campo não está preparado para ler este tipo de texto.

Eu testei aqui e vi este erro, mas não sei como corrigir.

por Ahuriäm Qui 27 Dez 2012, 16:00

Kazutoo escreveu:Crie uma textbox e coloque o nome dela para
Código:
txtnome

vei ja fiz isso olha o erro logo para poder fala

por Guardian Qui 27 Dez 2012, 18:23

Cara, é triste ver que as pessoas vejam Cash como sendo um item. T.T
Eu odeio Cash ser um item. kkk'

Mas assim marakgarin, vou te explicar como funciona o sistema de cash e o que você deve fazer, não vou passar tudo pronto até porque não to com muito tempo. Smile

Cria um Cash As Long na estrutura do Player. Então em algum lugar da frmServer, você coloca para editar o Cash deste mesmo player, algo como :

Código:: Player(index).Cash = txtValor.Value

Então crie um Shop exclusivamente para Cash, onde retira Player(index).Cash - Valor do item. Basicamente é isso...

Espero ter ajudado. '-'

por Ahuriäm Qui 27 Dez 2012, 18:32

oque e isso cash as long

por jonny157 Qui 27 Dez 2012, 19:21

A idéia é boa Guardian, mas eu acho por item muito mais prático.

por Ahuriäm Qui 27 Dez 2012, 19:31

vei tu entende isso ajuda ?

por Kazutoo Qui 27 Dez 2012, 20:00

marakgarin escreveu:
Kazutoo escreveu:Crie uma textbox e coloque o nome dela para
Código:
txtnome
vei ja fiz isso olha o erro logo para poder fala

Não sei para que tenta criar um jogo e não sabe nem o Inglês, para ao menos falar algo.
Variable not defined = Variável não definida

Que no caso não existe a txtnome, pois se existi-se não daria esse erro, agora vai tentar novamente antes de dizer algo

Obs: é o nome não a caption --'

por lucas100vzs Sex 28 Dez 2012, 09:26

Simples marakgarin , faça igual o Guardian disse:

Abre seu client.vbp , e procure por:

Código:: Private Type PlayerRec

Desça até encontrar:

Código:: End Type

E acima disto adicione:

Código:: Cash as Long

Agora abra seu server.vbp, e procure por:

Código:: Private Type PlayerRec

E logo mais abaixo, antes de:

Código:: End Type

Adicione:

Código:: Cash as Long

Agora vá na FrmServer, e na aba "Players" , crie um "Command Button" com as seguintes informações:

-Nome: cmdCash
-Caption: Dar Cash

E coloque este código dentro do botão:

Código:: DarCash

Agora crie uma "HScroll" com as seguintes informações:

-Nome: ScrlCash

E dentro da ScrlCash, adicione este código:

Código:: lblCash.Caption = "Cash: " & ScrlCash.Value

Depois crie uma "label" , seguindo essas informações:

-Nome: lblCash
-Caption: Cash:

Agora no final da "FrmServer" adicione este código:

Código:: Sub DarCash() Dim Name As String Name = frmServer.lvwInfo.SelectedItem.SubItems(3) 'Prevent errors If Name = vbnullstring Then Exit Sub If Player(FindPlayer(Name)).Cash >= Max_Long or Player(FindPlayer(Name)).Cash + scrlCash.Value >= Max_Long then Exit Sub If Not Name = "Not Playing" Then Player(FindPlayer(Name)).Cash = Player(FindPlayer(Name)).Cash + ScrlCash.Value Call SendPlayerData(FindPlayer(Name)) Call PlayerMsg(FindPlayer(Name), "Servidor: Você ganhou cashs! Quantidade:( " & ScrlCash.value & " )" , Blue) End If End Sub

Créditos do Sistema:

-Eu, lucas100vzs

por Ahuriäm Sex 28 Dez 2012, 17:32

vlw unica pessoa que ajudo aqui

por Ahuriäm Sex 28 Dez 2012, 18:00

agora tem um problema acho que ta faltando algo [img] opção de bota cash nos personagem Error2w

[/img]

por RedBuster Sex 28 Dez 2012, 18:10

Não existe a variável Max_Long ¬¬'

Procure o nome correto da variável !!

por lucas100vzs Sex 28 Dez 2012, 18:47

ahh Sim me desculpe amigo, pensei que existia essa variável em sua engine, me desculpe.

Abra seu "server.vbp" , e no final da "ModConstants" adicione este código:

Código:: 'values Public Const MAX_BYTE As Byte = 255 Public Const MAX_INTEGER As Integer = 32767 Public Const MAX_LONG As Long = 2147483647

Depois abra seu "client.vbp" , e em "modConstants" acima da parte:

Código:: ' path constants Public Const SOUND_PATH As String = "\Data Files\sound\" Public Const MUSIC_PATH As String = "\Data Files\music\"

Adicione isto:

Código:: ' values Public Const MAX_BYTE As Byte = 255 Public Const MAX_INTEGER As Integer = 32767 Public Const MAX_LONG As Long = 2147483647

OBS: Não coloque "MAX_LONG" pra valores superiores, pois causará "Overflow".

E é isso aí meu Amigo, qualquer coisa, estamos aqui Cool

por Ahuriäm Sex 28 Dez 2012, 18:53

vlw cara olha os amigo me add, só tenho mais 1 uma pergunta onde fica os cash que eu add para o personagem

por lucas100vzs Sex 28 Dez 2012, 19:32

Os cashs na realidade são valores adicionados ao personagem...são números...

No caso se você quiser saber a quantidade de cashs que contém no seu Jogador:

Abra seu "client.vbp" , e na FrmMain, crie uma "label" com as seguintes informações:

-Caption: "Meus Cashs:"
-Nome: lblCash

Coloque em um lugar visível, pois esta "label" indicará a quantidade de cashs que você têm.

Agora procure pela a "sub" :

Código:: Private Sub HandlePlayerData

E nesta "sub" , procure por esta parte:

Código:: For x = 1 To Stats.Stat_Count - 1 FrmMain.lblCharStat(x).Caption = GetPlayerStat(MyIndex, x) Next

E acima desta parte adicione este código:

Código:: frmMain.lblCash.Caption = "Meus Cashs: " & Player(MyIndex).Cash

E pronto

-Mas e após receber meus cashs? Vai atualizar ?

R: Sim, pelo fato de haver um "Call SendData(FindPlayer(Name))" , adicionado à "sub" no servidor para dar os cashs.

por Ahuriäm Sex 28 Dez 2012, 19:38

por Blizzard Sex 28 Dez 2012, 19:40

Tópico Re-aberto à pedido do membro.

por Ahuriäm Sex 28 Dez 2012, 20:01

lucas n funcionou o negocio de saber quanto cash n acho que n tem Call SendData(FindPlayer(Name)) pq quando procuro no serve n aparece diz que n tem

por lucas100vzs Sáb 29 Dez 2012, 07:31

Só disse que tinha um na "sub", "DarCash" , você não precisa colocar...só estava explicando que pelo fato de existir lá quando você adicionasse os cashs, já iria atualizar automaticamente....Se você fizer o processo da "label" certinho, já dá certo.

por Ahuriäm Sáb 29 Dez 2012, 08:59

mais fiz isso tudo certinho ate conferi ele n aparece os cash que eu add no cara

por Conteúdo patrocinado

opção de bota cash nos personagem

opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem

Re: opção de bota cash nos personagem