glife/locations/dina

# dina

$gladbelo = {
	cla
	*clr
	minut += suhbelo2 * 3
	clrbelo += suhbelo2
	suhbelo2 = 0
	pcs_mood -= 10
	elektro += 10

	if $clothingworntype ! 'nude':
		'<center><img src="images/community/iron_dressed.jpg"></center>'
	elseif tanga = 1:
		'<center><img src="images/community/iron_underwear.jpg"></center>'
	else
		'<center><img src="images/community/iron_naked.jpg"></center>'
	end

	'You iron your underwear.'

	act 'Leave':gt $curloc
}

$brodila = {
	sexpartkno = 0
	if housr = 1:
		gt'korr','start'
	elseif housr = 2:    
		gt'korr2x','start'
	else
		gt'street', 'start'
    end
}

$brodilr = {
	if StoryLine = 1 and ParHomeBlock = 0:
		gt 'pavResidential'
    elseif housr = 2:
        gt'liames'
    else
        gt'street','start'
	end
}

$brodilk = {
    if housr = 1:
        gt'kuhr','start'
    elseif housr = 2:
        gt'kuhr2x','start'
    else
		gt'street', 'start'
    end
}

$brodils = {
    if housr = 1:
        gt'sitr','start'
    elseif housr = 2:
        gt'sitr2x','start'
	elseif StoryLine = 1 and ParHomeBlock = 0:
		gt 'sitrPar'
	else
		gt'street', 'start'
    end
}

!!This sets the default descriptors and folder names for each default image set
$bodimgsets[0] = 'starving'
$bodimgsets[1] = 'thin'
$bodimgsets[2] = 'petite'
$bodimgsets[3] = 'slender'
$bodimgsets[4] = 'lacking definition'
$bodimgsets[5] = 'chubby'
$bodimgsets[6] = 'overweight'
$bodimgsets[7] = 'fat'
$bodimgsets[8] = 'OOPS'
$bodimgsets[9] = 'default_low'
$bodimgsets[10] = 'starving'
$bodimgsets[11] = 'slight'
$bodimgsets[12] = 'skinny'
$bodimgsets[13] = 'toned'
$bodimgsets[14] = 'cute'
$bodimgsets[15] = 'curvy'
$bodimgsets[16] = 'overweight'
$bodimgsets[17] = 'fat'
$bodimgsets[18] = 'OOPS'
$bodimgsets[19] = 'default_mid'
$bodimgsets[20] = 'starving'
$bodimgsets[21] = 'wiry'
$bodimgsets[22] = 'lean'
$bodimgsets[23] = 'ripped'
$bodimgsets[24] = 'muscular'
$bodimgsets[25] = 'herculean'
$bodimgsets[26] = 'stocky'
$bodimgsets[27] = 'heavy set'
$bodimgsets[28] = 'OOPS'
$bodimgsets[29] = 'default_high'
!!This sets the first 3 sets to not override images 6 and 7
imgset6ovr[0] = 0
imgset6ovr[1] = 0
imgset6ovr[2] = 0
imgset7ovr[0] = 0
imgset7ovr[1] = 0
imgset7ovr[2] = 0
!!Sets the default image set count if it is 0
if bodsetcnt <= 0: bodsetcnt = 2

$week[1] = 'Monday'
$week[2] = 'Tuesday'
$week[3] = 'Wednesday'
$week[4] = 'Thursday'
$week[5] = 'Friday'
$week[6] = 'Saturday'
$week[7] = 'Sunday'

$piratpot = {
	gs 'boyStat', 66
}

$dogpot = {
	gs 'boyStat', $namesob
}

$rexpot = {
	gs 'boyStat', 'A166'
}

!! therapist values/dynamics:
timeTresh = 300

$hypnoDaychange = {	
	!Therapist - missed visitation effect
	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 & hypnoBlock = 0 & hypnoWithdrawal = 1
			end
		end
	end
}

$hypnoAddiction = {
	if spdirtyi = 1:
		if hypnoAddict = 1:
			pcs_mood += 2
		else
			pcs_mood += 5
		end
	else
		missCum += hypnoTime
	end
	
	if missCum >= timeTresh:
		if hypnoAddict = 1:
			pcs_mood -= 5
			pcs_horny += 5
		else
			pcs_mood -= 10
			pcs_horny += 10
		end
	end
	
	if hypnoWithdrawal > 0 and missCum >= timeTresh and pcs_sprt > 0:
		if hypnoWithdrawal = 1:
			sprt_deg -= 1
		else
			sprt_deg -= 2
		end
	end
}

$prezik = {
	if prezik > 0:
		if badprezik > 0:
			if rand(1,prezik) <= badprezik: badprezik -= 1 & noprotect = 1
		else
			noprotect = 0
		end
		prezik -= 1
	elseif prezik < 0: 
		prezik = 0
	end
}

$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
}

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