glife/locations/vladimirQW_loc.qsrc

# vladimirQW_loc
$location_type = 'event_outdoors'
if $ARGS[0] = '':
	minut += 5
	menu_off = 1
	gs 'stat'
	'<center><b><font color="maroon">Man</font></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/city/vladimir/001.jpg"></center>'
	if pcs_makeup > 1 and pcs_hairbsh = 1:
		'A man standing near the fence noticed your gaze and smiled.'

		act 'Approach the man':
			cla
			'You approach the man and he leaves the fence to walk towards you.'
			xgt 'vladimirQW_loc', 'qwvladdy'
		end

		act 'Smile':
			cla
			'You smile at the man and he leaves the fence to walk towards you.'
			xgt 'vladimirQW_loc', 'qwvladdy'
		end

		act 'Ignore':
			cla
			'You decide to ignore the man and start walking away but hearing his footsteps behind you, you turn back around.'
			xgt 'vladimirQW_loc', 'qwvladdy'
		end
	else
		'The man returns your gaze for a moment before turning away.'

		act 'Leave':gt 'city_park', 'luna'
	end
end &! ---  ---

if $ARGS[0] = 'qwvladdy':
	'The man smiles at you. "My name is Vladimir. I couldn''t help but admire your beauty. Would you allow me the honor of your name?"'
	gs 'vladimirQW_loc', 'qwnamedy'

	act 'Sorry, I''m busy':
		cla
		vladimirQW['stage'] = 1
		'"Sorry, I''m busy," you excuse yourself.'
		'Vladimir shakes his head to that. "Well, what are you busy with? I will not bite. I would just like to know the name of a beautiful, young lady."'
		gs 'vladimirQW_loc', 'qwnamedy'

		act 'Leave anyway':
			cla
			vladimirQW['stage'] = 2
			'You turn away from the man with a roll of your eyes and leave.'

			act 'Leave':gt 'city_park', 'luna'
		end
	end
end &! --- qwladdy ---

if $ARGS[0] = 'qwnamedy':
	act '<<$pcs_nickname>>':
		cla
		vladimirQW['stage'] = 10
		'"<<$pcs_nickname>>," you introduce yourself.'
		'Vladimir smiled. "A beautiful name that suits you perfectly. Unfortunately I have to go, but I would like to see you again. If you leave me your phone number, I could call you tomorrow. I could take you out to dinner at a restaurant."'

		act 'No (Go)':
			cla
			vladimirQW['stage'] = 2
			'You decline and walk away, leaving the man standing.'

			act 'Leave':gt 'city_park', 'luna'
		end

		act 'Give him your number':
			cla
			vladimirQW['stage'] = 20
			vladimirQW['day'] = daystart
			gs 'telefon', 'AddContact', 'A108', 'icon_na', 1
			gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17"
			gs 'stat'
			'You tell Vladmimir your phone number and he writes it down in a small notebook with a leather cover.'

			act 'Leave':gt 'city_park', 'luna'
		end
	end
end &! --- qwnamedy ---

if $ARGS[0] = '2':
	gs 'stat'
	'You answer the phone to hear a male voice speaking, "Hello <<$pcs_nickname>>, this is Vladimir. We met at the park, if you remember?"'

	act 'Hello, of course I remember':
		cla
		vladimirQW['stage'] = 21
		'"Hey, of course I remember. How could I forget?" You respond.'
		'"The offer to take you to dinner at the restaurant is still on the table. Would you like to go?" Vladimir asks.'

		act 'Oh, I have a lot to do today, I''m sorry.':
			cla
			vladimirQW['stage'] = 20
			vladimirQW['day'] = daystart
			'You explain that you simply can''t today, as busy as you are.'
			'"Okay. Then I''ll call you tomorrow at 16:00." Vladimir promises.'

			act 'Hang up':gt $loc, $loc_arg
		end

		act 'I wouldn''t mind':
			cla
			vladimirQW['stage'] = 21
			vladimirQW['day'] = daystart
			gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
			'"I would like that," you tell him.'
			'"Wonderful!" says Vladimir. "Then I''ll meet you at the restaurant at 20:00."'
			'"I''ll see you then!"'
			act 'Hang up':gt $loc, $loc_arg
		end
	end
end

if $ARGS[0] = '3':
	gs 'stat'
	'You answer the phone to hear a male voice on the other end, "Hello <<$pcs_nickname>>, this is Vladimir. I happen to own a boat and wondered if you would like a ride on it?"'

	act 'Oh, I have a lot to do today, I''m sorry':
		cla
		vladimirQW['day'] = daystart
		'You explain that you simply can''t today, as busy as you are.'
		'"Okay. Then I''ll call you another time." Vladimir promises.'

		act 'Hang up':gt $loc, $loc_arg
	end

	act 'I''d like that':
		cla
		vladimirQW['stage'] = 30
		vladimirQW['day'] = daystart
		gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
		'"I''d like that." you tell him.'
		'You can hear that Vladimir''s pleased over the phone. "Wonderful, my driver will come to pick you up."'

		act 'Hang up':gt $loc, $loc_arg
	end
end

if $ARGS[0] = '4':
	gs 'stat'
	'You pick up the phone to hear a male voice speaking, "Hello <<$pcs_nickname>>, it''s Vladimir. I was wondering if you have time to meet up?"'

	act 'Oh, I have a lot to do today, I''m sorry':
		cla
		vladimirQW['day'] = daystart
		'You explain that you simply can''t today, as busy as you are.'
		'"Okay. Then I''ll call you another day." Vladimir promises.'

		act 'Hang up':gt $loc, $loc_arg
	end

	act 'I''d like that':
		cla
		vladimirQW['stage'] = 40
		vladimirQW['day'] = daystart
		gs 'telefon', 'SetCallSchedule', 'A108', "", "0", "gs 'vladimirQW_loc', 'telephone_call'", "vladimirQW['day'] ! daystart and hour >= 15 and hour <= 17 and week = 6"
		'"I''d like that." you tell him.'
		'You can hear that Vladimir''s pleased over the phone. "Wonderful, my driver will come to pick you up."'

		act 'Hang up':gt $loc, $loc_arg
	end
end



if $ARGS[0] = 'telephone_call':
	cla & clr
	gs 'stat'
	gs 'telefon','phone_ring'

	if vladimirQW['stage'] = 20:
		gt 'vladimirQW_loc', '2'
	elseif vladimirQW['stage'] = 25 and week = 6:
		gt 'vladimirQW_loc', '3'
	elseif vladimirQW['stage'] = 35 and week = 6:
		gt 'vladimirQW_loc', '4'
	end
end

--- vladimirQW_loc ---------------------------------