como add mis de 1000 pontos

por Devil Dom 09 Jan 2011, 10:34

eae galera eu queria saber como botar /for para add mais de 1000 pontos
se poder me ajudar dou cred xD

por Lucas Roberto Dom 09 Jan 2011, 11:50

Uu no EEB ja vem mais vou por um aki

Abre seu VB Cliente source

No modGameLogic procure por:

Código:: ' Whos Online If LCase(Mid(MyText, 1, 5)) = "/quem" Then Call SendWhosOnline MyText = vbNullString Exit Sub End If

abaixo coloque:

Código:: ' xxx Distribuição de Pontos por Comando xxx ' Distribuição de Força If LCase(Mid(MyText, 1, 4)) = "/for" Then If Len(MyText) > 4 Then ChatText = Mid(MyText, 5, Len(MyText) - 4) ' Configuração For I = 1 To Len(ChatText) If Mid(ChatText, I, 1) <> " " Then Else Exit For End If Next I End If ' Enviar Servidor If Len(ChatText) - I > 0 Then Num = Mid(ChatText, I + 1, Len(ChatText) - I) If Num > 0 Then Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & Num & END_CHAR) Else Call AddText("Número Invalido", AlertColor) End If Else Call AddText("Use: /for <quantidade de pontos>", AlertColor) End If MyText = vbNullString Exit Sub End If ' Distribuição de Agilidade If LCase(Mid(MyText, 1, 4)) = "/agi" Then If Len(MyText) > 4 Then ChatText = Mid(MyText, 5, Len(MyText) - 4) ' Configuração For I = 1 To Len(ChatText) If Mid(ChatText, I, 1) <> " " Then Else Exit For End If Next I End If ' Enviar Servidor If Len(ChatText) - I > 0 Then Num = Mid(ChatText, I + 1, Len(ChatText) - I) If Num > 0 Then Call SendData("usestatpoint" & SEP_CHAR & 3 & SEP_CHAR & Num & END_CHAR) Else Call AddText("Número Invalido", AlertColor) End If Else Call AddText("Use: /agi <quantidade de pontos>", AlertColor) End If MyText = vbNullString Exit Sub End If ' Distribuição de Inteligência If LCase(Mid(MyText, 1, 4)) = "/int" Then If Len(MyText) > 4 Then ChatText = Mid(MyText, 5, Len(MyText) - 4) ' Configuração For I = 1 To Len(ChatText) If Mid(ChatText, I, 1) <> " " Then Else Exit For End If Next I End If ' Enviar Servidor If Len(ChatText) - I > 0 Then Num = Mid(ChatText, I + 1, Len(ChatText) - I) If Num > 0 Then Call SendData("usestatpoint" & SEP_CHAR & 2 & SEP_CHAR & Num & END_CHAR) Else Call AddText("Número Invalido", AlertColor) End If Else Call AddText("Use: /int <quantidade de pontos>", AlertColor) End If MyText = vbNullString Exit Sub End If ' Distribuição de Defesa If LCase(Mid(MyText, 1, 4)) = "/def" Then If Len(MyText) > 4 Then ChatText = Mid(MyText, 5, Len(MyText) - 4) ' Configuração For I = 1 To Len(ChatText) If Mid(ChatText, I, 1) <> " " Then Else Exit For End If Next I End If ' Enviar Servidor If Len(ChatText) - I > 0 Then Num = Mid(ChatText, I + 1, Len(ChatText) - I) If Num > 0 Then Call SendData("usestatpoint" & SEP_CHAR & 1 & SEP_CHAR & Num & END_CHAR) Else Call AddText("Número Invalido", AlertColor) End If Else Call AddText("Use: /def <quantidade de pontos>", AlertColor) End If MyText = vbNullString Exit Sub End If ' xxx Fim da Distribuição de Pontos por Comando xxx

Agora se vc tiver um sistema de ja nao presisa colocar Uu

por willa Qui 13 Jan 2011, 21:32

Lucas Acho que Você não entendeu Mano ^^'..

Mais Pelo que eu Entendi Elle quer Aumentar a Quantidade de Pontos Para Add.

Tipo O Maximo é 1000 (/For 1000),Certo?

Para Você Aumentar essa Quantidade Basta Seguir o Tuto:

Procure Por:

Código:: Case "usestatpoint"

Nessa Case Você Verá Uma Linha Assim:

Código:: If Val(Parse(2)) > 1000 Or Val(Parse(2)) = 0 Then Exit Sub

Agora Basta Voçê Mudar o Numero 1000, para a quantidadde Desejada!

OBS: Bom Mais se Você for Faser Assim Como Eu to Fallando, ai o Limite é 9000.

Se Ajudei De Creds ^^'

--------- Eu sei Faser Mais Pontos Para Distribuir so que é um Pouco Mais Complicadoe não é por comando, Brevemente Farei Um Tuto ai Você Ve la Na Parte dos Tutoriais.Vlw

por Devil Sáb 15 Jan 2011, 12:53

achei funfo cara muito obrigado + 1 cred XD

por Lucas Roberto Sáb 15 Jan 2011, 13:22

Assim UU Wiila vlw por me corrigir ^^
reamente não entendi pensei que ele queria o sistema de add pontos

mais vlw

por Conteúdo patrocinado

como add mis de 1000 pontos

como add mis de 1000 pontos

Re: como add mis de 1000 pontos

Re: como add mis de 1000 pontos

Re: como add mis de 1000 pontos

Re: como add mis de 1000 pontos

Re: como add mis de 1000 pontos