From 6ad255a921a8c2ab7d61fb9408efe912fd9238c6 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Mon, 19 Oct 2020 01:30:30 -0300
Subject: First option to use town money and reputation, stolen from Saulc's
 Guild Idea Server Wide EXP Happy Hour

---
 npc/functions/politics.txt | 44 ++++++++++++++++++++++++++++++++++++--------
 1 file changed, 36 insertions(+), 8 deletions(-)

(limited to 'npc/functions')

diff --git a/npc/functions/politics.txt b/npc/functions/politics.txt
index a0cc09856..724d84450 100644
--- a/npc/functions/politics.txt
+++ b/npc/functions/politics.txt
@@ -377,6 +377,7 @@ function	script	POL_Manage	{
     .@RP=getd("$"+getarg(0)+"_REPUTATION");
     .@CR=getd("$"+getarg(0)+"_TAXOFF");
     .@DQ=getd("$"+getarg(0)+"_DAILYQUEST");
+    .@left=(gettimeparam(GETTIME_HOUR)/4)-TOWN_ACTIONS[.@TP];
 
     mesc l("Town Money: @@", .@GP), 2;
     mesc l("Town Reputation: %d | %d.%02d %% Tax", .@RP, .@TX/100, .@TX%100), 2;
@@ -386,20 +387,21 @@ function	script	POL_Manage	{
     menuint
         l("Nothing"), 0,
         rif(.@DQ != gettimeparam(GETTIME_DAYOFMONTH), l("Do some paperwork")), 1,
-        l("Invest in Exportations"), 10,
-        l("Invest in Reputation"), 20,
-        l("Raise city taxes"), 30,
-        l("Lower city taxes"), 35,
+        rif(.@left, l("Invest in Exportations")), 10,
+        rif(.@left, l("Invest in Reputation")), 20,
+        rif(.@left, l("Raise city taxes")), 30,
+        rif(.@left, l("Lower city taxes")), 35,
         rif(.@CR && .@RP, l("Tax crafters")), 40,
         rif(!.@CR, l("Don't tax crafters")), 41,
         l("Exile a player"), 70,
         l("Revert a player exile"), 71,
+        rif(.@left, l("Raise server wide EXP")), 80,
         l("Resign"), 99;
     mes "";
     switch (@menuret) {
         // Mark 0: Cycle
         case 1:
-            if (rand(3) == 1)
+            if (rand2(3) == 1)
                 setd(.@town$+"_REPUTATION", limit(0, .@RP+1, 100));
             setd(.@town$+"_DAILYQUEST", gettimeparam(GETTIME_DAYOFMONTH));
             mesc l("You dealt with paperwork."), 2;
@@ -443,7 +445,7 @@ function	script	POL_Manage	{
                 next;
             }
             break;
-        // Mark 30: TAXES
+        // Mark 30: TAXES and Tax Governance
         case 30:
             .@cost=.@TX/11;
             mesc l("Raising Taxes"), 3;
@@ -476,7 +478,7 @@ function	script	POL_Manage	{
                 next;
             }
             break;
-        // Mark 40: Tax Crafters
+        // Mark 40: Tax Crafters and Town Policies
 		case 40:
 			setd("$"+getarg(0)+"_TAXOFF", false);
             setd(.@town$+"_REPUTATION", .@RP-1);
@@ -487,7 +489,7 @@ function	script	POL_Manage	{
             setd(.@town$+"_REPUTATION", .@RP+1);
             mesc l("Crafters no longer pays taxes. (Tax exempt)"), 1;
             break;
-        // Mark 70: Exile
+        // Mark 70: Exile and Player functions
         case 70:
             mesc l("Exiled players will not be able to save to menhir."), 1;
             mesc l("A global announcement will be made."), 1;
@@ -542,6 +544,32 @@ function	script	POL_Manage	{
             kamibroadcast(sprintf("%s has ANNULED THE EXILE %s from %s.",
                           .@MAYOR$, .@ex$, getarg(0)));
             break;
+        // Mark 80: Town and Server Governance
+        case 80:
+            .@gcost=50000;
+            .@rcost=25;
+            .@b=5+(.@RP/10);
+            mesc l(".:: Server Boom ::."), 3;
+            mesc l("To cause a server happy hour (+%d%% EXP), you need:", .@b);
+            mesc l("%s GP and %d REP.", fnum(.@gcost), .@rcost);
+            if (.@RP < .@rcost || .@GP < .@gcost)
+                break;
+            mesc l("Are you sure?");
+            if (askyesno() == ASK_YES) {
+                setd(.@town$+"_REPUTATION", .@RP-.@rcost);
+                setd(.@town$+"_MONEY", .@GP-.@gcost);
+                TOWN_ACTIONS[.@TP]+=1;
+                mesc l("Server Happy Hour Decreed"), 1; // Will not be shown
+                kamibroadcast(sprintf("%s has sponsored a Server Happy Hour using tax money!", .@MAYOR$));
+                // Effective immediately
+                $@EXP_EVENT=.@b;
+                $@EXP_EVENT_TIME=1;
+                donpcevent "@exprate::OnPlayerCall";
+                // We must terminate dialog now and close all context for EXPRATE.
+                closeclientdialog;
+                end;
+            }
+            break;
         // Mark 90: Office
         case 99:
             mesc l("Really resign?"), 1;
-- 
cgit v1.2.3-70-g09d2