Work on NPC clowns for the clown planet away mission.

They start peaceful, but attacking them causes them to attack you like a carp.

Attacking a clown will also make all other clowns that can see the attack hostile.

If a clown sees a clown attacking someone, they'll join in the attack

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@4711 316c924e-a436-60f5-8080-3fe189b3f50e

code/modules/mob/living/simple_animal/clown.dm

@@ -0,0 +1,167 @@
+#define CLOWN_STANCE_IDLE 1
+#define CLOWN_STANCE_ATTACK 2
+#define CLOWN_STANCE_ATTACKING 3
+
+/mob/living/simple_animal/clown
+	name = "Clown"
+	desc = "A denizen of clown planet"
+	icon_state = "clown"
+	icon_living = "clown"
+	icon_dead = "clown_dead"
+	icon_gib = "clown_gib"
+	speak_chance = 0
+	turns_per_move = 5
+	response_help = "pokes the"
+	response_disarm = "gently pushes aside the"
+	response_harm = "hits the"
+	speak = list("HONK", "Honk!", "Welcome to clown planet!")
+	emote_see = list("honks")
+	speak_chance = 1
+
+	stop_automated_movement_when_pulled = 0
+	maxHealth = 75
+	health = 75
+
+	harm_intent_damage = 8
+	melee_damage_lower = 10
+	melee_damage_upper = 10
+	attacktext = "attacks"
+
+	min_oxy = 5
+	max_oxy = 0
+	min_tox = 0
+	max_tox = 1
+	min_co2 = 0
+	max_co2 = 5
+	min_n2 = 0
+	max_n2 = 0
+	minbodytemp = 0
+
+	var/hostile = 0
+
+	var/stance = CLOWN_STANCE_IDLE	//Used to determine behavior
+	var/stance_step = 0				//Used to delay checks depending on what stance the clown is in
+	var/mob/living/target_mob
+
+/mob/living/simple_animal/clown/Life()
+	if(stat == DEAD)
+		walk(src,0)//STOP FUCKING MOVING GODDAMN
+		if(health > 0)
+			icon_state = icon_living
+			dead_mob_list -= src
+			living_mob_list += src
+			stat = CONSCIOUS
+			density = 1
+		return
+
+
+	if(health < 1)
+		Die()
+
+	if(health > maxHealth)
+		health = maxHealth
+
+	if(!ckey && !stop_automated_movement)
+		if(isturf(src.loc) && !resting && !buckled && canmove)		//This is so it only moves if it's not inside a closet, gentics machine, etc.
+			turns_since_move++
+			if(turns_since_move >= turns_per_move)
+				if(!(stop_automated_movement_when_pulled && pulledby)) //Soma animals don't move when pulled
+					Move(get_step(src,pick(cardinal)))
+					turns_since_move = 0
+
+	if(!stat)
+		switch(stance)
+			if(CLOWN_STANCE_IDLE)
+				if (src.hostile == 0) return
+				stop_automated_movement = 0
+				stance_step++
+				if(stance_step > 5)
+					stance_step = 0
+					for( var/mob/living/L in viewers(7,src) )
+						if(isclown(L)) continue
+						if(!L.stat)
+							emote("honks menacingly at [L]")
+							stance = CLOWN_STANCE_ATTACK
+							target_mob = L
+							break
+
+			if(CLOWN_STANCE_ATTACK)	//This one should only be active for one tick
+				stop_automated_movement = 1
+				if(!target_mob || target_mob.stat)
+					stance = CLOWN_STANCE_IDLE
+					stance_step = 5 //Make it very alert, so it quickly attacks again if a mob returns
+				if(target_mob in viewers(7,src))
+					walk_to(src, target_mob, 1, 3)
+					stance = CLOWN_STANCE_ATTACKING
+					stance_step = 0
+
+			if(CLOWN_STANCE_ATTACKING)
+				stop_automated_movement = 1
+				stance_step++
+				if(!target_mob || target_mob.stat)
+					stance = CLOWN_STANCE_IDLE
+					stance_step = 3 //Make it very alert, so it quickly attacks again if a mob returns
+					target_mob = null
+					return
+				if(!(target_mob in viewers(7,src)))
+					stance = CLOWN_STANCE_IDLE
+					stance_step = 1
+					target_mob = null
+					return
+				if(get_dist(src, target_mob) <= 1)	//Attacking
+					if(isliving(target_mob))
+						var/mob/living/L = target_mob
+						L.attack_animal(src)
+						if(prob(10))
+							L.Weaken(5)
+							L.visible_message("<span class='danger'>\the [src] knocks down \the [L]!</span>")
+						for(var/mob/M in viewers(src, null))
+							if(istype(M, /mob/living/simple_animal/clown))
+								var/mob/living/simple_animal/clown/C = M
+								C.hostile = 1
+
+/mob/living/simple_animal/clown/bullet_act(var/obj/item/projectile/Proj)
+	..()
+	hostile = 1
+	for(var/mob/M in viewers(src, null))
+		if(istype(M, /mob/living/simple_animal/clown))
+			var/mob/living/simple_animal/clown/C = M
+			C.hostile = 1
+	return 0
+
+
+/mob/living/simple_animal/clown/attackby(var/obj/item/O as obj, var/mob/user as mob)
+	..()
+	hostile = 1
+	for(var/mob/Z in viewers(src, null))
+		if(istype(Z, /mob/living/simple_animal/clown))
+			var/mob/living/simple_animal/clown/C = Z
+			C.hostile = 1
+	return 0
+
+/mob/living/simple_animal/clown/attack_alien(mob/living/carbon/alien/humanoid/M as mob)
+	..()
+	hostile = 1
+	for(var/mob/Z in viewers(src, null))
+		if(istype(Z, /mob/living/simple_animal/clown))
+			var/mob/living/simple_animal/clown/C = Z
+			C.hostile = 1
+	return 0
+
+/mob/living/simple_animal/clown/attack_hand(mob/living/carbon/human/M as mob)
+	..()
+	hostile = 1
+	for(var/mob/Z in viewers(src, null))
+		if(istype(Z, /mob/living/simple_animal/clown))
+			var/mob/living/simple_animal/clown/C = Z
+			C.hostile = 1
+	return 0
+
+/mob/living/simple_animal/clown/attack_animal(mob/living/simple_animal/M as mob)
+	..()
+	hostile = 1
+	for(var/mob/Z in viewers(src, null))
+		if(istype(Z, /mob/living/simple_animal/clown))
+			var/mob/living/simple_animal/clown/C = Z
+			C.hostile = 1
+	return 0

code/modules/mob/mob_helpers.dm

@@ -75,6 +75,11 @@
 		return 1
 	return 0
 
+/proc/isclown(A)
+	if(istype(A, /mob/living/simple_animal/clown))
+		return 1
+	return 0
+
 /proc/isAI(A)
 	if(istype(A, /mob/living/silicon/ai))
 		return 1