glife/locations/dina.qsrc

# dina

!! Dynamic code has been translated to static code for performance and savegame size reasons.
!! The dynamic variables still exist for compatibility reasons.
!! Whenever possible, don''t use dynamic code (use "gs 'dina', 'xxx'" instead of "dynamic $xxx").

$brodila = "gs 'dina', 'brodila'"
if $ARGS[0] = 'brodila':
	sexpartkno = 0
	if accessible_property['city_apartment'] > 0:
		gt 'korr', 'start'
	elseif accessible_property['old_town_apartment'] = 1:
		gt 'korr2x', 'start'
	else
		gt'city_residential', 'start'
	end
end

$brodilr = "gs 'dina', 'brodilr'"
if $ARGS[0] = 'brodilr':
	if mid($start_type,1,2) = 'sg' and accessible_property['parents_home'] = 4:
		gt 'pav_residential'
	elseif accessible_property['old_town_apartment'] = 1:
		gt'pushkin_sq'
	else
		gt 'city_residential', 'start'
	end
end

$brodilk = "gs 'dina', 'brodilk'"
if $ARGS[0] = 'brodilk':
	if accessible_property['city_apartment'] > 0:
		gt 'kuhr', 'start'
	elseif accessible_property['old_town_apartment']= 1:
		gt 'kuhr2x', 'start'
	else
		gt'city_residential', 'start'
	end
end

$brodils = "gs 'dina', 'brodils'"
if $ARGS[0] = 'brodils':
	if accessible_property['city_apartment'] > 0:
		gt 'sitr', 'start'
	elseif accessible_property['old_town_apartment'] = 1:
		gt 'sitr2x', 'start'
	elseif mid($start_type,1,2) = 'sg' and accessible_property['parents_home'] = 4:
		gt 'sitrPar'
	else
		gt'city_residential', 'start'
	end
end


$dogpot = "gs 'dina', 'dogpot'"
if $ARGS[0] = 'dogpot':
	gs 'boyStat', 'A191'
end

$rexpot = "gs 'dina', 'rexpot'"
if $ARGS[0] = 'rexpot':
	gs 'boyStat', 'A166'
end

$hypnoDaychange = "gs 'dina', 'hypnoDaychange'"
if $ARGS[0] = 'hypnoDaychange':
	!!if for some reason hypnoTime is too high
	if hypnoTime > 15:hypnoTime = 15
	timeTresh = 76 - 4*hypnoTime
	!!Withdrawal effect begings if too strong influence and no visitation
	if daystart-hypnoDay > 7:
		if hypnoAddict = 1:
			hypnoWithdrawal = 1
		elseif hypnoAddict = 2:
			hypnoWithdrawal = 2
		end
	end
	!!daily weaning of therapist influence
	if hypnoStrength > 0: hypnoStrength -= 1
	if hypnoTime > 0 and hypnoStrength = 0:
		if hypnoAddict = 0:
			hypnoStrength = 19
			hypnoTime -= 1
		elseif hypnoAddict = 1:
			if rand(0,1) = 0:
				hypnoStrength = 19
				hypnoTime -= 1
				if hypnoTime < 7:hypnoAddict = 0 & hypnoWithdrawal = 0
			end
		else
			if rand(0,4) = 0:
				hypnoStrength = 19
				hypnoTime -= 1
				if hypnoTime < 10:hypnoAddict = 1 & hypnoWithdrawal = 1
			end
		end
	end
end

$hypnoAddiction = "gs 'dina', 'hypnoAddiction'"
if $ARGS[0] = 'hypnoAddiction':
	if cumloc[0] = 1 or cumloc[3] = 1:
		killvar 'missCum'
		if hypnoAddict = 1:
			pcs_mood += 5
		else
			pcs_mood += 10
		end
	else
		missCum += 1
	end

	if missCum > timeTresh:
		if hypnoAddict = 1:
			pcs_mood -= 5
			pcs_horny += 10
		else
			pcs_mood -= 10
			pcs_horny += 20
		end
	end

	if hypnoWithdrawal > 0:
		if hypnoWithdrawal = 1:
			if missCum >= timeTresh:
				sprt_deg -= 2*hypnoAddict
				pcs_mood -= 10
			else
				if rand(0,1) = 0:sprt_deg -= hypnoAddict
				pcs_mood -= 5
			end
		end
	end
end

!!---------------

$prezik = "gs 'dina', 'prezik'"
if $ARGS[0] = 'prezik':
	if mc_inventory['equipped_condoms'] > 0:
		if mc_inventory['bad_condoms'] > 0:
			if rand(1,mc_inventory['equipped_condoms']) <= mc_inventory['bad_condoms']: mc_inventory['bad_condoms'] -= 1 & noprotect = 1
		else
			noprotect = 0
		end
		mc_inventory['equipped_condoms'] -= 1
	elseif mc_inventory['equipped_condoms'] < 0:
		mc_inventory['equipped_condoms'] = 0
	end
end

$ferteggfather = "gs 'dina', 'ferteggfather'"
if $ARGS[0] = 'ferteggfather':
	if fertegg > 0:
		if thinkpreg = 0 and knowpreg = 0 and sparrppt[sparrtemp] > 0:
			if cumarrkno[cumarrtemp] = 1:
				if arrcomp('$cumfthname',$boy) = -1:
					i = arrsize('$cumfthname')
					$cumfthname[i] = $boy
					cumtime[i] = 1
				else
					i = arrpos('$cumfthname', $boy)
					cumtime[i] += 1
				end
			elseif cumarrkno[cumarrtemp] = 0:
				cumtime[0] += 1
			end
		end
	end
end

--- dina ---------------------------------