discovering identify and fire scrolls

reading one of these for the first time should give experience, like
other scrolls

diff --git a/src/read.c b/src/read.c
index dc2cbd8fd2667b602e605623a0d3245e8d716dc6..a26ec694b4d91e705ad67fe305801e1a10c6fb95 100644 (file)
--- a/src/read.c
+++ b/src/read.c
@@ -1022,6 +1022,7 @@ register struct obj       *sobj;
                        /* Note: if rn2(5)==0, identify all items */
                        if (cval == 1 && sobj->blessed && Luck > 0) ++cval;
                } else  cval = 1;
+               if(!objects[sobj->otyp].oc_name_known) more_experienced(0,10);
                useup(sobj);
                makeknown(SCR_IDENTIFY);
        id:
@@ -1100,6 +1101,7 @@ register struct obj       *sobj;
                 * some damage under all potential cases.
                 */
                cval = bcsign(sobj);
+               if(!objects[sobj->otyp].oc_name_known) more_experienced(0,10);
                useup(sobj);
                makeknown(SCR_FIRE);
                if(confused) {