glife/locations/Mirafather.qsrc

# Mirafather

gs 'boystat', 'A64'
harakBoy = 1
tempday = (npc_dob['A64'] mod 100)
tempmonth = (((npc_dob['A64'] mod 10000) - tempday) / 100)
tempyear = (((npc_dob['A64']) - (npc_dob['A64'] mod 10000)) / 10000)
!Looks like npc_dob is broken, once fixed revert to boyage = year - tempyear
boyage = age + 34
if tempmonth < month or (tempmonth = month and tempday <= day): boyage -= 1

gs 'stat'

if npc_QW['A64'] < 10:'<center><b><font color = maroon>Father Miroslava</font></b></center>'
if npc_QW['A64'] >= 10:'<center><b><font color = maroon>Afanasiy</font></b></center>'
'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
'Mira''s father, <<boyage>> years old. After his wife died, he drank heavily and looks much older than he actually is. He is still in good shape for a man his age.'

act 'Leave':gt 'miroslavahome', 'start'

if MiraFather ! daystart:
	MiraFather = daystart
	
	act 'Greet':
		*clr & cla
		if npc_QW['A64'] < 10:npc_QW['A64'] += 1
		minut += 2
		gs 'stat'

		act 'Leave': gt 'miroslavahome', 'start'
		'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
		'You are greeted by Mira''s father and politely inquire about his health.  He responds with a smile and says,"All is well, little lady."'
		if npc_QW['A64'] >= 10:

			act 'Chat':
				*clr & cla
				if npc_QW['A64'] < 20:npc_QW['A64'] += 1
				minut += 5
				gs 'stat'
				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
				'You spend several minutes chatting with Mira''s father about the weather and trivia.'

				act 'Leave': gt 'miroslavahome', 'start'
			end
		end
		if npc_QW['A64'] >= 20:

			act 'Flirt':
				*clr & cla
				if npc_QW['A64'] < 30:npc_QW['A64'] += 1
				'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
				'You spend several minutes with Afanasiy, playful looking him over and smiling meaningfully at him.  He is glad of the company of a beautiful young woman.  A couple of times during your conversation, you noticed that his eyes roving up and down your body appraisingly.'
				gs 'arousal', 'foreplay', 10
				gs 'stat'
				if npc_QW['A64'] = 30:

					act 'Seduce him':
						*clr & cla
						npc_QW['A64'] = 31
						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
						'You move over and stand next to Afanasiy.  You let your hand start to strokie his thigh and end up on his chest. Afanasiy a releases languid sigh, licking his lips and in a couple of minutes nods to himself as if he has made a decision.  Which he has.  Athanasios, takes you by the hand and leds you into his house, and then down the hall into his room.'
						gs 'arousal', 'foreplay', 10
						gs 'stat'

						act 'Enjoy':
							*clr & cla
							guy += 1
							'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersexkuni.jpg"></center>'
							'Afanasiy'' is a gentle lover.  With practiced ease he gently undresses you and crouches before you.  His mouth and fingers play across the lips of your pussy, he skillfully licks you until, until he brings you a powerful orgasm.'
							$orgasm_or = 'yes'
							gs 'arousal', 'cuni', 10
							gs 'arousal', 'vaginal_finger', 10
							minut -= 10
							gs 'stat'

							act 'Give':
								*clr & cla
								pose = 0
								'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
								if mesec = 0 and pcs_vag > 0:
									gs 'dinsex', 'boy_puts_condom'
									gs 'dinsex','vaginal_sex',10
									gs 'dinsex','sexcum'
									gs 'arousal', 'vaginal', 10
								else
									gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
									gs 'arousal', 'anal', 10, 'rough'
								end
								gs 'arousal', 'end'
								gs 'stat'
								act 'Leave': gt 'miroslavahome', 'start'
							end
						end
					end
				end
				if npc_QW['A64'] > 30:

					act 'Wink at him':
						*clr & cla
						pose = 0
						temp_mf = RAND(0,5)
						gs 'stat'
						'<center><img <<$set_imgh>> src="images/locations/gadukino/village/mirafather.jpg"></center>'
						if temp_mf < 5:
							'You expressly wink at Afanasiy and he understands your meaning.  Looking about for nosy neighbors, he quickly waves for you to enter the house.'
							gs 'arousal', 'foreplay', 5
							gs 'stat'

							act 'Further':
								*clr & cla
								temp_mf = RAND(0,9)
								if temp_mf = 0:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
									gs 'arousal', 'vaginal', 10
								elseif temp_mf = 1:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex1.jpg"></center>'
									gs 'arousal', 'vaginal', 10
								elseif temp_mf = 2:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex2.jpg"></center>'
									gs 'arousal', 'vaginal', 10
								elseif temp_mf = 3:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex3.jpg"></center>'
									gs 'arousal', 'vaginal', 10
								elseif temp_mf = 4:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathersex4.jpg"></center>'
									gs 'arousal', 'vaginal', 10
								elseif temp_mf = 5:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj.jpg"></center>'
									gs 'arousal', 'bj', 10
								elseif temp_mf = 6:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj1.jpg"></center>'
									gs 'arousal', 'bj', 10
								elseif temp_mf = 7:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj2.jpg"></center>'
									gs 'arousal', 'bj', 10
								elseif temp_mf = 8:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj3.jpg"></center>'
									gs 'arousal', 'bj', 10
								elseif temp_mf = 9:
									'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafatherbj4.jpg"></center>'
									gs 'arousal', 'bj', 10
								end
								gs 'stat'
								if temp_mf < 5:
									if mesec = 0 or pcs_vag > 0:
										gs 'dinsex', 'boy_puts_condom'
										gs 'dinsex','vaginal_sex',10
										gs 'dinsex','sexcum'
										gs 'arousal', 'vaginal', 10
									else
										gs 'dinSex','boy_wants_anal','lubri' & gs 'dinsex','analsex'
										gs 'arousal', 'anal', 10, 'rough'
									end
									gs 'arousal', 'end'
									gs 'stat'

									act 'Leave':gt 'miroslavahome', 'start'
								else
									minut += 10
									pcs_horny += 10
									gs 'stat'
									gs 'oral','start'

									act 'Further':
										*clr & cla
										minut += 5
										pcs_horny += 10
										gs 'cum_call', 'stomach', $boy, 1,'','',15
										gs 'cum_call', 'breasts', $boy, 1,'','',20
										gs 'cum_call', 'mouth', $boy, 1,'','',5
										'<center><img <<$set_imgh>> src="images/locations/gadukino/sex/mira/mirafathercum.jpg"></center>'
										'Afanasiy gently pulls away from you and leaving a couple of pearly drops of semen on your lips, he starts cumming on your tits and abdomen.'
										gs 'arousal', 'end'
										gs 'stat'

										act 'Leave':gt 'miroslavahome', 'start'
									end
								end
							end
						else
							'You expressly wink at Afanasiy, but he just smiles and says,"Too busy today honey, catch me later."'

							act 'Leave': gt 'miroslavahome', 'start'
						end
					end
				end

				act 'Leave': gt 'miroslavahome', 'start'
			end
		end
	end	
end

--- Mirafather ---------------------------------