MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[EE]Comando

4 participantes

Ir para baixo

[EE]Comando Empty [EE]Comando

Mensagem por joadson Sex 28 Jan 2011, 09:23

tem como alguem arrumar um comando parecido com o que tem no EEB, mas pra EE.
o comando é o seguinte...
o player digita /addstr 1000(e sao adicionados 1000 pontos na força do player),mas quero que o player coloque o tanto de pontos e destribui sozinho...
o que achei não foi compativel com o EE...
se alguem puder ajudar agradeço!!
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por hbo123 Sex 28 Jan 2011, 09:43

Vai entano no main e procura la, se num tiver, posta akie q eu te mando 1.
hbo123
hbo123
Membro Sênior
Membro Sênior

Mensagens : 291

http://dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Sex 28 Jan 2011, 10:55

não tem, procurei em tudo ja...
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por hbo123 Sex 28 Jan 2011, 11:24

Pera, vou te passar akie.

abaixo de:

Código:
Sub UsingStatPoints(index, PointType)

Select Case PointType

Case 0

Ponha:

Código:
'Gives you a set max

If GetPlayerSTR(index) + 1 > 1000 Then

Call BattleMsg(index, "você aumentou sua força!", 12, 0)

Exit Sub

End If

Call SetPlayerSTR(index, GetPlayerSTR(index) + 1)

Call BattleMsg(index, "Você aumentou sua força!", 15, 0)

Case 1

'Gives you a set max

If GetPlayerDEF(index) + 1 > 1000 Then

Call BattleMsg(index, "Você aumentou sua defesa!", 12, 0)

Exit Sub

End If

Call SetPlayerDEF(index, GetPlayerDEF(index) + 1)

Call BattleMsg(index, "Voce aumentou sea defesa!", 15, 0)

Case 2

'Gives you a set max

If GetPlayerMAGI(index) + 1 > 1000 Then

Call BattleMsg(index, "Você aumentou sua magia!", 12, 0)

Exit Sub

End If

Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1)

Call BattleMsg(index, "Você aumentou sua magia!", 15, 0)

Case 3

'Gives you a set max

If GetPlayerSPEED(index) + 1 > 1000 Then

Call BattleMsg(index, "Você aumentou sua velocidade!", 12, 0)

Exit Sub

End If

Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1)

Call BattleMsg(index, "Você aumentou sua velocidade!", 15, 0)

End Select

Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1)

End Sub

e +/- isso se eu fis errado nao me xingue, e pq num entendo bem de script nao Very Happy
hbo123
hbo123
Membro Sênior
Membro Sênior

Mensagens : 291

http://dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Sex 28 Jan 2011, 16:29

isso nao é pra deixar o limite em 1000?
eu quero um que o player fale /add(str,mag,def)e distribui os pontos sozinhos, sem precisar ficar clicando...
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Sáb 29 Jan 2011, 06:08

Vai nos comandos e poim esse codigo

Código:
Case "/addstr1000"
If GetPlayerPoints(index)> 999 Then
Call SetPlayerSTR(index, GetPlayerSTR(index)+1000)
Call PlayerMsg(index, "Você distribuiu 1000 pontos em Força!", BLACK)
Call SetPlayerPoints(Index, GetPlayerPoints(Index) - 1000)
Else
Call PlayerMsg(index, "Você não tem pontos suficiente..", RED)
end if

Não testei.. mais acho q vai funfa sim [EE]Comando 256397
ops: o comandos de addstr tem q ser junto, como eu deixei lá (pelo menos eu acho kkkk)


Última edição por lincoln255 em Sáb 29 Jan 2011, 06:15, editado 1 vez(es)
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Sáb 29 Jan 2011, 06:13

agora pra vc add quantos pontos vc digitar, é so digitar
/addstr [pontos] (sem colchetes)

Código:
Case "/addstr"
Dim n
n = textsay(1)
If GetPlayerPoints(index) => n Then
Call SetPlayerSTR(index, GetPlayerSTR(index)+n)
Call PlayerMsg(index, "Você distribuiu " & n & " pontos em Força!", BLACK)
Call SetPlayerPoints(Index, GetPlayerPoints(Index) - n)
Else
Call PlayerMsg(index, "Você não tem pontos suficiente..", RED)
end if
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Sáb 29 Jan 2011, 18:03

nenhum pego não
so fica dando...
Invalid Comand!
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 16:55

*-* lol, ta fazendo certo mano?
poim na lista de comandos junto aos outro e digita o comando q ta no codigo q te pasei [EE]Comando 840263
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por andreikun Dom 30 Jan 2011, 16:58

Joadson, Você conhece Visual Basic 6 ?
Se sim, quer fazer um Botão que add 10 e 100 ?
avatar
andreikun
Membro Junior
Membro Junior

Mensagens : 56

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Dom 30 Jan 2011, 17:02

eu coloquei na lista de comandos :s

e [url=http://www.mmorpgbr.com/u1405]andreikun[/url] conheço o VB6 sim!!
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por andreikun Dom 30 Jan 2011, 17:04

Tentei fazer e não consegui ...
avatar
andreikun
Membro Junior
Membro Junior

Mensagens : 56

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 18:27

acho q é pq eskeci de poir Exit Sub no final kkk
tenta por e testa, c n der dai nem sei kk
nem testei aki =S
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Dom 30 Jan 2011, 18:56

tbm nao pego...
da a msm coisa...
Invalid Comand
Eixta...
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 19:15

pera dexa eu testa [EE]Comando 769195
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 19:28

Funcionando Perfeitamente =S
Gente tem q por no final dos comands, ceis tao botando onde?
coloca la no fundo em cima do End Select
Akele de /addstr 1000 ta com bug, e o otro arrumei uns negocio, pra poder atualizar os pontos, ta ae o codigo
Código:
Case "/addstr1000"
If GetPlayerPoints(index) > 999 Then
Call SetPlayerSTR(index, GetPlayerSTR(index)+1000)
Call PlayerMsg(index, "Você distribuiu 1000 pontos em Força!", BLUE)
Call SetPlayerPoints(Index, GetPlayerPoints(Index) - 1000)
Call SendPlayerData(Index)
        Call SendStats(Index)
        Call SendHP(Index)
        Call SendMP(Index)
        Call SendSP(Index)
        Call SendPTS(Index)
Else
Call PlayerMsg(index, "Você não tem pontos suficiente..", RED)
End If
Exit Sub
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Dom 30 Jan 2011, 19:44

fiz tudo certin...
e so da aquilo de Invalid Comand...
eu to com muita sorte :s
ja coloquei em tudo quanto é buraco e nada!
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 19:52

que eclipse é? Stable? só testei isso no stable
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por joadson Dom 30 Jan 2011, 19:54

é elysium :s
joadson
joadson
Novato
Novato

Mensagens : 40

http://www.dbzfusion.com.br

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por lincoln255 Dom 30 Jan 2011, 19:55

a ta kkkk juro a achei q era eclipse uhauhas
malz ae Smile
intao n vai da msm =S
lincoln255
lincoln255
Membro Junior
Membro Junior

Mensagens : 69

Ir para o topo Ir para baixo

[EE]Comando Empty Re: [EE]Comando

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos