U442 - scroll of charging

<Someone> suggested a scroll to counteract an unknown scroll of charging
that had negative effects.  Scroll of punishment already costs the same,
so that unknown behavior is already covered.  Plus, a cursed scroll of
charging already has negative effects, except in the case where the player
was confused where no negative effect from reading a cursed scroll of
charging occured.  Added such an effect (since the curse should still cause
something bad, even though the reader is confused), to drain the player's
energy.

src/read.c

@@ -1060,11 +1060,16 @@ register struct obj	*sobj;
 		return(1);
 	case SCR_CHARGING:
 		if (confused) {
-		    You_feel("charged up!");
-		    if (u.uen < u.uenmax)
-			u.uen = u.uenmax;
-		    else
-			u.uen = (u.uenmax += d(5,4));
+		    if (sobj->cursed) {
+			You_feel("discharged.");
+			u.uen = 0;
+		    } else {
+			You_feel("charged up!");
+			if (u.uen < u.uenmax)
+			    u.uen = u.uenmax;
+			else
+			    u.uen = (u.uenmax += d(5,4));
+		    }
 		    flags.botl = 1;
 		    break;
 		}