diff options
| -rw-r--r-- | npc/002-3/nard.txt | 3 | ||||
| -rw-r--r-- | npc/commands/welcome.txt | 46 | ||||
| -rw-r--r-- | npc/scripts.conf | 1 |
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", |