New function: @welcome

Controlled by Nard, allows anyone not on a MMO zone to teleport to Candor
when a new player registers. Let's give new players a warm @welcome to the game!

3 files changed, 50 insertions, 0 deletions

diff --git a/npc/002-3/nard.txt b/npc/002-3/nard.txt
index 8ac494abc..e3a490e99 100644
--- a/npc/002-3/nard.txt
+++ b/npc/002-3/nard.txt
@@ -79,6 +79,9 @@ L_Checker:
 	// Event handling
 	if ($EVENT$ == "Event")
 		getitem MercCard_EH, 1;
+    // Welcome handling
+    $@WELCOME_TIMER=gettimetick(2)+600; // 10 minutes
+    kamibroadcast("Hey, look, I've rescued \""+strcharinfo(0)+"\" from the sea! Who will @welcome them?!", "Nard");
     next;
     .@price=800;
     mesc b(l(".:: Main Quest 1-3 ::.")), 3;
diff --git a/npc/commands/welcome.txt b/npc/commands/welcome.txt
new file mode 100644
index 000000000..fef83cc6b
--- /dev/null
+++ b/npc/commands/welcome.txt
@@ -0,0 +1,46 @@
+// TMW2 Script
+// Author:
+//    Jesusalva
+// Description:
+//    Welcome to all new players on ML! :D
+
+-	script	@welcome	32767,{
+    end;
+
+OnCall:
+    CMD_toevent();
+    end;
+
+OnEffect:
+    @toeventchk=0;
+    removespecialeffect(FX_CIRCLE, SELF, getcharid(3));
+    // Calculate
+    if ($@WELCOME_TIMER < gettimetick(2)) {
+        dispbottom l("There are no new players to welcome.");
+        atcommand "@refresh";
+        end;
+    } else if (readparam(Sp) < @toeventval2) {
+        dispbottom l("You must not be using mana to do this trip.");
+        atcommand "@refresh";
+        end;
+    } else if (readparam(Hp) < @toeventval1) {
+        dispbottom l("You cannot be fighting to do this trip.");
+        atcommand "@refresh";
+        end;
+    } else if (compare(getmapname(), "001-") || (getmapinfo(MAPINFO_ZONE, getmap())) == "MMO") {
+        dispbottom l("You currently could not use GM MAGIC to visit Candor.");
+        atcommand "@refresh";
+        end;
+    } else if (getmapname() == "boss" || getmapname() == "sec_pri" || compare(getmapname(), "000-") || compare(getmapname(), "008-") || compare(getmapname(), "005-") || compare(getmapname(), "006-") || compare(getmapname(), "sore")) {
+        dispbottom l("You currently could not use GM MAGIC to visit Candor.");
+        atcommand "@refresh";
+    } else {
+        warp "005-1", 43, 99;
+        message strcharinfo(0), l("You are now at Candor.");
+    }
+    end;
+
+OnInit:
+    bindatcmd "welcome", "@welcome::OnCall", 0, 99, 0;
+}
+
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 23281646b..68881a664 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -107,6 +107,7 @@
 "npc/commands/shroom.txt",
 "npc/commands/super-menu.txt",
 "npc/commands/warp.txt",
+"npc/commands/welcome.txt",
 "npc/commands/wgm.txt",
 "npc/commands/ucp.txt",