GS-Zone
Facebook Twitter

Sistema de Fianzas Adaptación de 11.2 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

5

Nota » 14 Jul 2009 15:29

Realmente no estoy seguro que sea 100% Funcional ya que tengo 10 mapas en el servidor y no configure la cárcel si alguien lo utiliza que me diga si le salta algún error, ami no me salio ninguno.

Código adaptado,

Todo el código se desarrolla en el servidor:

Buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub PurgarPenas()
  2. Dim i As Integer
  3. For i = 1 To LastUser
  4. If UserList(i).flags.UserLogged Then
  5.  
  6. If UserList(i).Counters.Pena > 0 Then
  7.  
  8. UserList(i).Counters.Pena = UserList(i).Counters.Pena - 1
  9.  
  10. If UserList(i).Counters.Pena < 1 Then
  11. UserList(i).Counters.Pena = 0
  12. Call WarpUserChar(i, Libertad.Map, Libertad.X, Libertad.Y, True)
  13. Call SendData(ToIndex, i, 0, "||Has sido liberado bajo Fianza!." & FONTTYPE_INFO)
  14. End If
  15.  
  16. End If
  17.  
  18. End If
  19. Next i
  20. End Sub



y debajo colocamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub Fianzarpenas()
  2. Dim i As Integer
  3. For i = 1 To LastUser
  4. If UserList(i).flags.UserLogged Then
  5.  
  6. If UserList(i).Counters.Pena > 0 Then
  7.  
  8. UserList(i).Counters.Pena = 0
  9.  
  10. If UserList(i).Counters.Pena < 1 Then
  11. UserList(i).Counters.Pena = 0
  12. Call WarpUserChar(i, Libertad.Map, Libertad.X, Libertad.Y, True)
  13. Call SendData(ToIndex, i, 0, "||Has sido liberado bajo fianza!." & FONTTYPE_INFO)
  14. End If
  15. End If
  16. End If
  17. Next i
  18. End Sub


Luego, buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(rData) = "/TRABAJANDO" Then
  2.         If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
  3.         For LoopC = 1 To LastUser
  4.             If (UserList(LoopC).name <> "") And UserList(LoopC).Counters.Trabajando > 0 Then
  5.                 tStr = tStr & UserList(LoopC).name & ", "
  6.             End If
  7.         Next LoopC
  8.         If tStr <> "" Then
  9.             tStr = Left$(tStr, Len(tStr) - 2)
  10.             Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Usuarios trabajando: " & tStr & FONTTYPE_INFO)
  11.         Else
  12.             Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No hay usuarios trabajando" & FONTTYPE_INFO)
  13.         End If
  14.         Exit Sub
  15. End If


y debajo le colocamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. If UCase$(rData) = "/FIANZA" Then
  2. If UserList(UserIndex).Stats.GLD < 20000 Then
  3.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No tienes dinero suficiente para pagar tu Fianza." & FONTTYPE_INFO)
  4.     Exit Sub
  5. End If
  6. 'Se asegura que el target es un npc
  7. If UserList(UserIndex).flags.TargetNPC = 0 Then
  8.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Primero tenes que hacer click izquierdo sobre el Guardia de las Fianzas." & FONTTYPE_INFO)
  9.     Exit Sub
  10. End If
  11. ' Verificamos que sea el guardia carcel
  12. If Npclist(UserList(UserIndex).flags.TargetNPC).NPCtype <> 12 Then
  13.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Primero tenes que hacer click izquierdo sobre el Guardia de las Fianzas." & FONTTYPE_INFO)
  14.     Exit Sub
  15. End If
  16. ' Si esta muy lejos no actua
  17.     If Distancia(UserList(UserIndex).Pos, Npclist(UserList(UserIndex).flags.TargetNPC).Pos) > 5 Then
  18.     Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No puedes ser liberado debido a la distancia, no es muy seguro para el Guardia." & FONTTYPE_WARNING)
  19.     Exit Sub
  20. End If
  21.     Call Fianzarpenas
  22.     UserList(UserIndex).Stats.GLD = UserList(UserIndex).Stats.GLD - 20000
  23.     Call SendUserStatsBox(UserIndex)
  24.     Exit Sub
  25. End If


Luego creamos el Npc con el cuál funciona el código, por cuestione de funcionamiento por el momento como esta armado el código a este NPC no lo coloquen fuera del mapa de la cárcel. =)

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Name=Soborname :$
  2. Desc=Para la liberación bajo fianza debes darme 20.000 Monedas de oro.
  3. Heading=3
  4. Body=15
  5. NpcType=12
  6. Movement=1
  7. Attackable=0
  8. ReSpawn=0
  9. Hostile=0
  10. Domable=0
  11. Alineacion=0


Y listo creo que con eso estaria funcionando el código de nuestro amigo NighTWolF.

Nos vemos.

PD: Ya después capaz que le agrego que le tengas que dar un item, y que solo puedas escapar 10 veces o algo parecido. Y si ya escapate más de 10 veces mmm que no te deje salir y que te maten XD.

Abrazo!

Imagen
Lerviat
Usuario Registrado
Aprendiz [1]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Mensajes: 237
Aportes: 3
Arriba

Nota » 15 Jul 2009 01:56

Podes explicar bien lo que hace?.
Parece completo y bien desarrolado, buen aporte.
Saludos.

Saitam
Destructor de Mentes [3]
Registrado: Años de membresíaAños de membresía
Mensajes: 608
Aportes: 29
Premios: 1
Embajador (1)
Arriba

Nota » 15 Jul 2009 10:56

Saitam escribió:Podes explicar bien lo que hace?.
Parece completo y bien desarrolado, buen aporte.
Saludos.


Estoy casi seguro que si te mandan a la carcel hay un guardia alado tuyo y te dice que si pones /FIANZA le das 20k y te deja libre... seria una cooima xD

Saludos.

Atte.:Hardoz:.

Imagen
Mi firma es la original, el resto son todos Ripeos.
Para los que necesiten el FrmPremios del sistema de canje por dats acá está:
http://www.mediafire.com/?g2sf9h6aa0qe7vk
Agradecimientos a Luuq por subirlo.
Hardoz
Pensar Distinto.
66
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Olivos.
Mensajes: 1465
Aportes: 12
Premios: 2
Mister S.O.S. (1) Embajador (1)
Arriba

Nota » 15 Jul 2009 17:23

Es un código, por haci decirlo "realista", pero no va con AO, cualquiera que tenga guita para gastar, se te pone a piquetear, y pone /FIANZA, y sigue piqueteando xD

Arandhel escribió:Soy nahue amigo de gonza.. che bldo te confundiste subiste todo el server!!! con codigos y todo bldo.. !!

OWNED
SPOILER
KaiKo
Xendrock Online
36
Destructor de Mentes [7]
Registrado: Años de membresíaAños de membresíaAños de membresíaAños de membresía
Ubicación: Buenos Aires
Mensajes: 822
Aportes: 8
Arriba

Nota » 15 Jul 2009 17:50

KaiKo escribió:Es un código, por haci decirlo "realista", pero no va con AO, cualquiera que tenga guita para gastar, se te pone a piquetear, y pone /FIANZA, y sigue piqueteando xD


En realidad no porque lo bueno del code que si te pasas de las 10 veses o menos porque lo podes modificar no podes hacer mas ese comando :D :wink:

Saludos.

Atte.:Hardoz:.

Imagen
Mi firma es la original, el resto son todos Ripeos.
Para los que necesiten el FrmPremios del sistema de canje por dats acá está:
http://www.mediafire.com/?g2sf9h6aa0qe7vk
Agradecimientos a Luuq por subirlo.
Hardoz
Pensar Distinto.
66
Oraculo [2]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Olivos.
Mensajes: 1465
Aportes: 12
Premios: 2
Mister S.O.S. (1) Embajador (1)
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