Script Function: Q4D7

 function int Q4D7(obj user, int listindex, int objtype)
 {
   if (listindex == 0x00)
   {
     return (0x00);
   }
   switch (objtype)
   {
   case 0x20C0
     selectType(Q62D, this, 0x1D, "Choose a first circle spell.", Q4PF);
     break;
   case 0x20C1
     selectType(Q62D, this, 0x1E, "Choose a second circle spell.", Q5QM);
     break;
   case 0x20C2
     selectType(Q62D, this, 0x1F, "Choose a third circle spell.", Q61M);
     break;
   case 0x20C3
     selectType(Q62D, this, 0x20, "Choose a fourth circle spell.", Q4QW);
     break;
   case 0x20C4
     selectType(Q62D, this, 0x21, "Choose a fifth circle spell.", Q4P4);
     break;
   case 0x20C5
     selectType(Q62D, this, 0x22, "Choose a sixth circle spell.", Q5T7);
     break;
   case 0x20C6
     selectType(Q62D, this, 0x23, "Choose a seventh circle spell.", Q5RM);
     break;
   case 0x20C7
     selectType(Q62D, this, 0x24, "Choose a eighth circle spell.", Q4NI);
     break;
   default
     return (0x00);
     break;
   }
   if (hasObjVar(Q56M, "inUse"))
   {
     removeObjVar(Q56M, "inUse");
   }
   return (0x01);
 }