diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas
index 140c7c83..d69dc853 100644
--- 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
index 4754aea7..95f53357 100644
--- 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