- ARMADA / CAOS / REPUBLICA -

Estado
Cerrado para nuevas respuestas.

germu

Newbie Lvl 1
[AYUDA] - ARMADA / CAOS / REPUBLICA -

Primero que nada, les paso lo qe hice en ModFacciones

Option Explicit

Public ArmaduraImperial1 As Integer 'Primer jerarquia
Public ArmaduraImperial2 As Integer 'Segunda jerarquía
Public ArmaduraImperial3 As Integer 'Enanos
Public TunicaMagoImperial As Integer 'Magos
Public TunicaMagoImperialEnanos As Integer 'Magos

Public ArmaduraCaos1 As Integer
Public ArmaduraCaos2 As Integer
Public ArmaduraCaos3 As Integer
Public TunicaMagoCaos As Integer
Public TunicaMagoCaosEnanos As Integer


Public ArmaduraMilicia1 As Integer
Public ArmaduraMilicia2 As Integer
Public ArmaduraMilicia3 As Integer
Public TunicaMagoMilicia As Integer
Public TunicaMagoMiliciaEnanos As Integer



Public VestimentaImperialHumano As Integer
Public VestimentaImperialEnano As Integer
Public TunicaConspicuaHumano As Integer
Public TunicaConspicuaEnano As Integer
Public ArmaduraNobilisimaHumano As Integer
Public ArmaduraNobilisimaEnano As Integer
Public ArmaduraGranSacerdote As Integer

Public VestimentaLegionHumano As Integer
Public VestimentaLegionEnano As Integer
Public TunicaLobregaHumano As Integer
Public TunicaLobregaEnano As Integer
Public TunicaEgregiaHumano As Integer
Public TunicaEgregiaEnano As Integer
Public SacerdoteDemoniaco As Integer

Public VestimentaRepublicanoHumano As Integer
Public VestimentaRepublicanoEnano As Integer
Public TunicaSagradaHumano As Integer
Public TunicaSagradaEnano As Integer
Public TunicaMilicianaHumano As Integer
Public TunicaMilicianaEnano As Integer
Public SacerdoteGuerrillero As Integer








Public Const ExpAlUnirse = 50000
Public Const ExpX100 = 5000


Public Sub EnlistarArmadaReal(ByVal UserIndex As Integer)

If UserList(UserIndex).Faccion.ArmadaReal = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya perteneces a las tropas reales!!! Ve a combatir criminales!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Maldito insolente!!! vete de aqui seguidor de las sombras!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.ContrataqueRepublicano = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Maldito insolente!!! vete de aqui, solo traes renccores!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If



If Criminal(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No se permiten criminales en el ejercito imperial!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If Republicano(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No se permiten gente de la Republica en el ejercito imperial!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If


If UserList(UserIndex).Faccion.CriminalesMatados Or UserList(UserIndex).Faccion.RepublicanosMatados 0 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has asesinado gente inocente, no aceptamos asesinos en las tropas reales!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.Reenlistadas > 35 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has sido expulsado de las fuerzas reales demasiadas veces!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

UserList(UserIndex).Faccion.ArmadaReal = 1
UserList(UserIndex).Faccion.Reenlistadas = UserList(UserIndex).Faccion.Reenlistadas + 1

UserList(UserIndex).Faccion.RecompensasReal = UserList(UserIndex).Faccion.CriminalesMatados \ 100

Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "¡¡¡Bienvenido a al Ejercito Imperial!!!, aqui tienes tus vestimentas. Por cada 15 criminales que acabes te daré un recompensa, buena suerte soldado!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))

If UserList(UserIndex).Faccion.RecibioArmaduraReal = 0 Then
Dim MiObj As Obj
Dim MiObj2 As Obj
MiObj.Amount = 20
MiObj2.Amount = 10




'Public VestimentaImperialHumano As Integer
'Public VestimentaImperialEnano As Integer
'Public TunicaConspicuaHumano As Integer
'Public TunicaConspicuaEnano As Integer
'Public ArmaduraNobilisimaHumano As Integer
'Public ArmaduraNobilisimaEnano As Integer
'Public ArmaduraGranSacerdote As Integer

'Public VestimentaRepublicanoHumano As Integer
'Public VestimentaRepublicanoEnano As Integer
'Public TunicaSagradaHumano As Integer
'Public TunicaSagradaEnano As Integer
'Public TunicaMiliciaHumano As Integer
'Public TunicaMiliciaEnano As Integer
'Public SacerdoteDemoniaco As Integer


'Public VestimentaLegionHumano As Integer
'Public VestimentaLegionEnano As Integer
'Public TunicaLobregaHumano As Integer
'Public TunicaLobregaEnano As Integer
'Public TunicaEgregiaHumano As Integer
'Public TunicaEgregiaEnano As Integer
'Public SacerdoteDemoniaco As Integer
'


If UCase$(UserList(UserIndex).Raza) = "ENANO" Or UCase$(UserList(UserIndex).Raza) = "GNOMO" Then
MiObj.ObjIndex = VestimentaImperialEnano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaConspicuaEnano
Case Else
MiObj2.ObjIndex = ArmaduraNobilisimaEnano
End Select
Else
MiObj.ObjIndex = VestimentaImperialHumano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaConspicuaHumano
Case "CLERIGO", "DRUIDA", "BARDO"
MiObj2.ObjIndex = ArmaduraGranSacerdote
Case Else
MiObj2.ObjIndex = ArmaduraNobilisimaHumano
End Select
End If

If Not MeterItemEnInventario(UserIndex, MiObj) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
End If
If Not MeterItemEnInventario(UserIndex, MiObj2) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj2)
End If

UserList(UserIndex).Faccion.RecibioArmaduraReal = 1
End If

If UserList(UserIndex).Faccion.RecibioExpInicialReal = 0 Then
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpAlUnirse, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpAlUnirse & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecibioExpInicialReal = 1
Call CheckUserLevel(UserIndex)
End If


Call LogEjercitoReal(UserList(UserIndex).Name)

End Sub

Public Sub RecompensaArmadaReal(ByVal UserIndex As Integer)

If UserList(UserIndex).Faccion.CriminalesMatados Or UserList(UserIndex).Faccion.RepublicanosMatados \ 20 = _
UserList(UserIndex).Faccion.RecompensasReal Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya has recibido tu recompensa, mata 20 criminales o republicanos mas para recibir la proxima!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Aqui tienes tu recompensa noble guerrero!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpX100, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpX100 & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecompensasReal = UserList(UserIndex).Faccion.RecompensasReal + 1
Call CheckUserLevel(UserIndex)
End If

End Sub

Public Sub ExpulsarFaccionReal(ByVal UserIndex As Integer)
UserList(UserIndex).Faccion.ArmadaReal = 0
'Call PerderItemsFaccionarios(UserIndex)
Call SendData(ToIndex, UserIndex, 0, "||Has sido expulsado de las tropas reales!!!." & FONTTYPE_FIGHT)
End Sub

Public Sub ExpulsarFaccionCaos(ByVal UserIndex As Integer)
UserList(UserIndex).Faccion.FuerzasCaos = 0
'Call PerderItemsFaccionarios(UserIndex)
Call SendData(ToIndex, UserIndex, 0, "||Has sido expulsado de la legión oscura!!!." & FONTTYPE_FIGHT)
End Sub
Public Sub ExpulsarFaccionMilicia(ByVal UserIndex As Integer)
UserList(UserIndex).Faccion.ContrataqueRepublicano = 0
'Call PerderItemsFaccionarios(UserIndex)
Call SendData(ToIndex, UserIndex, 0, "||Has sido expulsado de la liberacion revolucionaria!!." & FONTTYPE_FIGHT)
End Sub


Public Function TituloReal(ByVal UserIndex As Integer) As String

Select Case UserList(UserIndex).Faccion.RecompensasReal
Case 0
TituloReal = "Aprendiz del Imperio "
Case 1
TituloReal = "Caballero Legionario"
Case 2
TituloReal = "Comandante del Señor"
Case 3
TituloReal = "Protector del Reinado"
Case 4
TituloReal = "Guardian del Imperio"
Case 5
TituloReal = "Campeón de la Luz"
Case Else
TituloReal = "Protector de indefensos"
End Select

End Function

Public Sub EnlistarCaos(ByVal UserIndex As Integer)

If Not Criminal(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Largate de aqui, bufon!!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya perteneces a la legión oscura!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.ArmadaReal = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Las sombras reinaran en Argentum, largate de aqui estupido ciudadano.!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.ContrataqueRepublicano = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Las sombras reinaran en Argentum, largate de aqui estupido republicano.!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If


'[Barrin 17-12-03] Si era miembro de la Armada Real no se puede enlistar
If UserList(UserIndex).Faccion.RecibioExpInicialReal = 1 Then 'Tomamos el valor de ahí: ¿Recibio la experiencia para entrar?
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No permitiré que ningún insecto real ingrese ¡Traidor del Rey!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If
'[/Barrin]

If Not Criminal(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ja ja ja tu no eres bienvenido aqui!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.CiudadanosMatados Or UserList(UserIndex).Faccion.RepublicanosMatados 4 Then
If UserList(UserIndex).Faccion.Reenlistadas = 20 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has sido expulsado de las fuerzas oscuras y durante tu rebeldía has atacado a mi ejército. Vete de aquí!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has sido expulsado de las fuerzas oscuras demasiadas veces!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
End If
Exit Sub
End If

UserList(UserIndex).Faccion.Reenlistadas = UserList(UserIndex).Faccion.Reenlistadas + 1
UserList(UserIndex).Faccion.FuerzasCaos = 1
UserList(UserIndex).Faccion.RecompensasCaos = UserList(UserIndex).Faccion.CiudadanosMatados \ 20

Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Bienvenido a al lado oscuro!!!, aqui tienes tu armadura. Por cada 20 ciudadanos que acabes te daré un recompensa, buena suerte soldado!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))

If UserList(UserIndex).Faccion.RecibioArmaduraCaos = 0 Then
Dim MiObj As Obj
Dim MiObj2 As Obj
MiObj.Amount = 20
MiObj2.Amount = 10

If UCase$(UserList(UserIndex).Raza) = "ENANO" Or UCase$(UserList(UserIndex).Raza) = "GNOMO" Then
MiObj.ObjIndex = VestimentaLegionEnano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaEgregiaEnano
Case Else
MiObj2.ObjIndex = TunicaLobregaEnano
End Select
Else
MiObj.ObjIndex = VestimentaImperialHumano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaEgregiaHumano
Case "CLERIGO", "DRUIDA", "BARDO"
MiObj2.ObjIndex = SacerdoteDemoniaco
Case Else
MiObj2.ObjIndex = TunicaEgregiaHumano
End Select
End If

If Not MeterItemEnInventario(UserIndex, MiObj) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
End If
If Not MeterItemEnInventario(UserIndex, MiObj2) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj2)
End If

UserList(UserIndex).Faccion.RecibioArmaduraCaos = 1



End If

If UserList(UserIndex).Faccion.RecibioExpInicialCaos = 0 Then
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpAlUnirse, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpAlUnirse & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecibioExpInicialCaos = 1
Call CheckUserLevel(UserIndex)
End If


Call LogEjercitoCaos(UserList(UserIndex).Name)

End Sub

Public Sub RecompensaCaos(ByVal UserIndex As Integer)

If UserList(UserIndex).Faccion.CiudadanosMatados \ 20 = _
UserList(UserIndex).Faccion.RecompensasCaos Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya has recibido tu recompensa, mata 20 ciudadanos mas para recibir la proxima!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Aqui tienes tu recompensa noble guerrero!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpX1000, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpX1000 & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecompensasCaos = UserList(UserIndex).Faccion.RecompensasCaos + 1
Call CheckUserLevel(UserIndex)
End If


End Sub

Public Function TituloCaos(ByVal UserIndex As Integer) As String
Select Case UserList(UserIndex).Faccion.RecompensasCaos
Case 0
TituloCaos = "Servidor de las Sombras"
Case 1
TituloCaos = "Caballero de la Oscuridad"
Case 2
TituloCaos = "Comandante del Caos"
Case 3
TituloCaos = "Devorador de Almas"
Case 4
TituloCaos = "Sanguinario"
Case 5
TituloCaos = "Mesias del Diablo"
Case Else
TituloCaos = "Devorador de Almas"
End Select

End Function

Public Sub EnlistarMilicia(ByVal UserIndex As Integer)

If Criminal(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Largate de aqui, bufon!!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.ContrataqueRepublicano = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya perteneces a la liberacion Miliciana!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.ArmadaReal = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "La Liberacion ante nada!! Largate de aqui Cuidadano!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.FuerzasCaos = 1 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "La Liberacion a su favor, pero las sombras no reinaran aqui, Largate!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

'[Barrin 17-12-03] Si era miembro de la Armada Real no se puede enlistar
If UserList(UserIndex).Faccion.RecibioExpInicialReal = 1 Then 'Tomamos el valor de ahí: ¿Recibio la experiencia para entrar?
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No permitiré que ningún cudiadano real ingrese ¡Traidor de la Republica!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If
If UserList(UserIndex).Faccion.RecibioExpInicialCaos = 1 Then 'Tomamos el valor de ahí: ¿Recibio la experiencia para entrar?
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "No permitiré que ningún Criminal ingrese ¡Traidor de la Republica!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If Criminal(UserIndex) Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ja ja ja tu no eres bienvenido aqui!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Exit Sub
End If

If UserList(UserIndex).Faccion.CiudadanosMatados 4 Then
If UserList(UserIndex).Faccion.Reenlistadas = 25 Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has sido expulsado de la Republica y durante tu rebeldía has atacado a mi ejército. Vete de aquí!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Has sido expulsado de la Republica demasiadas veces!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
End If
Exit Sub
End If

UserList(UserIndex).Faccion.Reenlistadas = UserList(UserIndex).Faccion.Reenlistadas + 1
UserList(UserIndex).Faccion.ContrataqueRepublicano = 1
UserList(UserIndex).Faccion.RecompensasRepublica = UserList(UserIndex).Faccion.CiudadanosMatados \ 20

Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Bienvenido a la Rebelion!!!, aqui tienes tu armadura. Por cada 20 ciudadanos que acabes te daré un recompensa, buena suerte soldado!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))

If UserList(UserIndex).Faccion.RecibioArmaduraMilicia = 0 Then
Dim MiObj As Obj
Dim MiObj2 As Obj
MiObj.Amount = 20
MiObj2.Amount = 10

If UCase$(UserList(UserIndex).Raza) = "ENANO" Or UCase$(UserList(UserIndex).Raza) = "GNOMO" Then
MiObj.ObjIndex = VestimentaRepublicanoEnano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaMilicinaEnano
Case Else
MiObj2.ObjIndex = TunicaSagradaEnano
End Select
Else
MiObj.ObjIndex = VestimentaRepublicanoHumano
Select Case UserList(UserIndex).Clase
Case "MAGO"
MiObj2.ObjIndex = TunicaMilicianaHumano
Case "CLERIGO", "DRUIDA", "BARDO"
MiObj2.ObjIndex = SacerdoteGuerrillero
Case Else
MiObj2.ObjIndex = TunicaSagradaHumano
End Select
End If

If Not MeterItemEnInventario(UserIndex, MiObj) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj)
End If
If Not MeterItemEnInventario(UserIndex, MiObj2) Then
Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj2)
End If

UserList(UserIndex).Faccion.RecibioArmaduraMilicia = 1


End If

If UserList(UserIndex).Faccion.RecibioExpInicialMilicia = 0 Then
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpAlUnirse, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpAlUnirse & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecibioExpInicialMilicia = 1
Call CheckUserLevel(UserIndex)
End If


Call LogEjercitoMiliciano(UserList(UserIndex).Name)

End Sub

Public Sub RecompensaMilicia(ByVal UserIndex As Integer)

If UserList(UserIndex).Faccion.CiudadanosMatados \ 15 = _
UserList(UserIndex).Faccion.RecompensasMilicia Then
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Ya has recibido tu recompensa, mata 15 ciudadanos mas para recibir la proxima!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Else
Call SendData(ToIndex, UserIndex, 0, "||" & vbWhite & "°" & "Aqui tienes tu recompensa noble guerrero!!!" & "°" & Str(Npclist(UserList(UserIndex).flags.TargetNPC).Char.charindex))
Call AddtoVar(UserList(UserIndex).Stats.Exp, ExpX1000, MAXEXP)
Call SendData(ToIndex, UserIndex, 0, "||Has ganado " & ExpX1000 & " puntos de experiencia." & FONTTYPE_FIGHT)
UserList(UserIndex).Faccion.RecompensasMilicia = UserList(UserIndex).Faccion.RecompensasMilicia + 1
Call CheckUserLevel(UserIndex)
End If


End Sub

Public Function TituloMilicia(ByVal UserIndex As Integer) As String
End Function
Select Case UserList(UserIndex).Faccion.RecompensasMilicia
Case 0
TituloMilicia = "Rebelde"
Case 1
TituloMilicia = "Caballero de la Republica"
Case 2
TituloMilicia = "Comandante de la Milicia"
Case 3
TituloMilicia = "Milisocialista al Poder"
Case 4
TituloMilicia = "Teniente de la Rebelion"
Case 5
TituloMilicia = "Mesias de la Republica"
Case Else
TituloMilicia = "Gobernador de la Milicia"
End Select

'[Barrin 17-12-03]
'Sub PerderItemsFaccionarios(ByVal UserIndex As Integer)
'Dim i As Byte
'Dim MiObj As Obj
'Dim ItemIndex As Integer
'
'For i = 1 To MAX_INVENTORY_SLOTS
' ItemIndex = UserList(UserIndex).Invent.Object(i).ObjIndex
' If ItemIndex > 0 Then
' If ObjData(ItemIndex).Real = 1 Or ObjData(ItemIndex).Caos = 1 Or ObjData(ItemIndex).Milicia = 1 Then
' Call QuitarUserInvItem(UserIndex, i, UserList(UserIndex).Invent.Object(i).Amount)
' Call UpdateUserInv(False, UserIndex, i)
' If ObjData(ItemIndex).ObjType = OBJTYPE_ARMOUR Then
' If ObjData(ItemIndex).Real = 1 Then UserList(UserIndex).Faccion.RecibioArmaduraReal = 0
' If ObjData(ItemIndex).Caos = 1 Then UserList(UserIndex).Faccion.RecibioArmaduraCaos = 0
' If ObjData(ItemIndex).Caos = 1 Then UserList(UserIndex).Faccion.RecibioArmaduraMilicia = 0
' Else
' UserList(UserIndex).Faccion.RecibioItemFaccionario = 0
' End If
' End If
'
' End If
'Next i
'
'End Sub
'[/Barrin]






-----------------------------------------------------------------------------------

Lo que hice fue implementar la faccion Miliciana
Se que falta un monton, pero lo principal, el tema faccionario lo hice, y espero qe me ayuden ya qe seria un lindo tema para tenerlo en un server
Faltan cosas como, declara Republicanos, me podrian decir donde declarar republicanos, y milicia
saludos
 

germu

Newbie Lvl 1
jajajaja :oops: , ya qe no qieren liberar el codigo :lol:

la idea es buena pero demasiado codigo, lleva mucho tiempo

Saludos


TEMA CERRADO
 
A

Anonymous

Invitado
perdo por seguir un tema tan antiguo pero esk yo andava buscando esto.
en que mapa me aria de la republica? si pongo esto en mis codigos funcionarar tal cual?

otra pregunta alguien sabe como cambiar el color de los gms? si lo quiero poner naraja como lo haria?\

asias
 
Estado
Cerrado para nuevas respuestas.
Arriba