TigorCat/locations/mod_public_WC_citybasement_120.qsrc

# mod_public_WC_citybasement_120

if $ARGS[0] = '120':
	*clr & cla
	CLOSE ALL

	minut += rand(0,3)
	$loc_arg = '120'
	zt = 120
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '120'
	gs 'stat'
	'<center><b><font color="maroon">Undercity tunnels</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p23.jpg"></center>'
	'There is a stairs and I see some light from the next room'

	act 'go up the stairs':
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/vhid/1centr.jpg"></center>'
		if vhid1 > 1 and vhid1 < 10:
			'well, I don''t know where I am. But somewhere in the city center'
			if rand (1,5) = 1: vhid1 += 1
			if vhid1 >= 10: vhid1 = 1
		end
		if vhid1 = 1:
			'Ow, I am somewhere in the city center now'
		elseif vhid1 = 100:
			gt 'mod_public_WC_citybasement_enter', 'vhid1'
		else
			'well, I don''t know where I am. But somewhere in the city center'
			vhid1 = 2
		end
		act 'go back': urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'
		if vhid1 ! 100:
			'The door is closed'
			act 'I''ll try to break the lock ':
				cla
				if hpingrip = 0:
					cla
					'I need some clips to do that'
					act 'continue': urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'

				else
					'I''ll try to do it with my clip'
					hpingrip -= 1

					minut += rand(1, 30)
					pcs_hndiwrk += rand(0,1)
					gs 'stat'
					wait 800
					if pcs_hndiwrk >= rand(10,100):
						*clr & cla
						vhid1 = 100
						'Yes! I Did it!'
						pcs_mood += rand(10,30)
						gs 'stat'

						act 'go out': gt 'mod_public_WC_citybasement_enter', 'vhid1'
						act 'continue': urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'
					else
						'I am failed'
						act 'continue': urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'
					end
				end
			end
		end
	end

	if pr = 119:
		act 'go further to the light': pr = 120 & urape += -50 & ubomj += 20 & ubomj2 =250 & gt 'mod_public_WC_citybasement', '121'
		act 'go back': pr = 120 & urape += 15 & ubomj += 20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '119'
	elseif pr = 121:
		act 'go further': pr = 120 & urape += 15 & ubomj += 20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '119'
		act 'go back to the room': pr = 120 & urape += -50 & ubomj += 20 & ubomj2 =250 & gt 'mod_public_WC_citybasement', '121'
	elseif pr = 1201:
		act 'go left to the tunnel': pr = 120 & urape += 35 & ubomj += -20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '118'
		act 'go right to the light': pr = 120 & urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'
	end




	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '121':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	$loc = 'mod_public_WC_citybasement'
	$loc_arg = '121'
	zt = 121
	pr = 121
	minut += rand(0,3)
	$loc_arg = '121'
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '121'
	gs 'stat'
	'<center><b><font color="maroon">Nice room</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p21.jpg"></center>'
	'I see few beds, some stuf like someone lives here, and even a sink '

	act 'Go to the tunnel':
		urape += -30 & ubomj += 35 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '120'
	end
	act 'Take a nap (1:00)':
		menu_off = 0
		if pcs_sleep >= 10 and pcs_sleep <= 90:
			gs 'sweat', 'add', 10
			pcs_sleep += 10
			pcs_health += 5
			minut += 60
			gs 'stat'
			*nl
			'You sleep about an hour.'
		elseif pcs_sleep < 10:
			gs 'sweat', 'add', rand(15,50)
			gs 'stat'
			gt 'bed2', 'sleep'
		else
			minut += 5
			gs 'stat'
			*nl
			'You are not tired enough to sleep, even for a short nap.'
		end
		gt $loc, $loc_arg
	end
	act 'drink water from the tap':
		'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/kran.jpg"></center>'
		minut += 3
		pcs_health -= rand (0,70)

		pcs_energy += 4
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		gs 'beverage', 'afterdrink'
		gs 'stat'
	end
	dynamic $tampon
	dynamic $quickwash
	dynamic $basin
	dynamic $publicpan



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '122':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '122'
	zt = 122
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '122'
	gs 'stat'
	'<center><b><font color="maroon">Manhole</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p14.jpg"></center>'

	if pr = 114:
		act 'go up throught manhole': pr = 122 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
		act 'go back': pr = 122 & urape += -20 & ubomj += 5 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '114'
	elseif pr = 123:
		act 'go down throught manhole': pr = 122 & urape += -20 & ubomj += 5 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '114'
		act 'go back': pr = 122 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '123':
	*clr & cla
	CLOSE ALL

	minut += rand(0,3)
	$loc_arg = '123'
	zt = 123
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '123'
	gs 'stat'
	'<center><b><font color="maroon">fork in the tunnel</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p23.jpg"></center>'
	'There is a stairs'

	act 'go up the stairs':
		*clr & cla
		'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/vhid/2indastrial.jpg"></center>'
		if vhid2 > 1 and vhid2 < 10:
			'well, I don''t know where I am. But somewhere in the indastrial area'
			if rand (1,5) = 1: vhid2 += 1
			if vhid2 >= 10: vhid2 = 1
		end
		if vhid2 = 1:
			'Ow, I am somewhere in the indastrial area now'
		elseif vhid2 = 100:
			gt 'mod_public_WC_citybasement_enter', 'vhid2'
		else
			'well, I don''t know where I am. But somewhere in the indastrial area'
			vhid2 = 2
		end
		act 'go back': urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
		if vhid2 ! 100:
			'The door is closed'
			act 'I''ll try to break the lock ':
				cla
				if hpingrip = 0:
					cla
					'I need some clips to do that'
					act 'continue': urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'

				else
					'I''ll try to do it with my clip'
					hpingrip -= 1

					minut += rand(1, 30)
					pcs_hndiwrk += rand(0,1)
					gs 'stat'
					wait 800
					if pcs_hndiwrk >= rand(10,100):
						*clr & cla
						vhid2 = 100
						'Yes! I Did it!'
						pcs_mood += rand(10,30)
						gs 'stat'

						act 'go out': gt 'mod_public_WC_citybasement_enter', 'vhid2'
						act 'continue': urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
					else
						'I am failed'
						act 'continue': urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
					end
				end
			end
		end
	end

	if pr = 122:
		act 'go further': pr = 123 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
		act 'go back': pr = 123 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '122'
	elseif pr = 124:
		act 'go further': pr = 123 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '122'
		act 'go back': pr = 123 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
	elseif pr = 1231:
		act 'go left': pr = 123 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
		act 'go right': pr = 123 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '122'
	end


	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '124':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '124'
	zt = 124
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '124'
	gs 'stat'
	'<center><b><font color="maroon">Undercity tunnels</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p5.jpg"></center>'
	temp = rand(1,5)
	if temp = 1:
		'It''s dark here'
	elseif temp = 2:
		'I am scared a little'
	elseif temp = 3:
		'I really don''t know this tunnels so long!'
	elseif temp = 4:
		'There must be many exits from the tunnel'
	elseif temp = 5:
		'Have this tunnels been used during the War?'
	end


	if pr = 123:
		act 'go further': pr = 124 & urape += -20 & ubomj += 40 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '125'
		act 'go back': pr = 124 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
	elseif pr = 125:
		act 'go further': pr = 124 & urape += 35 & ubomj += 45 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '123'
		act 'go back': pr = 124 & urape += -20 & ubomj += 40 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '125'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '125':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '125'
	zt = 125
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '125'
	gs 'stat'
	'<center><b><font color="maroon">fork in the tunnel</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p23.jpg"></center>'

	act'Go to "КОЛЯ" way':
		pr = 125
		urape += -50 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '126'
	end
	if pr = 124:
		act 'go further': pr = 125 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
		act 'go back': pr = 125 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
	elseif pr = 126:
		act 'go left': pr = 125 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
		act 'go right': pr = 125 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
	elseif pr = 127:
		act 'go further': pr = 125 & urape += 29 & ubomj += 39 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '124'
		act 'go back': pr = 125 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '126':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '126'
	zt = 126
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '126'
	gs 'stat'
	'<center><b><font color="maroon">"КОЛЯ" dead end </font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p3.jpg"></center>'
	'I see some boxes. And the door it bloks.'
	if ubutton ! 1:
		ubutton = 0
	end
	act 'go to the tunnel': pr = 102 & urape += 0 & ubomj += 10 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '102'
	act 'rummage in the boxes':
		cla
		observ_exp += 3
		minut += 15
		gs 'sweat', 'add', 10
		gs 'stat'
		temp = rand (1,100) + ( pcs_observ / 2 )
		ztemp = 0
		if temp >= 50 and ztemp ! 1 and ubutton ! 1:
			minut += rand(10,20)
			ztemp = 1
			'I found a button on the wall'
			ubutton = 1
		end
		if temp >= 80 and ztemp ! 1 and maddildo ! 1:
			ztemp = 1
			mood += 3
			maddildo = 1
			'YES! I found a 40cm long dildo'
		end
		if temp >= 110 and gun = 0 and ztemp ! 1:
			ztemp = 1
			'I found an old gun!'
			'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gun_found.mp4"></video></center>'
			gun = 1
		end
		if temp >= 100 and ztemp ! 1:
			ztemp = 1
			mood += 2
			temp = rand(1,2)
			if temp = 1:
				temp = rand (1,100) + ( pcs_observ / 2 )
				money += temp
				'I found <<temp>> money!'
			else
				ammo += rand(1,3)
				'I found some ammo money!'
			end
		end
		if temp >= 70 and ztemp ! 1:
			minut += rand(10,20)
			ztemp = 1
			'I found some mushrooms,'
			boletus += 2
		end
		if temp >= 80 and ztemp ! 1:
			minut += rand(10,20)
			ztemp = 1
			'I found cigarets,'
			siga += rand(1,5)
		end
		if ztemp ! 1:
			'I have found nothing. Are there anything here?'
		end
		act 'Continue': urape += -50 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '126'
	end
	if ubutton = 1:
		act 'press the button':
			'the door opens...'
			'and then closes in a few seconds'
			act 'press the button and enter the door':
				gt 'mod_public_WC_citybasement_120', 'karroom'
			end
		end
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end


if $ARGS[0] = 'karroom':
	*clr & cla
	$loc = 'mod_public_WC_citybasement_120'
	$loc_arg = 'karroom'
	'I entered a room with shine light. I become blind for a moment.'
	'There are bed, some metal pole and a ladder in the room.'

	act 'Take a nap (1:00)':
		menu_off = 0
		if pcs_sleep >= 10 and pcs_sleep <= 90:
			gs 'sweat', 'add', 10
			pcs_sleep += 10
			pcs_health += 5
			minut += 60
			gs 'stat'
			*nl
			'You sleep about an hour.'
		elseif pcs_sleep < 10:
			gs 'sweat', 'add', rand(15,50)
			gs 'stat'
			gt 'bed2', 'sleep'
		else
			minut += 5
			gs 'stat'
			*nl
			'You are not tired enough to sleep, even for a short nap.'
		end
		gt $loc, $loc_arg
	end
	act 'go up by ladder':
		'The manhole is closed.'
		'-=wip=- взламати до хата банди + сейф'
	end
	act 'look for a similar button':
		'Yes there is a simillar button here'
		minut +- rand(5,45)
		gs 'stat'
		act 'press the button and enter the door':
			urape += -50 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '126'
		end
	end
end


if $ARGS[0] = '127':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '127'
	zt = 127
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '127'
	gs 'stat'
	'<center><b><font color="maroon">Undercity tunnels</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p12.jpg"></center>'
	temp = rand(1,5)
	if temp = 1:
		'It''s dark here'
	elseif temp = 2:
		'I am scared a little'
	elseif temp = 3:
		'I really don''t know this tunnels so long!'
	elseif temp = 4:
		'There must be many exits from the tunnel'
	elseif temp = 5:
		'Have this tunnels been used during the War?'
	end


	if pr = 125:
		act 'go further': pr = 127 & urape += 10 & ubomj += 20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '128'
		act 'go back': pr = 127 & urape += -20 & ubomj += 40 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '125'
	elseif pr = 128:
		act 'go further': pr = 127 & urape += -20 & ubomj += 40 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '125'
		act 'go back': pr = 127 & urape += 10 & ubomj += 20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '128'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '128':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	minut += rand(0,3)
	$loc_arg = '128'
	zt = 128
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '128'
	gs 'stat'
	'<center><b><font color="maroon">fork in the tunnel</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p23.jpg"></center>'

	act'Go to "КОЛЯ" way':
		pr = 128
		urape += 1 & ubomj += 1 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '129'
	end
	if pr = 127:
		act 'go further': pr = 128 & urape += 16 & ubomj += 26 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '130'
		act 'go back': pr = 128 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
	elseif pr = 129:
		act 'go left': pr = 128 & urape += 16 & ubomj += 26 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '130'
		act 'go right': pr = 128 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
	elseif pr = 130:
		act 'go further': pr = 128 & urape += -20 & ubomj += 50 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '127'
		act 'go back': pr = 128 & urape += 16 & ubomj += 26 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '130'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

if $ARGS[0] = '129':
	*clr & cla
	CLOSE ALL
	if sound = 0: PLAY 'mod/public_WC/sound/walk.wav',60
	$loc = 'mod_public_WC_citybasement'
	$loc_arg = '129'
	zt = 129
	minut += rand(0,3)
	$menu_loc = 'mod_public_WC_citybasement'
	$menu_arg = '129'
	gs 'stat'
	'<center><b><font color="maroon">Dead end</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/p6.jpg"></center>'
	'Absolute silence, the only noise is the water in the tubes... I feel peaceful'
	act 'go back': pr = 129 & urape += 10 & ubomj += 20 & ubomj2 =0 & gt 'mod_public_WC_citybasement', '128'
	pcs_mood += rand(5,50)
	gs 'stat'

	act 'Take a nap (1:00)':
		menu_off = 0
		if rand (1,10) = 1: sick = 1
		if pcs_sleep >= 10 and pcs_sleep <= 90:
			gs 'sweat', 'add', 10
			pcs_sleep += 10
			pcs_health -= 50
			minut += 60
			gs 'stat'
			*nl
			'You sleep about an hour.'
		elseif pcs_sleep < 10:
			pcs_health -= 100
			gs 'sweat', 'add', rand(15,50)
			gs 'stat'
			gt 'bed2', 'sleep'
		else
			minut += 5
			gs 'stat'
			*nl
			'You are not tired enough to sleep, even for a short nap.'
		end
		gt $loc, $loc_arg
	end
	act 'drink water from the tap':
		'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/pidzem/kran.jpg"></center>'
		minut += 3
		pcs_health -= rand (0,70)

		pcs_energy += 4
		if pcs_hydra >= 100:
			pcs_hydra += 25
		else
			pcs_hydra += 50
		end
		cumspclnt = 2
		gs 'cum_cleanup'
		gs 'beverage', 'afterdrink'
		gs 'stat'
	end



	if bumevent = 0:
		eventtemp = rand (1,300)
		if hour >= 5 and hour <= 21:
			urape += 10
		end
		if hour >= 5 and hour <= 21:
			ubomj -= 10
		end
		if hour < 5 or hour > 21:
			ubomj2 += 10
		end
		ubomj2 -= bumfriend


		if urape >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'rape'
		elseif ubomj >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj'
		elseif bumfriend >= rand(15,30):
			bumevent = 1
			ubomj2 = rand(1,4)
			tabir = rand(1,4)
			'I see familiar bums here'
			'some of them even say "hi" to me'
			act 'ask to drink with them':
				atemp = 0
				tabir = rand(1,4)
				'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/pidval/bomji/tabir (<<tabir>>).jpg"></center>'
				killvar 'atemp'
				gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
			end
		elseif ubomj2 >= eventtemp:
			gs 'mod_public_WC_citybasement_bumsex', 'bomj2'
		elseif ( eventtemp - urape) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - ubomj ) <= 15:
			'I hear footsteps...'
		elseif ( eventtemp - bomj2) <= 15:
			'I hear footsteps...'
		else
			' '
		end
	elseif bumevent = 2:
		bumevent = 0
		*nl
		'There are bums here.'
		act 'drink with the bums':
			bumevent = 1
			gt 'mod_public_WC_citybasement_bumsex', 'bomj2drink'
		end
	end
	if bumevent >= 10:
		bumevent = 0
		gs 'stat'
	elseif 	bumevent = 1:
		bumevent += 10
		gs 'stat'
	end
end

--- mod_public_WC_citybasement_120 ---------------------------------