PF Me Ajudem

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

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!!!

por novinho98 Sex 25 Mar 2011, 15:03

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

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

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 ^^

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

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

por -Kira Dom 27 Mar 2011, 22:42

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

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

por Ian Seg 28 Mar 2011, 14:38

topico resolvido

por Conteúdo patrocinado

PF Me Ajudem

PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem

Re: PF Me Ajudem