GS-Zone

Sistema de Cirujano de rostro 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

16

Nota » 19 Sep 2008 22:23

Este codigo lo vi en el foro, hace mucho pero no para 0.11.5, si ya esta posteado mil disculpas pero no lo encontre

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. NOTA: Lo que hace este codigo que al poner /cirujia te cambia la cara a un determinado precio y la cara al azar, estilo summer y otros servidores


Empezemos

Todo en el SERVIDOR

Buscamos:
Case "/_BUG "
N = FreeFile
Open App.Path & "LOGSBUGs.log" For Append Shared As N
Print #N,
Print #N,
Print #N, "########################################################################"
Print #N, "########################################################################"
Print #N, "Usuario:" & UserList(UserIndex).name & " Fecha:" & Date & " Hora:" & Time
Print #N, "########################################################################"
Print #N, "BUG:"
Print #N, Right$(rData, Len(rData) - 5)
Print #N, "########################################################################"
Print #N, "########################################################################"
Print #N,
Print #N,
Close #N
Exit Sub
End Select



Borramos el end select (Lo que esta marcado en rojo)

Y Abajo ponemos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/CIRUJIA"
  2. If UserList(UserIndex).flags.Muerto = 1 Then
  3. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO)
  4. ElseIf UserList(UserIndex).flags.TargetNPC = 0 Then
  5. 'Se asegura que el target es un npc
  6. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Primero tenes que seleccionar un personaje, hace click izquierdo sobre el." & FONTTYPE_INFO)
  7. ElseIf Distancia(Npclist(UserList(UserIndex).flags.TargetNPC).Pos, UserList(UserIndex).Pos) > 10 Then
  8. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO)
  9. ElseIf Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> NPCTYPE_CIRUJANO Then
  10. Exit Sub
  11. Else
  12. Call SendData(SendTarget.ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Espero que te guste tu nueva cara!" & "°" & str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
  13. If UserList(UserIndex).Raza = "Humano" Then
  14. If UserList(UserIndex).Genero = "Hombre" Then
  15. UserList(UserIndex).Char.Head = RandomNumber(1, 30)
  16. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 30)
  17. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  18. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  19. Exit Sub
  20. End If
  21.  
  22. If UserList(UserIndex).Genero = "Mujer" Then
  23. UserList(UserIndex).Char.Head = RandomNumber(1, 7) + 69
  24. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 7) + 69
  25. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  26. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  27. Exit Sub
  28. End If
  29.  
  30. ElseIf UserList(UserIndex).Raza = "Elfo" Then
  31. If UserList(UserIndex).Genero = "Hombre" Then
  32. UserList(UserIndex).Char.Head = RandomNumber(1, 13) + 100
  33. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 13) + 100
  34. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  35. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  36. Exit Sub
  37. End If
  38.  
  39. If UserList(UserIndex).Genero = "Mujer" Then
  40. UserList(UserIndex).Char.Head = RandomNumber(1, 7) + 169
  41. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 7) + 169
  42. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  43. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  44. Exit Sub
  45. End If
  46.  
  47. ElseIf UserList(UserIndex).Raza = "Elfo oscuro" Then
  48. If UserList(UserIndex).Genero = "Hombre" Then
  49. UserList(UserIndex).Char.Head = RandomNumber(1, 8) + 201
  50. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 8) + 201
  51. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  52. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  53. Exit Sub
  54. End If
  55.  
  56. If UserList(UserIndex).Genero = "Mujer" Then
  57. UserList(UserIndex).Char.Head = RandomNumber(1, 11) + 269
  58. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 11) + 269
  59. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  60. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  61. Exit Sub
  62. End If
  63. ElseIf UserList(UserIndex).Raza = "Enano" Then
  64. If UserList(UserIndex).Genero = "Hombre" Then
  65. UserList(UserIndex).Char.Head = RandomNumber(1, 5) + 300
  66. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 5) + 300
  67. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  68. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  69. Exit Sub
  70. End If
  71.  
  72. If UserList(UserIndex).Genero = "Mujer" Then
  73. UserList(UserIndex).Char.Head = RandomNumber(1, 3) + 369
  74. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 3) + 369
  75. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  76. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  77. Exit Sub
  78. End If
  79. ElseIf UserList(UserIndex).Raza = "Gnomo" Then
  80. If UserList(UserIndex).Genero = "Hombre" Then
  81. UserList(UserIndex).Char.Head = RandomNumber(1, 6) + 400
  82. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 6) + 400
  83. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  84. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  85. Exit Sub
  86. End If
  87.  
  88. If UserList(UserIndex).Genero = "Mujer" Then
  89. UserList(UserIndex).Char.Head = RandomNumber(1, 5) + 469
  90. UserList(UserIndex).OrigChar.Head = RandomNumber(1, 5) + 469
  91. Call WriteVar(CharPath & UCase(UserList(UserIndex).Name) & ".chr", "INIT", "Head", str(UserList(UserIndex).OrigChar.Head))
  92. Call ChangeUserChar(ToMap, 0, UserList(UserIndex).Pos.Map, UserIndex, UserList(UserIndex).Char.Body, UserList(UserIndex).Char.Head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim)
  93. Exit Sub
  94. End If
  95. End If
  96. End If
  97. End Select


Luego

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Const NPCTYPE_PIRATA = 9


Abajo ponemos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Const NPCTYPE_CIRUJANO = 12



Ahora terminamos con la programacion, ahora vamos con lo mas simple (Fuera del area de programacion)

Nos dirijimos al servidor> dats> npc.dat y creamos un npc con estas caracteristicas


[NPCXXX] ' Para los que tan al dope o nacieron asi xD!
Name=Cara
NpcType=12
Desc=Hola!!, Amigo si deseas cambiar tu rostro tipea /cirujia, hay muchas personas que desean ser bellos como tu fiel amigo!
Head=11
Body=49
Heading=3
Attackable=0
Comercia=0
Hostile=0


Remplazen el [NPCXXX] Por el numero que corresponda


Tambien acuerden de cambiar esto

[INIT]
NumNPCs=X


Que se encuentra arriva

Suerte y espero que les haya servido

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 19 Sep 2008 22:30

Buen aporte :P
Nait
Oraculo [1]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Capital Federal
Mensajes: 1128
Aportes: 22
Arriba

Nota » 19 Sep 2008 23:08

Lindo aporte ^^
Si como dijiste estaba, me parece que en el indice, no me acuerdo
Bueno de todas formas sirve ^^
Gracias & saludso!
aguz rlz
Destructor de Mentes [9]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 946
Aportes: 17
Arriba

Nota » 20 Sep 2008 00:43

Por dios Kenjin, descansa un poco jajaj ! Seguí asi por dios muchas gracias!

Buen aporte :D

-KratoX-

Imagen
KratoX
Te has vuelto invisible.
Destructor de Mentes [8]
Embajador (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 856
Aportes: 7
Arriba

Nota » 20 Sep 2008 13:09

todo bien pero no me aparece en un mod twist este parrafo en el codigo.



el npc pirate. y no encuentro el modulo si me harias el favor de pasamelo por eso me tira error paesar que carga entro al juego pongo /cirujia y me salta error fijate si me podes ayudar :)
RUSSEL
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 9
Arriba

Nota » 20 Sep 2008 13:23

En modulo twist no aparece /online aparece como /J1 hace lo mismo pero en vez de buscar

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


Busca

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

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 20 Sep 2008 17:10

kenjin no me entendistes el modulo Public Const NPCTYPE_PIRATA = 9

no lo encuentro marcame la ruta en el prox.
RUSSEL
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 9
Arriba

Nota » 20 Sep 2008 17:17

Busca algo asi

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 20 Sep 2008 17:22

es igual que el /ROSTRO

Imagen
Santty.-
¡Vamo' la vela de mi corazón!
180
Dragon Ancestral [4]
Campeón de Gráfica AO (1) Embajador (1)
Premios: 2
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 3575
Aportes: 17
Arriba

Nota » 20 Sep 2008 17:26

Si men..

Pero lo hize especialmente para 0.11.5, es adaptacion numas

Por parte de tu error

Busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Enum eNPCType


Fijate buscando

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 20 Sep 2008 21:50

si esta
y me aparece esto


Public Enum eNPCType
Comun = 0
Revividor = 1
GuardiaReal = 2
Entrenador = 3
Banquero = 4
Timbero = 7
Guardiascaos = 8
End Enum



da loco CERO VOLA ME DAN :s
RUSSEL
Usuario Registrado
Newbie [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 9
Arriba

Nota » 20 Sep 2008 22:20

a ver nose si esta bien

En el modulo declaraciones busca:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Banquero = 4


Abajo pone:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Cirujano=5


Despues al datear hace lo que indica el primer post y pone esto:

[NPCXXX] ' Para los que tan al dope o nacieron asi !
Name=Cara
NpcType=5
Desc=Hola!!, Amigo si deseas cambiar tu rostro tipea /cirujia, hay muchas personas que desean ser bellos como tu fiel amigo!
Head=11
Body=49
Heading=3
Attackable=0
Comercia=0
Hostile=0



Saludos y fijate si ta bien


Este post fue EDITADO.

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 20 Sep 2008 22:27

este codigo ya estaba ¬¬ fijate antes de postiarlo Por mas que le cambies el nombre.. sigue siendo casi el mismo

Buen aporte = lo voy verificar

mota_88
Aprendiz [3]
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 323
Aportes: 1
Arriba

Nota » 20 Sep 2008 22:30

Por eso aclare kpo ¬¬ que creo que ya estaba en 0.11.5 no lo vi nunca realmente.

Imagen

Imagen
KenJiN
Mixed AO- Programador
44
Dragon Ancestral [4]
Mister Programador AO (1)
Premios: 1
Registrado: Años de membresíaAños de membresíaAños de membresía
Mensajes: 3891
Aportes: 34
Arriba

Nota » 20 Sep 2008 23:08

Gracias!, muy buen aporte.
Lo voy a implementar.
Gracias !. <= Es lo que te ganaste xD .

Imagen
SPOILER
[/spoiler]
MaTySanchez
[color=#FFBF00][b]www.MyWareZ.07x.net[/b][/color]
Aprendiz [7]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Mar del Plata
Mensajes: 479
Aportes: 4
Arriba
Siguiente

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