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.

Como faso sistema de transformação por iten atraves do VB

3 participantes

Ir para baixo

Como faso sistema de transformação por iten atraves do VB Empty Como faso sistema de transformação por iten atraves do VB

Mensagem por valceir.A Ter 25 Set 2012, 22:38

Quem puder disponibilizar o sistema atraves do Vb ajudará muito +1cred pela disponibilização!
valceir.A
valceir.A
Membro
Membro

Mensagens : 107

Ir para o topo Ir para baixo

Como faso sistema de transformação por iten atraves do VB Empty Re: Como faso sistema de transformação por iten atraves do VB

Mensagem por Gu1lh3rm3 Qua 26 Set 2012, 00:31

acho que aqui na MmorpgBR tem um sistema de Scripted Item, faça ele, depois basta ir no seu principal la, e editar a case do scripted item, e selecione ele e use!! Very Happy
Gu1lh3rm3
Gu1lh3rm3
Membro de Honra
Membro de Honra

Mensagens : 1232

http://www.extremedbz.eu5.org

Ir para o topo Ir para baixo

Como faso sistema de transformação por iten atraves do VB Empty Re: Como faso sistema de transformação por iten atraves do VB

Mensagem por RenanR Qua 26 Set 2012, 11:59

Primeiro siga este tutorial:
http://www.mmorpgbr.com/t2408-allsistema-de-scripted-item

No final do tuto quando você põe isto no Principal/Main.txt:
Código:
Sub ScriptedItem(index, Script)
Select Case Script
Case 0
End Select
End Sub

E na case 0 coloque o codigo de transformação, tirando a parte de escrever /ssj por exemplo.
Mude para:
Código:
Sub ScriptedItem(index, Script)
Select Case Script
Case 0
If GetPlayerClass (index) = 1 Then 'Classe da transformçao
If GetPlayerLevel(index) => 50 Then 'Level preciso
If GetPlayerSprite(index) = 1 Then 'Sprite preciso(da classe)
Call SetPlayerSprite(index, 2) 'Sprite da transformação(a que vai virar)
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) 'Adicionar 50 de STR
Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50) 'Adicionar 50 de DEF
Call PlayerMsg(index, "Você é um Super Saiyajin!", 4) ' Mandar Mensagem
Call PlayerWarp (index, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index),False) 'Atualizar Player
Exit Sub 'Sair da Sub
End If ' Fechar If
End If ' Fechar If
End If ' Fechar If
End Select
End Sub

Agora vá criar o item da transformação, e em Script deixe no 0. E teste ;p
RenanR
RenanR
Membro Veterano
Membro Veterano

Mensagens : 1048

Ir para o topo Ir para baixo

Como faso sistema de transformação por iten atraves do VB Empty Re: Como faso sistema de transformação por iten atraves do VB

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