GS-Zone
Facebook Twitter

Potas Infinitas Fight AO Y Equipo 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

3

Nota » 01 Ene 2011 13:57

Hola bueno mi problema Es el siguiente...

Tengo un ao mod fight Y quisiera Sacar

El equipo Que aparece Al crear PJ

Creo un clero Y Aparece Con Espada Argentum Armadura Casco Escudo Etc Bueno eso lo quiero sacar de cada Clase

Ademas De las potas Osea que aparesca La vestimenta nw y listo.

Y mi otro pedido Es Sacar las potas Infitinas Osea Que se Gasten No que me queden siempre en 10k 1k o 1 pocion Como Viene.

Gracias... :)
xlautax
Usuario Registrado
Newbie [1]
Registrado: Años de membresía
Mensajes: 14
Arriba

Nota » 01 Ene 2011 15:57

Para el de las pots infinitas
Busca

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case UserList(UserIndex).flags.TipoPocion


Remplaza de ahi hasta donde dice End Select Por esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Select Case UserList(UserIndex).flags.TipoPocion
  2.  
  3. Case 1 'Modif la agilidad
  4. UserList(UserIndex).flags.DuracionEfecto = Obj.DuracionEfecto
  5.  
  6. 'Usa el item
  7. UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) + RandomNumber(Obj.MinModificador, Obj.MaxModificador)
  8. If UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) > MAXATRIBUTOS Then _
  9. UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = MAXATRIBUTOS
  10. If UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) > 2 * UserList(UserIndex).Stats.UserAtributosBackUP(Agil idad) Then UserList(UserIndex).Stats.UserAtributos(eAtributos .Agilidad) = 2 * UserList(UserIndex).Stats.UserAtributosBackUP(Agil idad)
  11.  
  12. 'Quitamos del inv el item
  13. Call QuitarUserInvItem(UserIndex, Slot, 1)
  14. Call EnviarDopa(UserIndex)
  15. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
  16.  
  17. Case 2 'Modif la fuerza
  18. UserList(UserIndex).flags.DuracionEfecto = Obj.DuracionEfecto
  19.  
  20. 'Usa el item
  21. UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) + RandomNumber(Obj.MinModificador, Obj.MaxModificador)
  22. If UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) > MAXATRIBUTOS Then _
  23. UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = MAXATRIBUTOS
  24. If UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) > 2 * UserList(UserIndex).Stats.UserAtributosBackUP(Fuer za) Then UserList(UserIndex).Stats.UserAtributos(eAtributos .Fuerza) = 2 * UserList(UserIndex).Stats.UserAtributosBackUP(Fuer za)
  25.  
  26.  
  27. 'Quitamos del inv el item
  28. Call QuitarUserInvItem(UserIndex, Slot, 1)
  29. Call EnviarDopa(UserIndex)
  30. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
  31.  
  32. Case 3 'Pocion roja, restaura HP
  33. 'Usa el item
  34. UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MinHP + RandomNumber(Obj.MinModificador, Obj.MaxModificador)
  35. If UserList(UserIndex).Stats.MinHP > UserList(UserIndex).Stats.MaxHP Then _
  36. UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP
  37.  
  38. 'Quitamos del inv el item
  39. Call QuitarUserInvItem(UserIndex, Slot, 1)
  40. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
  41. Call EnviarHP(UserIndex)
  42. Case 4 'Pocion azul, restaura MANA
  43. 'Usa el item
  44. UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MinMAN + Porcentaje(UserList(UserIndex).Stats.MaxMAN, 5)
  45. If UserList(UserIndex).Stats.MinMAN > UserList(UserIndex).Stats.MaxMAN Then _
  46. UserList(UserIndex).Stats.MinMAN = UserList(UserIndex).Stats.MaxMAN
  47.  
  48. 'Quitamos del inv el item
  49. Call QuitarUserInvItem(UserIndex, Slot, 1)
  50. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
  51. Call EnviarMn(UserIndex)
  52. Case 5 ' Pocion violeta
  53. If UserList(UserIndex).flags.Envenenado = 1 Then
  54. UserList(UserIndex).flags.Envenenado = 0
  55. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Te has curado del envenenamiento." & FONTTYPE_INFO)
  56. End If
  57. 'Quitamos del inv el item
  58. Call QuitarUserInvItem(UserIndex, Slot, 1)
  59. Call SendData(SendTarget.ToPCArea, UserIndex, UserList(UserIndex).Pos.Map, "TW" & SND_BEBER)
  60. Case 6 ' Pocion Negra
  61. If UserList(UserIndex).flags.Privilegios = PlayerType.User Then
  62. Call QuitarUserInvItem(UserIndex, Slot, 1)
  63. Call UserDie(UserIndex)
  64. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Sientes un gran mareo y pierdes el conocimiento." & FONTTYPE_FIGHT)
  65. End If
  66. End Select


Para empezar con los items de ñws

Busca

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. '???????????????? INVENTARIO ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿


Remplaza desde ahi hasta

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Call SaveUser(UserIndex, CharPath & UCase$(name) & ".chr")


Por esto

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. '???????????????? INVENTARIO ¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿¿
  2. UserList(UserIndex).Invent.NroItems = 4
  3.  
  4. UserList(UserIndex).Invent.Object(1).ObjIndex = 467
  5. UserList(UserIndex).Invent.Object(1).Amount = 100
  6.  
  7. UserList(UserIndex).Invent.Object(2).ObjIndex = 468
  8. UserList(UserIndex).Invent.Object(2).Amount = 100
  9.  
  10. UserList(UserIndex).Invent.Object(3).ObjIndex = 460
  11. UserList(UserIndex).Invent.Object(3).Amount = 1
  12. UserList(UserIndex).Invent.Object(3).Equipped = 1
  13.  
  14. Select Case UserRaza
  15.     Case "Humano"
  16.         UserList(UserIndex).Invent.Object(4).ObjIndex = 463
  17.     Case "Elfo"
  18.         UserList(UserIndex).Invent.Object(4).ObjIndex = 464
  19.     Case "Elfo Oscuro"
  20.         UserList(UserIndex).Invent.Object(4).ObjIndex = 465
  21.     Case "Enano"
  22.         UserList(UserIndex).Invent.Object(4).ObjIndex = 466
  23.     Case "Gnomo"
  24.         UserList(UserIndex).Invent.Object(4).ObjIndex = 466
  25. End Select
  26.  
  27. UserList(UserIndex).Invent.Object(4).Amount = 1
  28. UserList(UserIndex).Invent.Object(4).Equipped = 1
  29.  
  30. UserList(UserIndex).Invent.ArmourEqpSlot = 4
  31. UserList(UserIndex).Invent.ArmourEqpObjIndex = UserList(UserIndex).Invent.Object(4).ObjIndex
  32.  
  33. UserList(UserIndex).Invent.WeaponEqpObjIndex = UserList(UserIndex).Invent.Object(3).ObjIndex
  34. UserList(UserIndex).Invent.WeaponEqpSlot = 3
  35.  
  36.  
  37.  
  38. Call SaveUser(UserIndex, CharPath & UCase$(name) & ".chr")


Espero que te sirva!

[img]http://img62.imageshack.us/img62/1617/firmaronin.png[/img]
RoNiN
^Acto Fallido de VB^
Aprendiz [5]
Registrado: Años de membresía
Ubicación: Gral Rodriguez
Mensajes: 377
Aportes: 5
Arriba

Nota » 01 Ene 2011 16:53

Me sirvio Gracias !! sos un capo..

Jjeje :mrgreen: :mrgreen: :twisted:

Lo de la ropita que empezas al crear pj

Eso ya lo hice antes de tu post pero me saltaba runtime :P porque yo directamente borraba todo el Sub :P

gracias De vuelta !
xlautax
Usuario Registrado
Newbie [1]
Registrado: Años de membresía
Mensajes: 14
Arriba

Volver a Otras versiones

¿Quién está conectado?

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