locations/mod_bestmod_bandit.qsrc

@@ -1689,7 +1689,7 @@ if $ARGS[0] = 'bandit_setup':
 	$npc_kidpater['A<<npctemp>>'] = 'N'
 	npc_gender['A<<npctemp>>'] = 0
 	$npc_thdick['A<<npctemp>>'] = 'knotted'
-	npc_dick['A<<npctemp>>'] = 0
+	npc_dick['A<<npctemp>>'] = 23
 	npc_spermpot['A<<npctemp>>'] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
 	npc_vag['A<<npctemp>>'] = -1
 	npc_hymen['A<<npctemp>>'] = -1

locations/mod_bestmod_park_dog.qsrc

@@ -36,8 +36,9 @@ if $ARGS[0] = 'first_follow':
 	'Finally you see the dog slow down. It has led you to a small clearing just a few meters wide. It looks like this is his den.'
 	'You are sure it''s a "he" since now that he has laid down to rest you can see his... rather large testicles.'
 
-	if buterbrod > 0:
+	if buterbrod = 0:
 		act 'Leave':
+			*clr & cla
 			'You wonder why you even followed this dog. He looks like he is comfortable where he is and you don''t even have any food to give him.'
 			'Even worse, you realize that you have no idea where you are in the park and should probably get out as soon as you can. You don''t want to be known as "that girl who got lost in the park".'
 			'You finally find your way out, but you''re not sure you could find your way back to the dog. If you ever want to go back to his den, you''ll have to run into him somewhere in the park again.'
@@ -74,6 +75,7 @@ if $ARGS[0] = 'first_follow':
 			act 'Go back to the park': gt $bm_oldloc, 'start'
 		end
 		act 'Leave':
+			*clr & cla
 			'You realize that you have no idea where you are in the park and should probably get out as soon as you can. You don''t want to be known as "that girl who got lost in the park".'
 			'You finally find your way out, but you''re not sure you could find your way back to the dog. If you ever want to go back to his den, you''ll have to run into him somewhere in the park again.'
 			act 'Go back to the park': gt $bm_oldloc, 'start'
@@ -87,4 +89,24 @@ if $ARGS[0] = 'first_sex':
 	bm_pc_dog_fert = (bm_enable_preg and 1)
 end
 
+!! Used before sex, once PC is friendly with stray
+if $ARGS[0] = 'parkdog_setup':
+	!! Ask user for name for the stray
+	gs 'npcgeneratec', 0, 'Park Stray', rand(1,4)
+	gs 'npcpreservec', $npclastgenerated
+	$bm_parkdog_ID = $npclastsaved
+	$npc_firstname[$npclastsaved] = 'Park'
+	$npc_nickname[$npclastsaved] = 'Good boy'
+	$npc_lastname[$npclastsaved] = 'Stray'
+	$npc_usedname[$npclastsaved] = 'Park stray'
+	$npc_notes[$npclastsaved] = 'The stray dog you found in the park'
+	!! Stray will have -1 potency to start with...
+	npc_spermpot[$npclastsaved] = -1
+	$npc_thdick[$npclastsaved] = 'knotted'
+	npc_dick[$npclastsaved] = 26
+	!! Park dog is skilled in sex
+	npc_sexskill[$npclastsaved] = 2
+	$bm_npc_species[$npclastsaved] = 'dog'
+end
+
 --- mod_bestmod_park_dog ---------------------------------

locations/mod_bestmod_petdog.qsrc

@@ -939,7 +939,7 @@ if $ARGS[0] = 'rex_setup':
 	$npc_kidpater['A<<npctemp>>'] = 'N'
 	npc_gender['A<<npctemp>>'] = 0
 	$npc_thdick['A<<npctemp>>'] = 'knotted'
-	npc_dick['A<<npctemp>>'] = 0
+	npc_dick['A<<npctemp>>'] = 30
 	npc_spermpot['A<<npctemp>>'] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
 	npc_vag['A<<npctemp>>'] = -1
 	npc_hymen['A<<npctemp>>'] = -1

locations/mod_bestmod_petshop.qsrc

@@ -33,7 +33,7 @@ if $ARGS[0] = 'buy_dog':
 						$npc_notes[$npclastsaved] = 'The dog you purchased from the pet shop.'
 						npc_spermpot[$npclastsaved] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
 						$npc_thdick[$npclastsaved] = 'knotted'
-						npc_dick[$npclastsaved] = 7
+						npc_dick[$npclastsaved] = 18
 						npc_sexskill[$npclastsaved] = 0
 						$bm_npc_species[$npclastsaved] = 'dog'