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.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

PF Me Ajudem

4 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

Ir para baixo

PF Me Ajudem Empty PF Me Ajudem

Mensagem por novinho98 Sex 25 Mar 2011, 14:42

Galera pf tem como alguem fazer um comando de transformação pra mim? tipo to fazendo um jogo do bleach e pra transforma quero isso:
comando: /bankai
Lvl necessario: 100
Sprite necessario: 0
Sprite q vai se transforma: 4
Almenta 200 em tds atributos
Me ajudeeem pf to desesperado
novinho98
novinho98
Novato
Novato

Mensagens : 16

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por Gu1lh3rm3 Sex 25 Mar 2011, 14:56

facil...


Código:
If LCase(Trim(TextSay)) = "/bankai" Then
If GetPlayerClass (index) = 1 Then
If GetPlayerLevel(index) => 100 Then
If GetPlayerSprite(index) = 0 Then
Call SetPlayerSprite(index, 4)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerMAGI(Index) + 200)
Call SetPlayerDEF(Index, GetPlayerSPEED(Index) + 200)
Call PlayerMsg(index, "Você se tranformou", 4)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
Exit Sub
End If
End If
End If
End If

If LCase(Trim(TextSay)) = "/voltar" Then
If GetPlayerClass(Index) = 1 Then
Select Case GetPlayerSprite(index)

Case 4
Call SetPlayerSprite(index, 0)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerDEF(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerMAGI(Index) - 200)
Call SetPlayerDEF(Index, GetPlayerSPEED(Index) - 200)
Call PlayerMsg(index, "Agora você voltou ao Normall.", 4)
Call SavePlayer(index)
Call PlayerWarp(index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index), False)
End Select
Exit Sub
End If
End If

ta pronto ai, Você Presisa estar level 100, e vai aumentar os atributos em 200, e para Lembrar necessita de Classe 1!!!
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por novinho98 Sex 25 Mar 2011, 15:03

Chará quando eu digito /bankai aparece Player is not online
o q eu faço?


Última edição por novinho98 em Sex 25 Mar 2011, 15:05, editado 1 vez(es) (Motivo da edição : erro)
novinho98
novinho98
Novato
Novato

Mensagens : 16

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por -Kira Sex 25 Mar 2011, 15:39

É que você mexeu em alguma coisa no /who, pois pelo o que eu vi o código tá certo, tente digitar

/who e vê se aparece a mesma coisa
-Kira
-Kira
Membro Veterano
Membro Veterano

Mensagens : 895

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por Gu1lh3rm3 Sex 25 Mar 2011, 15:42

bom, esse codigo você adiciona ele no Principal.txt ou Main.txt ^^, em baixo do

Código:
Sub Commands(index)
On Error Resume Next
Dim Portal
Dim mapnum
Dim x
Dim y
Dim i
Dim TextSay
Dim n
Dim m
Dim C   
m = GetVar("Dados.ini", "MAX", "MAX_MAPS")
TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index) 

depois disso você adiciona o comando que te passei ^^
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por -Kira Sex 25 Mar 2011, 15:50

Se eu não tivesse sem mouse eu ajudaria, aiuheiueah, to ajudando só no que ta dando com palavras u.u
-Kira
-Kira
Membro Veterano
Membro Veterano

Mensagens : 895

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por novinho98 Dom 27 Mar 2011, 17:19

Galera agradeço a colaboração mas infelizmente nao estaa funcionado:
*eu naum mexi no /who
*colokei o camando no lugar certo
Algum de vcs poderiam fazer o comando pra mim e me mandar o main.txt inteiro(só com o bankai editado)

OBS: meu elysium é o source]
Vlw
@EDIT aee galera funfo
eu tinha eskecido de copiar uma linha vleew msm gente
novinho98
novinho98
Novato
Novato

Mensagens : 16

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por -Kira Dom 27 Mar 2011, 22:42

er... prestar a atenção e refazer é sempre bom antes de pedir ajuda ^^
-Kira
-Kira
Membro Veterano
Membro Veterano

Mensagens : 895

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por novinho98 Seg 28 Mar 2011, 11:34

ée ke a neet tava lenta ontem ai num carrego td ai fico uma linha sem mais muito obrigado do mesm geito
Pode fechar o topic
novinho98
novinho98
Novato
Novato

Mensagens : 16

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por Ian Seg 28 Mar 2011, 14:38

topico resolvido
Ian
Ian
Membro Veterano
Membro Veterano

Mensagens : 1238

Ir para o topo Ir para baixo

PF Me Ajudem Empty Re: PF Me Ajudem

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Suporte e Pedidos :: Assuntos resolvidos

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