glife-shopfix/locations/Mirafather

# 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 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 is actually is, still he is in good shape for a man his age.'
if MiraFather ! daystart:
	MiraFather = daystart
	act 'Greet':
		cls
		if npc_QW['A64'] < 10:npc_QW['A64'] += 1
		minut += 2
		gs 'stat'

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

		'<center><img src="images/locations/gadukino/village/mirafather.jpg"></center>'
		'You are greeted with 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':
				cls
				if npc_QW['A64'] < 20:npc_QW['A64'] += 1
				minut += 5
				gs 'stat'
				'<center><img 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':
			    cls
				if npc_QW['A64'] < 30:npc_QW['A64'] += 1
				gs 'stat'
						
				'<center><img 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':
					    cls
					    npc_QW['A64'] = 31
					    gs 'stat'
					    '<center><img 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':
					        cls
							guy += 1
							gs 'stat'
							'<center><img 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':
								cls
								gs 'boyStat', 64
								pose = 0
								gs 'stat'
								'<center><img src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
								if mesec = 0 and pcs_vag > 0:
									dynamic $sexstart
									dynamic $sexstart2
									dynamic $sexcum
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								else
									dynamic $analsexrude
									gs 'arousal', 'anal', 10, 'rough'
									gs 'stat'
                                end
								gs 'arousal', 'end'
								gs 'stat'
							    act 'Leave': gt 'miroslavahome', 'start'
							end
						end
					end
				end
		        if npc_QW['A64'] > 30:
					act 'Wink at him':
						cls
						gs 'boyStat', 64	
						pose = 0
						temp = RAND(0,5)
						gs 'stat'
						'<center><img src="images/locations/gadukino/village/mirafather.jpg"></center>'
						if temp < 5:
							'You expressly wink at Afanasiy and he understands your meaning.  Looking about for noicy nieghbors, he quickly waves for you to enter the house.'
							gs 'arousal', 'foreplay', 5
							gs 'stat'
							act 'Further':
								cls
								temp = RAND(0,9)
								gs 'stat'
								
								if temp = 0:
									'<center><img src="images/locations/gadukino/sex/mira/mirafathersex.jpg"></center>'
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								elseif temp = 1:
									'<center><img src="images/locations/gadukino/sex/mira/mirafathersex1.jpg"></center>'
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								elseif temp = 2:
									'<center><img src="images/locations/gadukino/sex/mira/mirafathersex2.jpg"></center>'
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								elseif temp = 3:
									'<center><img src="images/locations/gadukino/sex/mira/mirafathersex3.jpg"></center>'
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								elseif temp = 4:
									'<center><img src="images/locations/gadukino/sex/mira/mirafathersex4.jpg"></center>'
									gs 'arousal', 'vaginal', 10
									gs 'stat'
								elseif temp = 5:
									'<center><img src="images/locations/gadukino/sex/mira/mirafatherbj.jpg"></center>'
									gs 'arousal', 'bj', 10
									gs 'stat'
								elseif temp = 6:
									'<center><img src="images/locations/gadukino/sex/mira/mirafatherbj1.jpg"></center>'
									gs 'arousal', 'bj', 10
									gs 'stat'
								elseif temp = 7:
									'<center><img src="images/locations/gadukino/sex/mira/mirafatherbj2.jpg"></center>'
									gs 'arousal', 'bj', 10
									gs 'stat'
								elseif temp = 8:
									'<center><img src="images/locations/gadukino/sex/mira/mirafatherbj3.jpg"></center>'
									gs 'arousal', 'bj', 10
									gs 'stat'
								elseif temp = 9:
									'<center><img src="images/locations/gadukino/sex/mira/mirafatherbj4.jpg"></center>'
									gs 'arousal', 'bj', 10
									gs 'stat'
								end
								if temp < 5:
									gs 'stat'
									if mesec = 0 or pcs_vag > 0:
										dynamic $sexstart
									    dynamic $sexstart2
										dynamic $sexcum
										gs 'arousal', 'vaginal', 10
										gs 'stat'
									else	
										dynamic $analsexrude
										gs 'arousal', 'anal', 10, 'rough'
										gs 'stat'
									end
									gs 'arousal', 'end'
									gs 'stat'
									act 'Leave':gt 'miroslavahome', 'start'
								else
									gs 'boyStat', 64
									minut += 10
									pcs_horny += 10
									gs 'stat'
									gs'oral','start'
									act 'Further':
										cls
										minut += 5
										pcs_horny += 10
										stat['bj'] += 1
										spafinloc = 12 & gs 'cum_manage'
										spafinloc = 14 & gs 'cum_manage'
										gs 'stat'
												
										'<center><img 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
	act 'Leave':gt 'miroslavahome', 'start'
end

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

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