Fixes for doggy cummies

locations/soba

@@ -69,9 +69,7 @@ if $ARGS[0] = 'polactdog':
 
 		act '....':
 			cls
-			sexpartkno = 1
-			dynamic $dogpot
-			gs 'cum_manage'
+			gs 'cum_call', '', $namesob, 1, 0, -1, 60
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/beast/zoo/vag2.jpg"></center>'
 			'You push your ass higher and rest his paws on the ground, becoming more comfortable for the males dick. Your pussy greedily swallows every centimeter of this member, milking him, squeezing along the entire length. Your Pussy burns and drips with love juice, some of it tricklomg down his thighs and dripping to the ground. The thrusts of the dog became more violent and stronger. Soon he began to growl and you began to push your ass into his penis, trying to swallow more of it. Your pussy walls squeeze as his cock grows inside, and he drives his cock to the balls. His unit expands in your pussy, pushing against your wall, his knot tightly binding you together. The dog begins to escape but the member is firmly stuck in your pussy. You squeeze it tight at the base, determined not to be released until it pumps his bitch full of sperm. You scream when the sperm finally hits, filling your throbbing pussy completely, his thick, hot sperm is warm inside you. His member spent and throbbing in your depths, your pussy milking him of his semen, sucking in every last drop. Cum begins to flow down your legs trickling down your thighs. You are completely filled with his sperm. The dog struggles and moves around but you stay pressed together for a few minutes with his knot in his prize. Eventually his knot loosens and you are released from him. You fall to the ground, the dogs thick spunk flowing out of your pussy and pooling around you on the ground'
@@ -98,10 +96,7 @@ if $ARGS[0] = 'polactdog':
 
 		act '....':
 			cls
-			sexpartkno = 1
-			dynamic $dogpot
-			spafinloc = 3
-			gs 'cum_manage'
+			gs 'cum_call', 'anus', $namesob, 1, 0, -1, 60
 			gs 'stat'
 			'<center><img <<$set_imgh>> src="images/beast/zoo/anal2.jpg"></center>'
 			'You feel it as he starts spewing his liquid inside your ass. Having stood in the positiong for a few minutes, but the ball on his penis doesn''t decrease and the bored dog begins to pull out of your anus growling. In pain you started yelling, feeling like his huge cock will rip your anus in two. There is a distinctive "schlpop!" sound as his cock pops out of your ass, which gushes sperm mixed with secretions from your anus down your belly.'
@@ -199,10 +194,7 @@ if $ARGS[0] = 'gamedog':
 			act 'Take it':
 				cla
 				*clr
-				spafinloc = 11
-				dynamic $dogpot
-				gs 'cum_manage'
-				os = 0
+				gs 'cum_call', 'face', $namesob, 1, 0, -1, 60
 				gs 'stat'
 				'<center><img <<$set_imgh>> src="images/beast/zoo/9.jpg"></center>'
 				'My sexy dog completes with a powerful ejaculation, which blasts all over your face, getting a few drops in your mouth.'
@@ -325,8 +317,7 @@ if $ARGS[0] = 'hardcoredog':
 										act 'Take me to Nivarna <<$namesob>>':
 											cla
 											*clr
-											dynamic $dogpot
-											gs 'cum_manage'
+											gs 'cum_call', '', $namesob, 1, 0, -1, 60
 											gs 'stat'
 											'<center><img <<$set_imgh>> src="images/beast/zoo/spa7.jpg"></center>'
 											'You clung to the dog and he starts cumming inside you.'
@@ -461,10 +452,7 @@ end
 if $ARGS[0] = 'cumshot2':
 	cla
 	*clr
-	spafinloc = 0
-	dynamic $dogpot
-	gs 'cum_manage'
-	pcs_vag += 3
+	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="images/beast/zoo/zoof8.jpg"></center>'
 	'<<$namesob>> discharges into your vagina, you stick together with the dog passionately'
 
@@ -484,9 +472,7 @@ if $ARGS[0] = 'cumshot1':
 	cla
 	*clr
 	swallow += 1
-	spafinloc = 12
-	dynamic $dogpot
-	gs 'cum_manage'
+	gs 'cum_call', 'mouth', $namesob, 1, 0, -1, 60
 	gs 'stat'
 
 	'<center><img <<$set_imgh>> src="images/beast/zoo/zoof11.jpg"></center>'
@@ -507,10 +493,7 @@ end
 if $ARGS[0] = 'zoof14':
 	cla
 	*clr
-	dynamic $dogpot
-	spafinloc = 0
-	gs 'cum_manage'
-	pcs_vag += 3
+	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="images/beast/zoo/yl4.jpg"></center>'
 	'You take the hold of <<$namesob>>s cock and start to fuck yourself with it.'
 
@@ -529,9 +512,7 @@ end
 if $ARGS[0] = 'zoof15':
 	cla
 	*clr
-	dynamic $dogpot
-	spafinloc = 0
-	gs 'cum_manage'
+	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	pcs_vag += 3
 	'<center><img <<$set_imgh>> src="images/beast/zoo/yl5.jpg"></center>'
 	'You turn your back on <<$namesob>>, he jumps on you and starts to fuck you.'
@@ -600,10 +581,7 @@ if $ARGS[0] = 'zoof27':
 	act 'Undress and play lady dog':
 		cla
 		*clr
-		dynamic $dogpot
-		spafinloc = 0
-		gs 'cum_manage'
-		pcs_vag += 3
+		gs 'cum_call', '', $namesob, 1, 0, -1, 60
 		'<center><img <<$set_imgh>> src="images/beast/zoo/kuh.jpg"></center>'
 		'You assume the position, doggy ​​jumps on you and starts fucking.'
 		'It doesn''t take for <<$namesob>> to cum inside you.'
@@ -688,10 +666,7 @@ end
 if $ARGS[0] = 'dogcancerstyle':
 	cla
 	*clr
-	dynamic $dogpot
-	spafinloc = 0
-	gs 'cum_manage'
-	pcs_vag += 3
+	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="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 for <<$namesob>> to cum inside you.'
@@ -710,10 +685,7 @@ end
 if $ARGS[0] = 'dogmissionarystyle':
 	cla
 	*clr
-	dynamic $dogpot
-	spafinloc = 0
-	gs 'cum_manage'
-	pcs_vag += 3
+	gs 'cum_call', '', $namesob, 1, 0, -1, 60
 	'<center><img <<$set_imgh>> src="images/beast/zoo/zal2.jpg"></center>'
 	'You push yourself up on ti your feet, from this better angle <<$namesob>> easily finds his way into your pussy.'
 	'It doesn''t take for <<$namesob>> to cum inside you.'
@@ -767,7 +739,6 @@ if $ARGS[0] = 'dzoof1':
 					act 'Show him your pussy':
 						cla
 						*clr
-						dynamic $rexpot
 						gs 'stat'
 						'<center><img <<$set_imgh>> src="images/beast/zoo/dzoof4.jpg"></center>'
 						'You undress and begin to play with Sonias dog.'
@@ -783,7 +754,7 @@ if $ARGS[0] = 'dzoof1':
 						act 'Soothe Rex':
 							cla
 							*clr
-							gs 'cum_call', 'mouth', $boy, 0, 0, sexspecpot
+							gs 'cum_call', 'hands', 'Rex', 1, 0, -1, 60
 							gs 'stat'
 							'<center><img <<$set_imgh>> src="images/beast/zoo/dzoof3.jpg"></center>'
 							'You kneel down and begin to suck Rex, he quickly cums in your mouth.'
@@ -903,8 +874,7 @@ if $ARGS[0] = 'dzoof1':
 																	act 'Lick Sonia':
 																		cla
 																		*clr
-																		dynamic $rexpot
-																		gs 'cum_call', '', $boy, 0, 0, sexspecpot
+																		gs 'cum_call', '', 'Rex', 1, 0, -1, 60
 																		money += RAND(30,60)
 																		gs 'stat'
 																		'<center><img <<$set_imgh>> src="images/beast/zoo/dzoof15.jpg"></center>'