论坛 › 脚本封包 › 极速 刷 初级炼金术

zxc777777 发表于 2017-2-12 20:56:26

极速 刷 初级炼金术

{
   int ItemID = Value("MainMaterialID");
   int MainOrd;
   int SubItemID = Value("SubMaterialID");
   int SubOrd;
   int ExchangeOrd;
   MainOrd = GetItemOrdByCount(ItemID,1);
   if(MainOrd == 0)
   {
      MainOrd = GetFirstItemOrd(ItemID);
      ExchangeOrd = GetFirstEmptyPlace(0);
      if(ExchangeOrd == 0)
      {
          ShowText("No Empty Place for MainItem");
          return;
      }
      ExchangeItem(MainOrd,ExchangeOrd,1);
      MainOrd = GetItemOrdByCount(ItemID,1);
      if(MainOrd == 0)
      {
         ShowText("Exchange Item Failure");
         return;
      }
   }
   
   SubOrd = GetItemOrdByCount(SubItemID,1);
   if(SubOrd == 0)
   {
      SubOrd           = GetFirstItemOrd(SubItemID);
      if(SubOrd == 0)
      {
         ShowText("No SubItem");
             return;
      }
      ExchangeOrd = GetFirstEmptyPlace(0);
      if(ExchangeOrd == 0)
      {
         ShowText("No Empty Place for SubItem");
         return;
      }
      ExchangeItem(SubOrd,ExchangeOrd,1);
      SubOrd = GetItemOrdByCount(SubItemID,1);
      if(SubOrd == 0)
      {
         ShowText("Exchange Item Failure");
         return;
      }
   }
   BeginCompoundItem(MainOrd,SubOrd);
   
   while(1)
   {
         MainOrd = Value("CompoundOrd");
         if(MainOrd == 0)
         {
            ShowText("CompoundItem Failure");
            return;
         }
                  SubOrd = GetItemOrdByCount(SubItemID,1);
                  if(SubOrd == 0)
                  {
                     SubOrd            = GetFirstItemOrd(SubItemID);
                     if(SubOrd == 0)
                     {
                        ShowText("No SubItem");
                        return;
                     }
                        ExchangeOrd = GetFirstEmptyPlace(0);
                     if(ExchangeOrd == 0)
                     {
                                 ShowText("No Empty Place for SubItem");
                                 return;
                     }
                     ExchangeItem(SubOrd,ExchangeOrd,1);
                     SubOrd = GetItemOrdByCount(SubItemID,1);
                     if(SubOrd == 0)
                     {
                                 ShowText("Exchange Item Failure");
                                 return;
                     }
                  }
                  BeginCompoundItem(MainOrd,SubOrd);
                  Yield(0);            
   }      
}

y90240 发表于 2017-6-11 06:43:56

都没说要用什么材料啊

yushuteng 发表于 2023-7-29 05:32:17

111111111111111

查看完整版本: 极速 刷 初级炼金术