meditares

Estado
Cerrado para nuevas respuestas.

farensis

Newbie Lvl 2
weno kisiera saber como kitar un meditar y poner otro meditar k x ejemplo seria ciuda= color axul crimi=color rojo :S(no se si axe falta pero tngo unos graficos)
Saludos 8)
 

elukhan

Oráculo Lvl 2
Case "/MEDITAR"
If UserList(UserIndex).flags.Muerto = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo. " & FONTTYPE_INFO)
Exit Sub
End If
If UserList(UserIndex).Stats.MaxMAN = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Solo las clases mágicas conocen el arte de la meditación" & FONTTYPE_INFO)
Exit Sub
End If
Call SendData(ToIndex, UserIndex, 0, "MEDOK")
If Not UserList(UserIndex).flags.Meditando Then
Call SendData(ToIndex, UserIndex, 0, "||Comenzas a meditar." & FONTTYPE_INFO)
Else
Call SendData(ToIndex, UserIndex, 0, "||Dejas de meditar." & FONTTYPE_INFO)
End If
UserList(UserIndex).flags.Meditando = Not UserList(UserIndex).flags.Meditando
'Barrin 3/10/03 Tiempo de inicio al meditar
If UserList(UserIndex).flags.Meditando Then
UserList(UserIndex).Counters.tInicioMeditar = GetTickCount() And &H7FFFFFFF
Call SendData(ToIndex, UserIndex, 0, "||Te estás concentrando. En " & TIEMPO_INICIOMEDITAR & " segundos comenzarás a meditar." & FONTTYPE_INFO)

'/////////////////////////////////////////////

'MEDITACIONES Ciudas

If Not Criminal(UserIndex) Then

If UserList(UserIndex).Stats.ELV < 13 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda1 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda1

ElseIf UserList(UserIndex).Stats.ELV < 20 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda2 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda2

ElseIf UserList(UserIndex).Stats.ELV < 30 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda3 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda3

ElseIf UserList(UserIndex).Stats.ELV < 40 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda4 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda4

ElseIf UserList(UserIndex).Stats.ELV < 45 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda5 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda5

Else

Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda5 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCiuda5

End If
End If

'////////////////////////////////////////////////

'////////////////////////////////////////////////

'MEDITACIONES Crimis

If Criminal(UserIndex) Then

If UserList(UserIndex).Stats.ELV < 13 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda1 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi1

ElseIf UserList(UserIndex).Stats.ELV < 20 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda2 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi2

ElseIf UserList(UserIndex).Stats.ELV < 30 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda3 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi3

ElseIf UserList(UserIndex).Stats.ELV < 40 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda4 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi4

ElseIf UserList(UserIndex).Stats.ELV < 45 Then
Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda5 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi5

Else

Call SendData(ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & MeditarCiuda5 & "," & LoopAdEternum)
UserList(UserIndex).Char.FX = MeditarCrimi5

End If
End If
'///////////////////////////////////////////

Else

UserList(UserIndex).Counters.bPuedeMeditar = False

UserList(UserIndex).Char.FX = 0
UserList(UserIndex).Char.loops = 0
Call SendData(ToMap, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.charindex & "," & 0 & "," & 0)
End If
End If

Mirà ''buscando'' encontré este código.

''Harder'' en : http://www.slkgames.com/foro/showthread.php?t=2805&highlight=meditar
 
Estado
Cerrado para nuevas respuestas.
Arriba