gl_bestmod/locations/mod_bestmod.qsrc

# mod_bestmod
!input mod entry point here. this will be checked on every location, please keep it clean and brief to avoid game lag

bm_rand = rand(0, 100)

if $loc = 'Gadsarai' and $metka = '' and menu_off = 0: '<br>Sitting near the barn is your grandparent''s <a href="exec:gt ''mod_bestmod_bandit''">large dog, named Bandit</a>'

if $loc = 'Miroslava' and npc_QW['A60'] >= 30 and hour < 19 and month >= 5 and month <= 9 and MiraLoc ! 3: gs 'mod_bestmod_mira', 'third_wish'

if $loc = 'zoomagazine' and $metka = 'start' and menu_off = 0: gs 'mod_bestmod_petshop', 'buy_dog'

if $loc = 'korr' and $metka = '' 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 = 'korr2x' and $metka = '' and sobaka = 1 and menu_off = 0:'Near the entrance to the bedroom is your dog, <a href="exec:gt ''mod_bestmod_petdog'',''start''"><<$namesob>></a>'

if ($loc = 'sitr' or $loc = 'sitr2x') and menu_off = 0: gs 'mod_bestmod_sitr'

if ($loc = 'kuhr' or $loc = 'kuhr2x') and menu_off = 0: gs 'mod_bestmod_kuhr'

if $loc = 'kafe' and metka = 'start' and menu_off = 0 and QWdogReiq = 3 and week = 7 and hour >= 12: act 'Sit down and wait for Margaret': gt 'mod_bestmod_margo', 'margo'

!! Probably replace houserabrand with another random factor which takes into account PC''s
!! beast exp and relationship with pet.
if $curloc = 'bed' and ((bm_pet_dog_rel > 10 and pcs_horny > 60) or (pcs_horny > 80 and alko > 3) or bm_beast['exp'] > 6) and housrA = 1 and bm_dog_once_day ! daystart and rand(0, 100) < 4: gt 'mod_bestmod_bed', 'sog1'

if $loc = 'glake' and $selact = 'Go sunbathing (30 minutes)' and $clothingworntype = 'nude' and bm_beast['exp'] > 0 and rand(1,10) = 5: gt 'mod_bestmod_lake_dog', 'start'

if $locclass = 'park' and $loc ! 'parks' and $metka = 'start' and (hour >= 20 or hour < 6) and menu_off = 0:
	*nl
	if $loc = 'lug':
		'You see a stray dog wandering around just behind the tree line.'
	else
		'You see a stray dog sniffing around some trash.'
	end
	act 'Go up to the stray dog': gt 'mod_bestmod_park_dog', 'start', $loc
end

if $loc = 'postdeliveries' and $ARGS[0] = '10':
	if banditfrend = 1:
		act 'Try to calm the dog':
			cla
			*clr
			pcs_mood += 10
			gs 'stat'
			if temper > 0: '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/happydog.jpg"></center>'
			if temper <= 0: '<center><img <<$set_imgh>> src="images/locations/shared/postoffice/happydogw.jpg"></center>'
			'Your encounters with Bandit have taught you a thing or two about dogs, and somewhat to your own surprise the dog responds very well to your soothing voice: "Shhh! Who''s a good boy?"'
			'The dog quiets down almost immediately, and when you enter the yard it comes at you wagging its tail. You give it a soft pat on the head, just as the owner comes out of his house: "Wha... how di..."'
			'He looks at his dog, and back to you, completely baffled. After you collect his signature, you give the dog another pat on the head and continue your round with a smile on your face.'
			act 'Continue your round':gt 'postdeliveries', 'resume'
		end
	end
end

!!$mod_beast_var['StatText'] = $stattxt
!!! this finds the begining of the arousal bar (could be any regex, though)
!!mod_beast_var['StartPosition'] = strpos($mod_beast_var['StatText'],'<font face="courier new" size = 3>')
!!
!!! break stat win text into 2 part, before and after the token you found.
!!$mod_beast_var['FrontStr'] = mid($mod_beast_var['StatText'],1,mod_beast_var['StartPosition']-1)
!!$mod_beast_var['EndStr'] = mid($mod_beast_var['StatText'],mod_beast_var['StartPosition'],len($mod_beast_var['StatText']))
!!
!!! clear the text in the window
!!clr
!!
!!! build the new window text with your addition
!!$mod_beast_var['NewWindowText'] = $mod_beast_var['FrontStr'] + "Your New Text" + $mod_beast_var['EndStr']
!!
!!! write new out to the window
!!p $mod_beast_var['NewWindowText']

if $shoplocation = 'grocery':
	*pl '<center><table align="center" width=80%>'
	*p func ('$stock_item', 5, 'Dog treat', 100, 'bm_dog_treat', $curloc, '', iif(bag > 0, 0, 1), 'You need a handbag')
	*p '</table></center>'
end

if $curloc = 'din_bad' and $ARGS[0] = 'd_bag':
	if bm_dog_treat > 0: 'You have <b><<bm_dog_treat>></b> dog treat'+iif(bm_dog_treat > 1, 's ', ' ')+'left in your purse.'
end

!! Some of the variables used in this mod:
!! bm_beast[''exp'']			Beastiality experience. Incremented each act.
!! bm_beast[''num'']			Count of animal partners. Incremented once per individual.
!! bm_beast[''dog_exp'']		Experience with dogs. Incremented each act with dog.
!! bm_beast[''dog_num'']		Count of dog partners. Incremented once per individual dog.
!! ...

--- mod_bestmod ---------------------------------