[Tutorial]Sistema de Ki ou Aura

Administrador Mensagens : 711

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! [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Fui ate o proximo tuto! [Tens de ter uma conta e sessão iniciada para poderes visualizar 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 [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

» [ALL]Comando /ssj ( transformação )
» [EO] Tutorial de Animação
» DOWNLOAD TUTORIAL RBO
» Server de Pokemon PFO V1.5 [DOWNLOAD Server + Client]
» Tutorial - Mysql