glife/locations/boyfrend

# boyfrend
if $ARGS[0] = 'start':
	if bfA = 0 and stopboy = 0:
		set stopboy = 1
		gs 'boyfrend', 'A'
	end

	if bfA > 0 and bfB = 0 and stopboy = 0:
		set stopboy = 1
		gs 'boyfrend', 'B'
	end

	if bfA > 0 and bfB > 0 and bfC = 0 and stopboy = 0:
		set stopboy = 1
		gs 'boyfrend', 'C'
	end

	if bfA > 0 and bfB > 0 and bfC > 0 and stopboy = 0:'Hmm, you are already three boyfriend, why do you need a fourth?'
end

if $ARGS[0] = 'A':
	!!set stopboy = 0
	Set $boyA = $boy
	set boybodyrandA = boybodyrand
	Set $boybodyA = $boybody
	set boybodrandA = boybodrand
	Set $boybodA = $boybod
	set boyfacerandA = boyfacerand
	set $boyfaceA = $boyface
	set dickA = dick
	set silaVagA = silaVag
	set financeA = finance
	set vneshBoyA = vneshBoy
	set $boyCloA = $boyClo
	set figurBoyA = figurBoy
	set titBoyA = titBoy
	set haerBoyA = haerBoy
	set harakBoyA = harakBoy
	set boydayA = day
	set bfA = 1
	set daya = 0
	set boyonceA = 0
	set izvratA = izvrat
	set giftDayA = 0
	set giftNumA = 0
	set love = 0
end


if $ARGS[0] = 'B':
	!!set stopboy = 0
	Set $boyB = $boy
	set boybodyrandB = boybodyrand
	Set $boybodyB = $boybody
	set boybodrandB = boybodrand
	Set $boybodB = $boybod
	set boyfacerandB = boyfacerand
	set $boyfaceB = $boyface
	set dickB = dick
	set silaVagB = silaVag
	set financeB = finance
	set vneshBoyB = vneshBoy
	set $boyCloB = $boyClo
	set figurBoyB = figurBoy
	set titBoyB = titBoy
	set haerBoyB = haerBoy
	set harakBoyB = harakBoy
	set boydayB = day
	set bfB = 1
	set dayb = 0
	set boyonceB = 0
end

if $ARGS[0] = 'C':
	!!set stopboy = 0
	Set $boyC = $boy
	set boybodyrandC = boybodyrand
	Set $boybodyC = $boybody
	set boybodrandC = boybodrand
	Set $boybodC = $boybod
	set boyfacerandC = boyfacerand
	set $boyfaceC = $boyface
	set dickC = dick
	set silaVagC = silaVag
	set financeC = finance
	set vneshBoyC = vneshBoy
	set $boyCloC = $boyClo
	set figurBoyC = figurBoy
	set titBoyC = titBoy
	set haerBoyC = haerBoy
	set harakBoyC = harakBoy
	set boydayC = day
	set bfC = 1
	set dayc = 0
	set boyonceC = 0
end

--- boyfrend ---------------------------------