[Added] New Petka event from Nutluck with minor code edits by Awesome

[Text edit] Also fixed some text

locations/gschool_lessons3.qsrc

@@ -44,7 +44,7 @@ if $ARGS[0] = 'literature':
 				elseif $boy = 'A144':
 					'Anushka throws her head back and sighs dramatically. "The quicker you read, the sooner this will be over," Ms. Braakman insists. Hearing this, Anushka straightens up and starts to read, taking Ms. Braakman''s comment literally and speaking so fast that you can barely understand her.'
 				elseif $boy = 'A6':
-					'Pekta obediently reads the passage and does so without any mistakes. "It''s always a pleasure to hear you read. If only your fellow students took their studies as seriously as you." Ms. Braakman compliments. Petka smiles slightly, but you can tell that he doesn''t like being openly complimented by the teacher, especially when the others giggle and call him a teacher''s pet.'
+					'Petka obediently reads the passage and does so without any mistakes. "It''s always a pleasure to hear you read. If only your fellow students took their studies as seriously as you." Ms. Braakman compliments. Petka smiles slightly, but you can tell that he doesn''t like being openly complimented by the teacher, especially when the others giggle and call him a teacher''s pet.'
 				elseif $boy = 'A152':
 					'You watch Feofan frantically hide the comic book he was secretly reading before trying to find the right passage. "Save the cartoons for after class, Mr. Krupin," Ms. Braakman warns him. Feofan starts to correct her, but the laughter from the other students silences him.'
 				elseif $boy = 'A159':

locations/spell.qsrc

@@ -15,7 +15,7 @@
 !	 ARGS[3] = Target party member number
 !	 ARGS[4] = Caster party member number
 
-SuccessValue = max(val($ARGS[1]), ARGS[1])
+SuccessValue = $ARGS[1]
 $SplTxtColGood = 'green'
 $SplTxtColBad = 'red'
 
@@ -445,6 +445,7 @@ if $ARGS[0] = 'cosmetica':
 end
 
 if $ARGS[0] = 'penisenvy':
+	'<center><img <<$set_imgh>> src="images/pc/magic/cast_spell.jpg"></center>'
 	if SuccessValue > 0:
 		! Set the variable to use real penis
 		penisEnvyVariable = 1
@@ -454,9 +455,9 @@ if $ARGS[0] = 'penisenvy':
 		!	CompCode = 'penisEnvyVariable = 0' Remove penis
 		!	TickCode = ''  Do nothing
 		gs 'spellTimer', 'add', 'penisenvy', 30, 'penisEnvyVariable = 0', ''
-		msg '<b><font color = <<$SplTxtColGood>>>You feel the strapon meld into your body. It feels wonderful.</font></b>'
+		msg '<b><font color = <<$SplTxtColGood>>>You focus your energy and cast the spell Penis Envy, you see the swirl of magical energies, you know no one else can see it. Slowly the magical energies stop swirling and enter into the dildo attached to your strapon harness. You feel the strapon harness meld into your body, while you feel the dildo twitch, and then suddenly you can feel it as if you really had a dick of your own and it feels wonderful.</font></b>'
 	else
-		msg '<b><font color="red">The spell fizzles. Nothing seems to happen.</b>'
+		msg '<b><font color="red">You focus your energy and cast the spell Penis Envy, you see the swirl of magical energies, you know no one else can see it. Slowly the magical energies stop swirling and start to enter into the dildo attached to your strapon harness. Just as it seems it is about to work, the energies begin to crackle and fizzle, instead of fully enter the dildo the magical energies dissipate. Nothing seems to happen.</b>'
 	end
 end