Hitskin.comIsto é uma pré-visualização de um tema em Hitskin.com
Instalar o tema • Voltar para a ficha do tema
Magia de Teletransporte
5 participantes
Página 1 de 1
Magia de Teletransporte
por Pablo Kawan Sex Nov 28, 2014 8:19 pm
Ola povo u-u aqui vai uma bem simples, um sistema de teletransportar para onde seu inimigo está, selecionando por target e com range ;3
só fiz para o newbie num postar primeiro
Client~Side
Na frmEditor_Spell crie um chekbox com as configurações:
Dê dois cliques e adicione:
Em Type Spellrec adicione no final:
Procure por:
E abaixo adicione:
Serve~side
Em Type Spellrec adicione no final:
Procure por dentro da sub CastSpell:
CASO NAO ACHE A DE CIMA PROCURE POR:
abaixo adicione:
e pronto ;3 seja feliz
~Creditos: Kawanzii
Eclipse Origins
atenção, este sistema está funcional mas não está completo e não vou disponibilizar ele completo. estude-o e melhore-o!
Em breve estarei disponibilizando magia de invisibilidade(só para dx8), andar sobre a agua, magia de roubar magia rs e não sei se vou postar magia de controlar o player. estou disponibilizando apenas o que não irei usar para meu projeto.
não ajudo em projetos!
caso achar algum erro o sistema ou não funcionar
skype:
Pablokawan
Client~Side
Na frmEditor_Spell crie um chekbox com as configurações:
Name: chkATele
Caption: Teleporte
Dê dois cliques e adicione:
CÓDIGO:
- Código:
If chkATele.Value = 0 Then
Spell(EditorIndex).ATele = False
Else
Spell(EditorIndex).ATele = True
End If
Em Type Spellrec adicione no final:
CÓDIGO:
- Código:
ATele as Boolean
Procure por:
CÓDIGO:
- Código:
.scrlRange.Value = Spell(EditorIndex).Range
E abaixo adicione:
CÓDIGO:
- Código:
If Spell(EditorIndex).ATele Then
.ATele.Value = 1
Else
.ATele.Value = 0
End If
Serve~side
Em Type Spellrec adicione no final:
CÓDIGO:
- Código:
ATele as Boolean
Procure por dentro da sub CastSpell:
CÓDIGO:
- Código:
Vital = Round((Vital * 0.7)) * Round((Player(index).Level * 1.14)) * Round((Stats.Intelligence + (Stats.Willpower / 2)))
CASO NAO ACHE A DE CIMA PROCURE POR:
- Código:
' set the vital
Vital = Spell(spellnum).Vital
AoE = Spell(spellnum).AoE
range = Spell(spellnum).range
abaixo adicione:
CÓDIGO:
- Código:
If Spell(SpellNum).ATele Then
If targetType = TARGET_TYPE_PLAYER Then
PlayerWarp index, GetPlayerMap(target), GetPlayerX(target), GetPlayerY(target)
SendAnimation GetPlayerMap(index), Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, index
PlayerMsg index, "Você teletransportou para atras do seu inimigo!", BrightRed
Exit Sub
ElseIf targetType = TARGET_TYPE_NPC Then
PlayerWarp index, GetPlayerMap(index), MapNpc(MapNum).NPC(target).x, MapNpc(MapNum).NPC(target).y
SendAnimation GetPlayerMap(index), Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, index
PlayerMsg index, "Você teletransportou para atras do seu inimigo!", BrightRed
Exit Sub
End If
Dim xt, yt As Long
If targetType = TARGET_TYPE_PLAYER Then
xt = GetPlayerX(target)
yt = GetPlayerY(target)
Else
xt = MapNpc(MapNum).NPC(target).x
yt = MapNpc(MapNum).NPC(target).y
End If
If Not isInRange(Range, GetPlayerX(index), GetPlayerY(index), xt, yt) Then
PlayerMsg index, "Target está longe!", BrightRed
SendClearSpellBuffer index
End If
End If
e pronto ;3 seja feliz
~Creditos: Kawanzii
Eclipse Origins
atenção, este sistema está funcional mas não está completo e não vou disponibilizar ele completo. estude-o e melhore-o!
Em breve estarei disponibilizando magia de invisibilidade(só para dx8), andar sobre a agua, magia de roubar magia rs e não sei se vou postar magia de controlar o player. estou disponibilizando apenas o que não irei usar para meu projeto.
não ajudo em projetos!
caso achar algum erro o sistema ou não funcionar
skype:
Pablokawan
Última edição por kawanzii em Seg Dez 01, 2014 9:15 am, editado 3 vez(es)
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Pablo Kawan- Experiente
- Mensagens : 480
Créditos : 158 -
Re: Magia de Teletransporte
por newbie123 Sex Nov 28, 2014 8:43 pm
"só fiz para o newbie num postar primeiro "
Olha so que legal, eu ia criar esse sistema domingo que é quando vou ta mais folgado, mas cê postou antes safado e.e
De qualquer modo não testei mas +1 pra você
Olha so que legal, eu ia criar esse sistema domingo que é quando vou ta mais folgado, mas cê postou antes safado e.e
De qualquer modo não testei mas +1 pra você
newbie123- Semi-Experiente
- Mensagens : 128
Créditos : 35
Re: Magia de Teletransporte
por Pablo Kawan Sex Nov 28, 2014 8:57 pm
vlw <3 sei preve o futuro
proximo sistema, teletransportar para local aleatorio ;v com sistema de detectar tile bloqueada
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Pablo Kawan- Experiente
- Mensagens : 480
Créditos : 158 -
Re: Magia de Teletransporte
por newbie123 Sex Nov 28, 2014 9:04 pm
vlw <3 sei preve o futuroproximo sistema, teletransportar para local aleatorio ;v com sistema de detectar tile bloqueada
D:, safado e.e, domingo você me paga vou postar tutoriais mais rapido que você u_u
OFF: Ta bom parei com o off topic e.e +1 cred so pra não ser um post sem nada e.e
newbie123- Semi-Experiente
- Mensagens : 128
Créditos : 35
Re: Magia de Teletransporte
por Pablo Kawan Sex Nov 28, 2014 9:07 pm
tenho uma engine com mais de 40 sistemas exclusivos ;v só que tenho pena de postar e todos ficarem com meus sistemas
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Pablo Kawan- Experiente
- Mensagens : 480
Créditos : 158 -
Re: Magia de Teletransporte
por kriteuss Sex Nov 28, 2014 10:52 pm
mt bom mano, tava procurando muito esse sistema
vlw por compartilhar +1
vlw por compartilhar +1
kriteuss- Iniciante
- Mensagens : 44
Créditos : 2
Re: Magia de Teletransporte
por Pablo Kawan Seg Dez 01, 2014 9:13 am
*Sistema atualizado
- Erro no local da colocação do script em outras versões do eo
@off
Ei, vc é Kiriteus da vison que tava pedindo um sistema desse ?
- Erro no local da colocação do script em outras versões do eo
@off
Ei, vc é Kiriteus da vison que tava pedindo um sistema desse ?
_________________
Assinatura removida pela Staff
^ Tenho nova, surprise
Pablo Kawan- Experiente
- Mensagens : 480
Créditos : 158 -
Re: Magia de Teletransporte
por Spooky Qua Dez 17, 2014 11:00 am
Da esse erro aí parça :v
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Re: Magia de Teletransporte
por bielmegatrinf Qua Dez 17, 2014 1:06 pm
maninho parabéns! se esse sistema é oq eu entendi ser ele teleporta players por habilidade , tem que jeito mais facil de fazer isso para os iniciantes , se por uma variavel nas habilidades por eventos e por um processo paralelo nos eventos comuns chamada teletransporte pode fazer esse sistema facinho , pode até mesmo gravar o local pra se teleporta pra onde quiser quando quiser isso tudo apenas com eventos! se estiver se não entenderam .. e tiver alguem interessado eu posso ensinar! 
bielmegatrinf- Iniciante
- Mensagens : 75
Créditos : 3
Re: Magia de Teletransporte
por Spooky Sáb Dez 20, 2014 8:39 pm
Quem estiver com erro no
CÓDIGO:
Mude para
CÓDIGO:
CÓDIGO:
- Código:
If Spell(EditorIndex).ATele Then
.ATele.Value = 1
Else
.ATele.Value = 0
End If
Mude para
CÓDIGO:
- Código:
If Spell(EditorIndex).ATele Then
.chkATele.Value = 1
Else
.chkATele.Value = 0
End If
_________________
Sign
- Sign¹:
- Sign²:
Spooky- Membro Ativo
- Mensagens : 267
Créditos : 24
Tópicos semelhantes» NPC de Teletransporte
» sistema de teletransporte
» [Resolvido] Teletransporte
» Script de teletransporte(Ajuda)
» [Resolvido] Como criar um teletransporte/
» sistema de teletransporte
» [Resolvido] Teletransporte
» Script de teletransporte(Ajuda)
» [Resolvido] Como criar um teletransporte/
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos