1 files changed, 26 insertions, 0 deletions
diff --git a/npc/functions/politics.txt b/npc/functions/politics.txt
index b1c92a726..ba7cd4a90 100644
--- a/npc/functions/politics.txt
+++ b/npc/functions/politics.txt
@@ -68,6 +68,32 @@ function	script	SaleTaxes	{
     return;
 }
 
+// Convert LOC (uppercase) to a TP variable
+// POL_LocToTP( {TOWNCODE} )
+function	script	POL_LocToTP	{
+    .@tw$=strtoupper(getarg(0, LOCATION$));
+
+    if (.@tw$ == "TULIM")
+        return TP_TULIM;
+
+    if (.@tw$ == "HALIN")
+        return TP_HALIN;
+
+    if (.@tw$ == "HURNS")
+        return TP_HURNS;
+
+    if (.@tw$ == "LOF")
+        return TP_LOF;
+
+    if (.@tw$ == "NIVAL")
+        return TP_NIVAL;
+
+    if (.@tw$ == "FROSTIA")
+        return TP_FROSTIA;
+
+    return Exception("Invalid town requested / POL_LocToTP", RB_DEFAULT|RB_SPEECH, -1);
+}
+
 -	script	Politics	NPC_HIDDEN,{
 
 OnSun0000: