# mod_public_WC_rab_work_chystota_hotel
if $ARGS[0] = '2':
	$loc_arg = $ARGS[0]
	$location_type = 'indoors'
	$loc = 'mod_public_WC_rab_work_chystota_hotel'
	$metka = '2'
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">"2 floor"</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/.jpg"></center>'
	act 'Walk down the hall':
		temp = rand(ryska,20)
		minut += 10
		gs 'stat'
		if temp >= 15:
			temp = rand(4,20)
			'On the door of the room <<temp>> a sign with a request for service.'
			act 'Try to enter the room':
				cla
				temp = rand(1,5)
				if temp <= 3:
					'the door is closed.'
					act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
				else
					bcilg = 20
					gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
				end
			end
			act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
		end
	end
	if bcil >= 4 and bcil <= 20:
		act 'Go to the room <<bcil>>':
			gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
		end
	end
	act 'Get in the elevator': gt 'mod_public_WC_rab_work_chystota', 'hotel'
end



if $ARGS[0] = '3':
	$loc_arg = $ARGS[0]
	$location_type = 'indoors'
	$loc = 'mod_public_WC_rab_work_chystota_hotel'
	$metka = '3'
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">"3 floor"</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/.jpg"></center>'
	act 'Walk down the hall':
		temp = rand(ryska,20)
		minut += 10
		gs 'stat'
		if temp >= 15:
			temp = rand(21,30)
			'On the door of the room <<temp>> a sign with a request for service.'
			act 'Try to enter the room':
				cla
				temp = rand(1,5)
				if temp <= 3:
					'the door is closed.'
					act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
				else
					bcilg = 20
					gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
				end
			end
			act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
		end
	end
	if bcil >= 21 and bcil <= 30:
		act 'Go to the room <<bcil>>':
			gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
		end
	end
	act 'Get in the elevator': gt 'mod_public_WC_rab_work_chystota', 'hotel'
end




if $ARGS[0] = '4':
	$loc_arg = $ARGS[0]
	$location_type = 'indoors'
	$loc = 'mod_public_WC_rab_work_chystota_hotel'
	$metka = '4'
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">"4 floor"</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/.jpg"></center>'
	act 'Walk down the hall':
		temp = rand(ryska,20)
		minut += 10
		gs 'stat'
		if temp >= 15:
			temp = rand(37,37)
			'On the door of the room <<temp>> a sign with a request for service.'
			act 'Try to enter the room':
				cla
				temp = rand(1,5)
				if temp <= 3:
					'the door is closed.'
					act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
				else
					bcilg = 20
					gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
				end
			end
			act 'Remember the number and then tell Toha about it': bcilg = temp & gt $loc, $loc_arg
		end
	end
	if bcil >= 31 and bcil <= 37:
		act 'Go to the room <<bcil>>':
			gt 'mod_public_WC_rab_work_chystota_hotel', 'nomer'
		end
	end
	act 'Get in the elevator': gt 'mod_public_WC_rab_work_chystota', 'hotel'
end



if $ARGS[0] = 'nomer':
	$location_type = 'indoors'
	$loc = 'mod_public_WC_rab_work_chystota_hotel'
	gs 'stat'
	*clr & cla
	'<center><b><font color="maroon">"Room <<bcil>>"</font></b></center>'
	'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/.jpg"></center>'
	temp = rand(1,100)
	if (temp + bcilg) <= 70:
		bcilg = 0
		'-=WIP=-. В кімнаті ПУСТО.'
	else
		bcilg = 0
		'-=WIP=-. В кімнаті ХТОСЬ Є.'
	end
	act 'continue':
		bcil = 1
		minut += rand(15,95)
		cleaning_exp += rand (15,20)
		if $metka = '4': gt 'mod_public_WC_rab_work_chystota_hotel','4'
		if $metka = '3': gt 'mod_public_WC_rab_work_chystota_hotel','3'
		if $metka = '2': gt 'mod_public_WC_rab_work_chystota_hotel','2'
	end
end

--- mod_public_WC_rab_work_chystota_hotel ---------------------------------