# crossfit_north_girlmeet

if $ARGS[0] = 'start':
	!! generate a girlfriend
	gs 'girl'
	$boydesc = $previous_record_holder
	$boyClo = 'wearing workout clothes'
	killvar '$previous_record_holder'
	*clr
	cla
	minut += 5
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picrand+'.jpg"></center>'
	'As you enter the crossfit box, you notice a girl of <<$boybody>> height with a <<$boybod>> body and <<$boyface>> hair. 
	She is <<$boyClo>>'
	'As she notices you, she greets you "Hi. My name is <<$boydesc>>. I heard you beat my old record, very impressive!"'
	act 'Thank her':
		cla
		'You reply: "Oh thank you. That is a tough workout and your score was not easy to beat."'
		act 'Ask her if she comes around often':
			cla
			'"Do you visit this box often?", you ask.'
			'She replies: "Yeah, I am here two or three times a week."'
			'<<$boydesc>> looks at you and asks: "I just got finished with my workout for today, would you like to hang out afterwards?"'
			act 'Agree to a date':
				cla
				'"Sure, sounds like fun, I would love to."'
				'"Great!" answers <<$boydesc>> "So, what do you want to do?".'
				gs 'dateF', 'date_choice'
			end
			act 'Decline':
				*clr
				cla
				'<center><img <<$set_imgh>> src="images/characters/shared/'+lover_picrand+'.jpg"></center>'
				'"I''m sorry but I don''t feel myself attracted to you enough and I don''t want to lead you on."'
				'<<$boydesc>> looks at you disappointed. "Oh well, I didn''t know if I had a chance but you can''t blame me for trying."'
				'The two of you say goodbye to each other.'
				act 'Return': gt $loc, $metka
			end
		end
		act 'Say goodbye':
			cla
			'You check your watch and tell her: "Sorry, I got to run now, see you around!"'
			act 'Leave': gt $loc, $metka
		end
	end
	act 'Pretend you''re busy':
		cla
		'You check your watch and pack your things, ignoring the girl.'
		act 'Leave': gt $loc, $metka
	end
end


--- crossfit_north_girlmeet ---------------------------------