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

Sistema em que use o Principal.txt para Perfect Engine

2 participantes

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

Ir para baixo

Sistema em que use o Principal.txt para Perfect Engine Empty Sistema em que use o Principal.txt para Perfect Engine

Mensagem por Felipee Sex 02 Nov 2012, 17:20

Eae pessoal! Very Happy
E então..será que alguém teria um Sistema de pokeball em que use o Principal.txt?
Se alguém tiver...eu agradeço muito se postar aqui Very Happy
Valeu pessoal Laughing
Felipee
Felipee
Membro
Membro

Mensagens : 132

Ir para o topo Ir para baixo

Sistema em que use o Principal.txt para Perfect Engine Empty Re: Sistema em que use o Principal.txt para Perfect Engine

Mensagem por Del Piero Seg 05 Nov 2012, 22:30

Mais ou menos assim pelo que eu lembre um que eu fiz a um tempo atrás:

na Sub ScriptedItem

Código:
Case 0 ' Pokeball Pokemon
Dim Mapa
Dim X
Dim Y
Dim Poke
'Dim Mana
'Dim GastarMana
Mapa = GetPlayerMap(Index)
X = GetPlayerX(Index)
Y = GetPlayerY(Index)
Call PlaySound(index, "PikachuVe.wav")
Poke = 3 'Pokemon Que chamara
If GetVar("Scripts\Pokemons\Pokeball.ini", GetPlayerName(Index), "Pokemon") = "Pikachu" Then
Call ScriptSpawnNpc(Poke,Mapa, X , Y, Poke)
Call PlayerMsg(Index, "Pokebola Vai! ", YELLOW)
Else   
Call PlayerMsg(Index, "Não pode chamar o  Pikachu!", WHITE)
End If
Exit Sub

Case 1 ' Pokeball Livre
Mapa = GetPlayerMap(Index)
If GetVar("Scripts\Pokemons\Pokeball.ini", GetPlayerName(Index), "Pokemon") = "Livre" Then
If GetMapNpcHP(Mapa, Index) <= 20 Then 'escolha
Call PutVar("Scripts\Pokemons\Pokeball.ini", GetPlayerName(Index), "Pokemon", GetNpcName(3))
Call SendPlayerData(Index)
Call GiveItem(Index,4,1) ' escolha..
Call TakeItem(Index,5,1) ' tb..
Call PlayerMsg(Index, "Você capturou um  Pikachu!", YELLOW)
Else
Call PlayerMsg(Index, "Você não pode Capturar um Pikachu!", YELLOW)
End If
End If
Exit Sub   
Case Else
Call PlayerMsg(Index, "Sem objeto com esse script", WHITE)
Exit Sub

e mais ou menos isso , só e por para cada pokemon e também como eu fiz ai se pode capturar um pokemon com a pokebola, só precisa de uns detalhes como puxar a .ini ao iniciar o jogo.. mais o mais complicado para você já postei, mesmo assim recomendo criar um editor de pokemon que fica mais pratico , se eu não tivesse amigos que morrem de medo de eu postar isso aqui , eu já teria postado o que criei para EEB , ja que o pokemon que pretendo fazer e em Java.
Del Piero
Del Piero
Membro Vitalicio
Membro Vitalicio

Mensagens : 602

http://www.exodusgames.com.br/

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

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

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