Index: atcommand.c
===================================================================
--- atcommand.c (revision 16920)
+++ atcommand.c (working copy)
@@ -8786,6 +8786,41 @@
    #undef MC_CART_MDFY
 }
 
+/*==========================================
+ * ported from Xantara's homunculus_mutate
+ * scriptcommand [clydelion]
+ *------------------------------------------*/
+ACMD_FUNC(hommutate)
+{
+   int homun_id, m_class = 0, m_id;
+   int homun_array[5] = {6048,6049,6050,6051,6052};
+   nullpo_retr(-1, sd);
+
+   if ( !merc_is_hom_active(sd->hd) ) {
+       clif_displaymessage(fd, msg_txt(1254)); // You do not have a homunculus.
+       return -1;
+   }
+   
+   if( sd == NULL )
+       return -1;
+   if (!message || !*message)
+       homun_id = homun_array[rnd() % 5];
+   else
+       homun_id = atoi(message);
+
+   m_class = hom_class2mapid(sd->hd->homunculus.class_);
+   m_id    = hom_class2mapid(homun_id);
+       
+   if ( m_class != -1 && m_id != -1 && m_class&HOM_EVO && m_id&HOM_S && sd->hd->homunculus.level >= 99 )
+       hom_mutate(sd->hd, homun_id);
+   else
+   {
+       clif_displaymessage(fd, "Your homunculus must be level 99 to mutate.");
+       clif_emotion(&sd->hd->bl, E_SWT);
+   }
+   return 0;
+}
+
 /**
  * Fills the reference of available commands in atcommand DBMap
  **/
@@ -8796,6 +8831,7 @@
     * Command reference list, place the base of your commands here
     **/
    AtCommandInfo atcommand_base[] = {
+       ACMD_DEF(hommutate),
        ACMD_DEF2("warp", mapmove),
        ACMD_DEF(where),
        ACMD_DEF(jumpto),