From 303fb3ce69d82b8f0634a6eccc74a5b8e10f95e9 Mon Sep 17 00:00:00 2001
From: Zafrusteria <zafrusteria@noreply@watchmenclan.com>
Date: Tue, 12 May 2020 12:01:18 -0400
Subject: [PATCH] Updated to include the attacked players level and a level
 range to help.

Updated to include the attacked players level and a level range to help.
New trigger for anyone willing to help now has a clickable link to run you
to the room where the fight is no going.
Added an alias  pkgo that also runs you to the room.
Added more details to the readme.md file. This includes installation and usage.
---
 pk_alert_with_sound.xml | 1131 ++++++++++++++++++++-------------------
 1 file changed, 590 insertions(+), 541 deletions(-)

diff --git a/pk_alert_with_sound.xml b/pk_alert_with_sound.xml
index 8b4755f..b128274 100644
--- a/pk_alert_with_sound.xml
+++ b/pk_alert_with_sound.xml
@@ -1,542 +1,591 @@
-<?xml version="1.0" encoding="iso-8859-1"?>
-<!DOCTYPE muclient>
-<!-- Saved on Monday, October 29, 2018, 1:39 PM -->
-<!-- MuClient version 5.06-pre -->
-
-<!-- Plugin "PK Alert Script" generated by Plugin Wizard -->
-
-<muclient>
-<plugin
-   name="PK_Alert"
-   author="Cytan_Method"
-   id="dc7103896128e00c34b21951"
-   language="Lua"
-   purpose="Notify to channel PK alert information."
-   save_state="y"
-   date_written="2018-10-29 13:37:21"
-   version="1.4"
-   >
-<description trim="y">
-<![CDATA[
-Description Here
-]]>
-</description>
-
-</plugin>
-
-
-<!--  Get our standard constants -->
-
-<include name="constants.lua"/>
-
-<!--  Triggers  -->
-
-<triggers>
-
-  <trigger
-	enabled="y"
-	match="^@\w\(@\wGroup@\w\) @\w(?<saveme>.+): '@\w(?<target>\w+).* @\win @x202(?<area>\w+) @\w\[@x202(?<roomnum>\d+)@\w\]'$"
-	regexp="y"
-	sequence="100"
-	script="respondAlert"
-	omit_from_output="n"
-  >
- </trigger>
-
-  <trigger
-   enabled="y"
-   match="^(\w+) disappears!$"
-   regexp="y"
-   sequence="100"
-   script="recalled"
-  >
-</trigger>
-  <trigger
-   enabled="y"
-   match="^You grab hold of (.*?)\'s neck and choke \w+ to unconsciousness\!$"
-   regexp="y"
-   sequence="100"
-   script="sendStrangleAlert"
-  >
-</trigger>
-
-  <trigger
-   enabled="y"
-   match="^(.*?) looks very uncomfortable\.$"
-   regexp="y"
-   sequence="100"
-   script="sendCursedAlert"
-  >
-  </trigger>
-<!--You switch targets and direct your attacks at Ralyn.-->
-<!--** You can take revenge on Yatzi for 15 minutes-->
-  <trigger
-   enabled="y"
-   match="^\*\* For \w+ interference, you can take revenge on (.*?) for 15 minutes\.$"
-   regexp="y"
-   sequence="100"
-   script="sendPkAlert"
-  >
-  </trigger>
-
-  <trigger
-   enabled="y"
-   match="^\*\* You can take revenge on (.*?) for 15 minutes\.$"
-   regexp="y"
-   sequence="100"
-   script="sendPkAlert"
-  >
-  </trigger>
-
- <trigger
-   enabled="y"
-   match="^\*\* (.*?) can now take revenge on you for 15 minutes\.$"
-   regexp="y"
-   sequence="100"
-   script="sendPkAlert"
-  >
-  </trigger>
-
-  <trigger
-   enabled="y"
-   match="^(?<clan>.+?)\s\(.+\)\s+tells the CLAN: 'PK Alert:(?<attacker>.+)\s+in\s+(?<area>.+?)\s+\[(?<roomid>\d+)\]'$"
-   regexp="y"
-   sequence="100"
-   script="outputHyperLink"
-   ignore_case="y"
-   keep_evaluating="y"
-  >
-  </trigger>
-
-</triggers>
-
-<!--  Plugin help  -->
-
-<aliases>
-
-<alias
-  enabled="y"
-  match="pkc *"
-  script="sendPkInfoClan"
-  sequence="100"
->
-  </alias>
-
-  <alias
-    enabled="y"
-    match="pkg *"
-    script="sendPkInfoGroup"
-    sequence="100"
-  >
-    </alias>
-
-	<alias
-    enabled="y"
-    sequence="100"
-    ignore_case="y"
-    regexp="y"
-    keep_evaluating="n"
-	match="^\s*(?:pkadmin|pkadmi|pkadm)\s+(?<Args>.+)?$"
-	script="COMMAND_PKAdmin"
-    >
-    </alias>
-
- 	<alias
-    enabled="y"
-    sequence="100"
-    ignore_case="y"
-    regexp="y"
-    keep_evaluating="n"
-	match="^\s*(?:pkadmin|pkadmi|pkadm(?<Args>))$"
-	script="COMMAND_PKAdmin"
-    >
-    </alias>
-</aliases>
-
-<script>
-<![CDATA[
---									Settings Management
-require 'serialize'
-
-PKASettings = {}
-PKASettings.volume = 100
-PKASettings.alert = 1
-PKASettings.sound = 1
-PKASettings.enabled = 1
-
-function SaveSettings()
-	SetVariable("PKSettings", serialize.save_simple(PKASettings))
-end
-
-function LoadSettings()
-	assert(loadstring("PKASettings = "..GetVariable("PKSettings"))) ()
-end
-]]></script>
-<script>
-<![CDATA[
---									PKAdmin Commands
-dofile (GetInfo(60) .. "aardwolf_colors.lua")
-
-Prepend = "@GPKAdmin: @W"
-
-function cnote(str)
-	AnsiNote(stylesToANSI(ColoursToStyles(str)))
-end
-
--- Turn on the option to have Mushclient Play Sounds while minimized/background
-SetOption ("play_sounds_in_background", 1)
-
-PKAdminCommands = {
-		COMMAND_PKAdmin_Help					= {"help", "hel", "he", "h"},
-        COMMAND_PKAdmin_Alert                   = {"alert", "aler", "ale" },
-		COMMAND_PKAdmin_Enable					= {"enable", "enabl", "enab", "ena", "on"},
-		COMMAND_PKAdmin_Disable					= {"disable", "disabl", "disab", "disa", "off"},
-        COMMAND_PKAdmin_Sound                   = {"sound", "soun", "soun", "sou" },
-        COMMAND_PKAdmin_Status                  = {"status", "statu", "stat" },
-        COMMAND_PKAdmin_Volume                  = {"volume", "volum", "volu", "vol" },
-		COMMAND_PKAdmin_Reset					= {"reset"}
-}
-
-function COMMAND_PKAdmin(name, lines, wildcards)
-	local args, command = {}, nil
-	--split args, set first to "command", default to 'help'
-	for word in string.gmatch(wildcards.Args, "%w+") do table.insert(args, word) end
-	command = args[1]
-	if command then table.remove(args,1) else command = "help" end
-
-	--parse command
-	command = string.lower(command)
-	for func, list in pairs(PKAdminCommands) do
-		for _, item in ipairs(list) do
-			if command == item then
-				return _G[func](args)
-			end
-		end
-	end
-
-	OUTPUT_UnrecognizedCommand()
-end
-
-function COMMAND_PKAdmin_Help()
-	cnote("@GPKAdmin")
-	cnote("@WUsage:")
-	cnote("   @Gpkadmin help                @w:            @WThis menu")
-	cnote("   @Gpkadmin alert <yes/no>      @w:            @WTurns on/off channel alerts             ")
-	cnote("   @Gpkadmin sound <yes/no>      @w:            @WTurns on/off sound alerts               ")
-	cnote("   @Gpkadmin volume <0-100>      @w:            @WSets the play volume for sound          ")
-	cnote("   @Gpkadmin enable              @w:            @WEnables the script                      ")
-	cnote("   @Gpkadmin disable             @w:            @WDisables the script                     ")
-	Note()
-end
-
-function COMMAND_PKAdmin_Enable()
-	cnote(Prepend.."PKAnnouncer is now @Genabled@W.")
-	PKASettings.enabled = 1
-	SaveSettings()
-end
-
-function COMMAND_PKAdmin_Disable()
-	cnote(Prepend.."PKAnnouncer is now @Rdisabled@W.")
-	PKASettings.enabled = 0
-	SaveSettings()
-end
-
-OnOffCommands = {
-	True			=	{"true", "t", "yes", "y"},
-	False           =   {"false", "f", "no", "n"}
-}
-
-function COMMAND_PKAdmin_Alert(args)
-	local enabled, ch = nil
-	if args and args[1] then
-		ch = string.lower(args[1])
-		for enabl, list in pairs(OnOffCommands) do
-			for _, trunc in ipairs(list) do
-				if trunc == ch then
-					enabled = enabl
-					break
-				end
-			end
-			if enabled then break end
-		end
-
-		if not enabled then --didn't understand arg
-			cnote(Prepend.."@R"..args[1].." is not a valid option.")
-			Note()
-			return
-		end
-	end
-
-	if enabled == "True" then
-		PKASettings.alert = 1
-		cnote(Prepend.."@wAlerts to clan channel are now @GEnabled@w.")
-		SaveSettings()
-	elseif enabled == "False" then
-		PKASettings.alert = 0
-		cnote(Prepend.."@wAlerts to clan channel are now @RDisabled@w.")
-		SaveSettings()
-	end
-end
-
-function COMMAND_PKAdmin_Sound(args)
-	local enabled, ch = nil
-	if args and args[1] then
-		ch = string.lower(args[1])
-		for enabl, list in pairs(OnOffCommands) do
-			for _, trunc in ipairs(list) do
-				if trunc == ch then
-					enabled = enabl
-					break
-				end
-			end
-			if enabled then break end
-		end
-
-		if not enabled then --didn't understand arg
-			cnote(Prepend.."@R"..args[1].." is not a valid option.")
-			Note()
-			return
-		end
-	end
-
-	if enabled == "True" then
-		PKASettings.sound = 1
-		cnote(Prepend.."@wSound alerts are now @GEnabled@w.")
-		SaveSettings()
-	elseif enabled == "False" then
-		PKASettings.sound = 0
-		cnote(Prepend.."@wSound alerts are now @RDisabled@w.")
-		SaveSettings()
-	end
-end
-
-function COMMAND_PKAdmin_Volume(args)
-	if not tonumber(args[1]) or (tonumber(args[1]) < 0) or (tonumber(args[1]) > 100) then
-		cnote(Prepend.."@RVolume@w requires a number from 0-100." )
-		Note()
-		return
-	end
-
-	PKASettings.volume = tonumber(args[1])
-	SaveSettings()
-	cnote(Prepend.."@wVolume is now set to @Y"..tonumber(args[1]).."@w.")
-end
-
-function COMMAND_PKAdmin_Status()
-  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
-  cnote( " " .. Prepend .. " PKAnnouncer's current status is " .. (PKASettings.enabled == 1 and "@GOn" or "@ROff") .. "@w" )
-  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
-  cnote( ("  @x208Channel Alerts :@w %-30.30s " ):format( PKASettings.alert == 1 and "@GOn@w" or "@ROff@w"))
-  cnote( ("  @x208Sound Alerts   :@w %-30.30s " ):format( PKASettings.sound == 1 and "@GOn@w" or "@ROff@w"))
-  cnote( ("  @x208Sound Volume   :@w %-30.0d "  ):format( PKASettings.volume ) )
-  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
-  Note()
-end
-
-function COMMAND_PKAdmin_Reset()
-  PKASettings = {}
-  PKASettings.volume = 100
-  PKASettings.alert = 1
-  PKASettings.sound = 1
-  PKASettings.enabled = 1
-  cnote( Prepend.."PKASettings have been reset to defaults." )
-  SaveSettings()
-end
-
-function OUTPUT_UnrecognizedCommand()
-	cnote(Prepend.."Unrecognized command.  Try @Ggadmin help@W for help.")
-	Note()
-end
-
-]]></script>
-
-<script>
-<![CDATA[
-require "gmcphelper"
-
-local area = ""
-local roomid = ""
-local room = ""
-local target = ""
-local ingroup = false
-local chan = "clan "
-local varSoundFile = GetInfo(74) .. "redalert.wav"
-
-GMCPPluginID = "3e7dedbe37e44942dd46d264"
-
-function isEnabled()
-  if PKASettings.enabled == 1 then
-    return true
-  else
-	return false
-  end
-end
-
-function isSoundEnabled()
-  if PKASettings.sound == 1 then
-    return true
-  else
-	return false
-  end
-end
-
-function isAlertEnabled()
-  if PKASettings.alert == 1 then
-    return true
-  else
-	return false
-  end
-
-end
-
-function sendPkInfoClan(name, line, wildcards)
-  if isEnabled() then
-    getRoomInformation()
-	if isAlertEnabled() then
-      SendNoEcho(string.format("cl @W%s@C ENGAGED @Win @x202%s @W[@x202%s@W]",wildcards[1], area, roomid))
-	end
-    target = wildcards[1]
-  end
-end
-
-function recalled(name, line, wildcards)
-  if isEnabled() and isAlertEnabled() then
-    if (ingroup == true) then
-      chan = "gt "
-    else
-      chan = "clan "
-    end
-    if(wildcards[1] == target) then
-      SendNoEcho(string.format(chan .. "@W%s@C Recalled!",wildcards[1], area, roomid))
-    end
-  end
-end
-
-function sendPkInfoGroup(name, line, wildcards)
-  if isEnabled() and isAlertEnabled() then
-    getRoomInformation()
-    SendNoEcho(string.format("gt @W%s@C ENGAGED @Win @x202%s @W[@x202%s@W]",wildcards[1], area, roomid))
-    target = wildcards[1]
-  end
-end
-
-function sendPkAlert(name, line, wildcards)
-  if isEnabled() then
-    if isAlertEnabled() then
-      getRoomInformation()
-
-      if(wildcards[1] ~= nil) then
-        if (ingroup == true) then
-	  	    SendNoEcho(string.format("gt @RPK Alert: @W%s@C @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	    end
-        SendNoEcho(string.format("cla @RPK Alert: @W%s@C @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	    target = wildcards[1]
-      else
-	    if (ingroup == true) then
-	      SendNoEcho(string.format("gt @RPK Alert: @W%s@C @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	    end
-        SendNoEcho(string.format("cla @RPK Alert: @W%s@C @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	    target = wildcards[1]
-      end
-	end
-
-    --- Give the audio indicator
-    -- Sound( varSoundFile )
-	if isSoundEnabled() then
-      PlaySound( 9, varSoundFile, false, (0-(100-PKASettings.volume)), 0 )
-	end
-  end
-end
-
-function outputHyperLink(name, line, wildcards)
-    if wildcards.roomid ~= nil then
-        ColourTell("red", "", "RPK Alert: ", "goldenrod", "", "I'm getting attacked please help at ",
-               "white", "", "[")
-        Hyperlink("mg "..wildcards.roomid, wildcards.roomid, "Click to run directly to then room Id"..roomid, "orangered", "", 0)
-        ColourNote("White", "", "]!")
-    end
-end
-
-function sendStrangleAlert(name, line, wildcards)
-  if isEnabled() and isAlertEnabled() then
-	getRoomInformation()
-
-	if (ingroup == true) then
-	  chan = "gt "
-    else
-	  chan = "clan "
-    end
-
-    if(wildcards[1] ~= nil) then
-	  Send(string.format(chan .. "@W%s@C STRANGLED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	  target = wildcards[1]
-	else
-	  Send(string.format(chan .. "@W%s@C STRANGLED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	  target = wildcards[1]
-    end
-  end
-end
-
-function sendCursedAlert(name, line, wildcards)
-  if isEnabled() and isAlertEnabled() then
-    if (ingroup == true) then
-	  chan = "gt "
-    else
-	  chan = "clan "
-    end
-    getRoomInformation()
-    if(wildcards[1] ~= nil) then
-      SendNoEcho(string.format(chan .. "@W%s@C CURSED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-	  target = wildcards[1]
-    else
-      Send(string.format(chan .. "@W%s@C CURSED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid))
-      target = wildcards[1]
-    end
-  end
-end
-
-function respondAlert(name, line, wildcards)
-end
-
-function getRoomInformation()
-   if IsConnected() then
-      Send_GMCP_Packet("request room")
-   end
-
-  -- get updated room information
-  gmcproom = gmcp("room")
-  area = gmcproom.info.zone
-  roomid = gmcproom.info.num
-  room = gmcproom.info.name
-end
-
-function OnPluginBroadcast (msg, id, name, text)
-	if id == "3e7dedbe37e44942dd46d264" then
-		if text == "group" then
-			local res, membercount = CallPlugin(GMCPPluginID, "gmcpval", "group.count")
-			if membercount == "" then membercount = 0 end
-			if tonumber(membercount) >= 1 then
-			ingroup = true
-			end
-		end
-	end
-end
-
-function OnPluginInstall()
-    OnPluginEnable()
-end
-function OnPluginEnable()
-  local settings = GetVariable("PKSettings")
-  if settings and settings ~= "" then
-    assert(loadstring("PKASettings = "..GetVariable("PKSettings"))) ()
-  end
-end
-
-
-function OnHelp ()
-  world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
-end
-]]>
-</script>
-
+<?xml version="1.0" encoding="iso-8859-1"?>
+<!DOCTYPE muclient>
+<!-- Saved on Monday, October 29, 2018, 1:39 PM -->
+<!-- MuClient version 5.06-pre -->
+
+<!-- Plugin "PK Alert Script" generated by Plugin Wizard -->
+
+<muclient>
+<plugin
+   name="PK_Alert"
+   author="Cytan_Method"
+   id="dc7103896128e00c34b21951"
+   language="Lua"
+   purpose="Notify to channel PK alert information."
+   save_state="y"
+   date_written="2018-10-29 13:37:21"
+   version="1.5"
+   >
+<description trim="y">
+<![CDATA[
+Description Here
+]]>
+</description>
+
+</plugin>
+
+<!--  Get our standard constants -->
+
+<include name="constants.lua"/>
+
+<!--  Triggers  -->
+
+<triggers>
+  <trigger
+   enabled="y"
+   match="^(\w+) disappears!$"
+   regexp="y"
+   sequence="100"
+   script="recalled"
+  >
+</trigger>
+  <trigger
+   enabled="y"
+   match="^You grab hold of (.*?)\'s neck and choke \w+ to unconsciousness\!$"
+   regexp="y"
+   sequence="100"
+   script="sendStrangleAlert"
+  >
+</trigger>
+
+  <trigger
+   enabled="y"
+   match="^(.*?) looks very uncomfortable\.$"
+   regexp="y"
+   sequence="100"
+   script="sendCursedAlert"
+  >
+  </trigger>
+<!--You switch targets and direct your attacks at Ralyn.-->
+<!--** You can take revenge on Yatzi for 15 minutes-->
+  <trigger
+   enabled="y"
+   match="^\*\* For \w+ interference, you can take revenge on (.*?) for 15 minutes\.$"
+   regexp="y"
+   sequence="100"
+   script="sendPkAlert"
+  >
+  </trigger>
+
+  <trigger
+   enabled="y"
+   match="^\*\* You can take revenge on (.*?) for 15 minutes\.$"
+   regexp="y"
+   sequence="100"
+   script="sendPkAlert"
+  >
+  </trigger>
+
+ <trigger
+   enabled="y"
+   match="^\*\* (.*?) can now take revenge on you for 15 minutes\.$"
+   regexp="y"
+   sequence="100"
+   script="sendPkAlert"
+  >
+  </trigger>
+
+<!--
+The prefix characters '\' that YOU need to use are to be found in world properties -> scripts and then look at the top right for the characters in Script.
+Room 10676 is in Kimr's Farm. safe room. test with
+\Simulate("SuperBuff (Newbie member) tells the CLAN: 'PK Alert:Noddy in Farm [10676].'\n")
+-->
+  <trigger
+   enabled="y"
+   match="^(?<clan>.+?)\s\(.+\)\s+tells the CLAN: 'PK Alert:\s+(?<attacker>.+)\s+in\s+(?<area>.+?)\s+\[(?<roomid>\d+)\](?: I am level \d+ \(\d+ - \d+\))?'$"
+   regexp="y"
+   sequence="100"
+   script="outputHyperLink"
+   ignore_case="y"
+   keep_evaluating="y"
+  >
+  </trigger>
+</triggers>
+
+<aliases>
+<alias
+  enabled="y"
+  match="pkc *"
+  script="sendPkInfoClan"
+  sequence="100"
+>
+  </alias>
+
+  <alias
+    enabled="y"
+    match="pkg *"
+    script="sendPkInfoGroup"
+    sequence="100"
+  >
+    </alias>
+
+	<alias
+    enabled="y"
+    sequence="100"
+    ignore_case="y"
+    regexp="y"
+    keep_evaluating="n"
+	match="^\s*(?:pkadmin|pkadmi|pkadm)\s+(?<Args>.+)?$"
+	script="COMMAND_PKAdmin"
+    >
+    </alias>
+
+ 	<alias
+    enabled="y"
+    sequence="100"
+    ignore_case="y"
+    regexp="y"
+    keep_evaluating="n"
+	match="^\s*(?:pkadmin|pkadmi|pkadm(?<Args>))$"
+	script="COMMAND_PKAdmin"
+    >
+    </alias>
+
+	<alias
+    enabled="y"
+    sequence="100"
+    ignore_case="y"
+    regexp="y"
+    keep_evaluating="n"
+	match="^\s*pk\s*go\s*$"
+	script="runto_PK_room"
+    >
+    </alias>
+
+</aliases>
+
+<script>
+<![CDATA[
+--									Settings Management
+require 'serialize'
+
+PKASettings = {}
+PKASettings.volume = 100
+PKASettings.alert = 1
+PKASettings.sound = 1
+PKASettings.enabled = 1
+PKASettings.playerlevel = 1
+defLevelRange = 10
+PKASettings.levelrange = defLevelRange
+
+local runto_roomid = 0
+
+function SaveSettings()
+	SetVariable("PKSettings", serialize.save_simple(PKASettings))
+end
+
+function LoadSettings()
+	assert(loadstring("PKASettings = "..GetVariable("PKSettings"))) ()
+end
+]]></script>
+<script>
+<![CDATA[
+--									PKAdmin Commands
+dofile (GetInfo(60) .. "aardwolf_colors.lua")
+
+Prepend = "@GPKAdmin: @W"
+
+function cnote(str)
+	AnsiNote(stylesToANSI(ColoursToStyles(str)))
+end
+
+-- Turn on the option to have Mushclient Play Sounds while minimized/background
+SetOption ("play_sounds_in_background", 1)
+
+PKAdminCommands = {
+		COMMAND_PKAdmin_Help					= {"help", "hel", "he", "h"},
+        COMMAND_PKAdmin_Alert                   = {"alert", "aler", "ale" },
+		COMMAND_PKAdmin_Enable					= {"enable", "enabl", "enab", "ena", "on"},
+		COMMAND_PKAdmin_Disable					= {"disable", "disabl", "disab", "disa", "off"},
+        COMMAND_PKAdmin_Sound                   = {"sound", "soun", "soun", "sou" },
+        COMMAND_PKAdmin_Status                  = {"status", "statu", "stat" },
+        COMMAND_PKAdmin_Volume                  = {"volume", "volum", "volu", "vol" },
+        COMMAND_PKAdmin_LevelRange              = {"levelrange", "levelr", "level",},
+		COMMAND_PKAdmin_Reset					= {"reset"}
+}
+
+function COMMAND_PKAdmin(name, lines, wildcards)
+	local args, command = {}, nil
+	--split args, set first to "command", default to 'help'
+	for word in string.gmatch(wildcards.Args, "%w+") do table.insert(args, word) end
+	command = args[1]
+	if command then table.remove(args,1) else command = "help" end
+
+	--parse command
+	command = string.lower(command)
+	for func, list in pairs(PKAdminCommands) do
+		for _, item in ipairs(list) do
+			if command == item then
+				return _G[func](args)
+			end
+		end
+	end
+
+	OUTPUT_UnrecognizedCommand()
+end
+
+function COMMAND_PKAdmin_Help()
+	cnote("@GPKAdmin")
+	cnote("@WUsage:")
+	cnote("   @Gpkadmin help                @w:      @WThis menu")
+	cnote("   @Gpkadmin alert <yes/no>      @w:      @WTurns on/off channel alerts   ")
+	cnote("   @Gpkadmin sound <yes/no>      @w:      @WTurns on/off sound alerts     ")
+	cnote("   @Gpkadmin volume <0-100>      @w:      @WSets the play volume for sound")
+	cnote("   @Gpkadmin levelrange <1-100>  @w:      @WSet the range of levels displayed in the PK Alert")
+	cnote("   @Gpkadmin enable              @w:      @WEnables the script            ")
+	cnote("   @Gpkadmin disable             @w:      @WDisables the script           ")
+	Note()
+
+	cnote("   @Gpkgo                        @w:      @W\"Runto\" help your clan mate out")
+	Note()
+end
+
+function COMMAND_PKAdmin_Enable()
+	cnote(Prepend.."PKAnnouncer is now @Genabled@W.")
+	PKASettings.enabled = 1
+	SaveSettings()
+end
+
+function COMMAND_PKAdmin_Disable()
+	cnote(Prepend.."PKAnnouncer is now @Rdisabled@W.")
+	PKASettings.enabled = 0
+	SaveSettings()
+end
+
+OnOffCommands = {
+	True			=	{"true", "t", "yes", "y"},
+	False           =   {"false", "f", "no", "n"}
+}
+
+function COMMAND_PKAdmin_Alert(args)
+	local enabled, ch = nil
+	if args and args[1] then
+		ch = string.lower(args[1])
+		for enabl, list in pairs(OnOffCommands) do
+			for _, trunc in ipairs(list) do
+				if trunc == ch then
+					enabled = enabl
+					break
+				end
+			end
+			if enabled then break end
+		end
+
+		if not enabled then --didn't understand arg
+			cnote(Prepend.."@R"..args[1].." is not a valid option.")
+			Note()
+			return
+		end
+	end
+
+	if enabled == "True" then
+		PKASettings.alert = 1
+		cnote(Prepend.."@wAlerts to clan channel are now @GEnabled@w.")
+		SaveSettings()
+	elseif enabled == "False" then
+		PKASettings.alert = 0
+		cnote(Prepend.."@wAlerts to clan channel are now @RDisabled@w.")
+		SaveSettings()
+	end
+end
+
+function COMMAND_PKAdmin_Sound(args)
+	local enabled, ch = nil
+	if args and args[1] then
+		ch = string.lower(args[1])
+		for enabl, list in pairs(OnOffCommands) do
+			for _, trunc in ipairs(list) do
+				if trunc == ch then
+					enabled = enabl
+					break
+				end
+			end
+			if enabled then break end
+		end
+
+		if not enabled then --didn't understand arg
+			cnote(Prepend.."@R"..args[1].." is not a valid option.")
+			Note()
+			return
+		end
+	end
+
+	if enabled == "True" then
+		PKASettings.sound = 1
+		cnote(Prepend.."@wSound alerts are now @GEnabled@w.")
+		SaveSettings()
+	elseif enabled == "False" then
+		PKASettings.sound = 0
+		cnote(Prepend.."@wSound alerts are now @RDisabled@w.")
+		SaveSettings()
+	end
+end
+
+function COMMAND_PKAdmin_Volume(args)
+	if not tonumber(args[1]) or (tonumber(args[1]) < 0) or (tonumber(args[1]) > 100) then
+		cnote(Prepend.."@RVolume@w requires a number from 0-100." )
+		Note()
+		return
+	end
+
+	PKASettings.volume = tonumber(args[1])
+	SaveSettings()
+	cnote(Prepend.."@wVolume is now set to @Y"..tonumber(args[1]).."@w.")
+end
+
+function COMMAND_PKAdmin_LevelRange(args)
+	if not tonumber(args[1]) or (tonumber(args[1]) < 0) then
+		cnote(Prepend.."@RLevel Range@w requires a number greater than zero.")
+		Note()
+		return
+	end
+
+	PKASettings.levelrange = tonumber(args[1])
+	SaveSettings()
+	cnote(Prepend.."@wLevel range is now set to @Y+/-"..PKASettings.levelrange.."@w.")
+end
+
+function COMMAND_PKAdmin_Status()
+  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
+  cnote( " " .. Prepend .. " PKAnnouncer's current status is " .. (PKASettings.enabled == 1 and "@GOn" or "@ROff") .. "@w" )
+  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
+  cnote( ("  @x208Channel Alerts :@w %-30.30s " ):format( PKASettings.alert == 1 and "@GOn@w" or "@ROff@w"))
+  cnote( ("  @x208Sound Alerts   :@w %-30.30s " ):format( PKASettings.sound == 1 and "@GOn@w" or "@ROff@w"))
+  cnote( ("  @x208Sound Volume   :@w %-30.0d "  ):format( PKASettings.volume ) )
+  cnote( ("  @x208Level Range    :@w +/-%-30.0d "  ):format( PKASettings.levelrange) )
+  cnote( "@R+@w-----------------------------------------------------------------------------------------@R+@w" )
+  Note()
+end
+
+function COMMAND_PKAdmin_Reset()
+  PKASettings = {}
+  PKASettings.volume = 100
+  PKASettings.alert = 1
+  PKASettings.sound = 1
+  PKASettings.enabled = 1
+  PKASettings.levelrange = defLevelRange
+  PKASettings.playerlevel = tonumber(gmcp("char.status.level"))
+  cnote( Prepend.."PKASettings have been reset to defaults." )
+  SaveSettings()
+end
+
+function OUTPUT_UnrecognizedCommand()
+	cnote(Prepend.."Unrecognized command.  Try @Ggadmin help@W for help.")
+	Note()
+end
+
+]]></script>
+
+<script>
+<![CDATA[
+require "gmcphelper"
+
+local area = ""
+local roomid = ""
+local room = ""
+local target = ""
+local ingroup = false
+local chan = "clan "
+local varSoundFile = GetInfo(74) .. "redalert.wav"
+
+GMCPPluginID = "3e7dedbe37e44942dd46d264"
+
+function isEnabled()
+  if PKASettings.enabled == 1 then
+    return true
+  else
+	return false
+  end
+end
+
+function isSoundEnabled()
+  if PKASettings.sound == 1 then
+    return true
+  else
+	return false
+  end
+end
+
+function isAlertEnabled()
+  if PKASettings.alert == 1 then
+    return true
+  else
+	return false
+  end
+end
+
+function sendPkInfoClan(name, line, wildcards)
+  if isEnabled() then
+    getRoomInformation()
+	if isAlertEnabled() then
+      local msg = string.format(" @W%s@C ENGAGED @Win @x202%s @W[@x202%s@W]",wildcards[1], area, roomid)
+      msg = addLevelRangeText(msg)
+      SendNoEcho("clan "..msg)
+	end
+    target = wildcards[1]
+  end
+end
+
+function recalled(name, line, wildcards)
+  if isEnabled() and isAlertEnabled() then
+    if(wildcards[1] == target) then
+      if (ingroup == true) then
+        chan = "gt "
+      else
+        chan = "clan "
+      end
+      SendNoEcho(string.format(chan .. "@W%s@C Recalled!",wildcards[1], area, roomid))
+    end
+  end
+end
+
+function sendPkInfoGroup(name, line, wildcards)
+  if isEnabled() and isAlertEnabled() then
+    getRoomInformation()
+    local msg = string.format(" @W%s@C ENGAGED @Win @x202%s @W[@x202%s@W]",wildcards[1], area, roomid)
+    msg = addLevelRangeText(msg)
+    SendNoEcho("gt "..msg)
+
+    target = wildcards[1]
+  end
+end
+
+function sendPkAlert(name, line, wildcards)
+  if isEnabled() then
+    if isAlertEnabled() then
+      getRoomInformation()
+
+      if wildcards[1] ~= nil then
+        local msg = string.format(" @RPK Alert: @W%s @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid)
+        msg = addLevelRangeText(msg)
+	    SendNoEcho("clan "..msg)
+        if ingroup == true then
+    	    SendNoEcho("gt "..msg)
+        end
+	    target = wildcards[1]
+     end
+	end
+
+    --- Give the audio indicator
+    -- Sound( varSoundFile )
+	if isSoundEnabled() then
+      PlaySound( 9, varSoundFile, false, (0-(100-PKASettings.volume)), 0 )
+	end
+  end
+end
+
+function outputHyperLink(name, line, wildcards)
+    if wildcards.roomid ~= nil then
+        runto_roomid = wildcards.roomid
+
+        ColourTell("red", "", "RPK Alert: ", "goldenrod", "", "I'm getting attacked please help at ",
+               "white", "", "[")
+        Hyperlink("mg "..wildcards.roomid, wildcards.roomid, "Click to run directly to then room Id"..roomid, "orangered", "", 0)
+        ColourNote("White", "", "]!")
+    end
+end
+
+function runto_PK_room()
+    if runto_roomid ~= 0 then
+        Execute("mapper goto "..runto_roomid)
+    end
+end
+
+function sendStrangleAlert(name, line, wildcards)
+  if isEnabled() and isAlertEnabled() then
+	getRoomInformation()
+
+    if(wildcards[1] ~= nil) then
+        local msg = string.format("@W%s@C STRANGLED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid)
+        msg = addLevelRangeText(msg)
+		SendNoEcho("clan "..msg)
+        if ingroup == true then
+            SendNoEcho("gt "..msg)
+        end
+        target = wildcards[1]
+    end
+  end
+end
+
+function sendCursedAlert(name, line, wildcards)
+  if isEnabled() and isAlertEnabled() then
+    if (ingroup == true) then
+	  chan = "gt "
+    else
+	  chan = "clan "
+    end
+    getRoomInformation()
+    if(wildcards[1] ~= nil) then
+        local msg = string.format("@W%s@C CURSED @Win @x202%s @W[@x202%s@W]", wildcards[1], area, roomid)
+        msg = addLevelRangeText(msg)
+		SendNoEcho("clan "..msg)
+        if ingroup == true then
+            SendNoEcho("gt "..msg)
+        end
+        target = wildcards[1]
+    end
+  end
+end
+
+function getRoomInformation()
+   if IsConnected() then
+      Send_GMCP_Packet("request room")
+   end
+
+  -- get updated room information
+  gmcproom = gmcp("room")
+  area = gmcproom.info.zone
+  roomid = gmcproom.info.num
+  room = gmcproom.info.name
+end
+
+function addLevelRangeText(msg)
+    if PKASettings.playerlevel > 0 and PKASettings.levelrange > 0 then
+        local min = PKASettings.playerlevel - PKASettings.levelrange
+        if min < 1 then min = 1 end
+
+        local max = PKASettings.playerlevel + PKASettings.levelrange
+        if max > 201 then max = 201 end
+
+        msg = msg.." I am level @x202"..PKASettings.playerlevel.." @W(@x202"..min.."@W - @x202"..max.."@W)"
+    end
+
+    return msg
+end
+
+function OnPluginBroadcast (msg, id, name, text)
+	if id == GMCPPluginID then
+		if text == "group" then
+			local res, membercount = CallPlugin(GMCPPluginID, "gmcpval", "group.count")
+			if membercount == "" then membercount = 0 end
+			if tonumber(membercount) >= 1 then
+			    ingroup = true
+			end
+        elseif text == "char.status" then
+            PKASettings.playerlevel = tonumber(gmcp("char.status.level"))
+		end
+	end
+end
+
+function OnPluginInstall()
+    OnPluginEnable()
+end
+
+function OnPluginEnable()
+  local settings = GetVariable("PKSettings")
+  if settings and settings ~= "" then
+    assert(loadstring("PKASettings = "..GetVariable("PKSettings"))) ()
+  end
+
+  if PKASettings.levelrange == nil then PKASettings.levelrange = defLevelRange end
+
+  Send_GMCP_Packet("request char")
+end
+
+function OnHelp ()
+  world.Note (world.GetPluginInfo (world.GetPluginID (), 3))
+end
+]]>
+</script>
+
 </muclient>
\ No newline at end of file