From bea1cefa9eacbcf2a618adf9e8483b703845c9c1 Mon Sep 17 00:00:00 2001 From: TurmoilToad Date: Mon, 7 Jan 2019 15:43:33 -0500 Subject: [PATCH] Update to EVENT_PROXIMITY_SAY --- Perl-API---Perl-Sub-Event-Examples.md | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/Perl-API---Perl-Sub-Event-Examples.md b/Perl-API---Perl-Sub-Event-Examples.md index b5b2bb7..903dc0f 100644 --- a/Perl-API---Perl-Sub-Event-Examples.md +++ b/Perl-API---Perl-Sub-Event-Examples.md @@ -1154,7 +1154,7 @@ sub EVENT_POPUPRESPONSE { - When the client enters a mob's proximity and uses the appropriate text trigger supplied beneath this event. -Note that you must set quest::enable_proximity_say() and quest::set_proximity(). +Note that you must enable quest::set_proximity(). ### Example @@ -1162,19 +1162,18 @@ Note that you must set quest::enable_proximity_say() and quest::set_proximity(). ```perl sub EVENT_SPAWN { - #:: Set the proximity bounds around the NPC on spawn, 30 units across - $x = $npc->GetX(); - $y = $npc->GetY(); - quest::set_proximity($x-15,$x+15,$y-15,$y+15); - #:: Enable the NPC for proximity say - quest::enable_proximity_say(); + #:: Grab the NPC's location + $x = $npc->GetX(); + $y = $npc->GetY(); + $z = $npc->GetZ(); + #:: Enable proximity 30 units across, 30 units high, and turn on proximity say + quest::set_proximity($x-15, $x+15, $y-15, $y+15, $z-15, $z+15, 1); } -sub EVENT_SAY { +sub EVENT_PROXIMITY_SAY { #:: Match say message for "hail", /i for case insensitive if ($text=~/hail/i) { - #:: Attack whoever hailed the NPC - quest::attack($name); + quest::say("Hello, $name!"); } } ```