pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-09-08 18:36:37 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update to EVENT_PROXIMITY_SAY

TurmoilToad
2019-01-07 15:43:33 -05:00
parent e8a08d0859
commit bea1cefa9e
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Perl-API---Perl-Sub-Event-Examples.md
+9 -10
@@ -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!");
}
}
```