This is the basic for political system to work on HURNSCALD (alpha)

1 files changed, 54 insertions, 0 deletions

diff --git a/npc/functions/politics.txt b/npc/functions/politics.txt
index b4ddde37d..64884ca46 100644
--- a/npc/functions/politics.txt
+++ b/npc/functions/politics.txt
@@ -138,6 +138,60 @@ OnSun0000:
     rodex_sendmail(gf_charnameid($FROSTIA_MAYOR$), "Frostia Townhall", "Election Victory", "You've been elected to the office!");
 
     end;
+}
+/////////////////////////
+
+
+// Dialog helpers
+// General info
+// POL_Information(  )
+function	script	POL_Information	{
+
+    mesc l("Weekly, at Sunday 00:00, elections are held.");
+    mesc l("The current town administrator will be re-elected if there are no candidates.");
+    mesc l("Town Administrator can use the town money for investments, and also receive a salary depending on how well the town is.");
+    next;
+    mesc l("A player may be the town admin of several different towns.");
+    mesc l("However, an account may only apply for an office weekly.");
+    mesc l("The account with highest votes will win. Ties will be solved by date of application.");
+    mesc l("An account may vote anywhere, but only once every day.");
+    next;
+    return;
+}
+
+// Candidate Info and voting
+// POL_Candidate( TOWNCODE )
+function	script	POL_Candidate	{
+    copyarray( .@cd$, getd("$"+getarg(0)+"_CANDIDATE$"), getarraysize(getd("$"+getarg(0)+"_CANDIDATE$")) );
+    copyarray( .@vt, getd("$"+getarg(0)+"_VOTES"), getarraysize(getd("$"+getarg(0)+"_VOTES")) );
 
+    .@list="Don't vote";
+    for (.@i=0;.@i<getarraysize(.@cd$);.@i++) {
+        mesc .@cd$[.@i] + " - "+.@vt[.@i] + " " + l("votes");
+        .@list+=":"+.@cd$[.@i];
+    }
+
+    next;
+    if (#POL_VOTEDAY == gettimeparam(GETTIME_DAYOFMONTH))
+        return;
+    mesc l("In whom to vote?");
+    select .@list;
+    .@vote=@menu-1;
+
+    // Didn't vote
+    if (.@vote < 0)
+        return;
+
+    // Cast the vote
+    #POL_VOTEDAY=gettimeparam(GETTIME_DAYOFMONTH);
+    .@str$="$"+getarg(0)+"_VOTES"+"["+.@vote+"]";
+    .@vt=getd(.@str$);
+    setd(.@str$, .@vt+1);
+
+    mesc l("The vote was cast."), 3;
+    next;
+    return true;
 }
 
+
+