From f64a23064f64fc534e7cdf7afebc3c4e7060a2ee Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 30 Jan 2022 16:45:06 -0300
Subject: When Prsm is online, and only when Prsm is online, Bob can warp you
 back. This is to prevent abuse e.g. talk to Bob to quick travel to Swamps.

---
 world/map/npc/009-1/constable.txt | 23 +++++++++++++++++++++++
 world/map/npc/annuals/2022.txt    | 10 ++++++++++
 2 files changed, 33 insertions(+)

diff --git a/world/map/npc/009-1/constable.txt b/world/map/npc/009-1/constable.txt
index d1c71f34..fe2e75e5 100644
--- a/world/map/npc/009-1/constable.txt
+++ b/world/map/npc/009-1/constable.txt
@@ -2,6 +2,7 @@
 
 009-1,55,34,0|script|Constable Bob|419
 {
+    if ($@PRSM_ONLINE && $@PRSM_PARTY) goto L_Party;
     npctalk strnpcinfo(0), "I've acquired mass warp powers; Right after the day of the fool, wear something cool.";
     mes "[Constable Bob]";
     mes "\"Hello.\"";
@@ -11,6 +12,28 @@
     close;
 
 /* 2022 Blackbox */
+L_Party:
+    mes "[Constable Bob]";
+    mes "\"I'm holding a party for Prsm, do you want to come? You won't be eligible for any prizes, though.\"";
+    next;
+    menu
+        "Yeah", L_P22Y,
+        "Nah", L_P22N;
+
+L_P22Y:
+    warp "003-1", 45, 24;
+    mapmask 1 | 2;
+    close;
+
+L_P22N:
+    mes "[Constable Bob]";
+    mes "\"A pity. Anyway.\"";
+    mes "\"I've been getting complaints of lawlessness in Hurnscald recently, so I thought I'd come down here myself and explain the rules.\"";
+    mes "\"Please make sure that you follow them!\"";
+    next;
+    callfunc "GameRules";
+    close;
+
 L_End:
     end;
 
diff --git a/world/map/npc/annuals/2022.txt b/world/map/npc/annuals/2022.txt
index d1e473fa..31b48971 100644
--- a/world/map/npc/annuals/2022.txt
+++ b/world/map/npc/annuals/2022.txt
@@ -17,6 +17,7 @@ L_Warn:
     goto L_Prompt;
 
 L_Prompt:
+    if (strcharinfo(0) == "Prsm") set $@PRSM_ONLINE, 0;
     next;
     menu
         "I'll stay a bit longer.", L_Close,
@@ -80,6 +81,7 @@ L_Candor:
     close;
 }
 
+////////////////////////////////////////////////
 function|script|P22Login
 {
     if (gettime(7) != 2022) goto L_Return;
@@ -92,12 +94,20 @@ L_Warp:
     set #X21, 5;
     warp "003-1", 45, 24;
     mapmask 1 | 2;
+    if (strcharinfo(0) == "Prsm") goto L_Prsm;
+    return;
+
+L_Prsm:
+    npctalk "Constable Bob#P21", "Prsm, congratulations for 11 years in TMW Staff! \o/";
+    set $@PRSM_ONLINE, 1;
+    sc_end(SC_HIDE);
     return;
 
 L_Return:
     return;
 }
 
+////////////////////////////////////////////////
 003-1,41,24,0|script|Constable Bob#P21|419
 {
     if (!$@PRSM_PARTY) goto L_Over;
-- 
cgit v1.2.3-60-g2f50