TigorCat/locations/mod_public_WC.qsrc

# mod_public_WC
!input mod entry point here. this will be checked on every location, please keep it clean and brief to avoid game lag

if $loc = 'pav_commercial' and menu_off = 0 and $location_type = 'public_outdoors':
	*nl
	'There is a <a href="exec:minut += 1 & gt ''mod_public_WC_cabine'', ''start''">public WC</a> here.'
end

if $loc = 'gadforest':
	if $loc_arg = 'forest_outskirts': temp = 1
	if $loc_arg = 'forest_center': temp = 2
	if $loc = 'gadforestlost' and $loc_arg = 'forest_outskirts': temp = 3
	if $loc = 'gadforestlost' and $loc_arg = 'forest_center': temp = 4
	zustrich = rand(1,100) - vtecha * 15 + temp * 8
end

if $loc = 'city_park':
	if marshrutka = 1:
		'-=wip=-'
		'I know about marshrutka to "Pleasure house".'
		if temp = 56789:
			'kingk = 1
			"I need to say hello to Yana from King K"'
			'BlackCat = 1
			number 27629
			"I looking for a Black Cat''s Leader"'
		end
	end
	if vhid5 = 1:
		' '
	elseif vhid5 > 1 and vhid5 < 10:
		if rand(1,3) = 1: vhid5 += 1
		if vhid5 = 10: vhid5 = 1
	else
		vhid5 = 2
	end
end

if $loc = 'city_center' and menu_off = 0:
	if vhid1 = 1 or vhid1 = 100:
		'I know about basement nearby'
		act 'go to basement entrence': gt 'mod_public_WC_citybasement_enter', 'vhid1'
	elseif vhid1 >= 2:
		'I know somewhere around must be the basement'
		act 'look for the basement':
			cla
			minut += rand (15,45)
			gs 'stat'
			vhid1 += rand (1,3)
			if vhid1 >= 10:
				cla
				vhid1 = 1
				act 'YES! I found it': gt 'mod_public_WC_citybasement_enter', 'vhid1'
			else
				'I don''t find it. But, I reduced the search range.'
				act 'continue': gt 'city_center'
			end
		end
	end
	if hour >= 6 and hour <= 20 and rand(1,10) = 1:
		ztemp = 1
		'I see 2 bums with a bottle of vodka argue about, where can they find the 3rd one.'
		act 'come to the bums':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/meet__bomj_1.jpg"></center>'
			act 'ask, who is 3rd one they are talking about':
				'We need money, if you pay us 120, you can drink with us.'
				minut += rand(5,15)
				gs 'stat'
				if money >= 120:
					act 'Ok, let''s do it':
						money -= 120
						gs 'stat'
						gt 'mod_public_WC_citybasement_enter', 'vhid0'
					end
				end
			end

			if money >= 120:
				act 'Hi guys, I will be 3rd':
					cla
					'Perfect'
					'I paid 120 and we starts to go somewhere'
					money -= 120
					minut += rand(5,15)
					gs 'stat'
					act 'go': gt 'mod_public_WC_citybasement_enter', 'vhid0'
				end
			end
			act 'Go away': gt $loc, $loc_arg
		end
	end
elseif $loc = 'city_industrial' and menu_off = 0:
	if vhid2 = 1 or vhid2 = 100:
		'I know about basement nearby'
		act 'go to basement entrence': gt 'mod_public_WC_citybasement_enter', 'vhid2'
	elseif vhid2 >= 2:
		'I know somewhere around must be the basement'
		act 'look for the basement':
			cla
			minut += rand (15,45)
			gs 'stat'
			vhid2 += rand (1,3)
			if vhid2 >= 10:
				cla
				vhid2 = 1
				act 'YES! I found it': gt 'mod_public_WC_citybasement_enter', 'vhid2'
			else
				'I don''t find it. But, I reduced the search range.'
				act 'continue': gt 'city_industrial'
			end
		end
	end
	if hour >= 6 and hour <= 20 and rand(1,10) = 1:
		ztemp = 2
		'I see 2 bums with a bottle of vodka argue about, where can they find the 3rd one.'
		act 'come to the bums':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/meet__bomj_1.jpg"></center>'
			act 'ask, who is 3rd one they are talking about':
				'We need money, if you pay us 120, you can drink with us.'
				minut += rand(5,15)
				gs 'stat'
				if money >= 120:
					act 'Ok, let''s do it':
						money -= 120
						gs 'stat'
						gt 'mod_public_WC_citybasement_enter', 'vhid0'
					end
				end
			end

			if money >= 120:
				act 'Hi guys, I will be 3rd':
					cla
					'Perfect'
					'I paid 120 and we starts to go somewhere'
					money -= 120
					minut += rand(5,15)
					gs 'stat'
					act 'go': gt 'mod_public_WC_citybasement_enter', 'vhid0'
				end
			end
			act 'Go away': gt $loc, $loc_arg
		end
	end
elseif $loc = 'city_industrial' and $loc_arg = 'redlight' and menu_off = 0:
	if vhid3 = 1 or vhid3 = 100:
		'I know about basement nearby'
		act 'go to basement entrence': gt 'mod_public_WC_citybasement_enter', 'vhid3'
	elseif vhid3 >= 2:
		'I know somewhere around must be the basement'
		act 'look for the basement':
			cla
			minut += rand (15,45)
			gs 'stat'
			vhid3 += rand (1,3)
			if vhid3 >= 10:
				cla
				vhid3 = 1
				act 'YES! I found it': gt 'mod_public_WC_citybasement_enter', 'vhid3'
			else
				'I don''t find it. But, I reduced the search range.'
				act 'continue': gt 'city_industrial', 'redlight'
			end
		end
	end
	if hour >= 6 and hour <= 20 and rand(1,10) = 1:
		ztemp = 3
		'I see 2 bums with a bottle of vodka argue about, where can they find the 3rd one.'
		act 'come to the bums':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/meet__bomj_1.jpg"></center>'
			act 'ask, who is 3rd one they are talking about':
				'We need money, if you pay us 120, you can drink with us.'
				minut += rand(5,15)
				gs 'stat'
				if money >= 120:
					act 'Ok, let''s do it':
						money -= 120
						gs 'stat'
						gt 'mod_public_WC_citybasement_enter', 'vhid0'
					end
				end
			end

			if money >= 120:
				act 'Hi guys, I will be 3rd':
					cla
					'Perfect'
					'I paid 120 and we starts to go somewhere'
					money -= 120
					minut += rand(5,15)
					gs 'stat'
					act 'go': gt 'mod_public_WC_citybasement_enter', 'vhid0'
				end
			end
			act 'Go away': gt $loc, $loc_arg
		end
	end
elseif $loc = 'city_residential' and menu_off = 0:
	if vhid4 = 1 or vhid4 = 100:
		'I know about basement nearby'
		act 'go to basement entrence': gt 'mod_public_WC_citybasement_enter', 'vhid4'
	elseif vhid4 >= 2:
		'I know somewhere around must be the basement'
		act 'look for the basement':
			cla
			minut += rand (15,45)
			gs 'stat'
			vhid4 += rand (1,3)
			if vhid4 >= 10:
				cla
				vhid4 = 1
				act 'YES! I found it': gt 'mod_public_WC_citybasement_enter', 'vhid4'
			else
				'I don''t find it. But, I reduced the search range.'
				act 'continue': gt 'city_residential'
			end
		end
	end
	if hour >= 6 and hour <= 20 and rand(1,10) = 1:
		ztemp = 4
		'I see 2 bums with a bottle of vodka argue about, where can they find the 3rd one.'
		act 'come to the bums':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/meet__bomj_1.jpg"></center>'
			act 'ask, who is 3rd one they are talking about':
				'We need money, if you pay us 120, you can drink with us.'
				minut += rand(5,15)
				gs 'stat'
				if money >= 120:
					act 'Ok, let''s do it':
						money -= 120
						gs 'stat'
						gt 'mod_public_WC_citybasement_enter', 'vhid0'
					end
				end
			end

			if money >= 120:
				act 'Hi guys, I will be 3rd':
					cla
					'Perfect'
					'I paid 120 and we starts to go somewhere'
					money -= 120
					minut += rand(5,15)
					gs 'stat'
					act 'go': gt 'mod_public_WC_citybasement_enter', 'vhid0'
				end
			end
			act 'Go away': gt $loc, $loc_arg
		end
	end
elseif $loc = 'city_park' and menu_off = 0:
	if vhid5 = 1:
		'I know undercity tunnel has an entrance nearby'
		act 'go to the entrance': gt 'mod_public_WC_citybasement_enter', 'vhid5'
	elseif vhid5 >= 2:
		'I know somewhere around must be the entrence'
		act 'look for the entrence':
			cla
			minut += rand (15,45)
			gs 'stat'
			vhid5 += rand (1,3)
			if vhid5 >= 10:
				cla
				vhid5 = 1
				act 'YES! I found it': gt 'mod_public_WC_citybasement_enter', 'vhid5'
			else
				'I don''t find it. But, I reduced the search range.'
				act 'continue': gt 'city_park', 'start'
			end
		end
	end
	if hour >= 6 and hour <= 20 and rand(1,10) = 1:
		ztemp = 5
		'I see 2 bums with a bottle of vodka argue about, where can they find the 3rd one.'
		act 'come to the bums':
			*clr & cla
			'<center><img <<$set_imgh>> src="mod/public_WC/wc/events/90/101gopotamista/meet__bomj_1.jpg"></center>'
			act 'ask, who is 3rd one they are talking about':
				'We need money, if you pay us 120, you can drink with us.'
				minut += rand(5,15)
				gs 'stat'
				if money >= 120:
					act 'Ok, let''s do it':
						money -= 120
						gs 'stat'
						gt 'mod_public_WC_citybasement_enter', 'vhid0'
					end
				end
			end

			if money >= 120:
				act 'Hi guys, I will be 3rd':
					cla
					'Perfect'
					'I paid 120 and we starts to go somewhere'
					money -= 120
					minut += rand(5,15)
					gs 'stat'
					act 'go': gt 'mod_public_WC_citybasement_enter', 'vhid0'
				end
			end
			act 'Go away': gt $loc, $loc_arg
		end
	end
end


if $loc = 'gadforest' and zustrich > 90:
	if Vania = 2 or Tolik = 2 or Artem = 2:
		'( ◣∀◢)ψ'
	elseif vtecha = 1:
		gt 'mod_public_WC_lis_zustrich', 'vtecha'
	else
		*nl
		'There is a <a href="exec:minut += 1 & gt ''mod_public_WC_lis_zustrich'', ''start''">some people. Judging by their appearance they must be hunters</a> here.'
	end
end


if ($loc = 'mod_public_WC_rab' and $menu_loc ! 'bed2') or ($loc = 'mod_public_WC_rab_DVIR' and $menu_loc ! 'bed2'):
	if Vania = 2 or Tolik = 2 or Artem = 2:
		'( ◣∀◢)ψ'
	elseif hour >= 22 and zvit = week:

		gt 'mod_public_WC_rab_Task', 'start2'
	elseif zvit + 1 = week:

		gt 'mod_public_WC_rab_Task', 'start2'
	elseif zvit - 6 = week:

		gt 'mod_public_WC_rab_Task', 'start2'
	end
end

if task1 = 1 or task1 = 3 or task2 = 1 or task3 = 1 or task4 = 1 or task5 = 1 or task5 = 3 or task6 = 1:
	if task1 = 1: pl '<b>I need to prepare firewoods</b>'
	if task1 = 3: pl '<b>I need to prepare more firewoods</b>'
	if task2 = 1: pl '<b>I need to wash dishes</b>'
	if task3 = 1: pl '<b>I need to prepare food</b>'
	if task4 = 1: pl '<b>I need to make me a shirt</b>'
	if task5 = 1: pl '<b>I need to gather grape</b>'
	if task5 = 3: pl '<b>I need to gather more grape</b>'
	if task6 = 1: pl '<b>I need to clean our yard</b>'
	if task7 = 1: pl '<b>I need to wash dirty clothes</b>'
	if task7 = 3: pl '<b>I need to take off dry clothes</b>'
end
if $loc = 'mod_public_WC_rab' or $loc = 'mod_public_WC_rab_DVIR':
	if task1 ! 1 and task1 ! 3 and task2 ! 1 and task3 ! 1 and task4 ! 1 and task5 ! 1 and task5 ! 3 and task6 ! 1 and task17 ! 1 and task7 ! 3:
		pl '<b>I have no tasks to do</b>'
	end
	If Artem = 0:
		Artem = 0
	end
end



if zashmorg = 1:
	pl '<font color="red">I have Whore collar on my neck.</font>'
	pl 'I can <a href="exec:gt ''mod_public_WC_rab_zashmorg'', ''start''">dress off</a> a <a href="exec:gs ''mod_public_WC_rab'',''img msg'',''mod/public_WC/lisrab/Vania/items/zashmorg.jpg''">Whore collar</a>.'
	if supnatvnesh < 11: supnatvnesh += 12
	if Vania = 1:
		temp = rand (1,50) - VaniaMayster
		if temp <= 1:
			VaniaMayster += 1
		end
	end
end

if zashmorg = 2:
	pl 'I can <a href="exec:gt ''mod_public_WC_rab_zashmorg'', ''start''">dress</a> a Whore collar.'
end

if zashmorg = 3:
	pl '<font color="red">I have Whore collar on my neck.</font>'
	pl 'I can''t dress off a Whore collar, Vania locked it.'
	if supnatvnesh < 11: supnatvnesh += 12
	if Vania = 1:
		temp = rand (1,50) - VaniaMayster
		if temp <= 1:
			VaniaMayster += rand(0,1)
			'"Nice look, my pet" - Vania said'
		end
	end
end

if $loc = 'mod_public_WC_rab' or $loc = 'mod_public_WC_rab_DVIR' or $loc = 'mod_public_WC_kara' or $loc = 'mod_public_WC_kara7' or $loc = 'mod_public_WC_kara71' or $loc = 'mod_public_WC_rab_Mayster' or $loc = 'mod_public_WC_rab_tryrun' or $loc = 'mod_public_WC_rab_talk' or $loc = 'mod_public_WC_rab_sex' or $loc = 'mod_public_WC_rab_Artem' or $loc = 'mod_public_WC_rab_Vania' or $loc = 'mod_public_WC_rab_Tolik' or $loc = 'mod_public_WC_rab_Task' or $loc = 'mod_public_WC_rab_random event' or $loc = 'mod_public_WC_rab_zashmorg':
	if slova ! 1:
		if brak < 0: brak = 0
		pl 'I have <<slova>> words. I have relationship = <<vlada>> and conflict = <<brak>>'
	else
		pl 'I have <<slova>> word. I have relationship = <<vlada>> and conflict = <<brak>>'
	end
end

if ($loc = 'mod_public_WC_rab' or $loc = 'mod_public_WC_rab_DVIR') and ttemp ! 2762940:
	if Tolik = 2 and Vania = 2 and Artem = 2:
		act 'Run away from this horrible place':
			minut += rand(10,40)
			gt 'gadforestlost', 'forest_center'
		end
	elseif Tolik = 2 or Vania = 2 or Artem = 2:
		if Artem = 2:
			'Artem is dead'
		end
		if Tolik = 2:
			'Tolik is dead'
		end
		if Vania = 2:
			'Vania is dead'
		end
		If Tolik = 3: Tolik = 1
		If Artem = 3: Artem = 1
		If Vania = 3: Vania = 1
		If Tolik = 1:
			cla
			act 'continue': gt 'mod_public_WC_rab_gun', 'lastfight'
		elseIf Artem = 1:
			cla
			act 'continue': gt 'mod_public_WC_rab_gun', 'lastfight'
		elseIf Vania = 1:
			cla
			act 'continue': gt 'mod_public_WC_rab_gun', 'lastfight'
		end
	end
end


if gun = 1:
	pl 'There''s a <a href="exec:gt ''mod_public_WC_rab_gun'', ''start''">gun</a> in my purse.'
end

if zucchini = 1:
	pl 'There''s a <<zucchinilong>> cm long zucchini in my purse.'
end
if apple = 1:
	pl 'There''s an apple in my purse.'
end
if ogirok = 1:
	pl 'There''s a <<ogiroklong>> cm long cucumber in my purse.'
end

if zucchini = 1:
	if $curloc = 'selfplay': act 'play with the cucumber': gt 'mod_public_WC_rab_zashmorg', 'zucchini'
	if Artem ! 1 and Tolik ! 1 and Vania ! 1:
		if $location_type = 'secluded' or $curloc = 'selfplay':
			pl 'I can <a href="exec:gt ''mod_public_WC_rab_zashmorg'', ''zucchini''">use</a> zucchini for my pleasure.'
		else
			pl 'If I find secluded place, I can have some pleasure time with the zucchini.'
		end
	end
end
if apple = 1:
	if $curloc = 'selfplay': act 'play with the cucumber': gt 'mod_public_WC_rab_zashmorg', 'apple'
	if Artem ! 1 and Tolik ! 1 and Vania ! 1:
		if $location_type = 'secluded' or $curloc = 'selfplay':
			pl 'I can <a href="exec:gt ''mod_public_WC_rab_zashmorg'', ''apple''">use</a> apple for my pleasure.'
		else
			pl 'If I find secluded place, I can have some pleasure time with the apple.'
		end
	end
end
if ogirok = 1:
	if $curloc = 'selfplay': act 'play with the cucumber': gt 'mod_public_WC_rab_zashmorg', 'ogirok'
	if Artem ! 1 and Tolik ! 1 and Vania ! 1:
		if $location_type = 'secluded' or $curloc = 'selfplay':
			pl 'I can <a href="exec:gt ''mod_public_WC_rab_zashmorg'', ''ogirok''">use</a> cucumber for my pleasure.'
		else
			pl 'If I find secluded place, I can have some pleasure time with the cucumber.'
		end
	end
end

if week = zucchiniweek and zucchini = 1:
	zucchiniweek = 0
	*nl
	'My zucchini is not good at all. I throw it away.'
	zucchini = 0
end
if week = ogirokweek and ogirok = 1:
	ogirokweek = 0
	*nl
	'My cucumber is not good at all. I throw it away.'
	ogirok = 0
end
if week = appleweek and apple = 1:
	appleweek = 0
	*nl
	'My apple is not good at all. I throw it away.'
	apple = 0
end

pl '<a href="exec:gt ''mod_public_WC_options2''">Public_WC Options</a>.'


if $curloc = 'miroslava' and mirapimp = 1 and miraprost > 0:
	if getmoney = 1 and getmoneyd ! day:
		act 'What about my percentage?':
			temp = month - getmoneym
			if temp < 0: temp += 12
			if temp > 3: temp = 3
			money += temp*30*50
			temp = day - getmoneyd
			if temp < 0: temp += 30
			money += temp*50
			getmoneyd = day
			getmoneym = month
			cla
			gt 'miroslava'
		end
	else
		act 'Mira, from today you give a percentage to me.':
			getmoneyd = day
			getmoneym = month
			getmoney = 1
			gs 'stat'
			cla
			gt 'miroslava'
		end
	end
end

if crime >= rand(50,1000):
	gt 'mod_public_WC_cabine_crime', 'start'
end




if fightEnding > 0 and gun = 1 and ammo > 0:
	act 'shoot in air':
		ztemp = 0
		gs 'mod_public_WC_rab_gun', 'fightshoot'
	end
	act 'shoot to injure':
		ztemp = 10
		gs 'mod_public_WC_rab_gun', 'fightshoot'
	end
	act 'shoot to kill':
		ztemp = 30
		gs 'mod_public_WC_rab_gun', 'fightshoot'
	end
end

if $ARGS[0] = 'loss' or $ARGS[0] = 'win' or $ARGS[0] = 'surrender':
	inFight = 0
end

if $ARGS[0] = 'loss' and gun = 3:
	gun = 0
end
if $ARGS[0] = 'loss' and gun = 1:
	gun = 0
end
if $ARGS[0] = 'surrender' and gun = 3:
	gun = 0
end
if $ARGS[0] = 'surrender' and gun = 1:
	gun = 0
end
if $ARGS[0] = 'win' and gun = 3:
	gun = 1
end

if $menu_arg = 'viranda' and week ! 6 and Vurok >= 1 and hour >= 15 and hour <= 18 and vday > 0:
	act 'Go to the master''s Vania lesson': gt 'mod_public_WC_rab_Mayster', 'enter'
elseif $menu_arg = 'viranda' and week = 6 and Vurok >= 1 and hour >= 15 and hour <= 18 and vday > 0:
	'It''s Saturday, no lesson for me.'
	if vday - daystart > 1: vday = daystart + 1
	if vday - daystart = 0: vday = daystart + 1
end
if Vurok >= 1 and vday = daystart and week = 6:
	vday += 1
end

if pierc = 1 and rand(1,100) >= 65 and Vania = 1 and $clothingworntype ! 'nude':
	gt 'mod_public_WC_rab_Mayster5', 'piercing'
elseif pierc = 2 and rand(1,100) >= 65 and Vania = 1 and $clothingworntype ! 'nude':
	gt 'mod_public_WC_rab_Mayster5', 'piercing'
end

if month = 8 and day = 24:
	pl '<b>ПТН ПНХ</b>'
	pl '<b>PTN PNH</b>'
	pl '<b>Путін - хуйло!</b>'
	pl '<b>Putin – khuylo! (commonly translated as "Putin is a dickhead")</b>'
elseif month = 9 and day = 17:
	pl'<b>today in 1939 russia invasion Poland to support their ally Nazi Germany</b>'
elseif month = 11 and day >= 24 and week = 6:
	pl '<b>Remembrance Day for the victims of the Holodomor-genocide created by russia.</b>'
else
	''
end

if Vania = 1 and vaniaplag = 1 and rand(1,10) <= 3:
	'"Show it to me!" - Vania orders'
	'I stoped and show IT to him'
	'<center><video autoplay loop src="mod/public_WC/lisrab/Vania/trener/holestrain/ass/plug/plug_show.mp4"></video></center>'
	minut += 5
	gs 'flash', 'exhibitionism', 1
	gs 'stat'
	VaniaMayster += rand(0,1)
	willpowermax -= rand(0,1)
	gs 'stat'
end


if VaniaMayster >= 1 and vtecha ! 1:
	if VaniaMayster >= 120: $vm = '<font color = red	> Vania is my MASTER! </font> '
	if VaniaMayster >= 100 and VaniaMayster < 120: $vm = '<font color = red	> █████ </font> '
	if VaniaMayster >= 80 and VaniaMayster < 100: $vm = '<font color = yellow	> ████_ </font> '
	if VaniaMayster >= 60 and VaniaMayster < 80: $vm = '<font color = yellow	> ███__ </font> '
	if VaniaMayster >= 40 and VaniaMayster < 60: $vm = '<font color = green	> ██___ </font> '
	if VaniaMayster >= 20 and VaniaMayster < 40: $vm = '<font color = blue	> █____ </font> '
	if VaniaMayster < 20: $vm = '<font color = red	> Pff, he tries to control me, but he is NOT!</font> '
	pl '<center>I see Vania as my master: <<$vm>></center>'
end



--- mod_public_WC ---------------------------------