[changed] Lariska and the principal sex stuff uses new arousal call instead of BJ

locations/LariskaSex.qsrc

@@ -304,7 +304,7 @@ if $ARGS[0] = 'bj_1':
 	'Putting her hands on the back of your head, she starts face-fucking you in long, deep strokes. She pulls it out, smacks your cheeks and forehead with it, before pushing it back in.'
 	'Eventually she tires of this game, eager to put her rubber dick to use on your other holes.'
 	pcs_horny += 5
-	gs 'arousal', 'bj', -5, 'lesbian', 'sub'
+	gs 'arousal', 'dildo_suck', -5, 'lesbian', 'sub'
 	gs 'stat'
 	if stat['virgin'] = 1:
 		act 'Get your cherry popped':

locations/gschool_office.qsrc

@@ -615,7 +615,7 @@ if $ARGS[0] = 'whore2':
 				'She rises just a bit and then uses her hand to tilt the dildo down to your mouth. "That wasn''t too bad, <<$pcs_lastname>>. All you have to do now is suck my dick clean, and then you can go. Or maybe you''d rather...?" She leaves the exact alternative unspoken, but you have no doubt as to what she is alluding to, and while you''d rather be doing anything else than sucking a large dildo your headmaster just violated your ass with, it beats getting fucked up your sore ass with it again.'
 				*nl
 				'With the choice rather easy, you obediently open your mouth and start sucking it clean, ignoring both the taste and the throbbing pain in your bowels as best you can.'
-				gs 'arousal', 'foreplay_give', 2, 'lesbian', 'humiliation', 'sub'
+				gs 'arousal', 'dildo_suck', 2, 'lesbian', 'humiliation', 'sub'
 				gs 'arousal', 'end'
 				gs 'stat'
 				act 'Get out':