code/modules/flufftext/Hallucination.dm - Bleeding-Edge - githubmirror/vgstation13

code/modules/flufftext/Hallucination.dm
601 строка20 KB
jwhitak
HUD Vision Datums (#35633)
24 дек 2023, 22:30
24 дек 2023, 22:309dc91ca
/*
Ideas for the subtle effects of hallucination:

Light up oxygen/plasma indicators (done)
Cause health to look critical/dead, even when standing (done)
Characters silently watching you
Brief flashes of fire/space/bombs/c4/dangerous shit (done)
Items that are rare/traitorous/don't exist appearing in your inventory slots (done)
Strange audio (should be rare) (done)
Gunshots/explosions/opening doors/less rare audio (done)

*/
#define MIN_HAL_SLEEP 30

/mob/living/carbon
	var/image/halimage
	var/image/halbody
	var/obj/halitem
	var/hal_screwyhud = 0 //1 - critical, 2 - dead, 3 - oxygen indicator, 4 - toxin indicator
	var/handling_hal = 0
	var/hal_crit = 0

/mob/living/carbon/proc/handle_hallucinations()
	if(handling_hal || isUnconscious())
		return
	handling_hal = 1
	while(hallucination > 20)
		sleep(max(MIN_HAL_SLEEP,(rand(200,500)/(hallucination/25))))

		if (isUnconscious())
			return

		if(gcDestroyed)
			return

		if((src.reagents.has_reagent(CITALOPRAM) && prob(30)) || src.reagents.has_reagent(PAROXETINE))
			continue
		if(prob(3) && hallucinations.len < 3)
			fake_attack(src)
		var/halpick = rand(1,106)
		switch(halpick)
			if(0 to 15)
				//Screwy HUD
//				to_chat(src, "Screwy HUD")
				hal_screwyhud = pick(1,2,3,3,4,4)
				spawn(rand(100,250))
					hal_screwyhud = 0
			if(16 to 25)
				//Strange items
//				to_chat(src, "Traitor Items")
				if(!halitem)
					halitem = new
					var/list/slots_free = list(ui_lhand,ui_rhand)
					if(get_held_item_by_index(GRASP_LEFT_HAND))
						slots_free -= ui_lhand
					if(get_held_item_by_index(GRASP_RIGHT_HAND))
						slots_free -= ui_rhand
					if(istype(src,/mob/living/carbon/human))
						var/mob/living/carbon/human/H = src
						if(!H.belt)
							slots_free += ui_belt
						if(!H.l_store)
							slots_free += ui_storage1
						if(!H.r_store)
							slots_free += ui_storage2
					if(slots_free.len)
						halitem.screen_loc = pick(slots_free)
						halitem.layer = HALLUCINATION_LAYER
						halitem.plane = HUD_PLANE
						switch(rand(1,6))
							if(1) //revolver
								halitem.icon = 'icons/obj/gun.dmi'
								halitem.icon_state = "revolver"
								halitem.name = "Revolver"
							if(2) //c4
								halitem.icon = 'icons/obj/assemblies.dmi'
								halitem.icon_state = pick("plastic-explosive0", "plastic-explosive2")
								halitem.name = "Mysterious Package"
							if(3) //sword
								halitem.icon = 'icons/obj/weapons.dmi'
								halitem.icon_state = "sword1"
								halitem.name = "Sword"
							if(4) //stun baton
								halitem.icon = 'icons/obj/weapons.dmi'
								halitem.icon_state = "stunbaton"
								halitem.name = "Stun Baton"
							if(5) //emag
								halitem.icon = 'icons/obj/card.dmi'
								halitem.icon_state = "emag"
								halitem.name = "Cryptographic Sequencer"
							if(6) //flashbang
								halitem.icon = 'icons/obj/grenade.dmi'
								halitem.icon_state = "flashbang1"
								halitem.name = "Flashbang"
						if(client)
							client.screen += halitem
						spawn(rand(100,250))
							if(client)
								client.screen -= halitem
							halitem = null
			if(26 to 40)
				//Flashes of danger
//				to_chat(src, "Danger Flash")
				if(!halimage && client)
					var/list/possible_points = list()
					for(var/turf/simulated/floor/F in view(src,world.view))
						possible_points += F
					if(possible_points.len)
						var/turf/simulated/floor/target = pick(possible_points)
						switch(rand(1,4))
							if(1) //Space
								halimage = image('icons/turf/space.dmi',target,"[rand(1,25)]",TURF_LAYER)
							if(2) //Fire
								halimage = image('icons/effects/fire.dmi',target,"1",TURF_LAYER)
							if(3) //C4
								halimage = image('icons/obj/assemblies.dmi',target,"plastic-explosive2",OBJ_LAYER+0.01)
							if(4) //Flashbang
								halimage = image('icons/obj/grenade.dmi',target,"flashbang_active",OBJ_LAYER)
						halimage.plane = OBJ_PLANE

						if(client)
							client.images += halimage
						spawn(rand(10,50)) //Only seen for a brief moment.
							if(client)
								client.images -= halimage
							halimage = null


			if(41 to 65)
				//Strange audio
//				to_chat(src, "Strange Audio")
				if(client)
					switch(rand(1,16))
						if(1)
							src << 'sound/machines/airlock.ogg'
						if(2)
							if(prob(50))
								src << 'sound/effects/Explosion1.ogg'
							else
								src << 'sound/effects/Explosion2.ogg'
						if(3)
							src << 'sound/effects/explosionfar.ogg'
						if(4)
							src << 'sound/effects/Glassbr1.ogg'
						if(5)
							src << 'sound/effects/Glassbr2.ogg'
						if(6)
							src << 'sound/effects/Glassbr3.ogg'
						if(7)
							src << 'sound/machines/twobeep.ogg'
						if(8)
							src << 'sound/machines/windowdoor.ogg'
						if(9)
							//To make it more realistic, I added two gunshots (enough to kill)
							src << 'sound/weapons/Gunshot.ogg'
							spawn(rand(10,30))
								if (!isUnconscious())
									src << 'sound/weapons/Gunshot.ogg'
						if(10)
							src << 'sound/weapons/smash.ogg'
						if(11)
							//Same as above, but with tasers.
							src << 'sound/weapons/Taser.ogg'
							spawn(rand(10,30))
								if (!isUnconscious())
									src << 'sound/weapons/Taser.ogg'
					//Rare audio
						if(12)
							//These sounds are (mostly) taken from Hidden: Source
							var/list/creepyasssounds = list('sound/effects/ghost.ogg', 'sound/effects/ghost2.ogg', 'sound/effects/heart_beat_single.ogg', 'sound/effects/ear_ring_single.ogg', 'sound/effects/screech.ogg',\
								'sound/hallucinations/behind_you1.ogg', 'sound/hallucinations/behind_you2.ogg', 'sound/hallucinations/far_noise.ogg', 'sound/hallucinations/growl1.ogg', 'sound/hallucinations/growl2.ogg',\
								'sound/hallucinations/growl3.ogg', 'sound/hallucinations/im_here1.ogg', 'sound/hallucinations/im_here2.ogg', 'sound/hallucinations/i_see_you1.ogg', 'sound/hallucinations/i_see_you2.ogg',\
								'sound/hallucinations/look_up1.ogg', 'sound/hallucinations/look_up2.ogg', 'sound/hallucinations/over_here1.ogg', 'sound/hallucinations/over_here2.ogg', 'sound/hallucinations/over_here3.ogg',\
								'sound/hallucinations/turn_around1.ogg', 'sound/hallucinations/turn_around2.ogg', 'sound/hallucinations/veryfar_noise.ogg', 'sound/hallucinations/wail.ogg')
							src << pick(creepyasssounds)
						if(13)
							if(prob(50))
								src << 'sound/items/Welder.ogg'
							else
								src << 'sound/items/Welder2.ogg'
						if(14)
							if(prob(50))
								src << 'sound/items/Screwdriver.ogg'
							else
								src << 'sound/items/Screwdriver2.ogg'
						if(15) //Alien hiss
							var/list/hisses = list('sound/voice/hiss1.ogg','sound/voice/hiss2.ogg','sound/voice/hiss3.ogg','sound/voice/hiss4.ogg','sound/voice/hiss5.ogg')
							src << pick(hisses)
						if(16) //rip pomf
							src << 'sound/machines/ya_dun_clucked.ogg'
							spawn(rand(1,15))
								if (!isUnconscious())
									to_chat(src, "<i>You are filled with a great sadness.</i>")

			if(66 to 70)
				//Flashes of danger
//				to_chat(src, "Danger Flash")
				if(!halbody && client)
					var/list/possible_points = list()
					for(var/turf/simulated/floor/F in view(src,world.view))
						possible_points += F
					if(possible_points.len)
						var/turf/simulated/floor/target = pick(possible_points)
						switch(rand(1,4))
							if(1)
								halbody = image('icons/mob/human.dmi',target,"husk_l",TURF_LAYER)
							if(2,3)
								halbody = image('icons/mob/human.dmi',target,"husk_s",TURF_LAYER)
							if(4)
								halbody = image('icons/mob/alien.dmi',target,"alienother",TURF_LAYER)
	//						if(5)
	//							halbody = image('xcomalien.dmi',target,"chryssalid",TURF_LAYER)
						halbody.plane = MOB_PLANE
						if(client)
							client.images += halbody
						spawn(rand(50,80)) //Only seen for a brief moment.
							if(client)
								client.images -= halbody
							halbody = null
			if(71 to 72)
				//Fake death
//				src.sleeping_willingly = 1
				src.sleeping = 20
				hal_crit = 1
				hal_screwyhud = 1
				spawn(rand(50,100))
//					src.sleeping_willingly = 0
					src.sleeping = 0
					hal_crit = 0
					hal_screwyhud = 0
			if(73 to 75)
				//Fake changeling/parapen
				if(prob(0.01))
					to_chat(src, "<span class='warning'>You feel a <b>HUGE</b> prick!</span>")
				else
					to_chat(src, "<span class='warning'>You feel a tiny prick!</span>")
			if(76)
				if(prob(5))
					to_chat(src, "<h1 class='alert'>Priority Announcement</h1>")
					to_chat(src, "<span class='alert'>The Emergency Shuttle has docked with the station. You have 3 minutes to board the Emergency Shuttle.</span>")
					src << sound('sound/AI/shuttledock.ogg')
				else
					var/txt_verb = pick("go to","die in","stay in","avoid")
					var/location = pick("security","arrivals","bridge","your old house","the escape shuttle hallway","deep space","the DJ satellite","science")
					to_chat(src, "<i>You feel a sudden urge to [txt_verb] [location][pick("...","!",".")]</i>")
			if(77) //Sillycone
				if(prob(5))
					to_chat(src, "<font size=4 color='red'>Attention! Delta security level reached!</font>")
					to_chat(src, "<span class='red'>[config.alert_desc_delta]</span>")
					src << sound('sound/AI/aimalf.ogg')

					if(src.client)
						message_admins("[key_name(src)] just got a fake delta AI message from hallucinating! [formatJumpTo(get_turf(src))]")
				else
					switch(rand(1,10)) //Copied from nanites disease
						if(1)
							to_chat(src, "Your joints feel stiff.")
						if(2)
							to_chat(src, "<span class='warning'>Beep...boop..</span>")
						if(3)
							to_chat(src, "<span class='warning'>Bop...beeep...</span>")
						if(4)
							to_chat(src, "<span class='warning'>Your joints feel very stiff.</span>")
						if(5)
							say(pick("Beep, boop", "beep, beep!", "Boop...bop"))
						if(6)
							to_chat(src, "Your skin feels loose.")
						if(7)
							to_chat(src, "<span class='warning'>You feel a stabbing pain in your head.</span>")
						if(8)
							to_chat(src, "<span class='warning'>You can feel something move...inside.</span>")
						if(9)
							to_chat(src, "<span class='warning'>Your skin feels very loose.</span>")
						if(10)
							to_chat(src, "<span class='warning'>Your skin feels as if it's about to burst off...</span>")

			if(78 to 80) //Fake ghosts
				to_chat(src, "<i>[pick(boo_phrases)]</i>")
			if(81) //Fake flash
				src << sound('sound/weapons/flash.ogg')
				flash_eyes(visual = 1)

				if(prob(20))
					src.Knockdown(10)
					src.Stun(10)
			if(82 to 85) //Clown
				src << get_sfx("clownstep")
				spawn(rand(16,28))
					if (!isUnconscious())
						src << get_sfx("clownstep")
			if(86) //Makes a random mob near you look like a random food item
				if(prob(15))
					var/mob/living/L = src //Mob to change appearance of (you by default)

					if(prob(50)) //50% chance to apply this effect to a random mob in view
						var/list/mob_list=list()
						for(var/mob/living/M in viewers(src))
							mob_list |= M

						if(mob_list.len)
							L = pick(mob_list)

					var/obj/item/random_food = pick(typesof(/obj/item/weapon/reagent_containers/food/snacks) - typesof(/obj/item/weapon/reagent_containers/food/snacks/customizable))
					if(initial(random_food.icon) && initial(random_food.name) && initial(random_food.icon_state)) //DON'T use food items without a name, icon or icon state
						var/image/foodie = image(initial(random_food.icon), initial(random_food.icon_state))

						foodie.loc = L
						foodie.override = 1 //Override the affected mob's appearance with the food item

						var/client/C = src.client //Get client of the hallucinating mob
						if(C)
							C.images += foodie //Give it the image!

						if(L == src)
							to_chat(src, "<span class='info'>You feel like a [initial(random_food.name)]. Oh wow!</span>")
						else
							to_chat(src, "<span class='info'>You smell [initial(random_food.name)]...</span>")

						var/duration = rand(60 SECONDS, 120 SECONDS)

						spawn(duration)
							if(C)
								C.images.Remove(foodie) //Remove the image from hallucinating mob
			if(87)
				var/mob/living/L

				var/list/mob_list=list()
				for(var/mob/living/M in viewers(src))
					mob_list |= M

				if(mob_list.len)
					L = pick(mob_list)

				var/mob/living/simple_animal/random_mob = pick(existing_typesof(/mob/living/simple_animal/hostile))
				var/image/horror = image(icon = null)
				horror.appearance = initial(random_mob.appearance)

				horror.loc = L
				horror.override = 1 //Override the affected mob's appearance with the monster

				var/client/C = src.client //Get client of the hallucinating mob
				if(C)
					C.images += horror //Give it the image!

				var/duration = rand(60 SECONDS, 120 SECONDS)
				if(src.client)
					message_admins("[key_name(src)] just imagined that [L] looks like a [random_mob], spooky! [formatJumpTo(get_turf(src))]")
				spawn(duration)
					if(C)
						C.images.Remove(horror) //Remove the image from hallucinating mob

			if(88) //Turns your screen
				var/angle = rand(1,3)*90
				var/duration = rand(10 SECONDS, 40 SECONDS)

				var/client/C = client
				if(C)
					C.dir = turn(C.dir, angle)
					to_chat(src, "<span class='danger'>[pick("You feel lost.", "The walls suddenly start moving.", "Everything around you shifts and distorts.")]</span>")

					spawn(duration)
						if(C)
							C.dir = turn(C.dir, -angle)

	handling_hal = 0

/*obj/machinery/proc/mockpanel(list/buttons,start_txt,end_txt,list/mid_txts)


	if(!mocktxt)

		mocktxt = ""

		var/possible_txt = list("Launch Escape Pods","Self-Destruct Sequence","\[Swipe ID\]","De-Monkify",\
		"Reticulate Splines","Plasma","Open Valve","Lockdown","Nerf Airflow","Kill Traitor","Nihilism",\
		"OBJECTION!","Arrest Stephen Bowman","Engage Anti-Trenna Defenses","Increase Captain IQ","Retrieve Arms",\
		"Play Charades","Oxygen","Inject BeAcOs","Ninja Lizards","Limit Break","Build Sentry")

		if(mid_txts)
			while(mid_txts.len)
				var/mid_txt = pick(mid_txts)
				mocktxt += mid_txt
				mid_txts -= mid_txt

		while(buttons.len)

			var/button = pick(buttons)

			var/button_txt = pick(possible_txt)

			mocktxt += "<a href='?src=\ref[src];[button]'>[button_txt]</a><br>"

			buttons -= button
			possible_txt -= button_txt

	return start_txt + mocktxt + end_txt + "</TT></BODY></HTML>"

proc/check_panel(mob/M)
	if (istype(M, /mob/living/carbon/human) || istype(M, /mob/living/silicon/ai))
		if(M.hallucination < 15)
			return 1
	return 0*/

/obj/effect/fake_attacker
	icon = null
	icon_state = null
	name = ""
	desc = ""
	density = 0
	anchored = 1
	opacity = 0
	var/mob/living/carbon/human/my_target = null
	var/weapon_name = null
	var/obj/item/weap = null
	var/image/stand_icon = null
	var/image/currentimage = null
	var/icon/base = null
	var/s_tone
	var/mob/living/clone = null
	var/image/left
	var/image/right
	var/image/up
	var/collapse
	var/image/down

	health = 100

/obj/effect/fake_attacker/attackby(var/obj/item/weapon/P as obj, mob/living/user as mob)
	step_away(src,my_target,2)
	user.do_attack_animation(src, P)
	for(var/mob/M in oviewers(world.view,my_target))
		to_chat(M, "<span class='danger'>[my_target] flails around wildly.</span>")
	my_target.show_message("<span class='danger'>[src] has been attacked by [my_target] </span>", 1) //Lazy.

	src.health -= P.force


	return

/obj/effect/fake_attacker/Crossed(var/mob/M, somenumber)
	if(M == my_target)
		step_away(src,my_target,2)
		if(prob(30))
			for(var/mob/O in oviewers(world.view , my_target))
				to_chat(O, "<span class='danger'>[my_target] stumbles around.</span>")

/obj/effect/fake_attacker/New()
	..()
	step_away(src,my_target,2)
	spawn
		attack_loop()
		if(my_target)
			my_target.hallucinations -= src
		qdel(src)


/obj/effect/fake_attacker/proc/updateimage()
//	del src.currentimage


	if(src.dir == NORTH)
		del src.currentimage
		src.currentimage = new /image(up,src)
	else if(src.dir == SOUTH)
		del src.currentimage
		src.currentimage = new /image(down,src)
	else if(src.dir == EAST)
		del src.currentimage
		src.currentimage = new /image(right,src)
	else if(src.dir == WEST)
		del src.currentimage
		src.currentimage = new /image(left,src)
	my_target << currentimage


/obj/effect/fake_attacker/proc/attack_loop()
	var/time = 0
	while(time < 300)
		var/timespent = rand(5,10)
		time += timespent
		sleep(timespent)
		if(src.health < 0)
			collapse = 1
			updateimage()
			continue
		if(get_dist(src,my_target) > 1)
			src.dir = get_dir(src,my_target)
			step_towards(src,my_target)
			updateimage()
		else
			if(prob(15))
				if(weapon_name)
					my_target << sound(pick('sound/weapons/genhit1.ogg', 'sound/weapons/genhit2.ogg', 'sound/weapons/genhit3.ogg'))
					my_target.show_message("<span class='danger'>[my_target] has been attacked with [weapon_name] by [src.name] </span>", 1)
					my_target.halloss += 8
					if(prob(20))
						my_target.eye_blurry += 3
					if(prob(33))
						if(!locate(/obj/effect/overlay) in my_target.loc)
							fake_blood(my_target)
				else
					my_target << sound(pick('sound/weapons/punch1.ogg','sound/weapons/punch2.ogg','sound/weapons/punch3.ogg','sound/weapons/punch4.ogg'))
					my_target.show_message("<span class='danger'>[src.name] has punched [my_target]!</span>", 1)
					my_target.halloss += 4
					if(prob(33))
						if(!locate(/obj/effect/overlay) in my_target.loc)
							fake_blood(my_target)

		if(prob(15))
			step_away(src,my_target,2)
/*
/obj/effect/fake_attacker/proc/collapse()
	collapse = 1
	updateimage()
*/
/proc/fake_blood(var/mob/living/carbon/human/target)
	var/obj/effect/overlay/O = new /obj/effect/overlay(target.loc)
	O.name = "blood"
	var/image/I = image('icons/effects/blood.dmi',O,"floor[rand(1,7)]",O.dir,1)
	var/blood_color = DEFAULT_BLOOD
	if(target.species && target.species.blood_color)
		blood_color = target.species.blood_color
	I.color = blood_color
	target << I
	spawn(300)
		qdel(O)

var/list/non_fakeattack_weapons = list(/obj/item/weapon/gun/projectile, /obj/item/ammo_storage/box/a357,\
	/obj/item/weapon/gun/energy/crossbow, /obj/item/weapon/melee/energy/sword,\
	/obj/item/weapon/storage/box/syndicate, /obj/item/weapon/storage/box/emps,\
	/obj/item/weapon/cartridge/syndicate, /obj/item/clothing/under/chameleon,\
	/obj/item/clothing/shoes/syndigaloshes, /obj/item/weapon/card/id/syndicate,\
	/obj/item/clothing/mask/gas/voice, /obj/item/clothing/glasses/hud/thermal,\
	/obj/item/device/chameleon, /obj/item/weapon/card/emag,\
	/obj/item/weapon/storage/toolbox/syndicate, /obj/item/weapon/aiModule,\
	/obj/item/device/radio/headset/syndicate,	/obj/item/weapon/c4,\
	/obj/item/device/powersink, /obj/item/weapon/storage/box/syndie_kit,\
	/obj/item/toy/syndicateballoon, /obj/item/weapon/gun/energy/laser/captain,\
	/obj/item/weapon/hand_tele, /obj/item/device/rcd, /obj/item/weapon/tank/jetpack,\
	/obj/item/clothing/under/rank/captain, /obj/item/device/aicard,\
	/obj/item/clothing/shoes/magboots, /obj/item/blueprints, /obj/item/weapon/disk/nuclear,\
	/obj/item/clothing/suit/space/nasavoid, /obj/item/weapon/tank)

/proc/fake_attack(var/mob/living/target)
//	var/list/possible_clones = new/list()
	var/mob/living/carbon/human/clone = null
	var/clone_weapon = null

	for(var/mob/living/carbon/human/H in living_mob_list)
		if(H.stat || H.lying)
			continue
//		possible_clones += H
		clone = H
		break	//changed the code a bit. Less randomised, but less work to do. Should be ok, world.contents aren't stored in any particular order.

//	if(!possible_clones.len) return
//	clone = pick(possible_clones)
	if(!clone)
		return

	//var/obj/effect/fake_attacker/F = new/obj/effect/fake_attacker(outside_range(target))
	var/obj/effect/fake_attacker/F = new /obj/effect/fake_attacker(target.loc)

	for(var/obj/item/I in clone.held_items)
		if(!non_fakeattack_weapons.Find(I.type))
			clone_weapon = I.name
			F.weap = I
			break

	F.name = clone.name
	F.my_target = target
	F.weapon_name = clone_weapon
	target.hallucinations += F


	F.left = image(clone,dir = WEST)
	F.right = image(clone,dir = EAST)
	F.up = image(clone,dir = NORTH)
	F.down = image(clone,dir = SOUTH)

//	F.base = new /icon(clone.stand_icon)
//	F.currentimage = new /image(clone)

/*
	F.left = new /icon(clone.stand_icon,dir=WEST)
	for(var/icon/i in clone.overlays)
		F.left.Blend(i)
	F.up = new /icon(clone.stand_icon,dir=NORTH)
	for(var/icon/i in clone.overlays)
		F.up.Blend(i)
	F.down = new /icon(clone.stand_icon,dir=SOUTH)
	for(var/icon/i in clone.overlays)
		F.down.Blend(i)
	F.right = new /icon(clone.stand_icon,dir=EAST)
	for(var/icon/i in clone.overlays)
		F.right.Blend(i)

	to_chat(target, F.up)
	*/

	F.updateimage()