From 103130222f47ac7134ef9a89174090b63e2cca7a Mon Sep 17 00:00:00 2001
From: TurmoilToad <TurmoilToad@gmail.com>
Date: Sun, 8 Jul 2018 23:07:01 -0400
Subject: [PATCH] Updated Perl API   Perl Sub Event Examples (markdown)

---
 Perl-API---Perl-Sub-Event-Examples.md | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/Perl-API---Perl-Sub-Event-Examples.md b/Perl-API---Perl-Sub-Event-Examples.md
index 9e3c142..f7b0037 100644
--- a/Perl-API---Perl-Sub-Event-Examples.md
+++ b/Perl-API---Perl-Sub-Event-Examples.md
@@ -1090,8 +1090,33 @@ sub EVENT_PLAYER_PICKUP {
 ```
 
 # EVENT_POPUPRESPONSE
+
+### Trigger
+
+- When a player clicks a button on a popup.
+
 Used with quest::popup.
 
+### Exports
+
+|Name | Type | Usage
+| --- | --- | ---
+|popupid | int | `quest::say($popupid); # returns int`
+
+### Example
+
+- a well-known example from the Guild Lobby portal pool.
+
+```perl
+sub EVENT_POPUPRESPONSE {
+	#:: Triggered by sub EVENT_ENTER: quest::popup('Teleport', 'Teleport to The Plane of Hate?', 666, 1, 0);
+	if ($popupid == 666) {
+		#:: Teleport the player to hateplaneb
+		quest::movepc(186,-393,656,3);
+	}
+}
+```
+
 # EVENT_PROXIMITY_SAY
 
 ### Trigger
@@ -1132,6 +1157,7 @@ sub EVENT_SAY {
 ### Exports
 
 |Name | Type | Usage
+| --- | --- | ---
 |option | int | `quest::say($option); # returns int`
 |resurrect | int | `quest::say($resurrect); # returns int`
 
@@ -1464,6 +1490,7 @@ The timer will loop until it is stopped, and EVENT_TIMER will trigger each time
 ### Exports
 
 |Name | Type | Usage
+| --- | --- | ---
 |timer | int | `quest::say($timer); # returns int`
 
 ### Example