From eea0279bfea41ecbe20ede6bf79c6c05de59eba1 Mon Sep 17 00:00:00 2001
From: Skullyton <jollydragon@outlook.com>
Date: Sun, 1 Jan 2017 19:27:00 +0000
Subject: [PATCH] Adds ass removal button (#13207)

* Ass blast U S A

* logging

* How embarrasing
---
 code/modules/admin/admin.dm      |  1 +
 code/modules/admin/topic.dm      | 24 ++++++++++++++++++++++++
 code/modules/admin/verbs/pray.dm |  2 +-
 3 files changed, 26 insertions(+), 1 deletion(-)

diff --git a/code/modules/admin/admin.dm b/code/modules/admin/admin.dm
index d6ad055140e..f6748807ad7 100644
--- a/code/modules/admin/admin.dm
+++ b/code/modules/admin/admin.dm
@@ -106,6 +106,7 @@ var/global/floorIsLava = 0
 			<A href='?src=\ref[src];addcancer=\ref[M]'>Inflict Cancer</A> |
 			<A href='?src=\ref[src];makecatbeast=\ref[M]'>Make Catbeast</A> |
 			<A href='?src=\ref[src];makecluwne=\ref[M]'>Make Cluwne</A> |
+			<A href='?src=\ref[src];Assplode=\ref[M]'>Assplode</A> |
 		"}
 
 	// Mob-specific controls.
diff --git a/code/modules/admin/topic.dm b/code/modules/admin/topic.dm
index c34a444cd80..74e03cc931f 100644
--- a/code/modules/admin/topic.dm
+++ b/code/modules/admin/topic.dm
@@ -2183,6 +2183,30 @@
 			M.Knockdown(20)
 			M.stuttering = 20
 
+	else if(href_list["Assplode"])
+		if(!check_rights(R_ADMIN|R_FUN))
+			return
+
+		var/mob/living/carbon/human/H = locate(href_list["Assplode"])
+		if(!ishuman(H))
+			to_chat(usr, "This can only be used on instances of type /mob/living/carbon/human")
+			return
+
+		if(H.op_stage.butt != 4) // does the target have an ass
+			var/obj/item/clothing/head/butt/B = new(H.loc)
+			B.transfer_buttdentity(H)
+			H.op_stage.butt = 4 //No having two butts.
+			to_chat(H, "<span class='warning'>Your ass was just blown off by an unknown force!</span>")
+			log_admin("[key_name(H)] was buttblasted by [src.owner]")
+			message_admins("[key_name(H)] was buttblasted by [src.owner]")
+			playsound(get_turf(H), 'sound/effects/superfart.ogg', 50, 1)
+			H.apply_damage(40, BRUTE, LIMB_GROIN)
+			H.apply_damage(10, BURN, LIMB_GROIN)
+			H.Knockdown(8)
+			H.Stun(8)
+		else
+			to_chat(usr, "This target has already lost their butt in some unfortunate circumstance.")
+
 	else if (href_list["PrayerReply"])
 		if(!check_rights(R_ADMIN))
 			return
diff --git a/code/modules/admin/verbs/pray.dm b/code/modules/admin/verbs/pray.dm
index a683d28e710..5d57dc138bf 100644
--- a/code/modules/admin/verbs/pray.dm
+++ b/code/modules/admin/verbs/pray.dm
@@ -20,7 +20,7 @@
 
 	var/orig_message = msg
 	var/image/cross = image('icons/obj/storage.dmi',"bible")
-	msg = "<span class='notice'>[bicon(cross)] <b><font color='purple'>PRAY (DEITY:[ticker.Bible_deity_name]): </font>[key_name(src, 1)] (<A HREF='?_src_=holder;adminmoreinfo=\ref[src]'>?</A>) (<A HREF='?_src_=holder;adminplayeropts=\ref[src]'>PP</A>) (<A HREF='?_src_=vars;Vars=\ref[src]'>VV</A>) (<A HREF='?_src_=holder;adminplayerobservejump=\ref[src]'>JMP</A>) (<A HREF='?_src_=holder;secretsadmin=check_antagonist'>CA</A>) (<A HREF='?_src_=holder;adminspawncookie=\ref[src]'>SC</a>) (<A HREF='?_src_=holder;BlueSpaceArtillery=\ref[src]'>BSA</A>) (<A HREF='?_src_=holder;PrayerReply=\ref[src]'>RPLY</A>):</b> [msg]</span>"
+	msg = "<span class='notice'>[bicon(cross)] <b><font color='purple'>PRAY (DEITY:[ticker.Bible_deity_name]): </font>[key_name(src, 1)] (<A HREF='?_src_=holder;adminmoreinfo=\ref[src]'>?</A>) (<A HREF='?_src_=holder;adminplayeropts=\ref[src]'>PP</A>) (<A HREF='?_src_=vars;Vars=\ref[src]'>VV</A>) (<A HREF='?_src_=holder;adminplayerobservejump=\ref[src]'>JMP</A>) (<A HREF='?_src_=holder;secretsadmin=check_antagonist'>CA</A>) (<A HREF='?_src_=holder;adminspawncookie=\ref[src]'>SC</a>) (<A HREF='?_src_=holder;BlueSpaceArtillery=\ref[src]'>BSA</A>) (<A HREF='?_src_=holder;Assplode=\ref[src]'>ASS</A>) (<A HREF='?_src_=holder;PrayerReply=\ref[src]'>RPLY</A>):</b> [msg]</span>"
 
 	send_prayer_to_admins(msg, 'sound/effects/prayer.ogg')