wlife/locations/mod_wlife_misc.qsrc

# mod_wlife_misc

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', 'move'
		
		if money >= 600: 
			act 'Buy one':
				money -= 600
				wl_status['usb'] = 2
				gt 'shop', 'move'
			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', 'move'
		
		if money >= 3350: 
			act 'Buy it (Cash)':
				money -= 3350
				wl_status['coffee_maker'] = 2
				wl_status['coffee'] += 16
				gt 'shop', 'move'
			end
		end
		
		if karta >= 3350: 
			act 'Buy it (card)':
				karta -= 3350
				wl_status['coffee_maker'] = 2
				wl_status['coffee'] += 16
				gt 'shop', 'move'
			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', 'move'
		
		if money >= 295: 
			act 'Buy a pack (295 <b>₽</b>)':
				money -= 295
				wl_status['coffee'] += 16
				gt 'shop', 'move'
			end
		end
		
		if money >= 590: 
			act 'Buy two packs (590 <b>₽</b>)':
				money -= 590
				wl_status['coffee'] += 32
				gt 'shop', 'move'
			end
		end
		
		if money >= 1475: 
			act 'Buy five packs (1475 <b>₽</b>)':
				money -= 1475
				wl_status['coffee'] += 70
				gt 'shop', 'move'
			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, $metka
	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, $metka
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, $metka
end

if $ARGS[0] = 'school_expelled':
	*clr & cla
	minut += 5
	menu_off = 1
	pcs_grades = 0
	SchoolBlock = 1
	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, $metka
end

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