[MIRROR] Adds more pakkuns (#6850)

Co-authored-by: Heroman3003 <31296024+Heroman3003@users.noreply.github.com>
Co-authored-by: CHOMPStation2 <chompsation2@gmail.com>

code/game/objects/structures/ghost_pods/event_vr.dm

@@ -61,7 +61,12 @@
 								  "Weretiger" = /mob/living/simple_mob/vore/weretiger,
 								  "Lesser Large Dragon" = /mob/living/simple_mob/vore/bigdragon/friendly/maintpred,	//CHOMPStation add.
 								  "Catslug" = /mob/living/simple_mob/vore/alienanimals/catslug,
-								  "Squirrel" = /mob/living/simple_mob/vore/squirrel/big
+								  "Squirrel" = /mob/living/simple_mob/vore/squirrel/big,
+								  "Pakkun" =/mob/living/simple_mob/vore/pakkun,
+								  "Snapdragon" =/mob/living/simple_mob/vore/pakkun/snapdragon,
+								  "Sand pakkun" = /mob/living/simple_mob/vore/pakkun/sand,
+								  "Fire pakkun" = /mob/living/simple_mob/vore/pakkun/fire,
+								  "Amethyst pakkun" = /mob/living/simple_mob/vore/pakkun/purple
 								  )
 
 /obj/structure/ghost_pod/ghost_activated/maintpred/create_occupant(var/mob/M)

code/modules/mob/living/simple_mob/subtypes/vore/pakkun.dm

@@ -49,11 +49,14 @@
 	ai_holder_type = /datum/ai_holder/simple_mob/ranged/pakkun
 	vore_default_mode = DM_SELECT
 
-	var/extra_posessive = FALSE					// Enable if you want their tummy hugs to be inescapable
+	var/extra_possessive = FALSE					// Enable if you want their tummy hugs to be inescapable
 	var/autorest_cooldown = 100
 
 	nom_mob = TRUE
 
+	maxHealth = 100
+	health = 100
+
 /mob/living/simple_mob/vore/pakkun/Life()
 	. = ..()
 	if(client)
@@ -128,7 +131,7 @@
 		return FALSE
 
 /mob/living/simple_mob/vore/pakkun/on_throw_vore_special(var/pred, var/mob/living/target)
-	if(pred && !extra_posessive && !(LAZYFIND(prey_excludes, target)))
+	if(pred && !extra_possessive && !(LAZYFIND(prey_excludes, target)))
 		LAZYSET(prey_excludes, target, world.time)
 		addtimer(CALLBACK(src, PROC_REF(removeMobFromPreyExcludes), WEAKREF(target)), 5 MINUTES)
 	if(ai_holder)
@@ -160,7 +163,7 @@
     else
         ..()
 
-//a palette-swapped version that's a bit tougher and bossier, in JRPG tradition
+//a palette-swapped version that's a bit bossier, in JRPG tradition
 
 /mob/living/simple_mob/vore/pakkun/snapdragon
 	name = "snapdragon"
@@ -170,13 +173,51 @@
 	icon_state = "snapdragon"
 	icon_rest = "snapdragon-rest"
 
-	extra_posessive = TRUE //you're gonna get KEPT, at least the first time you go in
-	maxHealth = 100
-	health = 100
+	extra_possessive = TRUE //you're gonna get KEPT, at least the first time you go in
 
 /mob/living/simple_mob/vore/pakkun/snapdragon/on_throw_vore_special(var/pred, var/mob/living/target)
 	..()
-	extra_posessive = !extra_posessive //toggle their possessiveness on and off every time they eat someone
+	extra_possessive = !extra_possessive //toggle their possessiveness on and off every time they eat someone
+
+//an even greedier pallete-swap
+
+/mob/living/simple_mob/vore/pakkun/sand
+	name = "sand pakkun"
+	desc = "A small, yellow, bipedal reptile. Its head and jaws are rather large in proportion to its body."
+	icon_dead = "pakkunyellow-dead"
+	icon_living = "pakkunyellow"
+	icon_state = "pakkunyellow"
+	icon_rest = "pakkunyellow-rest"
+
+	extra_possessive = TRUE // won't let its prey go if it's awake, luckily, see below.
+
+/mob/living/simple_mob/vore/pakkun/sand/on_throw_vore_special(var/pred, var/mob/living/target)
+	..()
+	autorest_cooldown = 0 // Sand pakkuns, also known as napdragons, like to curl up for an small sleemp after eating. This is your chance to escape.
+
+//use this one sparingly because it is absolutely turbolethal to anyone who has digestion turned on.
+
+/mob/living/simple_mob/vore/pakkun/fire
+	name = "fire pakkun"
+	desc = "A small, red, bipedal reptile. Its head and jaws are rather large in proportion to its body."
+	icon_dead = "pakkunred-dead"
+	icon_living = "pakkunred"
+	icon_state = "pakkunred"
+	icon_rest = "pakkunred-rest"
+
+	extra_possessive = TRUE // yeah this one just... doesn't. It doesn't even have any fancy behaviours. Hope it gets tired or you get saved.
+
+// this one's like a standard blue pakkun in terms of eating behaviour, but wanders a lot more quickly
+
+/mob/living/simple_mob/vore/pakkun/purple
+	name = "amethyst pakkun"
+	desc = "A small, purple, bipedal reptile. Its head and jaws are rather large in proportion to its body."
+	icon_dead = "pakkunpurp-dead"
+	icon_living = "pakkunpurp"
+	icon_state = "pakkunpurp"
+	icon_rest = "pakkunpurp-rest"
+
+	movement_cooldown = -2
 
 // (mostly) friendly pet version