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!

1 files changed, 46 insertions, 0 deletions

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;
+}
+