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