summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--npc/002-3/nard.txt3
-rw-r--r--npc/commands/welcome.txt46
-rw-r--r--npc/scripts.conf1
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",