Script Function: Q4KD

 function int Q4KD()
 {
   list Q514;
   int success = 0x00;
   int Q61T;
   Q5HH = 0x0470, 0x08B6, 0x14;
   Q5HI = 0x046D, 0x08B9, 0x14;
   Q5HJ = 0x046A, 0x08B6, 0x14;
   Q5HK = 0x046D, 0x08B3, 0x14;
   getObjectsAt(Q514, Q5HH);
   for(int i = 0x00; i < numInList(Q514); i++)
   {
     Q61T = getObjType(Q514[i]);
     if (Q61T == 0x0F0E)
     {
       obj Q45Q = Q514[i];
       success++;
     }
   }
   clearList(Q514);
   getObjectsAt(Q514, Q5HI);
   for(i = 0x00; i < numInList(Q514); i++)
   {
     Q61T = getObjType(Q514[i]);
     if (Q61T == 0x1F2B)
     {
       obj fire = Q514[i];
       success++;
     }
   }
   getObjectsAt(Q514, Q5HJ);
   for(i = 0x00; i < numInList(Q514); i++)
   {
     Q61T = getObjType(Q514[i]);
     if (Q61T == 0x19B8)
     {
       obj Q4NE = Q514[i];
       success++;
     }
   }
   clearList(Q514);
   getObjectsAt(Q514, Q5HK);
   for(i = 0x00; i < numInList(Q514); i++)
   {
     Q61T = getObjType(Q514[i]);
     if (Q61T == 0x0FFA)
     {
       obj water = Q514[i];
       success++;
     }
   }
   if (success >= 0x04)
   {
     deleteObject(Q45Q);
     Q4WE = createGlobalObjectAt(0x1ECD, Q5HH);
     deleteObject(fire);
     Q4WF = createGlobalObjectAt(0x1ECD, Q5HI);
     deleteObject(Q4NE);
     Q4WG = createGlobalObjectAt(0x1ECD, Q5HJ);
     deleteObject(water);
     Q4WH = createGlobalObjectAt(0x1ECD, Q5HK);
     return (0x01);
   }
   return (0x00);
 }