diff --git a/src/pregmod/beastFucked.tw b/src/pregmod/beastFucked.tw
index e05aff240fad0f4e36ebc4c070bc2d1f7ba920f6..0e0a26d185bdf1acdb955e50e89c5f667c068031 100644
--- a/src/pregmod/beastFucked.tw
+++ b/src/pregmod/beastFucked.tw
@@ -7,20 +7,25 @@
 	<<set _animal = {species: "horse", dickSize: "huge", ballType: "horse"}>>
 <<elseif $species == "dog">>
 	<<set _animal = {species: "dog", dickSize: "large", ballType: "dog"}>>
+<<elseif $species == "lion">>
+    <<set _animal = {species: "lion", dickSize: "large", ballType: "lion"}>>
 <</if>>
 
 <<if canDoVaginal($activeSlave)>>
     <<set _sexAct = "vaginal">>
+    <<set _orifice = "pussy">>
 <<elseif canDoAnal($activeSlave)>>
     <<set _sexAct = "anal">>
+    <<set _orifice = "asshole">>
 <<else>>
     <<set _sexAct = "oral">>
+    <<set _orifice = "mouth">>
 <</if>>
 
 <<if canWalk($activeSlave)>>
-    You call $him over and tell $him you want to watch $him <<if canDoVaginal($activeSlave) || canDoAnal($activeSlave)>>get fucked by<<else>>suck off<</if>> a _animal.species.
+    You call $him over and tell $him you want to watch $him <<switch _sexAct>><<case "vaginal" "anal">>get fucked by<<case "oral">>suck off<</switch>> a _animal.species.
 <<else>>
-    You order another slave to bring $activeSlave.slaveName over. Once $he is situated, you tell $him that you want to watch $him <<if canDoVaginal($activeSlave) || canDoAnal($activeSlave)>>get fucked by<<else>>suck off<</if>> a _animal.species.
+    You order another slave to bring $activeSlave.slaveName over. Once $he is situated, you tell $him that you want to watch $him <<switch _sexAct>><<case "vaginal" "anal">>get fucked by<<case "oral">>suck off<</switch>> a _animal.species.
 <</if>>
 
 <<if ($activeSlave.fetish != "mindbroken")>>
@@ -202,11 +207,12 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
             The dog clambers up to mount $activeSlave.slaveName, eliciting a squeal from the girl as its claws dig into $his flesh.
         <</switch>>
     <<else>>
-        The dog <<if _sexAct != "oral">> takes a few curious sniffs, then <</if>>lines its cock up with $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal">>pussy.<<case "anal">>asshole.<<case "oral">>mouth, then begins to thrust rapidly, in the way that only dogs can.<</switch>>
+        The dog <<if _sexAct != "oral">> takes a few curious sniffs, then <</if>>lines its cock up with $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal" "anal">>_orifice.<<case "oral">>mouth, then begins to thrust rapidly, in the way that only dogs can.<</switch>>
     <</if>>
+
     <<switch _sexAct>>
     <<case "vaginal" "anal">>
-        It takes a couple of tries, but it finally manages to sink its cock into $his <<if canDoVaginal($activeSlave)>><<if ($activeSlave.fetish == "masochist") || ($activeSlave.fetish == "humiliation") || ($activeSlave.sexualQuirk == "perverted") || ($activeSlave.behavioralQuirk == "sinful")>>wet <</if>>pussy<<else>>ass<</if>>.
+        It takes a couple of tries, but it finally manages to sink its cock into $his <<if _sexAct == "vaginal" && ($activeSlave.fetish == "masochist") || ($activeSlave.fetish == "humiliation") || ($activeSlave.sexualQuirk == "perverted") || ($activeSlave.behavioralQuirk == "sinful")>>wet <</if>>_orifice.
     <<case "oral">>
         <<if canWalk($activeSlave)>>
             In one swift motion, the canine buries its cock deep in $his throat, causing $him to gag. It then begins to thrust rapidly, in the way that only dogs can.
@@ -218,22 +224,22 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
     <</if>>
 
 <<case "horse">>
-    The horse stands over $him as another slave lines its massive phallus up with $activeSlave.slaveName's <<switch _sexAct>><<case "oral">>open mouth<<case "vaginal">><<if ($activeSlave.fetish == "masochist") || ($activeSlave.fetish == "humiliation") || ($activeSlave.sexualQuirk == "perverted") || ($activeSlave.behavioralQuirk == "sinful")>>wet <</if>>pussy<<case "anal">>ass<</switch>>.
+    The horse stands over $him as another slave lines its massive phallus up with $activeSlave.slaveName's <<switch _sexAct>><<case "oral">>open mouth<<case "vaginal" "anal">><<if ($activeSlave.fetish == "masochist") || ($activeSlave.fetish == "humiliation") || ($activeSlave.sexualQuirk == "perverted") || ($activeSlave.behavioralQuirk == "sinful")>>wet <</if>>_orifice<</switch>>.
 
     With a slight thrust, it enters $him and begins to fuck <<if _sexAct == "oral">>$his mouth<<else>> $him<</if>>. $activeSlave.slaveName can't help but give a loud groan as the huge cock 
     <<switch _sexAct>>
     <<case "oral">>
         stretches $his throat to the limit.
     <<default>>
-        <<if (canDoVaginal($activeSlave) && ($activeSlave.vagina <= 1)) || (!canDoVaginal($activeSlave) && ($activeSlave.anus <= 1))>>
+        <<if _sexAct == "vaginal" && ($activeSlave.vagina <= 1) || _sexAct == "anal" && ($activeSlave.anus <= 1)>>
             @@.lime;all but splits $his@@
-        <<elseif (canDoVaginal($activeSlave) && ($activeSlave.vagina <= 3)) || (!canDoVaginal($activeSlave) && ($activeSlave.anus <= 2))>>
+        <<elseif _sexAct == "vaginal" && ($activeSlave.vagina <= 3) || _sexAct == "anal" && ($activeSlave.anus <= 2)>>
             @@.lime;stretches $his@@
         <<else>>
             fills $his
         <</if>>
 
-    <<if canDoVaginal($activeSlave)>>
+    <<if _sexAct == "vaginal">>
         <<if $activeSlave.vagina == 0>>
             @@.lime;virgin@@
         <<elseif $activeSlave.vagina == 1>>
@@ -261,8 +267,16 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
         <</if>>
     <</if>>
 
-    <<if (canDoVaginal($activeSlave)) && $activeSlave.vagina <= 3>>@@.lime; pussy@@<<elseif (!canDoVaginal($activeSlave)) && ($activeSlave.anus <= 2)>>@@.lime; asshole@@<<elseif (canDoVaginal($activeSlave))>>pussy<<else>>asshole<</if>><<if ((canDoVaginal($activeSlave)) && ($activeSlave.vagina <= 1)) || (!canDoVaginal($activeSlave) && ($activeSlave.anus <= 1))>>@@.lime; apart.@@<<elseif ((canDoVaginal($activeSlave)) && ($activeSlave.vagina <= 3)) || (!canDoVaginal($activeSlave) && ($activeSlave.anus <= 2))>>@@.lime;.@@<<else>>.<</if>>
+    @@.lime;_orifice@@<<if (_sexAct == "vaginal" && ($activeSlave.vagina <= 1)) || (_sexAct == "anal" && ($activeSlave.anus <= 1))>>@@.lime; apart.@@<<elseif (_sexAct == "vaginal" && ($activeSlave.vagina <= 3)) || (_sexAct == "anal" && ($activeSlave.anus <= 2))>>@@.lime;.@@<<else>>.<</if>>
     <</switch>>
+
+<<case "lion">>
+    <<if canWalk($activeSlave)>>
+        The lion mounts $him, causing $him to give a squeal as its claws dig into her flesh. 
+    <<else>>
+        The lion lines its _animal.dickSize penis with $activeSlave.slaveName's _orifice and gives a mighty shove.
+    <</if>>
+    $activeSlave.slaveName can't help but give a loud <<if $activeSlave.devotion > 50>>moan<<else>>groan<</if>> as the lion buries its large, barbed, cock deep in $his _orifice.
 <</switch>>
 
 <<if _sexAct != "oral">>
@@ -340,8 +354,7 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
 
 <<switch _animal.species>>
 <<case "dog">>
-    The hound wastes no time in beginning to hammer away at $his 
-    <<switch _sexAct>><<case "oral">>mouth<<case "vaginal">>pussy<<case "anal">>asshole<</switch>>, causing $activeSlave.slaveName to moan uncontrollably as its thick, veiny member probes the depths of $his <<switch _sexAct>><<case "oral">>throat<<case "vaginal">>cunt<<case "anal">>rectum<</switch>>.
+    The hound wastes no time in beginning to hammer away at $his _orifice, causing $activeSlave.slaveName to moan uncontrollably as its thick, veiny member probes the depths of $his <<switch _sexAct>><<case "oral">>throat<<case "vaginal">>cunt<<case "anal">>rectum<</switch>>.
     A few short minutes later, $he gives a loud groan 
     <<if ($activeSlave.fetishKnown == 1) && (($activeSlave.fetish == "masochist") || ($activeSlave.fetish == "humiliation") || $activeSlave.sexualQuirk == "perverted" || $activeSlave.behavioralQuirk == "sinful" || ($activeSlave.fetish == "cumslut") || ($activeSlave.sexualQuirk == "gagfuck queen"))>> and shakes in orgasm <</if>>
     as the dog's knot begins to swell and its penis begins to erupt a thick stream of jizz <<switch _sexAct>><<case "vaginal" "anal">>into $him<<case "oral">>down $his throat<</switch>>.
@@ -349,13 +362,7 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
     <<switch _sexAct>>
     <<case "vaginal" "anal">> a stream of cum to slide out of $his 
         <<if (canDoVaginal($activeSlave) && ($activeSlave.vagina <= 2)) || (!canDoAnal($activeSlave)) && ($activeSlave.anus <= 1)>>
-            @@.lime;now-gaping 
-            <<if (canDoVaginal($activeSlave))>>
-                pussy.
-            <<else>>
-                asshole.
-            <</if>>
-                @@
+            @@.lime;now-gaping _orifice@@
         <<else>> 
             <<if canDoVaginal($activeSlave)>>
                 <<if  $activeSlave.vagina == 3>>
@@ -377,7 +384,7 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
                 <<else>>
                     gaping
                 <</if>>
-            <</if>> <<if canDoVaginal($activeSlave)>>pussy.<<else>>asshole.<</if>>
+            <</if>> _orifice.
         <</if>>
     <<case "oral">>
         $activeSlave.slaveName to immediately start coughing and retching uncontrollably.
@@ -399,7 +406,7 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
     <</switch>>
 
 <<case "horse">>
-    The stallion begins to thrust faster and faster, causing $activeSlave.slaveName to moan and groan in pain as the<<if canDoVaginal($activeSlave)>> tip rams $his cervix<<else>> huge horsecock fills $him completely<</if>>. Before too long, the horse's movements begin to slow, and you can see its large testicles contract slightly as it begins to fill $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal">>pussy<<case "anal">>asshole<<case "oral">>stomach<</switch>> to the brim with thick horse semen.
+    The stallion begins to thrust faster and faster, causing $activeSlave.slaveName to moan and groan in pain as the<<if _sexAct == "vaginal">> tip rams $his cervix<<else>> huge horsecock fills $him completely<</if>>. Before too long, the horse's movements begin to slow, and you can see its large testicles contract slightly as it begins to fill $activeSlave.slaveName's <<switch _sexAct>><<case "vaginal" "anal">>_orifice<<case "oral">>stomach<</switch>> to the brim with thick horse semen.
     After what seems like an impossibly long time, the horse's dick finally begins to soften and it finally pulls out<<if _sexAct == "oral">>, causing $activeSlave.slaveName to immediately begin to cough and retch uncontrollably<</if>>. You have a servant lead the horse away, with a fresh apple as a treat for its good performance. 
     
     <<switch _sexAct>>
@@ -416,20 +423,44 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
     <<case "oral">>
         <<set $activeSlave.oralCount += 1>>
     <</switch>>
+
+<<case "lion">>
+    The lion begins to move, thrusting faster and faster. The $girl beneath it can't help but groan in pain as the barbs on its dick rub the inside of $his _orifice raw. After a few minutes of painful coupling, the lion's thrusts finally slow, then stop completely. With a deep bellow, he finally dismounts, gives you a long look, then stalks off.
+
+    <<switch _sexAct>>
+    <<case "vaginal">>
+        <<if $activeSlave.vagina < 2>>
+            <<set $activeSlave.vagina = 2>>
+        <</if>>
+        <<set $activeSlave.vaginalCount += 1>>
+    <<case "anal">>
+        <<if $activeSlave.anus < 2>>
+            <<set $activeSlave.anus = 2>>
+        <</if>>
+        <<set $activeSlave.vaginalCount += 1>>
+    <<case "oral">>
+        <<set $activeSlave.oralCount += 1>>
+    <</switch>>
 <</switch>>
 
 <<if (random(1,100) > (100 + $activeSlave.devotion))>>
-    <<if canDoVaginal($activeSlave)>>
+    <<switch _sexAct>>
+    <<case "vaginal">>
         <<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates penetration")>>
             Having a _animal.species fuck $him by force has given $him a @@.red;hatred of penetration.@@
             <<set $activeSlave.sexualFlaw = "hates penetration">>
         <</if>>
-    <<else>>
-        <<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates anal penetration")>>
+    <<case "anal">>
+        <<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates anal")>>
             Having a _animal.species fuck $him by force has given $him a @@.red;hatred of anal penetration.@@
-            <<set $activeSlave.sexualFlaw = "hates anal penetration">>
+            <<set $activeSlave.sexualFlaw = "hates anal">>
         <</if>>
-    <</if>>
+    <<case "oral">>
+        <<if ($activeSlave.energy <= 95) && ($activeSlave.sexualFlaw != "hates oral")>>
+            Having a _animal.species fuck $him by force has given $him a @@.red;hatred of oral penetration.@@
+            <<set $activeSlave.sexualFlaw = "hates oral">>
+        <</if>>
+    <</switch>>
 <</if>>
 
 <<if _sexAct != "oral">>