adapt to GL 0.8.7

bm_locations/mod_bestmod.qsrc

@@ -12,9 +12,9 @@ if $loc = 'miroslava' and npc_QW['A60'] = 20 and hour < 19 and month >= 5 and mo
 
 if $loc = 'zoomagazine' and $loc_arg = 'start' and menu_off = 0: gs 'mod_bestmod_petshop', 'buy_dog'
 
-if $loc = 'korr' and sobaka = 1 and menu_off = 0:'Your dog, <a href="exec:gt ''mod_bestmod_petdog'', ''start''"><<$namesob>></a>, is lying on the floor near the entrance.'
+if $loc = 'korr' and rex['owned'] = 1 and menu_off = 0:'Your dog, <a href="exec:gt ''mod_bestmod_petdog'', ''start''"><<$rex[''name'']>></a>, is lying on the floor near the entrance.'
 
-if $loc = 'korr' and sobaka = 1 and menu_off = 0:'Near the entrance to the bedroom is your <a href="exec:gt ''mod_bestmod_petdog'',''start''"><<$namesob>></a>'
+if $loc = 'korr' and rex['owned'] = 1 and menu_off = 0:'Near the entrance to the bedroom is your <a href="exec:gt ''mod_bestmod_petdog'',''start''"><<$rex[''name'']>></a>'
 
 if $loc = 'sitr' and menu_off = 0: gs 'mod_bestmod_sitr'
 

bm_locations/mod_bestmod_bed.qsrc

@@ -6,7 +6,7 @@ if $ARGS[0] = 'sogn':
 	menu_off = 1
 	dogday = daystart
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/2.jpg"></center>'
-	'You undress and lie down on the bed <<$namesob>> brazenly jump onto the bed and starts licking your pussy'
+	'You undress and lie down on the bed <<$rex[''name'']>> brazenly jump onto the bed and starts licking your pussy'
 	gs 'arousal', 'cuni', 10, 'beast'
 	gs 'stat'
 	act 'Succumb to the desire':gt 'mod_bestmod_bed', 'sog2'
@@ -15,14 +15,14 @@ end
 
 if $ARGS[0] = 'sog1':
 	menu_off = 1
-	if zoo >= 6 and sobaka ! 0:
+	if zoo >= 6 and rex['owned'] ! 0:
 		if husband > 0 and husbandrink ! 10:
 			if hour > 22 or hour < 7:
 				cla
 				*clr
 				gs 'boyStat', $petID
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z1.jpg"></center>'
-				'You undress and lie down on the bed <<$namesob>> brazenly jumps onto your bed and starts licking your pussy.'
+				'You undress and lie down on the bed <<$rex[''name'']>> brazenly jumps onto your bed and starts licking your pussy.'
 				gs 'arousal', 'cuni', 30, 'sub', 'beast'
 				gs 'stat'
 					
@@ -41,13 +41,13 @@ if $ARGS[0] = 'sog1':
 						cla
 						*clr
 						cumnostd = 1
-						gs 'cum_call', '', $namesob, 1, 0, -1, 60
+						gs 'cum_call', '', $rex['name'], 1, 0, -1, 60
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
-						'You reluctantly start trying to push the dog and off you, but as you push him backwards, <<$namesob>> leans on you with all his weight. You feel his penis rubs against your thighs searching for your hole.'
+						'You reluctantly start trying to push the dog and off you, but as you push him backwards, <<$rex[''name'']>> leans on you with all his weight. You feel his penis rubs against your thighs searching for your hole.'
 
 						if izvratH = 0:
 							'"Oh my God, I can''t watch this," cries your husband slamming the door and running. Meanwhile, the dogs member has found a hole and he starts fucking you.'
-							'You moan as the arousal becomes too much, soon you orgasm. A few seconds later <<$namesob>> cums inside you, pulls away and runs out into the corridor.'
+							'You moan as the arousal becomes too much, soon you orgasm. A few seconds later <<$rex[''name'']>> cums inside you, pulls away and runs out into the corridor.'
 							dynamic $dogpot
 							spafinloc = 0
 							sexpartkno = 1
@@ -61,7 +61,7 @@ if $ARGS[0] = 'sog1':
 						elseif izvratH = 1:
 							'"Get the fuck off of her!" shouts <<$husName>> at the dog, to little effect. Meanwhile, the dogs member has found a hole and he starts fucking you.'
 							'You moan as the arousal becomes too much and your husband deciding that your movement is an attempt to escape, shouts, "Yes <<$pcs_nickname>> wiggle more, I think you''re loosening his grip."'
-							'Soon you orgasm. A few seconds later <<$namesob>> cums inside you, then pulls away and runs out into the corridor.'
+							'Soon you orgasm. A few seconds later <<$rex[''name'']>> cums inside you, then pulls away and runs out into the corridor.'
 							dynamic $dogpot
 							spafinloc = 0
 							sexpartkno = 1
@@ -75,7 +75,7 @@ if $ARGS[0] = 'sog1':
 						end
 
 						act 'Allow':
-							sobaka = 0
+							rex['owned'] = 0
 							killvar '$petID'
 							zoo = 0
 							gt 'bedr'
@@ -94,11 +94,11 @@ if $ARGS[0] = 'sog1':
 
 					if izvratH = 0:
 						'<<$husName>> tries picking the dog up but he growls and bares his teeth. So he goes to the bathroom and comes back with some old sheets.'
-						'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
+						'Throwing them over the dog and picking up the corners is able to pick up <<$rex[''name'']>> in his improvised bag.'
 						'"I''ll have him put down." says <<$husName>>'
 
 						act 'Allow':
-							sobaka = 0
+							rex['owned'] = 0
 							killvar '$petID'
 							zoo = 0
 							gt 'sitr'
@@ -133,11 +133,11 @@ if $ARGS[0] = 'sog1':
 							gs 'arousal', 'end'
 							'"This is too much" says <<$husName>> and tried to shoo your dog out, but he growls and bares his teeth.'
 							'<<$husName>> goes to the bathroom and comes back with some old sheets.'
-							'Throwing them over the dog and picking up the corners is able to pick up <<$namesob>> in his improvised bag.'
+							'Throwing them over the dog and picking up the corners is able to pick up <<$rex[''name'']>> in his improvised bag.'
 							'"I''ll have him put down." says <<$husName>>'
 
 							act 'Allow':
-								sobaka = 0
+								rex['owned'] = 0
 								killvar '$petID'
 								zoo = 0
 								gt 'sitr'
@@ -153,7 +153,7 @@ if $ARGS[0] = 'sog1':
 									*clr
 									husband -= 1
 									cumnostd = 1
-									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'hands', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs dick in your hand and begin to masturbate, after a few minutes you dog cums in your hand.'
 									gs 'arousal', 'hj', 10, 'beast'
@@ -168,7 +168,7 @@ if $ARGS[0] = 'sog1':
 									swallow += 1
 									husband -= 40
 									cumnostd = 1
-									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
 									'You lay the dog on the floor and take his cock in my mouth, your husband looks at you with disgust as you suck the dogs cock.'
 									'In a couple of minutes the dog cums in your mouth and you swallow his sperm.'
@@ -191,7 +191,7 @@ if $ARGS[0] = 'sog1':
 					if izvratH = 0:
 						pcs_mood -= 15
 						pcs_willpwr -= 15
-						'<<$husName>> tries shooing your dog away, but it growls and bares his teeth, so he kicks the <<$namesob>> with all his might.'
+						'<<$husName>> tries shooing your dog away, but it growls and bares his teeth, so he kicks the <<$rex[''name'']>> with all his might.'
 						'Your dogs ribs are shattered and screeching he crawls into a corner, your husband follows and kicks it even harder.'
 						'Seeing his condition, you go to your dog and cradle his head and close your eyes. A few minutes later your dog is dead.'
 						'"There''s nothing you can do for your freak dog now." says <<$husName>>. Opening your eyes you see a dead dog in a pool of blood.'
@@ -199,7 +199,7 @@ if $ARGS[0] = 'sog1':
 						'While he is gone you have some time to scour the blood from the floor.'
 
 						act 'Finish':
-							sobaka = 0
+							rex['owned'] = 0
 							killvar '$petID'
 							zoo = 0
 							gt 'bedr'
@@ -227,7 +227,7 @@ if $ARGS[0] = 'sog1':
 								gs 'cum_call', '', $HusID
 								'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z5.jpg"></center>'
 								'You obediently spread your legs and your husband enters your pussy, he makes you keep sucking the dog.'
-								'You are not gaining any pleasure from this. Soon your husband cums and says "<<$namesob>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
+								'You are not gaining any pleasure from this. Soon your husband cums and says "<<$rex[''name'']>> hasn''t finished yet, are you not trying? Fine, Present your ass!."'
 								gs 'arousal', 'bj', 10, 'beast'
 								gs 'boyStat', $HusID
 								gs 'arousal', 'vaginal', 10, 'sub'
@@ -237,12 +237,12 @@ if $ARGS[0] = 'sog1':
 									*clr & cla
 									orgasm_anal += 1
 									cumnostd = 1
-									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'anus', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
 									'You get on your knees and the dog immediately jumps on you. With one hand you spread your buttocks, and the other guides the dogs cock into your ass.'
 									'Finding your hole the dog quickly enters and fucks your ass. Your husband watches, "Go on you whore."'
 									'The sensation from the dog fucking your ass is driving you to orgasm, as it hits, your legs give out and you''re no longer able to stand.'
-									'The dog twitces and spews his seed in your ass. Spent, <<$namesob>> leaves satisfied.'
+									'The dog twitces and spews his seed in your ass. Spent, <<$rex[''name'']>> leaves satisfied.'
 									gs 'arousal', 'anal', 10, 'beast'
 									gs 'arousal', 'end'
 									gs 'stat'
@@ -267,7 +267,7 @@ if $ARGS[0] = 'sog2':
 	menu_off = 1
 	gs 'boyStat', $petID
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/sog.jpg"></center>'
-	'You take <<$namesob>>s penis in your hand and start masturbating him.'
+	'You take <<$rex[''name'']>>s penis in your hand and start masturbating him.'
 	gs 'arousal', 'hj', 10, 'beast'
 	gs 'stat'
 	act 'Take in your mouth':gt 'mod_bestmod_bed', 'sog3'
@@ -278,7 +278,7 @@ if $ARGS[0] = 'sog3':
 	*clr & cla
 	menu_off = 1
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/sog1.jpg"></center>'
-	'You greedily swallow <<$namesob>>s dick.'
+	'You greedily swallow <<$rex[''name'']>>s dick.'
 	gs 'arousal', 'bj', 10, 'beast'
 	gs 'stat'
 
@@ -289,9 +289,9 @@ if $ARGS[0] = 'sog4':
 	*clr & cla
 	menu_off = 1
 	cumnostd = 1
-	gs 'cum_call', '', $namesob, 1, 0, -1, 60
+	gs 'cum_call', '', $rex['name'], 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/sog2.jpg"></center>'
-	'You open your legs and <<$namesob>> fucks your pussy'
+	'You open your legs and <<$rex[''name'']>> fucks your pussy'
 	'Finally the dog ends inside you'
 	gs 'arousal', 'vaginal', 10, 'beast'
 	gs 'arousal', 'end'

bm_locations/mod_bestmod_kuhr.qsrc

@@ -1,8 +1,8 @@
 # mod_bestmod_kuhr
-if zoo >= 6 and sobaka ! 0:
+if zoo >= 6 and rex['owned'] ! 0:
 	if husband > 0 and husbandrink ! 10:
 		if hour = 7 and hour = 17:
-			act 'Call <<$namesob>>':
+			act 'Call <<$rex[''name'']>>':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z1.jpg"></center>'
@@ -15,7 +15,7 @@ if zoo >= 6 and sobaka ! 0:
 					husband -= 1
 					'"OH MY GOD, what is he doing?", your husband yells.'
 					'"Help me!", you scream, "He won''t let go!"'
-					'<<$husName>> tries to shoo the dog away, but <<$namesob>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
+					'<<$husName>> tries to shoo the dog away, but <<$rex[''name'']>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
 					'"Think of something." you tell him, already moaning slightly with pleasure. <<$husName>> tries to intimidate the dog, continuously yelling at him, but to no avail. Suddenly your dog jumps on top you.'
 					'"Fuck, what he is going to do now?" <<$husName>> screams..'
 					'"Isn''t it obvious? He wants to fuck me." you say.'
@@ -25,11 +25,11 @@ if zoo >= 6 and sobaka ! 0:
 						cla
 						*clr
 						cumnostd = 1
-						gs 'cum_call', '', $namesob, 1, 0, -1, 60
+						gs 'cum_call', '', $rex['name'], 1, 0, -1, 60
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
-						'You try to push your dog away ang get way from his clutches, but it seems to do just the opposite of what you''ve intended. <<$namesob>> now leans on you and you can feel his knot on your thigh, trying to find its way to your pussy.'
+						'You try to push your dog away ang get way from his clutches, but it seems to do just the opposite of what you''ve intended. <<$rex[''name'']>> now leans on you and you can feel his knot on your thigh, trying to find its way to your pussy.'
 						if izvratH = 0:
-							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
+							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 							
 							$orgasm_or = 'yes'
@@ -39,7 +39,7 @@ if zoo >= 6 and sobaka ! 0:
 							
 						elseif izvratH = 1:
 							'"Get off her" shouts <<$husName>> at the dog, but your dog doesn''t leave you alone. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan, but your husband interprets your movement as an attempt of trying to free yourself. "That''s it <<$pcs_nickname>>, you almost freed yourself."' 
-							'It doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
+							'It doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 							
 							$orgasm_or = 'yes'
@@ -50,7 +50,7 @@ if zoo >= 6 and sobaka ! 0:
 						end
 
 						act 'Let him put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr'
 						end
@@ -69,11 +69,11 @@ if zoo >= 6 and sobaka ! 0:
 					'"Help me, he won''t stop", you reply.'
 
 					if izvratH = 0:
-						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 
 						act 'Let him put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr'
 						end
@@ -96,7 +96,7 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'cum_call', 'mouth', $husName
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z3.jpg"></center>'
 							'You grab his cock and take it into your mouth. You suck on his cock for good two to three minutes, until <<$husName>> ends up cumming in your mouth. You swallow his sperm and clean up his cock. As your husband moves away, your dog stops licking your cunt and positions his knot above your face.'
-							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$namesob>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$rex[''name'']>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 
 							gs 'boyStat', $husID
@@ -107,7 +107,7 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'stat'
 							
 							act 'Put your dog to sleep':
-								sobaka = 0
+								rex['owned'] = 0
 								zoo = 0
 								gt 'kuhr'
 							end
@@ -121,7 +121,7 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									husband -= 1
 									cumnostd = 1
-									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'hands', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs knot in your hand and begin to stroke it, after a few minutes your dog cums on your hands.'
 
@@ -134,9 +134,9 @@ if zoo >= 6 and sobaka ! 0:
 									swallow += 1
 									husband -= 40
 									cumnostd = 1
-									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
-									'You order your <<$namesob>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$namesob>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
+									'You order your <<$rex[''name'']>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$rex[''name'']>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
 									'"My god, what kind of pervert are you", <<$husName>> asks, with obvious disgust.'
 
 									gs 'arousal', 'bj', 5, 'beast'
@@ -157,12 +157,12 @@ if zoo >= 6 and sobaka ! 0:
 					if izvratH = 0:
 						pcs_mood -= 15
 						pcs_willpwr -= 15
-						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$namesob>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
+						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$rex[''name'']>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
 						'"I better never see you doing something like this ever again.", <<$husName>> says. As you open your eyes you see your dog lying dead on the floor in his own pool of blood.'
 						'"I''m going to take this little shit outside and throw it away", your husband says as he wraps the dog into an old sheet. "Now clean these blood stains up, I don''t want to buy a new carpet.", <<$husName>> orders you, as he makes his way out to the garbage cans.'
 
 						act 'Finish':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr'
 						end
@@ -174,11 +174,11 @@ if zoo >= 6 and sobaka ! 0:
 						'"No, of course not!", you try to explain.'
 						'"And yet I see you bitch here with your legs spread apart and your juices gushing out of your cunt, while your shitty dog licks your pussy." he says. "Well, you know what, why don''t you show me how much of a bitch you are. Go on, suck his cock."'
 
-						act 'Suck <<$namesob>> knot':
+						act 'Suck <<$rex[''name'']>> knot':
 							cla
 							*clr
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z4.jpg"></center>'
-							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$namesob>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitches mouth.'
+							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$rex[''name'']>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitches mouth.'
 							'It seems like just being part of the audience doesn''t quite satisfy him, so he orders you spread your legs.'
 
 							gs 'arousal', 'bj', 5, 'beast', 'sub'
@@ -205,9 +205,9 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									orgasm_anal += 1
 									cumnostd = 1
-									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'anus', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
-									'You turn around and position yourself on all fours. <<$namesob>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases in speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$namesob>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
+									'You turn around and position yourself on all fours. <<$rex[''name'']>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases in speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$rex[''name'']>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
 
 									$orgasm_or = 'yes'
 									gs 'arousal', 'end'
@@ -221,10 +221,10 @@ if zoo >= 6 and sobaka ! 0:
 				end
 			end
 		else
-			act 'Call <<$namesob>>':killvar 'fullmorrout' & gt 'mod_bestmod_petdog', 'zoof27'
+			act 'Call <<$rex[''name'']>>':killvar 'fullmorrout' & gt 'mod_bestmod_petdog', 'zoof27'
 		end
 	elseif husband = 0 or husbandrink = 10:
-		act 'Call <<$namesob>>':killvar 'fullmorrout' & gt 'mod_bestmod_petdog', 'zoof27'
+		act 'Call <<$rex[''name'']>>':killvar 'fullmorrout' & gt 'mod_bestmod_petdog', 'zoof27'
 	end
 end
 --- mod_bestmod_kuhr ---------------------------------

bm_locations/mod_bestmod_kuhr2x.qsrc

@@ -1,8 +1,8 @@
 # mod_bestmod_kuhr2x
-if zoo >= 6 and sobaka ! 0:
+if zoo >= 6 and rex['owned'] ! 0:
 	if husband > 0 and husbandrink ! 10:
 		if hour = 7 and hour = 17:
-			act 'Call <<$namesob>>':
+			act 'Call <<$rex[''name'']>>':
 				cla
 				*clr
 				minut += 30
@@ -16,7 +16,7 @@ if zoo >= 6 and sobaka ! 0:
 					husband -= 1
 					'"OH MY GOD, what is he doing?", your husband yells.'
 					'"Help me!", you scream, "He won''t let go!"'
-					'<<$husName>> tries to shoo the dog away, but <<$namesob>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
+					'<<$husName>> tries to shoo the dog away, but <<$rex[''name'']>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
 					'"Think of something." you tell him, already moaning slightly with pleasure. <<$husName>> tries to intimidate the dog, continuously yelling at him, but to no avail. Suddenly your dog jumps on top of you.'
 					'"Fuck, what is he going to do now?" <<$husName>> screams..'
 					'"Isn''t it obvious? He wants to fuck me!" you yell.'
@@ -26,11 +26,11 @@ if zoo >= 6 and sobaka ! 0:
 						cla
 						*clr
 						cumnostd = 1
-						gs 'cum_call', '', $namesob, 1, 0, -1, 60
+						gs 'cum_call', '', $rex['name'], 1, 0, -1, 60
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
-						'You try to push your dog away ang get way from his clutches, but it has the opposite affect of what you''ve intended. <<$namesob>> now leans on you and you can feel his knot on your thigh, trying to find its way to your pussy.'
+						'You try to push your dog away ang get way from his clutches, but it has the opposite affect of what you''ve intended. <<$rex[''name'']>> now leans on you and you can feel his knot on your thigh, trying to find its way to your pussy.'
 						if izvratH = 0:
-							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
+							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
 							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'
 							
 							$orgasm_or = 'yes'
@@ -40,7 +40,7 @@ if zoo >= 6 and sobaka ! 0:
 							
 						elseif izvratH = 1:
 							'"Get off her" shouts <<$husName>> at the dog, but your dog doesn''t leave you alone. Meanwhile, your dog''s knot found its way to your pussy and enters it. You moan, but your husband interprets your movement as an attempt of trying to free yourself. "That''s it <<$pcs_firstname>>, you almost freed yourself."' 
-							'It doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
+							'It doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
 							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'
 							
 							$orgasm_or = 'yes'
@@ -51,7 +51,7 @@ if zoo >= 6 and sobaka ! 0:
 						end
 
 						act 'Let him put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr2x'
 						end
@@ -70,11 +70,11 @@ if zoo >= 6 and sobaka ! 0:
 					'"Help me, he won''t stop", you reply.'
 
 					if izvratH = 0:
-						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'
 
 						act 'Let him put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr2x'
 						end
@@ -97,7 +97,7 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'cum_call', 'mouth', $husName
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z3.jpg"></center>'
 							'You grab his cock and take it into your mouth. You suck on his cock for a good two or three minutes, until <<$husName>> ends up cumming in your mouth. You swallow his sperm and clean up his cock. As your husband moves away, your dog stops licking your cunt and positions his knot above your face.'
-							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$namesob>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$rex[''name'']>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him to the vet and have him put to sleep", <<$husName>> tells you.'
 							
 							gs 'arousal', 'bj', 3, 'sub'
@@ -107,7 +107,7 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'stat'
 							
 							act 'Put your dog to sleep':
-								sobaka = 0
+								rex['owned'] = 0
 								zoo = 0
 								gt 'kuhr2x'
 							end
@@ -121,7 +121,7 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									husband -= 1
 									cumnostd = 1
-									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'hands', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs knot in your hand and begin to stroke it, after a few minutes your dog cums on your hands.'
 
@@ -134,9 +134,9 @@ if zoo >= 6 and sobaka ! 0:
 									swallow += 1
 									husband -= 40
 									cumnostd = 1
-									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
-									'You order your <<$namesob>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$namesob>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
+									'You order your <<$rex[''name'']>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$rex[''name'']>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
 									'"My god, what kind of pervert are you", <<$husName>> asks, with obvious disgust.'
 
 									gs 'arousal', 'bj', 5, 'beast'
@@ -157,12 +157,12 @@ if zoo >= 6 and sobaka ! 0:
 					if izvratH = 0:
 						pcs_mood -= 15
 						pcs_willpwr -= 15
-						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$namesob>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
+						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$rex[''name'']>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
 						'"I better never see you doing something like this ever again.", <<$husName>> says. As you open your eyes you see your dog lying dead on the floor in his own pool of blood.'
 						'"I''m going to take this little shit outside and throw it away", your husband says as he wraps the dog into an old sheet. "Now clean these blood stains up, I don''t want to buy a new carpet.", <<$husName>> orders you, as he makes his way out to the garbage cans.'
 
 						act 'Finish':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'kuhr2x'
 						end
@@ -171,11 +171,11 @@ if zoo >= 6 and sobaka ! 0:
 						'"No, of course not!", you try to explain.'
 						'"And yet I see you bitch here with your legs spread apart and your juices gushing out of your cunt, while your shitty dog licks your pussy." he says. "Well, you know what, why don''t you show me how much of a bitch you are. Go on, suck his cock."'
 
-						act 'Suck <<$namesob>> knot':
+						act 'Suck <<$rex[''name'']>> knot':
 							cla
 							*clr
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z4.jpg"></center>'
-							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$namesob>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
+							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$rex[''name'']>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
 							'It seems like just being part of the audience doesn''t quite satisfy him, so he orders you to spread your legs.'
 
 							gs 'arousal', 'bj', 5, 'beast', 'sub'
@@ -202,9 +202,9 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									orgasm_anal += 1
 									cumnostd = 1
-									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'anus', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
-									'You turn around and position yourself on all fours. <<$namesob>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$namesob>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
+									'You turn around and position yourself on all fours. <<$rex[''name'']>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$rex[''name'']>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
 
 									$orgasm_or = 'yes'
 									gs 'arousal', 'end'
@@ -218,10 +218,10 @@ if zoo >= 6 and sobaka ! 0:
 				end
 			end
 		else
-			act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof27'
+			act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof27'
 		end
 	elseif husband = 0 or husbandrink = 10:
-		act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof27'
+		act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof27'
 	end
 end
 --- mod_bestmod_kuhr2x ---------------------------------

bm_locations/mod_bestmod_petdog.qsrc

@@ -6,17 +6,17 @@ if $ARGS[0] = 'start':
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog2.jpg"></center>'
 
 	if zoo >= 6 and zoodogonceday ! daystart:zoodogonceday = daystart & gt 'mod_bestmod_petdog', 'hardcoredog'
-	if pcs_horny >= 50 and pcs_vag > 0 and husband = 0:act 'Play with <<$namesob>>':gt 'mod_bestmod_petdog', 'gamedog'
-	if husband > 0 and week < 6 and hour < 17 and hour > 7:act 'Play with <<$namesob>>':gt 'mod_bestmod_petdog', 'gamedog'
+	if pcs_horny >= 50 and pcs_vag > 0 and husband = 0:act 'Play with <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'gamedog'
+	if husband > 0 and week < 6 and hour < 17 and hour > 7:act 'Play with <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'gamedog'
 
 	if bm_rex_setup ! 1: bm_rex_setup = 1 & gs 'mod_bestmod_petdog', 'rex_setup'
 
-	act 'Walk <<$namesob>>':
+	act 'Walk <<$rex[''name'']>>':
 		cls
 		minut += 30
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog_walk.jpg"></center>'
-		'<center><b>You are walk <<$namesob>>.</center></b>'
+		'<center><b>You are walk <<$rex[''name'']>>.</center></b>'
 
 		act 'The house':dynamic $brodila
 
@@ -25,15 +25,15 @@ if $ARGS[0] = 'start':
 
 	act 'Leave':gt 'korr'
 
-	act 'Have <<$namesob>> put down':
+	act 'Have <<$rex[''name'']>> put down':
 		cls
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog2.jpg"></center>'
-		'<<$namesob>> puts on his saddest face and whimpers'
+		'<<$rex[''name'']>> puts on his saddest face and whimpers'
 
 		act 'Aww... I can''t':dynamic $brodila
 
 		act 'Do it':
-			sobaka = 0
+			rex['owned'] = 0
 			zoo = 0
 			minut += 60
 			'You take your dog to the vet, who puts him down.'
@@ -60,7 +60,7 @@ if $ARGS[0] = 'polactdog':
 		pcs_vag += 3
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/vag.jpg"></center>'
-		'You reach back to him and begin to massage his sack, where his throbbing member protrudes from. You start to masturbate him. His dick grows before your eyes, turning into a formidable penis in your hand. You guide him a little and he enters you. He does the rest himself, abruptly pushing his member hungrily into your pussy. You groan with the first blow, and after three strokes, you are fully strung on his member. <<$namesob>> began to thrust with long, strong strokes, each time pushing his member to the hilt. The dog pulls his member almost completely out, leaving only 2 cm inside. Then he abruptly pushes it to its full length with a powerful thrust. The champ goes deep into your vagina, your sex lips tightly wrapping around it in pleasure. Several orgasms follow one another, in surging waves. The dog gains pace, gripping you with his paws, pounding his cock into the depths of your vagina.'
+		'You reach back to him and begin to massage his sack, where his throbbing member protrudes from. You start to masturbate him. His dick grows before your eyes, turning into a formidable penis in your hand. You guide him a little and he enters you. He does the rest himself, abruptly pushing his member hungrily into your pussy. You groan with the first blow, and after three strokes, you are fully strung on his member. <<$rex[''name'']>> began to thrust with long, strong strokes, each time pushing his member to the hilt. The dog pulls his member almost completely out, leaving only 2 cm inside. Then he abruptly pushes it to its full length with a powerful thrust. The champ goes deep into your vagina, your sex lips tightly wrapping around it in pleasure. Several orgasms follow one another, in surging waves. The dog gains pace, gripping you with his paws, pounding his cock into the depths of your vagina.'
 
 		$orgasm_or = 'yes'
 		gs 'arousal', 'vaginal', 10, 'beast', 'rough'
@@ -122,7 +122,7 @@ if $ARGS[0] = 'dogreiqdi':
 	minut += 10
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/girl.jpg"></center>'
-	'Once you calm down and adjust yourself, you kiss <<$namesob>> and decide to head home. Recovering after intercourse, you struggle to your feet. While adjusting your clothes, you notice a girl. She watches with curiosity and excitement explicitly looking for all your shows. The girl opens her mouth and wants to say something, but stops and runs away. You watch in a mild surprise, but also the fact that you were watched getting filled. You call <<$namesob>> and go home.'
+	'Once you calm down and adjust yourself, you kiss <<$rex[''name'']>> and decide to head home. Recovering after intercourse, you struggle to your feet. While adjusting your clothes, you notice a girl. She watches with curiosity and excitement explicitly looking for all your shows. The girl opens her mouth and wants to say something, but stops and runs away. You watch in a mild surprise, but also the fact that you were watched getting filled. You call <<$rex[''name'']>> and go home.'
 
 	act 'Leave':gt 'korr'
 end
@@ -133,8 +133,8 @@ if $ARGS[0] = 'gamedog':
 	pcs_horny += 30
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/1.jpg"></center>'
-	'You call <<$namesob>> to your bed, so that you can play with him. You kiss him, play with legs and stroke his neck and stomach.'
-	'Suddenly, your pussy starts to itch. You can''t understand why, but you strongly want sex. Then, seeing <<$namesob>> penis poking out of its sheeth, you have a crazy idea.'
+	'You call <<$rex[''name'']>> to your bed, so that you can play with him. You kiss him, play with legs and stroke his neck and stomach.'
+	'Suddenly, your pussy starts to itch. You can''t understand why, but you strongly want sex. Then, seeing <<$rex[''name'']>> penis poking out of its sheeth, you have a crazy idea.'
 	'You could have some fun playing with his member.'
 
 	act 'Leave':dynamic $brodila
@@ -144,7 +144,7 @@ if $ARGS[0] = 'gamedog':
 		*clr
 		zoo += 1
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/2.jpg"></center>'
-		'You lean back against the wall and spread your legs. Using your hand, you guide <<$namesob>> to your hole.'
+		'You lean back against the wall and spread your legs. Using your hand, you guide <<$rex[''name'']>> to your hole.'
 		'Your pooch understands, and begins to lick your pussy with his tongue. It''s strange and pleasant.'
 		'His tongue licks all of your pussy at the same time. It is very unusual, but you decide to change position.'
 
@@ -171,7 +171,7 @@ if $ARGS[0] = 'gamedog':
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/3.jpg"></center>'
 		'You push your dog onto the floor, and lie on your back. With one hand you hold his balls. Then, closing your eyes, touch his penis with your tongue.'
 		'It feels very different to a human penis against your tongue, but it''s not so scary. You suck this dick until it''s swollen and his veins start to protrude.'
-		'When it reaches the desired size, you start to wonder if you could have sex with <<$namesob>>.'
+		'When it reaches the desired size, you start to wonder if you could have sex with <<$rex[''name'']>>.'
 
 		gs 'arousal', 'bj', 10, 'beast'
 		gs 'stat'
@@ -185,9 +185,9 @@ if $ARGS[0] = 'gamedog':
 			*clr
 			pcs_vag += 3
 			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/5.jpg"></center>'
-			'Realizing <<$namesob>> is now hungry for sex, you excitedly guide him into your wet cunt. Vaginal sex with a pet is very unusual.'
+			'Realizing <<$rex[''name'']>> is now hungry for sex, you excitedly guide him into your wet cunt. Vaginal sex with a pet is very unusual.'
 			'Your dog fucks you in powerful spurts. He thrusts deep into your crotch, and an animal brings you to a shuddering orgasm.'
-			'Not wanting a bow-wow-creampie you use your feet to push <<$namesob>> away and his cock comes free. It became clear what will happen next.'
+			'Not wanting a bow-wow-creampie you use your feet to push <<$rex[''name'']>> away and his cock comes free. It became clear what will happen next.'
 			'You very quickly bring your face to his member, so as not to miss the chance to taste your pet''s cum.'
 
 			gs 'arousal', 'vaginal', 10, 'beast', 'rough'
@@ -210,7 +210,7 @@ if $ARGS[0] = 'gamedog':
 
 				if RexQW = 1:act 'Call Sonia':gt 'mod_bestmod_petdog', 'dzoof1'
 
-				act 'Release <<$namesob>> and go':dynamic $brodila
+				act 'Release <<$rex[''name'']>> and go':dynamic $brodila
 			end
 		end
 	end
@@ -220,20 +220,20 @@ if $ARGS[0] = 'hardcoredog':
 	cla
 	*clr
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof.jpg"></center>'
-	'You go to <<$namesob>>, who''s in a playful mood. He begins to wag his tail and his nose pokes between your legs.'
+	'You go to <<$rex[''name'']>>, who''s in a playful mood. He begins to wag his tail and his nose pokes between your legs.'
 
-	act 'Kiss <<$namesob>>':
+	act 'Kiss <<$rex[''name'']>>':
 		cla
 		*clr
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof1.jpg"></center>'
-		'You kneel in front of <<$namesob>> face to face, and kiss him.'
+		'You kneel in front of <<$rex[''name'']>> face to face, and kiss him.'
 
-		act 'Take <<$namesob>> to the bedroom':
+		act 'Take <<$rex[''name'']>> to the bedroom':
 			cla
 			*clr
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa.jpg"></center>'
-			'You undress and lie down on the bed putting <<$namesob>>''s mouth to your honeypot. He begins to carefully lick your pussy'
+			'You undress and lie down on the bed putting <<$rex[''name'']>>''s mouth to your honeypot. He begins to carefully lick your pussy'
 			'You start to feel the warmth as your arousal builds.'
 
 			$orgasm_or = 'no'
@@ -245,18 +245,18 @@ if $ARGS[0] = 'hardcoredog':
 				*clr
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/sog.jpg"></center>'
-				'You stroke and caress <<$namesob>>''s cock.'
+				'You stroke and caress <<$rex[''name'']>>''s cock.'
 				'Your juices start to flow.'
 
 				gs 'arousal', 'hj', 5, 'beast'
 				gs 'stat'
 
-				act 'Blow <<$namesob>>':
+				act 'Blow <<$rex[''name'']>>':
 					cla
 					*clr
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa1.jpg"></center>'
-					'You lick <<$namesob>>''s dick and choke it down.'
+					'You lick <<$rex[''name'']>>''s dick and choke it down.'
 					'You are going crazy with excitement'
 
 					gs 'arousal', 'bj', 10, 'beast'
@@ -267,13 +267,13 @@ if $ARGS[0] = 'hardcoredog':
 						*clr
 						pcs_vag += 3
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa2.jpg"></center>'
-						'<<$namesob>> jumps on you and starts to rub his cock against your vagina'
+						'<<$rex[''name'']>> jumps on you and starts to rub his cock against your vagina'
 						'You are shaking with the need for release and must have something inside you'
 
 						gs 'arousal', 'vaginal', 5, 'beast'
 						gs 'stat'
 
-						act 'Missionary <<$namesob>>':
+						act 'Missionary <<$rex[''name'']>>':
 							cla
 							*clr
 							gs 'stat'
@@ -288,7 +288,7 @@ if $ARGS[0] = 'hardcoredog':
 								*clr
 								gs 'stat'
 								'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa4.jpg"></center>'
-								'You wrap your legs around <<$namesob>> and fuck with him'
+								'You wrap your legs around <<$rex[''name'']>> and fuck with him'
 								'Your orgasm is upon you, but you manage to surpress it for now.'
 
 								gs 'arousal', 'vaginal', 5, 'beast'
@@ -311,13 +311,13 @@ if $ARGS[0] = 'hardcoredog':
 										gs 'stat'
 										'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/spa6.jpg"></center>'
 										'Your dog starts pawing at you so you jump off and get onto all fours, yeilding control.'
-										'<<$namesob>> jumps onto you and rams his cock into your well worked pussy.'
+										'<<$rex[''name'']>> jumps onto you and rams his cock into your well worked pussy.'
 										'This is too much for you and you can''t hold on any longer.'
 
 										gs 'arousal', 'vaginal', 5, 'beast'
 										gs 'stat'
 
-										act 'Take me to Nirvana, <<$namesob>>':
+										act 'Take me to Nirvana, <<$rex[''name'']>>':
 											cla
 											*clr
 											cumnostd = 1
@@ -328,7 +328,7 @@ if $ARGS[0] = 'hardcoredog':
 
 											gs 'arousal', 'vaginal', 5, 'beast'
 											$orgasm_or = 'custom'
-											$orgasm_txt = 'Screaming <<$namesob>>''s name, your dam breaks and you orgasm so hard you forget your own name.'
+											$orgasm_txt = 'Screaming <<$rex[''name'']>>''s name, your dam breaks and you orgasm so hard you forget your own name.'
 
 											'Sometime later, having calmed down, you slowly regain your senses.'
 
@@ -348,24 +348,24 @@ if $ARGS[0] = 'hardcoredog':
 			end
 		end
 
-		act 'Take <<$namesob>> to the living room':
+		act 'Take <<$rex[''name'']>> to the living room':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof3.jpg"></center>'
-			'You go into the hall, undress and sit on the sofa. <<$namesob>> is very excited and jumps on you'
+			'You go into the hall, undress and sit on the sofa. <<$rex[''name'']>> is very excited and jumps on you'
 
-			act 'Push <<$namesob>> off you':
+			act 'Push <<$rex[''name'']>> off you':
 				cla
 				*clr
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof4.jpg"></center>'
-				'You try to push your dog off you, but <<$namesob>> no longer seems interested in obeying you.'
+				'You try to push your dog off you, but <<$rex[''name'']>> no longer seems interested in obeying you.'
 
 				act 'Continue resisting':
 					cla
 					*clr
 					pcs_vag += 3
 					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof5.jpg"></center>'
-					'Your struggle with <<$namesob>> fails.	<<$namesob>> puts his paws on your shoulders and, pushing you down, enters your pussy.'
+					'Your struggle with <<$rex[''name'']>> fails.	<<$rex[''name'']>> puts his paws on your shoulders and, pushing you down, enters your pussy.'
 					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof6.jpg"></center>'
 
 					gs 'arousal', 'vaginal', 5, 'beast'
@@ -394,7 +394,7 @@ if $ARGS[0] = 'hardcoredog':
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof10.jpg"></center>'
 				'You turn your back and get on all fours.'
-				'With your help <<$namesob>> finds your ass with his cock and rides you like you''re his bitch.'
+				'With your help <<$rex[''name'']>> finds your ass with his cock and rides you like you''re his bitch.'
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof9.jpg"></center>'
 
 				gs 'arousal', 'anal', 5, 'beast'
@@ -408,38 +408,38 @@ if $ARGS[0] = 'hardcoredog':
 		act 'Leave':dynamic $brodila
 	end
 
-	act 'Walk <<$namesob>>':
+	act 'Walk <<$rex[''name'']>>':
 		cla
 		*clr
 		minut += 20
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog_walk.jpg"></center>'
-		'<center><b>You walk <<$namesob>> and see that he is very excited.</center></b>'
+		'<center><b>You walk <<$rex[''name'']>> and see that he is very excited.</center></b>'
 		act 'Go home':dynamic $brodila
 
 		act 'Find somewhere private':
 			cla
 			*clr
 			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl1.jpg"></center>'
-			'You take <<$namesob>> into the woods behind your house, grab his dick, and start masturbating him.'
+			'You take <<$rex[''name'']>> into the woods behind your house, grab his dick, and start masturbating him.'
 
 			act 'Take off underwear and bend':
 				cla
 				*clr
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl2.jpg"></center>'
-				'You bend down before <<$namesob>> and he begins to lick your pussy.'
+				'You bend down before <<$rex[''name'']>> and he begins to lick your pussy.'
 				'You are starting to get wet between the legs.'
 
 				gs 'arousal', 'cuni', 5, 'beast'
 				gs 'stat'
 
-				act 'Suck <<$namesob>>':
+				act 'Suck <<$rex[''name'']>>':
 					cla
 					*clr
 					gs 'stat'
 					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl3.jpg"></center>'
-					'You greedily suck <<$namesob>>''s dick.'
+					'You greedily suck <<$rex[''name'']>>''s dick.'
 					'This is even more exciting and you want sex.'
 
 					gs 'arousal', 'bj', 10, 'beast'
@@ -459,7 +459,7 @@ if $ARGS[0] = 'cumshot2':
 	cumnostd = 1
 	gs 'cum_call', '', $petID, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof8.jpg"></center>'
-	'<<$namesob>> discharges into your vagina. You stick together with the dog passionately'
+	'<<$rex[''name'']>> discharges into your vagina. You stick together with the dog passionately'
 
 	$orgasm_or = 'custom'
 	$orgasm_txt = 'You orgasm.'
@@ -482,7 +482,7 @@ if $ARGS[0] = 'cumshot1':
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zoof11.jpg"></center>'
-	'You take <<$namesob>>''s penis into your mouth just as he cums.'
+	'You take <<$rex[''name'']>>''s penis into your mouth just as he cums.'
 
 	$orgasm_or = 'custom'
 	$orgasm_txt = 'The sensation is enough for you to enjoy a small, but powerful orgasm.'
@@ -502,7 +502,7 @@ if $ARGS[0] = 'zoof14':
 	cumnostd = 1
 	gs 'cum_call', '', $petID, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl4.jpg"></center>'
-	'You take the hold of <<$namesob>>''s cock and start to fuck yourself with it.'
+	'You take the hold of <<$rex[''name'']>>''s cock and start to fuck yourself with it.'
 
 	$orgasm_or = 'custom'
 	$orgasm_txt = 'Your dog cums as you bring yourself to orgasm.'
@@ -523,7 +523,7 @@ if $ARGS[0] = 'zoof15':
 	gs 'cum_call', '', $petID, 1, 0, -1, 60
 	pcs_vag += 3
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/yl5.jpg"></center>'
-	'You turn your back on <<$namesob>>. He jumps on you and starts to fuck you.'
+	'You turn your back on <<$rex[''name'']>>. He jumps on you and starts to fuck you.'
 
 	$orgasm_or = 'custom'
 	$orgasm_txt = 'He blows his load inside you, fueling your orgasm.'
@@ -565,7 +565,7 @@ if $ARGS[0] = 'zoof27':
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh2.jpg"></center>'
-	'You called <<$namesob>>'
+	'You called <<$rex[''name'']>>'
 	'He runs to the kitchen wagging his tail'
 
 	act 'Undress and lick your dog':
@@ -573,7 +573,7 @@ if $ARGS[0] = 'zoof27':
 		*clr
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh1.jpg"></center>'
-		'You get naked and sit down. You then try to get <<$namesob>> to lick your pussy. He willingly obliges.'
+		'You get naked and sit down. You then try to get <<$rex[''name'']>> to lick your pussy. He willingly obliges.'
 		'He keeps going until you orgasm and push him away.'
 
 		gs 'arousal', 'cuni', 5, 'beast'
@@ -593,7 +593,7 @@ if $ARGS[0] = 'zoof27':
 		gs 'cum_call', '', $petID, 1, 0, -1, 60
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh.jpg"></center>'
 		'You assume the position. Your doggy ​​jumps on you and starts fucking.'
-		'It doesn''t take long for <<$namesob>> to cum inside you.'
+		'It doesn''t take long for <<$rex[''name'']>> to cum inside you.'
 
 		gs 'arousal', 'vaginal', 15, 'beast'
 		$orgasm_or = 'yes'
@@ -612,7 +612,7 @@ if $ARGS[0] = 'zoof30':
 	minut += 5
 	gs 'stat'
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/kuh2.jpg"></center>'
-	'You undress and called <<$namesob>>.'
+	'You undress and called <<$rex[''name'']>>.'
 	'He runs into the hall as happy as a monkey with a peanut machine.'
 
 	act 'Lie on sofa and spread your legs':
@@ -647,7 +647,7 @@ if $ARGS[0] = 'zoof30':
 		*clr
 		gs 'stat'
 		'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal.jpg"></center>'
-		'<<$namesob>> runs up to you and starts licking between your legs.'
+		'<<$rex[''name'']>> runs up to you and starts licking between your legs.'
 		'You start to feel the warmth as your arousal builds.'
 
 		gs 'arousal', 'cuni', 10, 'beast'
@@ -679,7 +679,7 @@ if $ARGS[0] = 'dogcancerstyle':
 	gs 'cum_call', '', $petID, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal3.jpg"></center>'
 	'You get on all fours and your dog ​​jumps you and starts fucking your pussy.'
-	'It doesn''t take long for <<$namesob>> to cum inside you.'
+	'It doesn''t take long for <<$rex[''name'']>> to cum inside you.'
 
 	$orgasm_or = 'yes'
 	gs 'arousal', 'vaginal', 15, 'beast'
@@ -698,8 +698,8 @@ if $ARGS[0] = 'dogmissionarystyle':
 	cumnostd = 1
 	gs 'cum_call', '', $petID, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/zal2.jpg"></center>'
-	'You push yourself up on to your feet. From this better angle <<$namesob>> easily finds his way into your pussy.'
-	'It doesn''t take long for <<$namesob>> to cum inside you.'
+	'You push yourself up on to your feet. From this better angle <<$rex[''name'']>> easily finds his way into your pussy.'
+	'It doesn''t take long for <<$rex[''name'']>> to cum inside you.'
 
 	gs 'arousal', 'vaginal', 15, 'beast'
 	$orgasm_or = 'yes'

bm_locations/mod_bestmod_petshop.qsrc

@@ -1,7 +1,7 @@
 # mod_bestmod_petshop
 if $ARGS[0] = 'buy_dog':	
 	'Dog - 3000 <b>₽</b>'
-	if money >= 3000 and sobaka = 0:
+	if money >= 3000 and rex['owned'] = 0:
 		act 'Buy a dog (3000 <b>₽</b>)':
 			cla & *clr
 			menu_off = 1
@@ -17,19 +17,19 @@ if $ARGS[0] = 'buy_dog':
 						cla
 						*clr
 						minut += 10
-						sobaka += 1
+						rex['owned'] = 1
 						money -= 3000
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/dog1.jpg" width = 600 height = 500 ></center>'
 						'<center><b>You bought a Dalmatian dog.</b></center>'
-						$namesob = input ('I''ll call the dog...')
-						if $namesob = '':$namesob = 'Spot'
-						gs 'npcgeneratec', 0, $namesob, rand(1,4)
+						$rex['name'] = input ('I''ll call the dog...')
+						if $rex['name'] = '':$rex['name'] = 'Spot'
+						gs 'npcgeneratec', 0, $rex['name'], rand(1,4)
 						gs 'npcpreservec', $npclastgenerated
 						$petID = $npclastsaved
-						$npc_firstname[$npclastsaved] = $namesob
-						$npc_nickname[$npclastsaved] = $namesob
-						$npc_lastname[$npclastsaved] = $namesob
-						$npc_usedname[$npclastsaved] = $namesob
+						$npc_firstname[$npclastsaved] = $rex['name']
+						$npc_nickname[$npclastsaved] = $rex['name']
+						$npc_lastname[$npclastsaved] = $rex['name']
+						$npc_usedname[$npclastsaved] = $rex['name']
 						$npc_notes[$npclastsaved] = 'The dog you purchased from the pet shop.'
 						npc_spermpot[$npclastsaved] = -1
 						$npc_thdick[$npclastsaved] = 'knotted'

bm_locations/mod_bestmod_saveupdater.qsrc

@@ -21,5 +21,24 @@ if $npc_firstpart['A8000'] = 'U':
 	killvar 'DogVag'
 	killvar 'MargoSex'
 end
+if sobaka = 1:
+	rex['owned'] = 1
+	$rex['name'] = $npc_firstname[$petId]
+end
+if $petID ='' and rex['owned'] = 1:
+	gs 'npcgeneratec', 0, $rex['name'], rand(1,4)
+	gs 'npcpreservec', $npclastgenerated
+	$petID = $npclastsaved
+	$npc_firstname[$npclastsaved] = $rex['name']
+	$npc_nickname[$npclastsaved] = $rex['name']
+	$npc_lastname[$npclastsaved] = $rex['name']
+	$npc_usedname[$npclastsaved] = $rex['name']
+	$npc_notes[$npclastsaved] = 'The dog you purchased from the pet shop.'
+	npc_spermpot[$npclastsaved] = -1
+	$npc_thdick[$npclastsaved] = 'knotted'
+	npc_dick[$npclastsaved] = 7
+	npc_sexskill[$npclastsaved] = 0
+end
+
 
 --- mod_bestmod_saveupdater ---------------------------------

bm_locations/mod_bestmod_setup.qsrc

@@ -11,7 +11,7 @@ $mod_info[1] = '10500'
 $mod_info[2] = 'julzor'
 !2=mod author
 
-$mod_info[3] = 'bestiality content  GL 0.8.6 compatible'
+$mod_info[3] = 'bestiality content  GL 0.8.7 compatible'
 !3=mod description, input a short brief here.
 
 $mod_info[4] = 'Options'

bm_locations/mod_bestmod_sitr.qsrc

@@ -1,13 +1,13 @@
 # mod_bestmod_sitr
-if zoo >= 6 and sobaka ! 0:
+if zoo >= 6 and rex['owned'] ! 0:
 	if husband > 0 and husbandrink ! 10:
 		if week > 5 or week < 6 and hour > 17:
-			act 'Call <<$namesob>>':
+			act 'Call <<$rex[''name'']>>':
 				cla
 				*clr
 				minut += 30
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z1.jpg"></center>'
-				'You call <<$namesob>> and he storms into the living room, wiggling his tail. Upon entering the room, he immediately smells your moist pussy and shoves his cold, wet nose between your legs. <<$namesob>> soon starts to lick your cunt.'
+				'You call <<$rex[''name'']>> and he storms into the living room, wiggling his tail. Upon entering the room, he immediately smells your moist pussy and shoves his cold, wet nose between your legs. <<$rex[''name'']>> soon starts to lick your cunt.'
 
 				if harakHusb = 0:
 					zoo += 1
@@ -18,7 +18,7 @@ if zoo >= 6 and sobaka ! 0:
 					husband -= 1
 					'"OH MY GOD, what is he doing?", your husband yells.'
 					'"Help me!", you scream, "He won''t let go!"'
-					'<<$husName>> tries to shoo the dog away, but <<$namesob>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
+					'<<$husName>> tries to shoo the dog away, but <<$rex[''name'']>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
 					'"Think of something." you tell him, already moaning slightly with pleasure. <<$husName>> tries to intimidate the dog, continuously yelling at him, but to no avail. Suddenly your dog jumps on top you.'
 					'"Oh my God, that he is going to do now?" <<$husName>> screams..'
 					'"Isn''t it obvious? He wants to fuck me." you say.'
@@ -28,18 +28,18 @@ if zoo >= 6 and sobaka ! 0:
 						cla
 						*clr
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
-						'You try to push your dog away ang get way from his clutch, but it seems to do just the opposite of what you''ve intended to do. <<$namesob>> now leans on you and you can feel knot on your thigh, trying to find its way to your pussy.'
+						'You try to push your dog away ang get way from his clutch, but it seems to do just the opposite of what you''ve intended to do. <<$rex[''name'']>> now leans on you and you can feel knot on your thigh, trying to find its way to your pussy.'
 						if izvratH = 0:
-							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
+							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 						elseif izvratH = 1:
 							'"Get off her" shouts <<$husName>> at the dog, but your dog doesn''t leave you alone. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan, but your husband interprets your movement as an attempt of trying to free yourself. "That''s it <<$pcs_nickname>>, you almost freed yourself."' 
-							'It doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
+							'It doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 						end
 
 						act 'Put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr'
 						end
@@ -58,11 +58,11 @@ if zoo >= 6 and sobaka ! 0:
 					'"Help me, he doesn''t stop", you reply.'
 
 					if izvratH = 0:
-						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 
 						act 'Put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr'
 						end
@@ -91,10 +91,10 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'boyStat', $husID
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z3.jpg"></center>'
 							'You grab his cock and take it into your mouth. You suck on his cock for good two to three minutes, until <<$husName>> ends up cumming in your mouth. You swallow his sperm and clean up his cock. As your husband moves away, your dog stops licking your cunt and positions his knot above your face.'
-							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$namesob>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$rex[''name'']>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 							act 'Put your dog to sleep':
-								sobaka = 0
+								rex['owned'] = 0
 								zoo = 0
 								gt 'sitr'
 							end
@@ -108,7 +108,7 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									husband -= 1
 									cumnostd = 1
-									gs 'cum_call', 'hands', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'hands', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs knot in your hand and begin to stroke it, after a few minutes your dog cums on your hands.'
 									gs 'arousal', 'hj', 10, 'beast'
@@ -124,9 +124,9 @@ if zoo >= 6 and sobaka ! 0:
 									swallow += 1
 									husband -= 40
 									cumnostd = 1
-									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
-									'You order your <<$namesob>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$namesob>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
+									'You order your <<$rex[''name'']>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$rex[''name'']>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
 									'"My god, what kind of pervert are you", <<$husName>> asks, with obvious disgust.'
 									gs 'arousal', 'bj', 10, 'beast'
 									gs 'arousal', 'end'
@@ -146,12 +146,12 @@ if zoo >= 6 and sobaka ! 0:
 					if izvratH = 0:
 						pcs_mood -= 15
 						pcs_willpwr -= 15
-						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$namesob>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
+						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$rex[''name'']>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
 						'"I better never see you doing something like this ever again.", <<$husName>> says. As you open your eyes you see your dog lying dead on the floor in his own pool of blood.'
 						'"I''m going to take this little shit outside and throw it away", your husband says as he wraps the dog into an old sheet. "Now clean these blood stains up, I don''t want to buy a new carpet.", <<$husName>> orders you, as he makes his way out to the garbage cans.'
 
 						act 'Finish':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr'
 						end
@@ -160,11 +160,11 @@ if zoo >= 6 and sobaka ! 0:
 						'"No, of course not!", you try to explain.'
 						'"And yet I see you bitch here with your legs spread apart and your juices gushing out of your cunt, while your shitty dog licks your pussy." he says. "Well, you know what, why don''t you show me how much of a bitch you are. Go on, suck his cock."'
 
-						act 'Suck <<$namesob>> knot':
+						act 'Suck <<$rex[''name'']>> knot':
 							cla
 							*clr
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z4.jpg"></center>'
-							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$namesob>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
+							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$rex[''name'']>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
 							'It seems like just being part of the audience doesn''t quite satisfy him, so he orders you to spread your legs.'
 
 							gs 'arousal', 'bj', 5, 'beast', 'sub'
@@ -191,9 +191,9 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									orgasm_anal += 1
 									cumnostd = 1
-									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'anus', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
-									'You turn around and position yourself on all fours. <<$namesob>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$namesob>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
+									'You turn around and position yourself on all fours. <<$rex[''name'']>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$rex[''name'']>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
 
 									$orgasm_or = 'yes'
 									gs 'arousal', 'end'
@@ -207,10 +207,10 @@ if zoo >= 6 and sobaka ! 0:
 				end
 			end
 		else
-			act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof30'
+			act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof30'
 		end
 	elseif husband = 0 or husbandrink = 10:
-		act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof30'
+		act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof30'
 	end
 end
 --- mod_bestmod_sitr ---------------------------------

bm_locations/mod_bestmod_sitr2x.qsrc

@@ -1,13 +1,13 @@
 # mod_bestmod_sitr2x
-if zoo >= 6 and sobaka ! 0:
+if zoo >= 6 and rex['owned'] ! 0:
 	if husband > 0 and husbandrink ! 10:
 		if week > 5 or week < 6 and hour > 17:
-			act 'Call <<$namesob>>':
+			act 'Call <<$rex[''name'']>>':
 				cla
 				*clr
 				minut += 30
 				'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z1.jpg"></center>'
-				'You call <<$namesob>> and he storms into the living room, wiggling his tail. Upon entering the room, he immediately smells your moist pussy and shoves his cold, wet nose between your legs. <<$namesob>> soon starts to lick your cunt.'
+				'You call <<$rex[''name'']>> and he storms into the living room, wiggling his tail. Upon entering the room, he immediately smells your moist pussy and shoves his cold, wet nose between your legs. <<$rex[''name'']>> soon starts to lick your cunt.'
 
 				if harakHusb = 0:
 					zoo += 1
@@ -16,7 +16,7 @@ if zoo >= 6 and sobaka ! 0:
 					husband -= 1
 					'"OH MY GOD, what is he doing?", your husband yells.'
 					'"Help me!", you scream, "He won''t let go!"'
-					'<<$husName>> tries to shoo the dog away, but <<$namesob>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
+					'<<$husName>> tries to shoo the dog away, but <<$rex[''name'']>> growls and snarls at your husband. "He won''t stop it. What should I do?" he asks.'
 					'"Think of something." you tell him, already moaning slightly with pleasure. <<$husName>> tries to intimidate the dog, continuously yelling at him, but to no avail. Suddenly your dog jumps on top you.'
 					'"Oh my God, that he is going to do now?" <<$husName>> screams..'
 					'"Isn''t it obvious? He wants to fuck me." you say.'
@@ -26,21 +26,21 @@ if zoo >= 6 and sobaka ! 0:
 						cla
 						*clr
 						cumnostd = 1
-						gs 'cum_call', '', $namesob, 1, 0, -1, 60
+						gs 'cum_call', '', $rex['name'], 1, 0, -1, 60
 						'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z2.jpg"></center>'
-						'You try to push your dog away ang get way from his clutch, but it seems to do just the opposite of what you''ve intended to do. <<$namesob>> now leans on you and you can feel knot on your thigh, trying to find its way to your pussy.'
+						'You try to push your dog away ang get way from his clutch, but it seems to do just the opposite of what you''ve intended to do. <<$rex[''name'']>> now leans on you and you can feel knot on your thigh, trying to find its way to your pussy.'
 
 						if izvratH = 0:
-							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
+							'"Oh my God, I can''t look at this", your husband screams, then storms out of the room, slamming the door behind him. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan and it doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. Your husband comes back and you''re still lying on your back, with your dogs spern flowing out of your pussy.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 						elseif izvratH = 1:
 							'"Get off her" shouts <<$husName>> at the dog, but your dog doesn''t leave you alone. Meanwhile, your dogs knot found its way to your pussy and enters it. You moan, but your husband interprets your movement as an attempt of trying to free yourself. "That''s it <<$pcs_nickname>>, you almost freed yourself."' 
-							'It doesn''t take long for you to cum and not long after <<$namesob>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
+							'It doesn''t take long for you to cum and not long after <<$rex[''name'']>> cums inside you as well. Once he is done pumping his seed into you, he runs back into the corridor. <<$husName>> looks at you in shook, as your dogs cum flows out of your pussy..'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 						end
 
 						act 'Put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr2x'
 						end
@@ -59,11 +59,11 @@ if zoo >= 6 and sobaka ! 0:
 					'"Help me, he doesn''t stop", you reply.'
 
 					if izvratH = 0:
-						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+						'<<$husName>> tries to pull the dog away from you, but he just growls. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 
 						act 'Put your dog to sleep':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr2x'
 						end
@@ -91,7 +91,7 @@ if zoo >= 6 and sobaka ! 0:
 							gs 'cum_call', 'mouth', $husName
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z3.jpg"></center>'
 							'You grab his cock and take it into your mouth. You suck on his cock for good two to three minutes, until <<$husName>> ends up cumming in your mouth. You swallow his sperm and clean up his cock. As your husband moves away, your dog stops licking your cunt and positions his knot above your face.'
-							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$namesob>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$namesob>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
+							'"Wooh, hold on, this goes too far", <<$husName>> says and ties to shoo your dog away, but <<$rex[''name'']>> growls at your husband. Your husband then leaves the room to grab an old bed sheet. He comes back and pulls it over <<$rex[''name'']>> head, he then takes a small rope and ties the ends together. Your dog whimpers while inside the improvised bag.'
 							'"I''ll take him now to the vet and have him put to sleep", <<$husName>> tells you.'
 							gs 'boyStat', $husID
 							gs 'arousal', 'bj', 3, 'sub'
@@ -99,7 +99,7 @@ if zoo >= 6 and sobaka ! 0:
 							minut -= 3
 							gs 'arousal', 'end'
 							act 'Put your dog to sleep':
-								sobaka = 0
+								rex['owned'] = 0
 								zoo = 0
 								gt 'sitr2x'
 							end
@@ -113,7 +113,7 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									husband -= 1
 									cumnostd = 1
-									gs 'cum_call', 'hj', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'hj', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z6.jpg"></center>'
 									'You take the dogs knot in your hand and begin to stroke it, after a few minutes your dog cums on your hands.'
 									gs 'arousal', 'hj', 10, 'beast'
@@ -129,9 +129,9 @@ if zoo >= 6 and sobaka ! 0:
 									swallow += 1
 									husband -= 40
 									cumnostd = 1
-									gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'mouth', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z7.jpg"></center>'
-									'You order your <<$namesob>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$namesob>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
+									'You order your <<$rex[''name'']>> to rollover on his back, so you can easily put his cock in your mouth. Your husband looks at you with disgust, as you suck off <<$rex[''name'']>>. After a few minutes you feel your dogs cock throbbing, as he cums in your mouth.'
 									'"My god, what kind of pervert are you", <<$husName>> asks, with obvious disgust.'
 									gs 'arousal', 'bj', 10, 'beast'
 									gs 'arousal', 'end'
@@ -151,12 +151,12 @@ if zoo >= 6 and sobaka ! 0:
 					if izvratH = 0:
 						pcs_mood -= 15
 						pcs_willpwr -= 15
-						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$namesob>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
+						'<<$husName>> tries to shoo your dog away, but to no avail, instead <<$rex[''name'']>> growls angry. Then <<$husName>> kicks your dog into the ribs, he whimpers and your husband continues to kick him over and over again.'
 						'"I better never see you doing something like this ever again.", <<$husName>> says. As you open your eyes you see your dog lying dead on the floor in his own pool of blood.'
 						'"I''m going to take this little shit outside and throw it away", your husband says as he wraps the dog into an old sheet. "Now clean these blood stains up, I don''t want to buy a new carpet.", <<$husName>> orders you, as he makes his way out to the garbage cans.'
 
 						act 'Finish':
-							sobaka = 0
+							rex['owned'] = 0
 							zoo = 0
 							gt 'sitr2x'
 						end
@@ -165,11 +165,11 @@ if zoo >= 6 and sobaka ! 0:
 						'"No, of course not!", you try to explain.'
 						'"And yet I see you bitch here with your legs spread apart and your juices gushing out of your cunt, while your shitty dog licks your pussy." he says. "Well, you know what, why don''t you show me how much of a bitch you are. Go on, suck his cock."'
 
-						act 'Suck <<$namesob>> knot':
+						act 'Suck <<$rex[''name'']>> knot':
 							cla
 							*clr
 							'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z4.jpg"></center>'
-							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$namesob>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
+							'<<$husName>> grabs your dog by the collar and pulls him up to the couch, so that <<$rex[''name'']>> cock is just above your face. You take his knot into your mouth and begin to suck on it. Your husband watches and tells you that the dog loves your bitch mouth.'
 							'It seems like just being part of the audience doesn''t quite satisfy him, so he orders you to spread your legs.'
 
 							gs 'arousal', 'bj', 5, 'beast', 'sub'
@@ -196,9 +196,9 @@ if zoo >= 6 and sobaka ! 0:
 									*clr
 									orgasm_anal += 1
 									cumnostd = 1
-									gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
+									gs 'cum_call', 'anus', $rex['name'], 1, 0, -1, 60
 									'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/z8.jpg"></center>'
-									'You turn around and position yourself on all fours. <<$namesob>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$namesob>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
+									'You turn around and position yourself on all fours. <<$rex[''name'']>> immediately jumps on you, you spread your buttocks apart with one hand. He start to fuck you, thinking you are just another bitch in heat. "That''s a good bitch", your husband comments and leaves the room. Your dog increases his speed, pumping his knot in and out of your ass and you have to admit, it starts to feel really good. For several minutes <<$rex[''name'']>> humps your ass, until you eventually climax. Your ass tightens, causing your dog to cum too.'
 
 									$orgasm_or = 'yes'
 									gs 'arousal', 'end'
@@ -212,10 +212,10 @@ if zoo >= 6 and sobaka ! 0:
 				end
 			end
 		else
-			act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof30'
+			act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof30'
 		end
 	elseif husband = 0 or husbandrink = 10:
-		act 'Call <<$namesob>>':gt 'mod_bestmod_petdog', 'zoof30'
+		act 'Call <<$rex[''name'']>>':gt 'mod_bestmod_petdog', 'zoof30'
 	end
 end
 --- mod_bestmod_sitr2x ---------------------------------

exp_locations/mod_experiment_setup.qsrc

@@ -13,7 +13,7 @@ $mod_info[1] = '10000'
 $mod_info[2] = 'pchs'
 !2=mod author
 
-$mod_info[3] = 'medical experiment compatible with GL 0.8.6'
+$mod_info[3] = 'medical experiment compatible with GL 0.8.7'
 !3=mod description, input a short brief here.
 
 if $curloc = 'mod_<<$mod_info[0]>>_setup':