Ok code goes as follow ill start with 1 example first.
on teach_screen when you chose ( oral / kiss ) it sends trigger to interaction 1321:
----------------------------------------------------------------------------------INTERACTION----------------------------------------------------------------------------
ALL BASE VARS =0
IF interaction = 1321:
$interaction_type = 'self_sex_lesson'
TYPE OF LESSON $subskill = 'slave["sub_kiss"]'
SKILL CHOSEN $subskill_xp = 'slave["sub_kiss_xp"]'
THIS ACTION IF NOT REFUSED WILL ADD XP TO slave["sub_kiss"]
repulse = 2
BASE CHANCE TO REFUSE ACTION rise_difficulty = 3 + slave["sub_kiss"]
BASE SKILL XP GAINED + slave["sub_kiss"]
CURRENT LVL TO INCREASE TO NEXT RANK $text[1] = '<<$kiss_lesson_description[slave["sub_kiss"]]>>'
TEXT DESCRIBING THE ACTION + TEXT VARIATION DEPENDING ON WITCH LVL slave["sub_kiss"]
IS AT $play_sound[2] = '<<$kiss_sound[slave["age"]]>>'
PLAYING KISS SOUND $special_bg = $kiss[slave_type]
DISPLAY THE SLAVE TYPE KISS IMG couch_skill = master_oral
DEFINES WITCH SKILL MC WILL GAIN XP ON add_master_hygiene = 1
MAKES MC DIRTY BY +1 add_slave_hygiene = 1
MAKES SLAVE DIRTY BY +1
add_house_mess = 1
MAKES HOUSE DIRTY BY +1 ejaculation_intensity = 0
WELL MAYBE YOU DO CUM BY KISSING.. HUNTSMAN DOSENT.. if slave["sub_kiss"] => 5: $interaction_type = 'completed'
MAKES SURE KISS SKILL DONT GOES BEYOND LVL5 $special_part = {
master_oral_rate += 1
ADD ORAL SKILL TO MASTER BY+1 XP TO MAKE ORAL RELATED TRAINING EASYER IN THE FUTURE X/5 MAX }
$place = 'bedroom'
DISPLAYS THE BEDROOM BG+REALTED RIGHT WINDOW TEXTSEND
-----------------------------------------------------------------------------------------------------------------------------------------
IF $interaction_type = 'self_sex_lesson':
USED FOR CODE ABOVE diligence = complex_diligence
WILL DISPLAY CODE BELOW
IF diligence < 0:
$interaction_type = 'talk'
WILL DISPLAY CODE BELOW killvar 'play_sound'
txt_count = 2
$text[2] = '<<$slave_name>> refuses to carry out your instructions! With this attitude, conducting a lesson is useless.'
dynamic $sin_potential
FORMULA TO ADD SIN NOT USED THIS TIME ( AS THERES NO SIN POTENTIAL FOR THIS ACTION ) dynamic $sin_gained_now
FORMULA TO MAKE SURE IT ADDS THE RIGHT SIN AMOUNT AND ALSO LIMIT IT TO 1 TIME PER DAY else
if erotic_stimulation > 0: dynamic $erotic_stimulation
txt_count = 3
$text[2] = '<<$sex_lesson_diligence[diligence]>>'
rise_difficulty += rise_modifer
succes = couch_skill + diligence + (master_mood + slave["mood"])/2 - rise_difficulty + learn_bonus["sex"]
dynamic 'succes += <<$subskill_xp>>'
IF diligence <= 0:
succes = 0
sin_gained = 1
if slave["sin"] < 1: slave["sin"] = 1
else
dynamic $virtue_gained_eroles
END
IF succes > 0:
dynamic '<<$subskill>> += 1'
dynamic '<<$subskill_xp>> = 0'
$text[3] = 'By the end of class you managed to make significant progress. Now you can move on to more sophisticated techniques.'
else
$text[3] = 'Slave failed to fully learn what you were trying to teach her. It will be necessary to repeat this lesson again, but you still progressed a bit and the next time should be easier.'
dynamic '<<$subskill_xp>> += 1'
END
master_hygiene_rate += add_master_hygiene
slave_rate["hygiene"] += add_slave_hygiene
house_mess_rate += add_house_mess
dynamic $slave_energy_drop
dynamic $master_energy_drop
if ejaculation_intensity > 0: dynamic $master_ejaculate
IF orgastic > 0:
IF final_stimulation > 0:
dynamic $slave_orgasm
txt_count = 4
$text[4] = '<<$orgasm_description[orgasm_description]>>'
END
END
dynamic $special_part
END
END
-----------------------------------------------------------------------------------------#DYNAMIC ( COMPLEX DILIGENCE SECTION )----------------------------
$complex_diligence = {
complex_diligence = 0
if complex_repulse > slave["obedience"]: complex_diligence = -1
if repulse > slave["obedience"]: complex_diligence = -1
if rebell[$slave_psy_status] > 0: complex_diligence -= 1
if slave['fear'] > complex_repulse: complex_diligence += 1
if slave['mood'] > complex_repulse: complex_diligence += 1
if slave['moral'] > complex_repulse: complex_diligence += 1
if slave['custom'] > complex_repulse: complex_diligence += 1
if slave['rational'] > complex_repulse: complex_diligence += 1
if slave['instinct'] > complex_repulse: complex_diligence += 1
a = slave['spoil'] + complex_repulse
if a > 5: complex_diligence -= 1
a = slave['pride'] + complex_repulse
if a > 5: complex_diligence -= 1
phobia = 0
IF stimulating > 0:
phobia += slave["nymphomania"]
END
IF shameful > 0: phobia += slave["exhibitionism"] - shameful
IF painful > 0: phobia += slave["masohism"] - painful
IF abuse > 0: phobia += slave["abuse_attitude"] - abuse
IF disgusting > 0: phobia += slave["preversion"] - disgusting
IF darkness > 0: phobia += slave["darkness_attitude"] - darkness
IF bloody > 0: phobia += slave["blood_attitude"] - bloody
IF fire_based > 0: phobia += slave["fire_attitude"] - fire_based
IF water_based > 0: phobia += slave["water_attitude"] - water_based
IF vermin_based > 0: phobia += slave["vermin_attitude"] - vermin_based
IF deprivation > 0: phobia += slave["deprivation_attitude"] - deprivation
complex_diligence += phobia & $dil_message += 'phobia <<phonia>><br>'
if slave['energy'] < 0: complex_diligence += slave['energy']
a = slave['angst'] + complex_repulse
if complex_diligence > 0 and a > 5: complex_diligence -= 1
if slave['moral'] > complex_diligence and slave['moral'] > 0: complex_diligence = slave['moral']
if $slave_psy_status = 'broken': complex_diligence = 0
if complex_diligence > 5: complex_diligence = 5
if slave['domini_dictum'] = 1 and complex_diligence < 0: complex_diligence = 0
}
--------------------------------------------------------------------------------------#DYNAMIC ( EROTIC STIMULATION SECTION )---------------------------------
$erotic_stimulation = {
TRIGGERED BY INTERACTION RESULTif sex_acceptance > 0: erotic_stimulation += sex_acceptance
IF slave["arousal"] = 0:
final_stimulation = 1
else
final_stimulation = erotic_stimulation * slave["arousal"]
END
if sex_acceptance < 0: final_stimulation = 0
if orgastic = 0: slave_rate["arousal"] += final_stimulation
USE ORGASTIC PARAMETTER IN INTERACTION TRIGGER}
-----------------------------------------------------------------------------------------#DYNAMIC ( REPULSE CHECK SECTION )------------------------------------------
$repulse_check = {
TRIGGERED BY INTERACTION RESULTres = slave["obedience"] - repulse + sex_acceptance
DEFINES RES
if $interaction_type = 'talk': res = slave["obedience"] - repulse
DEFINES RES FOR THAT ACTIONIF $interaction_type = 'master_teaches_slave': res = slave["obedience"] - repulse
DEFINES RES FOR THAT ACTIONIF sex_acceptance < 0:
SEX ACCEPTANCE VALE CHECK SEE CODE BELOW slave_rate["mood"] -= repulse - sex_acceptance else
if erotic_stimulation > 0: res -= slave["arousal"]
END
if slave['domini_dictum'] = 1 and res < 0: res = 0
CHECK IF MAGIC WAS CASTED ON SLAVE TO MAKE HER MORE DOCILE}
---------------------------------------------------------------------------------------#DYNAMIC ( SEX ACCEPTANCE SECTION )------------------------
$sex_acceptance = {
IF shameful > 0:
UNLESS INTERACTION ADDS SHAME, SHAME = 0 LIKE ALL DEFAULTS VARS sex_acceptance += slave["exhibitionism"] - shameful
ADDS slave["exhibitionism"]
SKILL RANK TO SEX ACCEPTANCE - SHAME if slave["exhibitionism"] < 1 and slave['neg_shame'] < 1: slave['neg_shame'] = 1
CHECKS IF SLAVE GOT EXHIBITIONIST TRAIT AND IF CHECK FAIL MAKES SLAVE SHAMEFULL slave["exhibitionism_xp"] += 1
IF SLAVE SHAMELESS ADDS slave["exhibitionism_xp"] +1 END
IF painful > 0:
sex_acceptance += slave["masohism"] - painful
if slave["masohism"] < 1 and slave['neg_pain'] < 1: slave['neg_pain'] = 1
slave["masohism_xp"] += 1
END
IF disgusting > 0:
sex_acceptance += slave["preversion"] - disgusting
if slave["preversion"] < 1 and slave['neg_disgust'] < 1: slave['neg_disgust'] = 1
slave["preversion_xp"] += 1
END
IF lesbian > 0:
sex_acceptance += slave["homosexualism"] - lesbian
slave["lesbian_xp"] += 1
else
if slave["homosexualism"] = 2: sex_acceptance -= 1
END
IF $interaction_type = 'rape':
sex_acceptance += slave["arousal"] + slave["sub_vaginal"] + slave["obedience"] - repulse
if sex_acceptance > 1: sex_acceptance = 1
END
}
------------------------------------------------------------------------------------------INTERACTION RESULT ( TALK SECTION )---------------------------------------------
IF $interaction_type = 'talk':
IF res < 0:
txt_count = 1
$text[1] = '<<$refuse_talk[$slave_psy_status]>>'
if already_done_today[interaction] = 0 and slave["sin"] < 1: slave["sin"] = 1
else
dynamic $special_part
END
END
