From 68bb66b878ae0ed3a8e0593f70107d033a1dd601 Mon Sep 17 00:00:00 2001
From: DCoded <dcoded@live.com>
Date: Mon, 3 Sep 2018 20:42:15 -0700
Subject: [PATCH] Added missing counters and flavor text

---
 src/pregmod/beastFucked.tw | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/pregmod/beastFucked.tw b/src/pregmod/beastFucked.tw
index b9bf3c01afb..e05aff240fa 100644
--- a/src/pregmod/beastFucked.tw
+++ b/src/pregmod/beastFucked.tw
@@ -388,25 +388,33 @@ before calling in the _animal.species. The _animal.species slowly saunters up to
         <<if $activeSlave.vagina < 3>>
             <<set $activeSlave.vagina = 3>>
         <</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>>
 
 <<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.
-    After what seems like an impossibly long time, the horse's dick finally begins to soften and it finally pulls out. You have a servant lead the horse away, with a fresh apple as a treat for its good performance. 
+    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>>
     <<case "vaginal">>
         <<if $activeSlave.vagina < 4>>
             <<set $activeSlave.vagina = 4>>
         <</if>>
+        <<set $activeSlave.vaginalCount += 1>>
     <<case "anal">>
         <<if $activeSlave.anus < 4>>
             <<set $activeSlave.anus = 4>>
         <</if>>
+        <<set $activeSlave.analCount += 1>>
+    <<case "oral">>
+        <<set $activeSlave.oralCount += 1>>
     <</switch>>
 <</switch>>
 
-- 
GitLab