From b35b4ed77eeb1748787c79c4d75813a3c203f6b2 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 15 Feb 2020 07:31:38 -0300
Subject: [skip ci] intervene

---
 npc/commands/kami.txt | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'npc/commands')

diff --git a/npc/commands/kami.txt b/npc/commands/kami.txt
index 5d70dde0d..4591e62d8 100644
--- a/npc/commands/kami.txt
+++ b/npc/commands/kami.txt
@@ -55,6 +55,18 @@ OnInstCheck:
     dispbottom has_instance2(.@request$);
     end;
 
+OnPurify:
+    getmapxy(.@m$, .@x, .@y, 0);
+    .@r=60;
+    .@b=BL_PET;
+
+    .@c=getunits(.@b, .@mbs, false, .@m$, .@x-.@r, .@y-.@r, .@x+.@r, .@y+.@r);
+    for (.@i = 0; .@i < .@c; .@i++) {
+        specialeffect(FX_LIGHTNING, AREA, .@mbs[.@i]);
+        unitkill(.@mbs[.@i]);
+    }
+    end;
+
 OnInit:
     bindatcmd "k", "@k::OnCall", 60, 80, 1;
     bindatcmd "servmsg", "@k::OnServMsg", 80, 99, 1;
@@ -62,6 +74,8 @@ OnInit:
 
     bindatcmd "instcheck", "@k::OnInstCheck", 99, 100, 1;
     bindatcmd "instdestr", "@k::OnInstDestroy", 99, 100, 1;
+    bindatcmd "burnlivio", "@k::OnPurify", 99, 100, 1;
+    end;
 }
 
 // kamibroadcast( message{, sender} )
-- 
cgit v1.2.3-70-g09d2