Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[Tutorial]Sistema de Ki ou Aura

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial [Tutorial]Sistema de Ki ou Aura em Dom 12 Dez 2010, 15:19

Luucas Robeerto


Fundador
Fundador
Ola galera!
Sou novo aki no forum e esse e meu primeiro TUTO!
E bem simples! recomendo ele principalmente para fan games

Bom... vamos la!

poste isso no fundo do seu MAIN.TXT
' Criado pelo Orochymaru67 xD
Código:
Sub ClassAura(Index)
call settimer("SpellAnimation " & Index & ", " & getplayerclass(index), 2000)
call sendplayerdata(index)
End Sub

Sub RemoveAura(Index)
if gettimer("SpellAnimation " & Index & ", " & getplayerclass(index)) > 0 then
call removetimer("SpellAnimation " & Index & ", " & getplayerclass(index))
end if
End Sub

Sub SpellAnimation(Index, script)
On Error Resume Next
Dim Map
Dim X
Dim Y
Dim Class0
Dim Class1
Dim Class2
Dim Class3
Dim Class4
Class0 = "Spell Number Here"
Class1 = "Spell Number Here"
Class2 = "Spell Number Here"
Class3 = "Spell Number Here"
Class4 = "Spell Number Here"
Map = getplayermap(index)
X = getplayerx(index)
Y = getplayery(index)
Select Case Script
Case 0
call removetimer("SpellAnimation " & Index & ", " & 0)
call spellanim( Class0, map, x, y)
call settimer("SpellAnimation " & Index & ", " & 0, 2000)


Case 1
call removetimer("SpellAnimation " & Index & ", " & 1)
call spellanim( Class1, map, x, y)
call settimer("SpellAnimation " & Index & ", " & 1, 2000)


Case 2
call removetimer("SpellAnimation " & Index & ", " & 2)
call spellanim( Class2, map, x, y)
call settimer("SpellAnimation " & Index & ", " & 2, 2000)

Case 3
call removetimer("SpellAnimation " & Index & ", " & 3)
call spellanim( Class3, map, x, y)
call settimer("SpellAnimation " & Index & ", " & 3, 2000)

Case 4
call removetimer("SpellAnimation " & Index & ", " & 4)
call spellanim( Class4, map, x, y)
call settimer("SpellAnimation " & Index & ", " & 4, 500)

end select
End Sub

Poste isso na sua Sub JoinGAme
Código:
call ClassAura(Index)
Poste isso na sua Sub LeftGame
Código:
call RemoveAura(Index)

Bom galera e so isso!
Qualquer duvida posta ae pra gente ajudar! [Você precisa estar registrado e conectado para ver esta imagem.]

Fui ate o proximo tuto! [Você precisa estar registrado e conectado para ver esta imagem.]

e creditos ao RAICON Pesso desculpas a ele foi ele mesmo quem fez o tutorial so que meu colega REDDRAGON me enganou Desculpas ao raicon [Você precisa estar registrado e conectado para ver esta imagem.]


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum