Since lake dog is not in main game anymore adding him to the mod

bestmod.qproj

@@ -19,6 +19,7 @@
             <Location name="mod_bestmod_margo"/>
             <Location name="mod_bestmod_petshop"/>
             <Location name="mod_bestmod_park_dog"/>
+            <Location name="mod_bestmod_lake_dog"/>
         </Folder>
     </Structure>
 </QGen-project>

locations/mod_bestmod.qsrc

@@ -19,9 +19,9 @@ if $loc = 'kafe' and metka = 'start' and menu_off = 0 and QWdogReiq = 3 and week
 
 !! Probably replace houserabrand with another random factor which takes into account PC's
 !! beast exp and relationship with pet.
-if $loc = 'bed' and zoo > 6 and housrA = 1 and bm_dog_once_day ! daystart and houserabrand < 4:gt 'mod_bestmod_bed', 'sog1'
+if $loc = 'bed' and zoo > 6 and housrA = 1 and bm_dog_once_day ! daystart and houserabrand < 4: gt 'mod_bestmod_bed', 'sog1'
 
-!!if $loc = 'glake' and $selact = 'Go sunbathing (1:00)' and $clothingworntype = 'nude' and zoo > 0 and rand(1,10) = 5
+if $loc = 'glake' and $selact = 'Go sunbathing (1:00)' and $clothingworntype = 'nude' and bm_beast['exp'] > 0 and rand(1,10) = 5: gt 'mod_bestmod_lake_dog', 'start'
 
 if $loc = 'postdeliveries' and $ARGS[0] = '10':
 	if banditfrend = 1:
@@ -39,4 +39,12 @@ if $loc = 'postdeliveries' and $ARGS[0] = '10':
 		end
 	end
 end
+
+!! Some of the variables used in this mod:
+!! bm_beast['exp']			Beastiality experience. Incremented each act.
+!! bm_beast['num']			Count of animal partners. Incremented once per individual.
+!! bm_beast['dog_exp']		Experience with dogs. Incremented each act with dog.
+!! bm_beast['dog_num']		Count of dog partners. Incremented once per individual dog.
+!! ...
+
 --- mod_bestmod ---------------------------------

locations/mod_bestmod_lake_dog.qsrc

@@ -0,0 +1,18 @@
+# mod_bestmod_lake_dog
+
+if $ARGS[0] = 'start':
+	*clr & cla
+	pcs_willpwr -= 5
+	pcs_mood -= 5
+	inhib_exp += rand(1,3)
+	'<center><img <<$set_imgh>> src="images/beast/dogcaine.jpg"></center>'
+	'As you lie down on your towel to catch some rays of sun and hopefully work on your tan a little, a stray dog appears out of nowhere. It keeps sniffing between your legs, which makes you feel very uncomfortable since you''re not wearing anything.'
+	if bm_beast['exp'] = 0: 'You spend most of the hour trying to chase the dog away, but it comes back every time you think you got rid of it. You don''t get much sunbathing done as a result.'
+	act 'Give up on sunbathing': gt'glake'
+	!!if bm_beast['exp'] > 5: act 'Spread your legs a little...': gt 'mod_bestmod_lake_dog', 'ld1' 
+end
+
+!!if $ARGS[0] = 'ld1':
+!!end
+
+--- mod_bestmod_lake_dog ---------------------------------