summaryrefslogtreecommitdiff
path: root/npc/functions/politics.txt
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2020-02-05 08:56:14 -0300
committerJesusaves <cpntb1@ymail.com>2020-02-05 08:56:14 -0300
commit2b2537f6d5aa4726f8890122e3b1613949d42807 (patch)
treeee89aebc33dc61406fcf1fc8fdf2d9f1134eef69 /npc/functions/politics.txt
parent2d0b349f48747a00bf1daec7a904584740772785 (diff)
downloadserverdata-2b2537f6d5aa4726f8890122e3b1613949d42807.tar.gz
serverdata-2b2537f6d5aa4726f8890122e3b1613949d42807.tar.bz2
serverdata-2b2537f6d5aa4726f8890122e3b1613949d42807.tar.xz
serverdata-2b2537f6d5aa4726f8890122e3b1613949d42807.zip
POLITICS, NEW: Now town admins are forced to do their daily paperwork.
Otherwise, town reputation will fall in 2 points.
Diffstat (limited to 'npc/functions/politics.txt')
-rw-r--r--npc/functions/politics.txt27
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;