No me medita.

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

» 29 Dic 2011 23:22

Hola gente tengo un problema que ya me revise los sub/Case correspondientes y no me medita de ninguna forma. Les dejo el Case "/Meditar" y el sub Domeditar.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1.        Case "/MEDITAR"
2.             If UserList(UserIndex).flags.Muerto = 1 Then
3.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!! Solo podes usar items cuando estas vivo. " & FONTTYPE_INFO)
4.                 Exit Sub
5.             End If
6.             If UserList(UserIndex).Stats.MaxMAN = 0 Then
7.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Solo las clases mágicas conocen el arte de la meditación" & FONTTYPE_INFO)
8.                 Exit Sub
9.             End If
10.             If UserList(UserIndex).flags.Privilegios > PlayerType.User Then
11.                 UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MaxMAN
12.                 Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Mana restaurado" & FONTTYPE_VENENO)
13.                 Call SendUserStatsBox(val(UserIndex))
14.                 Exit Sub
15.             End If
16.             Call SendData(SendTarget.ToIndex, UserIndex, 0, "MEDOK")
17.             If Not UserList(UserIndex).flags.Meditando Then
18.                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Comenzas a meditar." & FONTTYPE_INFO)
19.             Else
20.                Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Dejas de meditar." & FONTTYPE_INFO)
21.             End If
22.            UserList(UserIndex).flags.Meditando = Not UserList(UserIndex).flags.Meditando
23.             'Barrin 3/10/03 Tiempo de inicio al meditar
24.             If UserList(UserIndex).flags.Meditando Then
25.                
26.                 UserList(UserIndex).Char.loops = LoopAdEternum
27.                 If UserList(UserIndex).Stats.ELV < 15 Then
28.                     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXMEDITARCHICO & "," & LoopAdEternum)
29.                     UserList(UserIndex).Char.FX = FXIDs.FXMEDITARCHICO
30.                 ElseIf UserList(UserIndex).Stats.ELV < 30 Then
31.                     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXMEDITARMEDIANO & "," & LoopAdEternum)
32.                     UserList(UserIndex).Char.FX = FXIDs.FXMEDITARMEDIANO
33.                 ElseIf UserList(UserIndex).Stats.ELV < 45 Then
34.                     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXMEDITARGRANDE & "," & LoopAdEternum)
35.                     UserList(UserIndex).Char.FX = FXIDs.FXMEDITARGRANDE
36.                 Else
37.                     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & FXIDs.FXMEDITARXGRANDE & "," & LoopAdEternum)
38.                     UserList(UserIndex).Char.FX = FXIDs.FXMEDITARXGRANDE
39.                 End If
40.             Else
41.                 UserList(UserIndex).Counters.bPuedeMeditar = False
42.                
43.                 UserList(UserIndex).Char.FX = 0
44.                 UserList(UserIndex).Char.loops = 0
45.                 Call SendData(SendTarget.ToMap, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & 0 & "," & 0)
46.             End If
47.             Exit Sub
48.  

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Public Sub DoMeditar(ByVal UserIndex As Integer)
2.  
3. UserList(UserIndex).Counters.IdleCount = 0
4.  
5. Dim Suerte As Integer
6. Dim res As Integer
7. Dim Cant As Integer
8.  
9.  
10. If UserList(UserIndex).Counters.bPuedeMeditar = False Then
11.     UserList(UserIndex).Counters.bPuedeMeditar = True
12. End If
13.  
14. If UserList(UserIndex).Stats.MinMAN >= UserList(UserIndex).Stats.MaxMAN Then
15.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has terminado de meditar." & FONTTYPE_INFO)
16.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "MEDOK")
17.     UserList(UserIndex).flags.Meditando = False
18.     UserList(UserIndex).Char.FX = 0
19.     UserList(UserIndex).Char.loops = 0
20.     Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & 0 & "," & 0)
21.     Exit Sub
22. End If
23.  
24. If UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 10 _
25.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= -1 Then
26.                     Suerte = 35
27. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 20 _
28.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 11 Then
29.                     Suerte = 30
30. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 30 _
31.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 21 Then
32.                     Suerte = 28
33. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 40 _
34.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 31 Then
35.                     Suerte = 24
36. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 50 _
37.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 41 Then
38.                     Suerte = 22
39. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 60 _
40.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 51 Then
41.                     Suerte = 20
42. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 70 _
43.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 61 Then
44.                     Suerte = 18
45. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 80 _
46.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 71 Then
47.                     Suerte = 15
48. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 90 _
49.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 81 Then
50.                     Suerte = 10
51. ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 100 _
52.    And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 91 Then
53.                     Suerte = 5
54. End If
55. res = RandomNumber(1, Suerte)
56.  
57. If res = 1 Then
58.     Cant = Porcentaje(UserList(UserIndex).Stats.MaxMAN, 3)
59.     UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MinMAN + Cant
60.     If UserList(UserIndex).Stats.MinMAN > UserList(UserIndex).Stats.MaxMAN Then _
61.         UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MaxMAN
62.    
63.     If Not UserList(UserIndex).flags.UltimoMensaje = 22 Then
64.         Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡Has recuperado " & Cant & " puntos de mana!" & FONTTYPE_INFO)
65.         UserList(UserIndex).flags.UltimoMensaje = 22
66.     End If
67.    
68.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "ASM" & UserList(UserIndex).Stats.MinMAN)
69.     Call SubirSkill(UserIndex, Meditar)
70. End If
71.  
72. End Sub
73.  

Saludos

Penyair

414

Registrado:

Mensajes: 726

Aportes: 14

Arriba

» 05 Ene 2012 02:05

No te medita de que manera,, no se ve el grafico o no te carga la maná ?

Este mensaje ha obtenido 1 Moneda de Oro.

Ilaisa

Ilaisa

<Aprendiendo a Programar>

227

Registrado: Diciembre 2011

Mensajes: 128

Arriba

» 05 Ene 2012 02:16

No listo, ya lo habia solucionado hace mucho jaja! Saludos!

Penyair

414

Registrado:

Mensajes: 726

Aportes: 14

Arriba

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados