glife_ij/locations/bass.qsrc

# bass

if $ARGS[0] = 'start':
	CLOSE ALL
	$metka = $ARGS[0]
	$loc = $CURLOC
    $location_type = 'public_indoors'
	$menu_loc = 'bass'
	$menu_arg = 'start'
	menu_off = 0
	cls
	minut += 5
	gs 'stat'
	gs 'themes', 'indoors'
	'<center><b><font color="maroon">Pool</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/bass.jpg"></center>'
	'You must wear a swimsuit in the pool.'

	if db >= 1 and Goraday ! daystart:act 'Search ZHoru':Goraday = daystart & gt 'klofdomhouse', 'ev42'

	act 'Swim':
		cla
		minut += 5
		gt 'bass', 'a'
	end

	act'Return to dressing room': gt 'fit', 'dressing room'
end

if $ARGS[0] = 'a':
	cla
	*clr
	menu_off = 1
	minut += 5
	'<center><b><font color="maroon">Pool</font></b></center>'

	if pcs_magik < 4:'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/bass.jpg"></center>'

	if pcs_magik >= 4 and kisameQW = 0:
		'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/bass1.jpg"></center>'
		'There''s a professional athlete swimming in the pool. He swims with great speed and is behaving like a fish in water, he walks over to the edge of the pool and in one motion jumps in the water right in front of you. As he looks at you, he grins, showing his shiny white teeth.'

		act 'Observe him':
			cla
			*clr
			kisameQW = 1
			minut += 60
			gs 'exercise', 'tier1', 1, 'stren_exp'
			pcs_sweat = 10 + rand(0,4)
							
			'<center><img <<$set_imgh>> src="images/characters/city/kisame/kisame.jpg"></center>'
			'As he pulls himself out of the pool, he grabs a towel and walks up to you. Smiling he says, "Hi sweetie, my name is Kisame..."'

			act 'Say hello':
				cla
				'"Hi! I''m <<$pcs_nickname>>."'
				'"How about we take a swim together, <<$pcs_nickname>>?"'
				'Before you''re able to answer, Kisame grabs you by the waist and takes a powerful leap into the middle of the pool.'
				if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
				act 'Next':gt 'kisameQW', 'start'
			end
			
			gs 'willpower', 'misc', 'resist'
			if will_cost <= pcs_willpwr:
				act 'Tell Kisame to fuck off (<<will_cost>> Willpower)':
					cla
					'"I don''t care who you are, fuck off!"'
					'"That''s not nice!" he replies.'
					'Before you''re able to blink, he grabs you by the waist and throws you into the middle of the pool.'
					'As you surface, you notice Kisame rapidly approaching you...'
					if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
					gs 'willpower', 'misc', 'resist'
					gs 'willpower', 'pay', 'resist'
					gs 'stat'
					act 'Next':gt 'kisameQW', 'start'
				end
			else
				act 'Tell Kisame to fuck off (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
	elseif kisameQW = 1 and KisameDead < 1:
		'<center><img <<$set_imgh>> src="images/characters/city/kisame/kisamev.jpg"></center>'
		'Noticing you observing him, Kisame smiles and tells you, "Hi baby. Want me to fill your hot mouth with my shark-seed?"'
		
		gs 'willpower', 'bj', 'resist'
		if will_cost <= pcs_willpwr:
			act 'Attack Kisame (<<will_cost>> Willpower)':
				cla
				pcs_horny += 10
				gs 'willpower', 'bj', 'resist'
				gs 'willpower', 'pay', 'resist'
				gs 'stat'
				gs 'boyStat', 'A40'

				gs 'fight','initFight'

				gs 'fight_npcdata', 'kisame'

				gt 'fight', 'start'
			end
		else
			act 'Attack Kisame (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end

		act 'Give him a blowjob under water':
			cla
			*clr
			pcs_makeup = 1
			cumspclnt = 10
			gs 'cum_cleanup'
			if pcs_sweat > 15 : pcs_sweat = 10 + rand(0,4)
			pcs_mood += 5

			if pcs_stren < 40:stren_exp += 1 + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
			if KisameSex = 0:KisameSex = 1 & Set guy += 1
			gs 'boyStat', 'A40'
			spafinloc = 12
			sexpartkno = 1
			gs 'Cum_Manage'
			'<center><img <<$set_imgh>> src="images/characters/city/kisame/sex/kisamebj.jpg"></center>'
			'You close your eyes, as Kisame grins and drags you deep into the water. His strong hands press you towards his groin and you wrap your lips around his cock and within seconds Kisame finishes in your mouth.'

			gs 'arousal', 'bj', 2, 'sub'
			gs 'arousal', 'end'
			gs 'stat'
			
			act 'Get out of the water':gt 'bass', 'start'
		end
	end

	act 'Take a swim (1:00)':
		cla
		*clr
		pcs_makeup = 1
		cumspclnt = 10
		gs 'cum_cleanup'
		gs 'exercise', 'tier1', 60, 'stren_exp'
		pcs_sweat = 10 + rand(0,4)
		if pcs_inhib < 50:inhib_exp += rand(1,2)
		if pregchem < 3600:	
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswim.jpg"></center>'
		else
			'<center><img <<$set_imgh>> src="images/locations/city/citycenter/pool/poolswimpreg.jpg"></center>'
		end
		'You take a swim in the pool, which invigorates you, making you feel refreshed.'
		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
		act 'Get out of the water':gt 'bass', 'start'
	end

	act 'Leave':gt 'bass', 'start'
end

--- bass ---------------------------------