Anthro Rabbit update, Sarah Update, Dr. Matt Quest Rework, New Virgin…

…ity Tracking
Nuku · Jan 6, 2019 · 261fec5 · 261fec5
1 parent a1c6fbe
commit 261fec5
Show file tree

Hide file tree

Showing 10 changed files with 693 additions and 144 deletions.
diff --git a/Core Mechanics/Basic Functions.i7x b/Core Mechanics/Basic Functions.i7x
@@ -206,6 +206,154 @@ to MoraleBoost (N - number):
 	if morale of player > 100:
 		now morale of player is 100;
 
+understand "testNPCSexAftermath" as NPCSexAftermathAction.
+
+NPCSexAftermathAction is an action applying to nothing.
+
+carry out NPCSexAftermathAction:
+	say "Testing: Carl fucks player:";
+	NPCSexAftermath Player receives "AssFuck" from Carl;
+	say "Testing: Player fucks Carl:";
+	NPCSexAftermath Carl receives "AssFuck" from Player;
+
+to NPCSexAftermath (TakingChar - a person) receives (SexAct - a text) from (GivingChar - a person):
+	if GivingChar is player:
+		if debugactive is 1:
+			say "DEBUG -> Player is the giving partner[line break]";
+		if SexAct is "AssFuck":
+			if PenileVirgin of player is true:
+				now PenileVirgin of player is false;
+				say "     [Bold Type]You have lost your penile virginity fucking [TakingChar]![roman type][line break]";
+			if AnalVirgin of TakingChar is true:
+				now AnalVirgin of TakingChar is false;
+				say "     [Bold Type]You have taken [TakingChar]'s anal virginity![roman type][line break]";
+				add printed name of TakingChar to AnalVirginitiesTaken of player;
+		else if SexAct is "PussyFuck":
+			if PenileVirgin of player is true:
+				now PenileVirgin of player is false;
+				say "     [Bold Type]You have lost your penile virginity fucking [TakingChar]![roman type][line break]";
+			if Virgin of TakingChar is true:
+				now Virgin of TakingChar is false;
+				say "     [Bold Type]You have taken [TakingChar]'s virginity![roman type][line break]";
+				add printed name of TakingChar to VirginitiesTaken of player;
+		else if SexAct is "OralCock":
+			if OralVirgin of TakingChar is true:
+				now OralVirgin of TakingChar is false;
+				say "     [Bold Type]You have taken [TakingChar]'s oral virginity![roman type][line break]";
+				add printed name of TakingChar to OralVirginitiesTaken of player;
+		else if SexAct is "OralPussy":
+			if OralVirgin of TakingChar is true:
+				now OralVirgin of TakingChar is false;
+				say "     [Bold Type]You have taken [TakingChar]'s oral virginity![roman type][line break]";
+				add printed name of TakingChar to OralVirginitiesTaken of player;
+	else if TakingChar is player:
+		if debugactive is 1:
+			say "DEBUG -> Player is the receiving partner[line break]";
+		if SexAct is "AssFuck":
+			if AnalVirgin of player is true:
+				now AnalVirgin of player is false;
+				say "     [Bold Type]You have lost your anal virginity to [GivingChar]![roman type][line break]";
+				now FirstAnalPartner of player is printed name of GivingChar;
+			setmonster MainInfection of GivingChar;
+			mimpregchance;
+		else if SexAct is "PussyFuck":
+			if Virgin of player is true:
+				now Virgin of player is false;
+				say "     [Bold Type]You have lost your virginity to [GivingChar]![roman type][line break]";
+				now FirstVaginalPartner of player is printed name of GivingChar;
+			setmonster MainInfection of GivingChar;
+			fimpregchance;
+		else if SexAct is "OralCock" or SexAct is "OralPussy":
+			if OralVirgin of player is true:
+				now OralVirgin of player is false;
+				say "     [Bold Type]You have lost your oral virginity to [GivingChar]![roman type][line break]";
+				now FirstOralPartner of player is printed name of GivingChar;
+	else:
+		if debugactive is 1:
+			say "DEBUG -> [GivingChar] is having sex with [TakingChar][line break]";
+		if SexAct is "AssFuck":
+			if PenileVirgin of GivingChar is true:
+				now PenileVirgin of GivingChar is false;
+				say "     [Bold Type][GivingChar] has lost their penile virginity to [TakingChar]![roman type][line break]";
+				now FirstPenilePartner of GivingChar is printed name of TakingChar;
+			if AnalVirgin of TakingChar is true:
+				now AnalVirgin of TakingChar is false;
+				say "     [Bold Type][GivingChar] has taken [TakingChar]'s anal virginity![roman type][line break]";
+				now FirstAnalPartner of TakingChar is printed name of GivingChar;
+		else if SexAct is "PussyFuck":
+			if PenileVirgin of GivingChar is true:
+				now PenileVirgin of GivingChar is false;
+				say "     [Bold Type][GivingChar] has lost their penile virginity to [TakingChar]![roman type][line break]";
+				now FirstPenilePartner of GivingChar is printed name of TakingChar;
+			if AnalVirgin of TakingChar is true:
+				now Virgin of TakingChar is false;
+				say "     [Bold Type][GivingChar] has taken [TakingChar]'s virginity![roman type][line break]";
+				now FirstVaginalPartner of TakingChar is printed name of GivingChar;
+		else if SexAct is "OralCock":
+			if PenileVirgin of GivingChar is true:
+				now PenileVirgin of GivingChar is false;
+				say "     [Bold Type][GivingChar] has lost their penile virginity to [TakingChar]![roman type][line break]";
+				now FirstPenilePartner of GivingChar is printed name of TakingChar;
+			if OralVirgin of TakingChar is true:
+				now OralVirgin of TakingChar is false;
+				say "     [Bold Type][GivingChar] has taken [TakingChar]'s oral virginity![roman type][line break]";
+				now FirstOralPartner of TakingChar is printed name of GivingChar;
+		else if SexAct is "OralPussy":
+			if PenileVirgin of GivingChar is true:
+				now PenileVirgin of GivingChar is false;
+				say "     [Bold Type][GivingChar] has lost their penile virginity to [TakingChar]![roman type][line break]";
+				now FirstPenilePartner of GivingChar is printed name of TakingChar;
+			if OralVirgin of TakingChar is true:
+				now OralVirgin of TakingChar is false;
+				say "     [Bold Type][GivingChar] has taken [TakingChar]'s oral virginity![roman type][line break]";
+				now FirstOralPartner of TakingChar is printed name of GivingChar;
+
+
+understand "testCreatureSexAftermath" as CreatureSexAftermathAction.
+
+CreatureSexAftermathAction is an action applying to nothing.
+
+carry out CreatureSexAftermathAction:
+	say "Testing: Carl fucks player:";
+	CreatureSexAftermath "Player" receives "AssFuck" from "Alpha Husky";
+	say "Testing: Player fucks Carl:";
+	CreatureSexAftermath "Alpha Husky" receives "AssFuck" from "Player";
+	[Options for SexAct are: AssFuck, PussyFuck, OralCock, OralPussy]
+
+to CreatureSexAftermath (TakingChar - a text) receives (SexAct - a text) from (GivingChar - a text):
+	if GivingChar is "Player":
+		if debugactive is 1:
+			say "DEBUG -> Player is the giving partner[line break]";
+		if SexAct is "AssFuck":
+			if PenileVirgin of player is true:
+				now PenileVirgin of player is false;
+				say "     [Bold Type]You have lost your penile virginity fucking the [GivingChar in lower case]![roman type][line break]";
+		else if SexAct is "PussyFuck":
+			if PenileVirgin of player is true:
+				now PenileVirgin of player is false;
+				say "     [Bold Type]You have lost your penile virginity fucking the [GivingChar in lower case]![roman type][line break]";
+	else if TakingChar is "Player":
+		if debugactive is 1:
+			say "DEBUG -> Player is the receiving partner[line break]";
+		if SexAct is "AssFuck":
+			if AnalVirgin of player is true:
+				now AnalVirgin of player is false;
+				say "     [Bold Type]You have lost your anal virginity to the [GivingChar in lower case]![roman type][line break]";
+				now FirstAnalPartner of player is GivingChar;
+			setmonster GivingChar;
+			mimpregchance;
+		else if SexAct is "PussyFuck":
+			if Virgin of player is true:
+				now Virgin of player is false;
+				say "     [Bold Type]You have lost your virginity to the [GivingChar in lower case]![roman type][line break]";
+				now FirstVaginalPartner of player is GivingChar;
+			setmonster GivingChar;
+			fimpregchance;
+		else if SexAct is "OralCock" or SexAct is "OralPussy":
+			if OralVirgin of player is true:
+				now OralVirgin of player is false;
+				say "     [Bold Type]You have lost your oral virginity to the [GivingChar in lower case]![roman type][line break]";
+				now FirstOralPartner of player is GivingChar;
 
 to StatChange (Statname - a text) using (Value - a number):
 	if Value is 0:

diff --git a/Inform/story.ni b/Inform/story.ni
@@ -177,7 +177,12 @@ A person has a number called Cunt width.
 A person has a number called armor.
 A person has a number called capacity.
 A person has a number called libido.
+A person has a text called MainInfection. MainInfection is usually "Human". [just to have something valid in this, the variable should be overwritten for every npc]
 A person has a text called linkaction.
+A person has a text called FirstAnalPartner.
+A person has a text called FirstVaginalPartner.
+A person has a text called FirstOralPartner.
+A person has a text called FirstPenilePartner.
 A person has a number called SleepRhythm. [day/night bias]
 
 A person has text called Cock Size Desc.