/FIANZA [0.11.2]

Tema: /FIANZA [0.11.2] Dom Dic 07, 2008 7:10 am

Objetivo del codigo:

Cuando te mandan a la carcel tenes la posibilidad de salir pagando una fianza de 20000 monedas de oro.

Servidor

Buscamos

Código:: Public Sub PurgarPenas()
Dim i As Integer
For i = 1 To LastUser
If UserList(i).flags.UserLogged Then

If UserList(i).Counters.Pena > 0 Then

UserList(i).Counters.Pena = UserList(i).Counters.Pena - 1

If UserList(i).Counters.Pena < 1 Then
UserList(i).Counters.Pena = 0
Call WarpUserChar(i, Libertad.Map, Libertad.X, Libertad.Y, True)
Call SendData(ToIndex, i, 0, "||Has sido liberado!" & FONTTYPE_INFO)
End If

End If

End If
Next i
End Sub

Abajo agregamos:

Código:: Public Sub Fianzarpenas()
Dim i As Integer
For i = 1 To LastUser
If UserList(i).flags.UserLogged Then

If UserList(i).Counters.Pena > 0 Then

UserList(i).Counters.Pena = 0

If UserList(i).Counters.Pena < 1 Then
UserList(i).Counters.Pena = 0
Call WarpUserChar(i, Libertad.Map, Libertad.X, Libertad.Y, True)
Call SendData(ToIndex, i, 0, "||Has sido liberado bajo fianza!" & FONTTYPE_INFO)

End If

End If

End If
Next i
End Sub

Buscamos:

Código:: If UCase$(rdata) = "/TRABAJANDO" Then
If UserList(UserIndex).flags.EsRolesMaster Then Exit Sub
For LoopC = 1 To LastUser
If (UserList(LoopC).Name <> "") And UserList(LoopC).flags.Trabajando = True Then
tStr = tStr & UserList(LoopC).Name & ", "
End If
Next LoopC
tStr = Left$(tStr, Len(tStr) - 2)
Call SendData(ToIndex, UserIndex, 0, "||Usuarios trabajando: " & tStr & FONTTYPE_INFO)
Exit Sub
End If

Buscamos:

Código:: If UCase$(rdata) = "/FIANZA" Then

If UserList(UserIndex).Stats.GLD < 20000 Then
Call SendData(ToIndex, UserIndex, 0, "||No tienes dinero suficiente." & FONTTYPE_INFO)
Exit Sub
End If

'Se asegura que el target es un npc
If UserList(UserIndex).flags.TargetNPC = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||Primero tenes que hacer click izquierdo sobre el Guardia carcel." & FONTTYPE_INFO)
Exit Sub
End If

Luego creamos un npc que sea de la siguiente manera.

Código:: [NPC***] 'NPC
Name=Carcelero
Desc=Te puedo liberar si pagas una fianza de 20000 monedas de oro.
Head=0
npctype=12
Body=17
Heading=3
Movement=1
Alineacion=0
ReSpawn=0
attackable=0
hostile=0
domable=0

FIN