[added] Adding block for stray dog NPC setup (will come later)

locations/mod_bestmod_park_dog.qsrc

@@ -89,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 ---------------------------------