[change/added] So updates to the new npc_reactions.

locations/katja_chat.qsrc

@@ -278,6 +278,8 @@ if $ARGS[0] = 'chat1':
 
 	gs 'katja_procedural', 'face_color'
 
+	func('npc_reactions', 'general', 'A14')
+
 	!!if CloSkirtShortness > 0 and $pantyworntype = 'none':
 	!!	act 'Show Katja you''re not wearing panties': gt 'katja_procedural', 'makeup', 'katja_chat', 'chat'
 	!!end

locations/katja_dorm.qsrc

@@ -217,6 +217,8 @@ if $ARGS[0] = 'chat':
 		'Katja looks at you with a smile.'
 	end
 
+	func('npc_reactions', 'general', 'A14')
+
 	act 'Chat with Katja':
 		!!The generic chat option.
 		cla & *clr

locations/npc_reactions.qsrc

@@ -37,16 +37,27 @@ Physical traits:
 - exposed breast
 }
 
+if $ARGS[1] = 'cikl':
+	if week = 1:
+		killvar 'npc_reaction_weekly'
+	end
+end
+
 !! This is the code for choosing the aspect of the player character. This is called from a file by func('npc_reactions', 'general', npc_identifier/opinion) and returns a string of text that can be added to the to screen as its own line or to an other string by +
-!! $ARGS[1] is either the npc_identifirer for a npc with entry in npc_startic or the npc''s opinion of the player character set to either 'love', 'like', 'indifferent' or 'dislike', if it is not set it will default to the opinion of hate. So rember to set it unless the npc hate the player character.
+!! $ARGS[1] is either the npc_identifirer for a npc with entry in npc_startic or the name of the npc.
+!! $ARGS[2] is npc''s opinion of the player character and is only used for npc's that don't have an identifier. It set to either 'love', 'like', 'indifferent' or 'dislike', if it is not set it will default to the opinion of hate. So remember to set it unless the npc hate the player character.
 if $ARGS[0] = 'general':
-	if bimbo_flag = 1:
-		$result = func('npc_reactions', 'bimbo_look', $ARGS[1])
+	if bimbo_flag = 1 and dyneval( 'RESULT = npc_reaction_weekly[''<<$ARGS>>_bimbo'']') = 0:
+		dynamic 'npc_reaction_weekly[''<<$ARGS>>_bimbo''] = 1'
+		$result = func('npc_reactions', 'bimbo_look', $ARGS[1], $ARGS[2])
 	end
+	
+	killvar 'npc_reactions_temp_preferences'
 end
 
 !! This is an example for how the reaction should be done. Feel free to improve the text if you have a better version.
 !! Notice how the reactions both depend on the npc''s relationship with the player character and if the like the particular aspect.
+!! The preference for an npc with entries in npcstatic is set there. If you want to set the preference for an npc that in not in npcstatic then you have to set npc_reactions_temp_preferences['bimbo'] equal to 1 for like and -1 for dislike before you call the function that gives the reaction.
 !! This also means the for some combination of these there might  be an reaction, which is done by having $result = ''
 if $ARGS[0] = 'bimbo_look':
 	!! Thisd is out comoneted since we don''t have special reactions from Katja and Dimka yet, it is just to show how the code will be when special reactions is added.
@@ -57,59 +68,59 @@ if $ARGS[0] = 'bimbo_look':
 	!!	!!Special text for Katja
 	!!	$result = func('katja_procedural', 'bimbo')
 	!!else
-		if dyneval( 'RESULT = npc_preference[''<<$ARGS[1]>>_bimbo'']') = 1 or $ARGS[2] = 'like':
+		if dyneval( 'RESULT = npc_preference[''<<$ARGS[1]>>_bimbo'']') = 1 or npc_reactions_temp_preferences['bimbo'] = 1:
 			!!text if the npc likes the bimbo look
-			if npc_rel[$ARGS[1]] > 80 or $ARGS[1] = 'love':
+			if npc_rel[$ARGS[1]] > 80 or $ARGS[2] = 'love':
 				!!if the npc likes the bimbo looks and love the player character
-				$result = 'I love how you look'
-			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[1] = 'like':
+				$result = '"I love how you look." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[2] = 'like':
 				!!if the npc likes the bimbo looks and likes the player character
-				$result = 'I that look suits you'
-			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[1] = 'indifferent':
+				$result = '"I that look suits you." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[2] = 'indifferent':
 				!!if the npc likes the bimbo looks and is indifferent to  the player character
-				$result = 'I  like your look'
-			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[1] = 'dislike':
+				$result = '"I  like your look." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[2] = 'dislike':
 				!!if the npc like the bimbo looks and dislikes the player character
-				$result = 'I that would look good on somebody else'
+				$result = '"I think that would look good on somebody else." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
 			else
 				!!if the npc like the bimbo looks and hates the player character
-				$result = 'Why the fuck do you think you can wear something like that, you are way to ugly to pull of a great look like that'
+				$result = '"Why the fuck do you think you can wear something like that, you are way to ugly to pull of a great look like that" '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
 			end
-		elseif dyneval( 'RESULT = npc_preference[''<<$ARGS[1]>>_bimbo'']') = -1 or $ARGS[2] = 'dislike':
+		elseif dyneval( 'RESULT = npc_preference[''<<$ARGS[1]>>_bimbo'']') = -1 or npc_reactions_temp_preferences['bimbo'] = -1:
 			!!text if the npc dislikes the bimbo look
-			if npc_rel[$ARGS[1]] > 80 or $ARGS[1] = 'love':
+			if npc_rel[$ARGS[1]] > 80 or $ARGS[2] = 'love':
 				!!if the npc dislikes the bimbo looks and love the player character
-				$result = 'I love you, but I am not sure I agree with you look'
-			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[1] = 'like':
+				$result = '"I love you, but I am not sure I agree with you look." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[2] = 'like':
 				!!if the npc dislikes the bimbo looks and likes the player character
-				$result = 'I think we need to go shopping together, so we can get you some real good clothes'
-			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[1] = 'indifferent':
+				$result = '"I think we need to go shopping together, so we can get you some real good clothes." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[2] = 'indifferent':
 				!!if the npc dilikes the bimbo looks and is indifferent to  the player character
 				$result = ''
-			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[1] = 'dislike':
+			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[2] = 'dislike':
 				!!if the npc dislike the bimbo looks and dislikes the player character
-				$result = 'Well at least the look match you intelligence'
+				$result = '"Well at least the look match you intelligence." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
 			else
 				!!if the npc like the bimbo looks and hates the player character
-				$result = 'You at least dress like the dumb cow you are'
+				$result = '"You at least dress like the dumb cow you are." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
 			end
 		else
 			!!text if the npc is indifferent to the bimbo look
-			if npc_rel[$ARGS[1]] > 80 or $ARGS[1] = 'indifferent':
+			if npc_rel[$ARGS[1]] > 80 or $ARGS[2] = 'indifferent':
 				!!if the  npc is indifferent to the bimbo looks and love the player character
-				$result = 'You look nice'
-			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[1] = 'like':
+				$result = '"You look nice." '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
+			elseif npc_rel[$ARGS[1]] > 60 or $ARGS[2] = 'like':
 				!!if the  npc is indifferent to the bimbo looks and likes the player character
 				$result = ''
-			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[1] = 'indifferent':
+			elseif npc_rel[$ARGS[1]] > 40 or $ARGS[2] = 'indifferent':
 				!!if the  npc is indifferent to the bimbo looks and is indifferent to  the player character
 				$result = ''
-			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[1] = 'dislike':
+			elseif npc_rel[$ARGS[1]] > 25 or $ARGS[2] = 'dislike':
 				!!if the  npc is indifferent to the bimbo looks and dislikes the player character
 				$result = ''
 			else
 				!!if the  npc is indifferent to the bimbo looks and hates the player character
-				$result = 'What the fuck are you wearing?'
+				$result = '"What the fuck are you wearing?" '+iif(mid($ARGS[1],1,1) = 'A', '<<$npc_firstname[$ARGS[1]]>>', '<<$ARGS[1]>>')+' says'
 			end
 		end
 	!!end