gl_bestmod/locations/mod_bestmod_petshop.qsrc

# mod_bestmod_petshop
if $ARGS[0] = 'buy_dog':
	'Dog - 3000 <b>₽</b>'
	if money >= 3000 and sobaka = 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
						sobaka += 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... (Leave blank to name him Spot)')
						if $namesob = '':$namesob = 'Spot'
						gs 'npcgeneratec', 0, $namesob, 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_notes[$npclastsaved] = 'The dog you purchased from the pet shop.'
						npc_spermpot[$npclastsaved] = iif(bm_pc_dog_fert and bm_enable_preg, 20000, -1)
						$npc_thdick[$npclastsaved] = 'knotted'
						npc_dick[$npclastsaved] = 18
						npc_sexskill[$npclastsaved] = 0
						$bm_npc_species[$npclastsaved] = 'dog'

						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 ---------------------------------