Merge pull request #639 from ao-org/Perdon-cambia-minimo-2500

Costo por ciudadano
ao-org · Oct 15, 2024 · 96e09b4 · 96e09b4
2 parents 2270654 + 0377158
commit 96e09b4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
@@ -7419,7 +7419,7 @@ Public Sub HandleDonateGold(ByVal UserIndex As Integer)
                 Exit Sub
             End If
 
-118         If .Faccion.Status = e_Facciones.Ciudadano Or .Faccion.Status = e_Facciones.Armada Or .Faccion.Status = e_Facciones.consejo Or .Faccion.Status = e_Facciones.concilio Or .Faccion.Status = e_Facciones.Caos Or .Faccion.ciudadanosMatados = 0 Then
+118         If .Faccion.Status = e_Facciones.Ciudadano Or .Faccion.Status = e_Facciones.Armada Or .Faccion.Status = e_Facciones.consejo Or .Faccion.Status = e_Facciones.concilio Or .Faccion.Status = e_Facciones.Caos Then
 120             Call WriteChatOverHead(UserIndex, "No puedo aceptar tu donación en este momento...", NpcList(.flags.TargetNPC.ArrayIndex).Char.charindex, vbWhite)
                 Exit Sub
             End If
@@ -7440,7 +7440,7 @@ Public Sub HandleDonateGold(ByVal UserIndex As Integer)
             If .Faccion.ciudadanosMatados > 0 Then
 132             Donacion = .Faccion.ciudadanosMatados * OroMult * CostoPerdonPorCiudadano
             Else
-                Donacion = 10000
+                Donacion = CostoPerdonPorCiudadano / 2
             End If
 
 134         If Oro < Donacion Then

diff --git a/Codigo/Protocol_GmCommands.bas b/Codigo/Protocol_GmCommands.bas
@@ -2017,7 +2017,9 @@ Public Sub HandleForgive(ByVal UserIndex As Integer)
 132             Call WriteChatOverHead(UserIndex, "Has matado a ciudadanos inocentes, Dios no puede perdonarte lo que has hecho. " & "Pero si haces una generosa donación de, digamos, " & PonerPuntos(Donacion) & " monedas de oro, tal vez cambie de opinión...", priest.Char.charindex, vbWhite)
                 Exit Sub
             Else
-                Call WriteChatOverHead(UserIndex, "Para volver a ser un ciudadano deberás donar 10.000 monedas de oro.", priest.Char.charindex, vbWhite)
+            Donacion = CostoPerdonPorCiudadano / 2
+                Call WriteChatOverHead(UserIndex, "Para volver a ser un ciudadano deberás Donar " & Donacion & " monedas de oro.", priest.Char.charindex, vbWhite)
+                Exit Sub
             End If
 
             Dim permitePerdon As Boolean