WLife-New/locations/mod_wlife_misc.qsrc

# mod_wlife_misc

if $ARGS[0] = 'vase':
	*clr & cla
	minut += 2
	menu_off = 1
	wl_timer['detective'] = 0
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/vase.jpg"></center>'
	'On your dresser stands like a trophy a murder weapon.'

	act 'Continue': gt $loc, $loc_arg

	act 'Throw it away':
		cla & *nl
		wl_status['detective'] = 6
		gs 'stat'
		'You pick up the murder weapon, clean it thoroughly and throw it into the trash.'

		act 'Continue': gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'usb_drive':
	act 'Buy an usb drive':
		*clr & cla
		minut += 1
		menu_off = 1
		$location_type = 'public_indoors'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/usb_drive.jpg"></center>'
		'The store sells 64gb usb-drives for 600 <b>₽</b>.'

		act 'Go back': gt 'shop', 'start'

		if money >= 600:
			act 'Buy one':
				money -= 600
				wl_status['usb'] = 2
				gt 'shop', 'start'
			end
		else
			'You don''t have enough money to buy an usb-drive.'
		end
	end
end

if $ARGS[0] = 'coffee_maker':
	act 'Buy a coffee maker':
		*clr & cla
		minut += 1
		menu_off = 1
		$location_type = 'public_indoors'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/coffee_maker.png"></center>'
		'The shop sells coffee makers for 3350 <b>₽</b>.'

		act 'Go back': gt 'shop', 'start'

		if money >= 3350:
			act 'Buy it (Cash)':
				money -= 3350
				wl_status['coffee_maker'] = 2
				wl_status['coffee'] += 16
				gt 'shop', 'start'
			end
		end

		if karta >= 3350:
			act 'Buy it (card)':
				karta -= 3350
				wl_status['coffee_maker'] = 2
				wl_status['coffee'] += 16
				gt 'shop', 'start'
			end
		end
	end
end

if $ARGS[0] = 'coffee':
	act 'Buy pods for your coffee maker':
		*clr & cla
		minut += 1
		menu_off = 1
		$location_type = 'public_indoors'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/objects/coffee.png"></center>'
		'The shop sells pods for your coffee maker. One pack with 16 pods costs 295 <b>₽</b>.'

		act 'Go back': gt 'shop', 'start'

		if money >= 295:
			act 'Buy a pack (295 <b>₽</b>)':
				money -= 295
				wl_status['coffee'] += 16
				gt 'shop', 'start'
			end
		end

		if money >= 590:
			act 'Buy two packs (590 <b>₽</b>)':
				money -= 590
				wl_status['coffee'] += 32
				gt 'shop', 'start'
			end
		end

		if money >= 1475:
			act 'Buy five packs (1475 <b>₽</b>)':
				money -= 1475
				wl_status['coffee'] += 70
				gt 'shop', 'start'
			end
		end
	end
end

if $ARGS[0] = 'dog_items':
	act 'Go to the pet isle':
		*clr & cla
		minut += 1
		menu_off = 1
		$location_type = 'public_indoors'
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/locations/singles/pet_isle.jpg"></center>'
		'In the pet isle you can buy food, treats and other things for you dog.'

		act 'Leave the pet isle': gt 'shop', 'start'

		if objects['peanut_butter'] = 0 and rex['train_lick'] = 1 and money >= 200:
			act 'Buy some peanut butter (200 <b>₽</b>)':
				*clr & cla
				minut += 5
				money -= 200
				pcs_mood = 100
				objects['peanut_butter'] = 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/objects/peanut_butter.jpg"></center>'
				'It takes you a few minutes to find the peanut butter in the aisle with honey and jelly. You pick it up and are already on your way back, when you take a closer look at it. You completely lose your shit and break out into laughter in the middle of the store. Other customer throw you confused looks, but they will never understand why <i>''Fuel the fun''</i> is so hilarious.'

				act 'Continue': gt 'shop', 'start'
			end
		elseif objects['peanut_butter'] = 0 and rex['train_lick'] = 1 and money < 200:
			act 'Buy some peanut butter (<font color="red">200 <b>₽</b></font>)': '<br><font color="red">You don''t have enough money to buy peanut butter.</font>'
		end

		if func('homes_properties', 'is_current_home', 'parents_home') = 0:
			act 'Buy dog food':
				*clr & cla
				minut += 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/objects/dog_food.jpg"></center>'
				'The store sells dog food for 600 <b>₽</b>. Inside each pack is enough food for 20 meals. You have <<objects[''dog_food'']>>.'

				if money >= 600:
					act 'Buy enough for 20 meals (600 <b>₽</b>, pay cash)':
						money -= 600
						objects['dog_food'] += 20
						gt 'mod_wlife_misc', 'dog_items'
					end
				else
					'<br>You don''t have enough money to buy food.'
				end

				if money >= 1200:
					act 'Buy enough for 40 meals (1200 <b>₽</b>, pay cash)':
						money -= 1200
						objects['dog_food'] += 40
						gt 'mod_wlife_misc', 'dog_items'
					end
				end

				if money >= 2400:
					act 'Buy enough for 80 meals (2400 <b>₽</b>, pay cash)':
						money -= 2400
						objects['dog_food'] += 80
						gt 'mod_wlife_misc', 'dog_items'
					end
				end
			end
		else
			'<br>You don''t need to buy dog food. Your parents pay for it, when you live at home.'
		end

		act 'Buy some dog treats':
			*clr & cla
			minut += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/objects/treat_'+rand(0,2)+'.jpg"></center>'
			'The store sells dog treats for 300 <b>₽</b>. Inside each pack are 20 treats. You have <<objects[''treats'']>>.'

			act 'Go back': gt 'mod_wlife_misc', 'dog_items'

			if money >= 300:
				act 'Buy a pack (300 <b>₽</b>, pay cash)':
					money -= 300
					objects['treats'] += 20
					gt 'mod_wlife_misc', 'dog_items'
				end
			else
				'You don''t have enough money to buy a pack.'
			end
		end

		act 'Buy a chew toy for your dog':
			*clr & cla
			minut += 1
			gs 'stat'
			'<center><img <<$set_imgh>> src="mod/wlife/images/objects/chew.jpg"></center>'
			'The store sells a chew toy for 800 <b>₽</b> that keeps his teeth healthy.'

			act 'Go back': gt 'mod_wlife_misc', 'dog_items'

			if money >= 800:
				act 'Buy one (800 <b>₽</b>, pay cash)':
					money -= 800
					objects['chew'] += 10
					gt 'mod_wlife_misc', 'dog_items'
				end
			else
				'You don''t have enough money to buy it.'
			end
		end

		if objects['toys'] = 0:
			act 'Buy balls to play fetch with':
				*clr & cla
				minut += 1
				gs 'stat'
				'<center><img <<$set_imgh>> src="mod/wlife/images/objects/balls.jpg"></center>'
				'The store sells rubber balls for 900 <b>₽</b> to play fetch with.'

				act 'Go back': gt 'mod_wlife_misc', 'dog_items'

				if money >= 900:
					act 'Buy them (900 <b>₽</b>, pay cash)':
						money -= 900
						objects['toys'] = 1
						gt 'mod_wlife_misc', 'dog_items'
					end
				else
					'You don''t have enough money to buy them.'
				end
			end
		end
	end
end

if $ARGS[0] = 'komp_maxim':
	act 'Check out Maxim''s files (03:00)':
		*clr & cla
		minut += 180
		menu_off = 1
		wl_investigation['maxim'] = 5
		wl_investigation['points'] += 1
		gs 'stat'
		'<center><img <<$set_imgh>> src="mod/wlife/images/player/using_laptop.jpg"></center>'
		'You put your usb-drive into your laptop and open the folders you copied of Maxim''s laptop. You work without a break for several hours searching every file for clues and incriminating evidence. Finally after an hour you find something, a single line in an excel sheet called ''freelancers''. The single line is you. Every weekly payment you made to Georgiy and every debt you had is meticulously listed here. If that line is you, are the others all girls that work for the Belys?'
		'You scroll down and find 528 lines. Some are marked red and every line has several abbreviations. The first are the initials of each girl and where they live or where they were recruited. That''s easy to deduce from the information Maxim listed about you. For you it''s ''Pav'' for Pavlovsk. Next to ''Pav'' Maxim wrote ''GT-STP-M-2''. What''s that suppose to mean? GT? STP? You bite down on you lower lip and think hard. Then you understand it. It''s where you work. ''Gas Station-St.Petersburg-Moscow-3''. The second gas station on the highway between St. Petersburg and Moscow. You sort the excel sheet and realize that you''re the only girl working there. There are some other girls working at gas stations, but most just have an ''STP'' next to their initials.'
		'The last thing you look for are the initials of Zoya Stepanova. The dead girl from the newspaper. You find her initials a few lines above your own. Her name is one of the 21 names that are marked red.'

		act 'Shut down your laptop': gt $loc, $loc_arg
	end
end

if $ARGS[0] = 'school_shower':
	*nl
	minut += 5
	if $wl_brand['school_shower'] = '':
		pcs_mood = 0
		gs 'fame', 'pav', 'sex', 10
		grupvalue[1] -= 5
		grupvalue[2] -= 5
		grupvalue[3] -= 10
		grupvalue[4] -= 2
		$wl_brand['school_shower'] = 'triggered'
		'One of the girls points with her finger at you, when you leave the shower. "Oh my god, check out <<$pcs_nickname>>," she shouts and you feel dozens of eyes stare at you. "<<$wl_brand[''text_pubic'']>>... what a slut," another girl shouts as someone grabs your arms from behind to prevent you from covering up your slutty tattoo.'
		'"Hey, let me go," you shout as you struggle against the other girl. "Leave me alone." You break free and hurry back to your locker while you hear the girls laughing behind you.'
	elseif $wl_brand['school_shower'] ! '' and gymshower > 3:
		gs 'fame', 'pav', 'sex', 2
		pcs_mood -= 20
		grupvalue[1] -= 1
		grupvalue[2] -= 1
		grupvalue[3] -= 2
		grupvalue[4] -= rand(0,1)
		'"What a slut," you hear one of the girls say as she looks at you disapprovingly. "What kind of girl inks ''<<$wl_brand[''text_pubic'']>>'' on their body?" she says to another girl who stares at your tattoo. You quickly grab your stuff and hurry back to your locker.'
	end
end

if $ARGS[0] = 'school_grades':
	*clr & cla
	minut += 5
	menu_off = 1
	wl_status['school_grades_warning'] = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/letter.jpg"></center>'
	'A letter has been delivered to you. It''s from your school.'
	*nl
	'<i>Dear Miss <<$pcs_lastname>>,'
	'I have to inform you that you have failed several tests in the last few weeks and I''m obliged to remind you bad performance won''t be tolerated. If you don''t improve your grades, I''ll be forced to expel you.'
	'Sincerely,'
	'Headmistress Volkov'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'school_skip':
	*clr & cla
	minut += 5
	menu_off = 1
	wl_status['school_skip_warning'] += 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/letter.jpg"></center>'
	'A letter has been delivered to you. It''s from your school.'
	*nl
	'<i>Dear Miss <<$pcs_lastname>>,'
	'I have to inform you that you have failed several times to attend classes and I''m obliged to remind you attendance is mandatory. If you don''t change your behavior, I''ll be forced to expel you.'
	'Sincerely,'
	'Headmistress Volkov'

	act 'Continue': gt $loc, $loc_arg
end

if $ARGS[0] = 'school_expelled':
	*clr & cla
	minut += 5
	menu_off = 1
	SchoolBlock = 1
	schoolprogul = 0
	gs 'grades', 'grade_award', 'school', 'math', -100
	gs 'grades', 'grade_award', 'school', 'rus', -100
	gs 'grades', 'grade_award', 'school', 'lit', -100
	gs 'grades', 'grade_award', 'school', 'art', -100
	gs 'grades', 'grade_award', 'school', 'bio', -100
	gs 'grades', 'grade_award', 'school', 'pe', -100
	gs 'grades', 'grade_award', 'school', 'eng', -100
	gs 'grades', 'grade_award', 'school', 'geo', -100
	gs 'grades', 'grade_award', 'school', 'sci', -100
	gs 'grades', 'grade_award', 'school', 'shop', -100
	gs 'grades', 'grade_award', 'school', 'comp', -100
	gs 'grades', 'grade_award', 'school', 'mus', -100
	gs 'grades', 'grade_award', 'school', 'his', -100

	wl_status['school_expelled'] = 2
	gs 'stat'
	'<center><img <<$set_imgh>> src="mod/wlife/images/objects/letter.jpg"></center>'
	'A letter has been delivered to you. It''s from your school.'
	*nl
	'<i>Dear Miss <<$pcs_lastname>>,'
	'you are hereby expelled from school. Please refrain from entering the premises again. I hope this will be a wake-up call for you to change your behavior to become a productive member of society. I wish you all the best.'
	'Sincerely,'
	'Headmistress Volkov'

	act 'Continue': gt $loc, $loc_arg
end

--- mod_wlife_misc ---------------------------------