broodseal_mod/broodseal.txt

# mod_broodseal
!input mod entry point here. this will be checked on every location, please keep it clean and brief to avoid game lag

if mod_broodseal_init ! 1:
	mod_broodseal_init = 1
	mod_broodseal_speed = 1
	mod_broodseal = 0
	mod_broodseal_hour = 0
	mod_broodseal_day = 0
	mod_broodseal_debt = 0
	mod_broodseal_n = 0
	mod_broodseal_lottery = 0
	mod_broodseal_org = 0
	mod_broodseal_pwr = 0
	mod_broodseal_level = 0
	mod_broodseal_preg = 0
end

if fairycurse >= daystart and mod_broodseal < 1:
	mod_broodseal_day = daystart
	mod_broodseal_org = orgasm
	mod_broodseal = 1
	'In an instant you feel great magical forces gathering, making the air seem... charged. Before you have the chance to comprehend the situation, you feel your abdomen heating up while it feels like all that energy starts flowing into your lower belly.'
	$orgasm_or = 'yes'
	gs 'arousal', 'vaginal_finger', -5, 'exhibitionism'
	'You feel... alive! All you can think of is to share this wonderful feeling! To spread this joy of life! To party! To love! To fuck and get fucked!'
	'You want to keep feeling this way and to share it!'
	'To feel loved and to feel love flow into you, to feel the crescendo of love explode deep within you! To get impaled by hard cock, to lock your legs behind your lover and to ensure you receive all the seeds of love! The idea of nurturing the seed within your body to bring forth more and more life into the world imprints itself in your mind and the thought alone makes you cum again.'
	$orgasm_or = 'yes'
	gs 'arousal', 'vaginal_finger', -5, 'exhibitionism'
	'Suddenly you jerk awake from this waking daydream, startled. Deep in your subconscious the idea of having kids taking root and somehow you can tell that your body is onboard with the plan. Feeling a mixture of excitement and fear, you realize you can probably never climax again without thinking of creating new life.'
	if tatvag = 0: 
		tatvag = 969
		tattCount += 1
		'During your hazy ordeal a strange glowing mark has appeared on the skin of your abdomen.'
		'<center><img src="images/pc/body/tattoos/pubic/tatvag969.jpg"></center>'
	end
	gs 'arousal', 'vaginal_finger', -60, 'exhibitionism'
	mod_broodseal_org = orgasm
	if mod_broodseal_level < 1: mod_broodseal_level = 1
end

if mod_broodseal_day < daystart and mod_broodseal > 0:
	mod_broodseal_day = daystart
	mod_broodseal_hour = rand(6,12)
	if mod_broodseal_org < orgasm:
		mod_broodseal_pwr = (orgasm - mod_broodseal_org) * (2 + mod_broodseal_level) * 2
	else
		mod_broodseal_pwr = 0
	end
	mod_broodseal_pwr += kid
	if mod_broodseal_debt < 1: mod_broodseal_org = orgasm

	mod_broodseal_debt += daystart - mod_broodseal_day
	mod_broodseal_debt += rand(0,mod_broodseal_level)

	if preg > 0: 
		mod_broodseal_preg = 1
	elseif mod_broodseal_preg = 1:
		mod_broodseal_preg = 0
		mod_broodseal_level += 1
	end
	if pregspeedcheat <= mod_broodseal_level and mod_broodseal_speed > 0:
		if mod_broodseal_level < 7:
			pregspeedcheat = mod_broodseal_level 
		else
			pregspeedcheat = 6
		end
	end
	if bimbolevel <= 0: supnatvnesh = 3 * mod_broodseal_level
	if bimbolevel < 2: 
		extra_supnatvnesh = mod_broodseal_pwr
		if preg = 0: extra_supnatvnesh += 15
	end
end

if mod_broodseal_debt > 0 and hour >= mod_broodseal_hour:
	'<font color="red"><b>The cursed seal pulses!</b></font>'

	mod_broodseal_debt -= 1
	if mod_broodseal_debt > 0: mod_broodseal_hour += rand(0,3)

	mod_broodseal_n = 50 + ((pcs_intel + pcs_sprt + willpower_percent + (3 * (100 - pcs_inhib))) / 6) - mod_broodseal_pwr - mod_broodseal_level
	if mod_broodseal_n < 15: mod_broodseal_n = 15
	mod_broodseal_lottery = rand(0,mod_broodseal_n)

!! First tier effects
	if mod_broodseal_lottery < 75:
		gs 'arousal', 'vaginal_finger', -2, 'exhibitionism'

!! Second tier effects - each tier stacks with effects from previous tier
		if mod_broodseal_lottery < 50:
			gs 'arousal', 'vaginal_finger', -3, 'exhibitionism'
			mod_broodseal_n = mod_broodseal_level + mod_broodseal_pwr
			EggRH += rand(0,mod_broodseal_n)
			if preg > 0:
				pcs_mood += rand(0,mod_broodseal_n) * 2
				pcs_health += rand(0,mod_broodseal_n) * 5
			end

!! Third tier effects
			if mod_broodseal_lottery < 25:
				gs 'arousal', 'vaginal_finger', -5, 'exhibitionism'
				EggRH += rand(0,mod_broodseal_n)

!! Fourth tier effects
				if mod_broodseal_lottery < 10:
					gs 'arousal', 'vaginal_finger', -10, 'exhibitionism'
					EggRH += rand(0,mod_broodseal_n)
					if pillcon > 0: pillcon = pillcon * 9/(9 + mod_broodseal_level + mod_broodseal_pwr)
					if RecovH > 0: RecovH = RecovH * 9/(9 + mod_broodseal_level + mod_broodseal_pwr)
					if tabletkishot > 0: 
						tabletkishot -= (mod_broodseal_pwr + mod_broodseal_level)
						if tabletkishot < 0: tabletkishot = 0
					end
					if birth_control['implant_status'] > 1: 
						if rand(0,49) + mod_broodseal_pwr + mod_broodseal_level > 50:
							birth_control['implant_timer'] = 1
						else
							birth_control['implant_timer'] -= mod_broodseal_pwr * mod_broodseal_level * 3
							if birth_control['implant_timer'] < 1: birth_control['implant_timer'] = 1
						end
					end

!! Fifth tier effects - most severe
					if mod_broodseal_lottery < 5:
						if ovulate > 0 and mod_broodseal_pwr > 0: UnfertEgg += min(rand(0,mod_broodseal_level),3)
						gs 'arousal', 'vaginal_finger', -mod_broodseal_n, 'exhibitionism'
						if pillcon > 0 and rand(0,2) = 0: pillcon = (1 + pillcon) / (1 + mod_broodseal_pwr)
						if rand(0,4) = 0: fairycurse = daystart
						if stallionQ < 5: stallionQ = 3
						if prezik > 0 and preziktype = 0:
							if rand(0,mod_broodseal_level) > 0:
								if preziksabo >= 1:
									prezikcount = prezik
								else
									preziksabo = 1
									prezikcount = prezik - 1
								end
								prezik = preziksabo
								preziksabo = 0
								preziktype = 2
							end
						end
						if rand(0,15) + mod_broodseal_level > 15:
							if ptype ! 5 and pillsleft[ptype] > 0:
								mod_pilltrick = pillsleft[ptype]
								pillsleft[ptype] = 0
								ptype = 5
								pillsleft[ptype] = mod_pilltrick
							end
						end
						if tabletki > 0:
							if rand(0,15) + mod_broodseal_level > 15:
								if tabletki > (tabletkiold + tabletkifake + tabletkirej + tabletkisug + tabletkifert):
									if tabletkifert < 1:
										tabletkifert = 1
									else
										tabletkifert += 1
									end
								end
							end
						end
					end
				end
			end
		end
	end
end
--- mod_broodseal ---------------------------------

# mod_broodseal_options

*clr&cla
! This is where you place the configuration options for your mod.
'There are currently no options available for this mod.'
'But there might be some variables to check'

if mod_broodseal_init ! 1:
	mod_broodseal_init = 1
	mod_broodseal_speed = 1
	mod_broodseal = 0
	mod_broodseal_hour = 0
	mod_broodseal_day = 0
	mod_broodseal_debt = 0
	mod_broodseal_n = 0
	mod_broodseal_lottery = 0
	mod_broodseal_org = 0
	mod_broodseal_pwr = 0
	mod_broodseal_level = 0
	mod_broodseal_preg = 0
end

'Has the mod been initialized? 0/1: <<mod_broodseal_init>>'
'Have you been cursed? 0/1: <<mod_broodseal>>'
'The latest pulse lottery: <<mod_broodseal_lottery>>'
'The curse level variable, starts at one and increases every time pregnancy ends(birth/miscarriage): <<mod_broodseal_level>>'
'Curse pulse set to go off after: <<mod_broodseal_hour>>'
'How many pulses are pending: <<mod_broodseal_debt>>'
'The day curse last triggered: <<mod_broodseal_day>> and the current day: <<daystart>>'
'How many orgasms has the curse registered: <<mod_broodseal_org>> and how many has the game recorded: <<orgasm>>'
'Orgasms are used to power up the pulse, current power is: <<mod_broodseal_pwr>>'
'Should curse level speed up pregnancy up to 7x?: <a href="exec:mod_broodseal_speed = 1"><b>Yes</b></a> <a href="exec:mod_broodseal_speed = 0"><b>No</b></a>'
'Speed up toggle currently 0/1: <<mod_broodseal_speed>>'

act 'return': gt 'mod_setting'

--- mod_broodseal_options ---------------------------------

# mod_broodseal_readme
!input your mod detail readme here. you can use msg or detailed structure, just make sure to create act 'return': gt 'mod_setting'
*clr&cla
act 'return': gt 'mod_setting'

'<center>Mod <b>broodseal</b></center>'
'An attempt to create a womb tattoo mod.'
'kekw'
--- mod_broodseal_readme ---------------------------------

# mod_broodseal_setup
!input basic mod information here. 
!this location must be the first one

$mod_info[0] = 'broodseal'
!0=mod name, saved to $mod_name[i] array 

$mod_info[1] = '10300'
!1=mod version
!this will be displayed as version 1.2, fix3.
!if you input 40500, will be showen as version 4.5

$mod_info[2] = 'maankamara'
!2=mod author

$mod_info[3] = 'This attempts to be a mod that brands you with a magical cursed womb tattoo.'
!3=mod description, input a short brief here.

$mod_info[4] = 'Options'
!4=mod options/settings link name.

! be aware, the following condition is case sensitive, you can use lcase() or ucase() to shft them before check. 
if $curloc = 'mod_<<$mod_info[0]>>_setup':
	usehtml = 1
	!this will be only showed if you exec mod file. This location should be only called by gs, so this line will not trigger on normal mod playing
	'<center><h1><font color=red>ACCESS DENIED</font></h1></center>'
	'<<$mod_info[0]>> is a mod for <b>Girl Life - English Community Version</b>, and can not be played individually.'
	''
	'You can find the main game in <a href="https://www.tfgamessite.com/index.php?module=viewgame&id=597">Tfgames site</a> (external link)'
	''
	'Our forum: <a href="https://tfgamessite.com/phpbb3/viewforum.php?f=70">Tfgames site</a> (external link)'
end

--- mod_broodseal_setup ---------------------------------