Script Function: Q5RI

 function void Q5RI()
 {
   list Q56N;
   string n;
   for(int i = 0x00; i < numInList(Q45U); i++)
   {
     appendToList(Q56N, i);
     n = oprlist(Q45U[i], 0x00);
     appendToList(Q56N, n);
   }
   appendToList(Q56N, numInList(Q56N));
   appendToList(Q56N, "None.");
   selectType(gm, this, 0x01, "Terrain types.", Q56N);
   return ();
 }