gl_bestmod/locations/mod_bestmod_willpower.qsrc

# mod_bestmod_willpower

!! This file will implement willpower elements exclusive to the bestmod.
!! See willpower.qsrc in the base game code to see how that library works.
!! To use call with gs 'mod_bestmod_willpower', '<type>'
!! An alternate form with three arguments can be used to specify the animal type when 'type' is not 'force' or 'resist':
!! gs 'mod_bestmod_willpower', '<type>', '<animal_type>'

!! Not used in the game yet as we need the inverse calculation so that it would be
!! harder to accept when experience is low
!! Use stat['beast'] instead of bm_beast['exp']
if $ARGS[0] = 'sex':
	!! Use basemod willpower calc to calculate the base cost.
	gs 'willpower', 'calc'
	!! Use basemod willpower sex to calculate how willing PC is to have sex.
	gs 'willpower', 'sex'
	!! will_cost is set now. Now we need to add the penalty based on willingness
	!! of PC to have sex with an animal
	if $ARGS[1] ! '':
		!! Specific species
		will_cost += bm_beast['<<$ARGS[1]>>_exp']/10
	else
		!! Beast sex overall
		will_cost += bm_beast['exp']/10
	end
end