GS-Zone
Facebook Twitter

Caballero Medita Rapido Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

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

8

Nota » 14 Ene 2012 22:06

Hola en SWAO los Caballeros potean mas rapidos y meditan mas rapido como cambio eso ?.
Muchisimas Gracias.
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 338
Arriba

Nota » 14 Ene 2012 23:44

Fijate los intervalos, y lo de la meditaciòn el speed en los grhs

Off: Para la proxima envede de hacer 4 ths (si estor errado corregime xqe vi 4 ths tuyos) hace 1 y pone los problemas en el mismo :)

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
548
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 659
Aportes: 3
Arriba

Nota » 15 Ene 2012 18:42

Wildem escribió:Fijate los intervalos, y lo de la meditaciòn el speed en los grhs

Off: Para la proxima envede de hacer 4 ths (si estor errado corregime xqe vi 4 ths tuyos) hace 1 y pone los problemas en el mismo :)


Pero la meditacion de los usuarios es normal solo la de Caballero cambia.
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 338
Arriba

Nota » 15 Ene 2012 20:12

Es que debe aver un if que si es caballero medite un poco mas rapido.

Imagen
Pentra~
Intento de Programer
301
Oraculo [1]
Registrado: Años de membresía
Mensajes: 1124
Aportes: 10
Arriba

Nota » 15 Ene 2012 20:41

Pentra~ escribió:Es que debe aver un if que si es caballero medite un poco mas rapido.


Puede ser pero ni idea la verdad :P.
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 338
Arriba

Nota » 15 Ene 2012 20:42

Postea el sub domeditar

Imagen
miqueas150
Ninja en progreso
914
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4094
Aportes: 13
Arriba

Nota » 15 Ene 2012 20:47

miqueas150 escribió:Postea el sub domeditar


Aca ta :

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.     Dim TActual As Long
  10.     TActual = GetTickCount() And &H7FFFFFFF
  11.     If TActual - UserList(UserIndex).Counters.tInicioMeditar < TIEMPO_INICIOMEDITAR Then
  12.         Exit Sub
  13.     End If
  14.    
  15.     If UserList(UserIndex).Counters.bPuedeMeditar = False Then
  16.         UserList(UserIndex).Counters.bPuedeMeditar = True
  17.     End If
  18.    
  19.     If UserList(UserIndex).Stats.MinMAN >= UserList(UserIndex).Stats.MaxMAN Then
  20.         Call SendData(SendTarget.toindex, UserIndex, 0, "||Has terminado de meditar." & FONTTYPE_INFO)
  21.         Call SendData(SendTarget.toindex, UserIndex, 0, "MEDOK")
  22.         UserList(UserIndex).flags.Meditando = False
  23.         UserList(UserIndex).Char.FX = 0
  24.         UserList(UserIndex).Char.loops = 0
  25.         Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "CFX" & UserList(UserIndex).Char.CharIndex & "," & 0 & "," & 0)
  26.         Exit Sub
  27.     End If
  28.    
  29.     If UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 10 _
  30.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= -1 Then
  31.                         Suerte = 35
  32.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 20 _
  33.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 11 Then
  34.                         Suerte = 30
  35.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 30 _
  36.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 21 Then
  37.                         Suerte = 28
  38.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 40 _
  39.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 31 Then
  40.                         Suerte = 24
  41.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 50 _
  42.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 41 Then
  43.                         Suerte = 22
  44.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 60 _
  45.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 51 Then
  46.                         Suerte = 20
  47.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 70 _
  48.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 61 Then
  49.                         Suerte = 18
  50.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 80 _
  51.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 71 Then
  52.                         Suerte = 15
  53.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 90 _
  54.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 81 Then
  55.                         Suerte = 10
  56.     ElseIf UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) <= 100 _
  57.        And UserList(UserIndex).Stats.UserSkills(eSkill.Meditar) >= 91 Then
  58.                         Suerte = 5
  59.     End If
  60.     res = RandomNumber(1, Suerte)
  61.    
  62.     If res = 1 Then
  63.         Cant = Porcentaje(UserList(UserIndex).Stats.MaxMAN, 3)
  64.         UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MinMAN + Cant
  65.         If UserList(UserIndex).Stats.MinMAN > UserList(UserIndex).Stats.MaxMAN Then _
  66.             UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MaxMAN
  67.        
  68.         If Not UserList(UserIndex).flags.UltimoMensaje = 22 Then
  69.             Call SendData(SendTarget.toindex, UserIndex, 0, "||¡Has recuperado " & Cant & " puntos de mana!" & FONTTYPE_INFO)
  70.             UserList(UserIndex).flags.UltimoMensaje = 22
  71.         End If
  72.        
  73.         Call SendData(SendTarget.toindex, UserIndex, 0, "ASM" & UserList(UserIndex).Stats.MinMAN)
  74.         Call SubirSkill(UserIndex, Meditar)
  75.     End If
  76.    
  77.     End Sub
AngelDsm
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 338
Arriba

Nota » 15 Ene 2012 22:15

Fijate en el modulo caballeros o algo que tenga que ver, un sub, postealo acà para ver si hay algùn if que hace que medite y potee mpas rapido.

Imagen

Imagen

Wildem.
Hola...!
¿Ustes vende un caballete?
-Si
¿Te rompieron el ojete?
-Anda a la puta que te pario...

JKJKASDKLJA
Wildem
^Maper^
548
Destructor de Mentes [4]
Registrado: Años de membresía
Mensajes: 659
Aportes: 3
Arriba

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: Feer~ y 0 invitados