From 6fa0b6ad3a8f913f296b6a62a2782d863c8e3e2c Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 25 Jan 2020 18:26:27 -0300
Subject: 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!

---
 npc/commands/welcome.txt | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 npc/commands/welcome.txt

(limited to 'npc/commands')

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;
+}
+
-- 
cgit v1.2.3-60-g2f50