POLITICS, NEW: Now town admins are forced to do their daily paperwork.

Otherwise, town reputation will fall in 2 points.

1 files changed, 27 insertions, 0 deletions

diff --git a/npc/functions/politics.txt b/npc/functions/politics.txt
index 403a9e3dc..8ae2711eb 100644
--- a/npc/functions/politics.txt
+++ b/npc/functions/politics.txt
@@ -145,6 +145,22 @@ function	script	POL_PlayerMoney	{
 
 -	script	Politics	NPC_HIDDEN,{
 
+// Daily Paperwork Penalty
+OnClock2359:
+    if ($TULIM_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $TULIM_REPUTATION=limit(0, $TULIM_REPUTATION-2, 100);
+    if ($HALIN_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $HALIN_REPUTATION=limit(0, $HALIN_REPUTATION-2, 100);
+    if ($HURNS_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $HURNS_REPUTATION=limit(0, $HURNS_REPUTATION-2, 100);
+    if ($NIVAL_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $NIVAL_REPUTATION=limit(0, $NIVAL_REPUTATION-2, 100);
+    if ($LOF_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $LOF_REPUTATION=limit(0, $LOF_REPUTATION-2, 100);
+    if ($FROSTIA_DAILYQUEST != gettimeparam(GETTIME_DAYOFMONTH))
+        $FROSTIA_REPUTATION=limit(0, $FROSTIA_REPUTATION-2, 100);
+    end;
+
 OnSun0000:
     // Weekly income
     $TULIM_MONEY+=$TULIM_EXPORT*limit(0, $TULIM_REPUTATION, 100)/100;
@@ -267,6 +283,8 @@ function	script	POL_Information	{
     mesc l("The account with highest votes will win. Ties will be solved by randomness.");
     mesc l("An account may vote anywhere, but only once per town (weekly).");
     next;
+    mesc l("The town administrator benefits for free services on the town.");
+    mesc l("Also, they can control the city taxes, which incide upon purchases and sales within the town.");
     return;
 }
 
@@ -347,6 +365,7 @@ function	script	POL_Manage	{
     .@EX=getd("$"+getarg(0)+"_EXPORT");
     .@RP=getd("$"+getarg(0)+"_REPUTATION");
     .@CR=getd("$"+getarg(0)+"_TAXOFF");
+    .@DQ=getd("$"+getarg(0)+"_DAILYQUEST");
 
     mesc l("Town Money: @@", .@GP), 2;
     mesc l("Town Reputation: %d | %d.%02d %% Tax", .@RP, .@TX/100, .@TX%100), 2;
@@ -354,6 +373,7 @@ function	script	POL_Manage	{
     next;
     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,
@@ -363,6 +383,13 @@ function	script	POL_Manage	{
         l("Resign"), 99;
     mes "";
     switch (@menuret) {
+        // Mark 0: Cycle
+        case 1:
+            if (rand(3) == 1)
+                setd(.@town$+"_REPUTATION", .@RP+1);
+            setd(.@town$+"_DAILYQUEST", gettimeparam(GETTIME_DAYOFMONTH));
+            mesc l("You dealt with paperwork."), 2;
+            break;
         // Mark 10: Exports
         case 10:
             .@cost=.@EX/10;