WLife/bm_locations/mod_bestmod_petshop.qsrc

# mod_bestmod_petshop
if $ARGS[0] = 'buy_dog':	
	'Dog - 3000 <b>₽</b>'
	if money >= 3000 and rex['owned'] = 0:
		act 'Buy a dog (3000 <b>₽</b>)':
			cla & *clr
			menu_off = 1
			'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/695_small.jpg"></center>'
			if home_owned[1] > 0:
				act 'Hello, I would like to get a dog':
					cla
					*clr
					'<center><img <<$set_imgh>> src="mod/bestmod/images/beast/zoo/695_small.jpg"></center>'
					'<center><b>Sorry, but we only have male dogs.</b></center>'

					act 'Buy a dog':
						cla
						*clr
						minut += 10
						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>'
						$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] = $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

						act 'Move away from the counter':gt 'zoomagazine', 'start'
					end
				end
			else
				'You need to have your own place before you can buy a dog.'
			end
			act 'Move away from the counter': minut += 5 & gt 'zoomagazine', 'start'		
		end
	end
end
--- mod_bestmod_petshop ---------------------------------