论坛 › 游戏讨论 › 教你一天轻松赚够20W

linziwei111 发表于 2017-11-1 08:10:19

66666666666666

server0451 发表于 2017-11-2 13:25:55

{
   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);            
   }      
}

正儿八经的米爸 发表于 2017-11-2 15:02:58

我是来学习的

133941015 发表于 2017-11-20 02:46:36

6666666666666666666666666666666666

紫暮寒少 发表于 2017-11-22 13:39:57

感谢楼主分享！

紫暮寒少 发表于 2017-11-22 13:40:19

感谢楼主分享！感谢感谢！

葡萄灬美酒 发表于 2017-12-2 04:23:26

看看赚钱

葡萄灬美酒 发表于 2017-12-2 04:23:47

看看怎么赚钱

zxp90014 发表于 2017-12-8 16:23:30

讓我好好看看吧

254181094 发表于 2017-12-11 19:19:12

看看

查看完整版本: 教你一天轻松赚够20W