goonstation-2020/code/WorkInProgress/banshark.dm

/client/proc/sharkban(mob/sharktarget as mob in world)
	set category = null
	set name = "Shark Ban"
	set popup_menu = 0
	var/startx = 1
	var/starty = 1

	if(!isadmin(src))
		boutput(src, "Only administrators may use this command.")
		return
	else
		var/data[] = genericBanDialog(sharktarget)
		if(data)
			var/speed = input(usr,"How fast is the shark? Lower is faster.","speed","5") as num
			if(!speed)
				return
			var/time = input(usr,"How long until it gives up and cheats? No relation to real time.","time","4") as num
			if(!time)
				return
			boutput(sharktarget, "Uh oh.")
			sharktarget << sound('sound/misc/jaws.ogg')
			logTheThing("diary", usr, sharktarget, "has set the Banshark on %target%!", "admin")
			message_admins("[usr.client.ckey] has set the Banshark on [sharktarget.ckey]!")
			sleep(200)
			startx = sharktarget.x - rand(-11, 11)
			starty = sharktarget.y - rand(-11, 11)
			var/turf/pickedstart = locate(startx, starty, sharktarget.z)
			var/obj/banshark/Q = new /obj/banshark(pickedstart)
			Q.sharktarget2 = sharktarget
			Q.caller = usr
			Q.data = data
			Q.timelimit = time
			Q.sharkspeed = speed


/client/proc/sharkgib(mob/sharktarget as mob in world)
	set category = null
	set name = "Shark Gib"
	set popup_menu = 0
	var/startx = 1
	var/starty = 1
//	var/startside = pick(cardinal)
//	var/pickstarter = null
	if(!isadmin(src))
		boutput(src, "Only administrators may use this command.")
		return

	var/speed = input(usr,"How fast is the shark? Lower is faster.","speed","5") as num
	if(!speed)
		return
//				switch(startside)
//					if(NORTH)
//						starty = world.maxy-2
//						startx = rand(2, world.maxx-2)
//					if(EAST)
//						starty = rand(2,world.maxy-2)
//						startx = world.maxx-2
//					if(SOUTH)
//						starty = 2
//						startx = rand(2, world.maxx-2)
//					if(WEST)
//						starty = rand(2, world.maxy-2)
//						startx = 2
	boutput(sharktarget, "Uh oh.")
	sharktarget << sound('sound/misc/jaws.ogg')
	sleep(200)
	startx = sharktarget.x - rand(-11, 11)
	starty = sharktarget.y - rand(-11, 11)
//				pickedstarter = get_turf(pick(sharktarget:range(10)))
	var/turf/pickedstart = locate(startx, starty, sharktarget.z)
	var/obj/gibshark/Q = new /obj/gibshark(pickedstart)
	Q.sharktarget2 = sharktarget
	Q.caller = usr
	Q.sharkspeed = speed
//				boutput(sharktarget, "<span style=\"color:red\"><BIG><B>You have been banned by [usr.client.ckey].<br>Reason: [reason].</B></BIG></span>")
//				boutput(sharktarget, "<span style=\"color:red\">This is a temporary ban, it will be removed in [sharkmins] minutes.</span>")
//				logTheThing("admin", usr, sharktarget, "has sharked %target%.<br>Reason: [reason]<br>This will be removed in [sharkmins] minutes.")
//				logTheThing("diary", usr, sharktarget, "has sharked %target%.<br>Reason: [reason]<br>This will be removed in [sharkmins] minutes.", "admin")
//				message_admins("<span style=\"color:blue\">[usr.client.ckey] has banned [sharktarget.ckey].<br>Reason: [reason]<br>This will be removed in [sharkmins] minutes.</span>")


/obj/banshark/
	name = "banshark"
	desc = "This is the most terrifying thing you've ever laid eyes on."
	icon = 'icons/misc/banshark.dmi'
	icon_state = "banshark1"
	layer = EFFECTS_LAYER_2
	density = 1
	anchored = 0
	var/mob/sharktarget2 = null
	var/data = null
	var/caller = null
	var/sharkcantreach = 0
	var/timelimit = 6
	var/sharkspeed = 1

	New()
		SPAWN_DBG(0) process()
		..()

	Bump(M as turf|obj|mob)
		M:density = 0
		SPAWN_DBG(4 DECI SECONDS)
			M:density = 1
		sleep(1)
		var/turf/T = get_turf(M)
		src.x = T.x
		src.y = T.y

	proc/process()
		while (!disposed)
			if(!sharktarget2)
				banproc()
				return
			else if (sharkcantreach >= timelimit)
				src.x = sharktarget2.x
				src.y = sharktarget2.y
				src.z = sharktarget2.z
				banproc()
				return
			else if (get_dist(src, src.sharktarget2) <= 1)
				for(var/mob/O in AIviewers(src, null))
					O.show_message("<span style=\"color:red\"><B>[src]</B> bites [sharktarget2]!</span>", 1)
				sharktarget2.changeStatus("weakened", 1 SECOND)
				sharktarget2.changeStatus("stunned", 10 SECONDS)
				playsound(src.loc, 'sound/impact_sounds/Metal_Hit_Heavy_1.ogg', 50, 1, -1)
				banproc()
				return
			else
				walk_towards(src, src.sharktarget2, sharkspeed)
				sleep(10)
				sharkcantreach++

	proc/banproc()
		// drsingh for various cannot read null
		if(sharktarget2)
			for(var/mob/O in AIviewers(src, null))
				O.show_message("<span style=\"color:red\"><B>[src]</B> bans [sharktarget2] in one bite!</span>", 1)
			playsound(src.loc, 'sound/items/eatfood.ogg', 30, 1, -2)
			sharktarget2.gib()
			boutput(sharktarget2, "<span style=\"color:red\"><BIG><B>You have been eaten by the banshark!</B></BIG></span>")
			logTheThing("admin", caller:client, sharktarget2, "has been eaten by the banshark!")
			message_admins("<span style=\"color:blue\">[sharktarget2.ckey] has been eaten by the banshark!</span>")
		else
			boutput(sharktarget2, "<span style=\"color:red\"><BIG><B>You can escape the banshark, but not the ban!</B></BIG></span>")
			logTheThing("admin", caller:client, data["ckey"], "has evaded the shark by ceasing to exist!  Banning them anyway.")
			message_admins("<span style=\"color:blue\">data["ckey"] has evaded the shark by ceasing to exist!  Banning them anyway.</span>")
		addBan(data)
		playsound(src.loc, pick('sound/voice/burp_alien.ogg'), 50, 0)
		qdel(src)

/obj/gibshark/
	name = "gibshark"
	desc = "This is the second most terrifying thing you've ever laid eyes on."
	icon = 'icons/misc/banshark.dmi'
	icon_state = "banshark1"
	layer = EFFECTS_LAYER_2
	density = 1
	anchored = 0
	var/mob/sharktarget2 = null
	var/sharkspeed = 1
	var/caller = null

	New()
		SPAWN_DBG(0) process()
		..()

	Bump(M as turf|obj|mob)
		M:density = 0
		SPAWN_DBG(4 DECI SECONDS)
			M:density = 1
		sleep(1)
		var/turf/T = get_turf(M)
		src.x = T.x
		src.y = T.y

	proc/process()
		while (!disposed)
			if (get_dist(src, src.sharktarget2) <= 1)
				for(var/mob/O in AIviewers(src, null))
					O.show_message("<span style=\"color:red\"><B>[src]</B> bites [sharktarget2]!</span>", 1)
				sharktarget2.changeStatus("weakened", 1 SECOND)
				sharktarget2.changeStatus("stunned", 10 SECONDS)
				playsound(src.loc, 'sound/impact_sounds/Metal_Hit_Heavy_1.ogg', 50, 1, -1)
				gibproc()
				return
			else
				walk_towards(src, src.sharktarget2, sharkspeed)
				sleep(10)

	proc/gibproc()
		// drsingh for various cannot read null.
		sleep(15)
		if (get_dist(src, src.sharktarget2) <= 1)
			for(var/mob/O in AIviewers(src, null))
				O.show_message("<span style=\"color:red\"><B>[src]</B> gibs [sharktarget2] in one bite!</span>", 1)
			playsound(src.loc, 'sound/items/eatfood.ogg', 30, 1, -2)
			if(sharktarget2 && sharktarget2.client)
				logTheThing("admin", caller:client, sharktarget2, "sharkgibbed %target%")
				logTheThing("diary", caller:client, sharktarget2, "sharkgibbed %target%", "admin")
				message_admins("<span style=\"color:blue\">[caller:client.ckey] has sharkgibbed [sharktarget2.ckey].</span>")
				sharktarget2.gib()
			sleep(5)
			playsound(src.loc, pick('sound/voice/burp_alien.ogg'), 50, 0)
			sleep(5)
			qdel(src)
		else
			process()