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

[ALL]Warp Enemy por Randon

3 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

Ir para baixo

[ALL]Warp Enemy por Randon Empty [ALL]Warp Enemy por Randon

Mensagem por Karlos Qua 09 Dez 2009, 10:28

A pedido de nosso amigo Guilherme vou postar o script de Warp Enemy por randon
Código:

Dim R
R = Rand(1,5)
Select Case R
Case 1
If GetPlayerMP(Index) < GetPlayerMaxMP(Index) Then
Call PlayerMsg(index,"Descanse para poder utilizar sua magia!", RED)
End If
If GetPlayerMP(Index) = GetPlayerMaxMP(Index) then
Call SetPlayerMP(index, GetPlayerMP(index) / 2)
Call PlayerWarp( GetPlayerTarget(index), 2, 10, 10)
Call PlayerMsg(index,"Magia Realizada com sucesso!",RED)
End If 'XD
Exit Sub
Case 2
Call MapMsg(GetPlayerMap(index),"player" & GetPlayerName(index) & "Falha ao utilizar magia!",0)
Exit Sub
Case 3
Call MapMsg(GetPlayerMap(index),"player" & GetPlayerName(index) & "Falha ao utilizar magia!",0)
Exit Sub
Case 4
Call MapMsg(GetPlayerMap(index),"player" & GetPlayerName(index) & "Falha ao utilizar magia!",0)
Exit Sub
Case 5
Call MapMsg(GetPlayerMap(index),"player" & GetPlayerName(index) & "Falha ao utilizar magia!",0)
Exit Sub
End Select

Pronto postei XD

Creditos a mim e a ao lendario pelo codigo Randon XD


Última edição por adm.karlos em Qui 10 Dez 2009, 06:44, editado 1 vez(es)
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[ALL]Warp Enemy por Randon Empty Re: [ALL]Warp Enemy por Randon

Mensagem por klinton-1234 Qua 09 Dez 2009, 16:16

uma pergunta oque esse script faz?
avatar
klinton-1234
Membro
Membro

Mensagens : 220

Ir para o topo Ir para baixo

[ALL]Warp Enemy por Randon Empty Re: [ALL]Warp Enemy por Randon

Mensagem por Karlos Qua 09 Dez 2009, 17:28

O que vc quiser em random, por exemplo cloque algo na case 3 e 5, e aletóriamente, ele vai selecionar automaticamente uma case, obs.: ele vai anunciar uma unica case fazendo com que aconteça o que esta escrito isso é bom pra spells ou itens tipo quest item. XD
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[ALL]Warp Enemy por Randon Empty Re: [ALL]Warp Enemy por Randon

Mensagem por Cesar Qua 09 Dez 2009, 20:22

tem um erro
If GetPlayerMP(Index) = GetPlayerMaxMP(Index) then
Call SetPlayerMP(index, GetPlayerMP(index) / 2)
Call PlayerWarp( GetPlayerTarget(index), 2, 10, 10)
Call PlayerMsg(index,"Magia Realizada com sucesso!",RED)
End If
Exit Sub
Falta um End If antes do Exit Sub
Cesar
Cesar
Novato
Novato

Mensagens : 18

http://www.dbzorigens.com

Ir para o topo Ir para baixo

[ALL]Warp Enemy por Randon Empty Re: [ALL]Warp Enemy por Randon

Mensagem por Karlos Qui 10 Dez 2009, 06:44

vlw vou arrumar! [ALL]Warp Enemy por Randon Icon_biggrin
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[ALL]Warp Enemy por Randon Empty Re: [ALL]Warp Enemy por Randon

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais

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