自動製作肯貝特問題

我想問一下大家，有誰知道能不用巨集就可以設定自動製造跟存領倉的肯貝特腳本的嗎?
(我研究好久，都沒找到這功能也爬過文)真的需要巨集的話該怎寫?

推推推
感謝大大分享推推推
感謝大大分享推推推
感謝大大分享推推推
感謝大大分享

#身上除了材料之外,必須要有一個要製作的肯貝特成品
#以下以製作火肯為例,如要製作其他種類的肯貝特請自行更改材料以及肯貝特名稱
#領倉預設吉分卡普拉120 62,提領材料預設是400組請依個人負重量來自行更改
#把人物放在卡普拉旁即可開啟外掛執行巨集,當材料不足時會自動登出
automacro converter {
        inventory "大捲軸" > 0
        inventory "蠍子尾巴" > 2
        inventory "火 肯貝特" > 0
        sp > 30
        exclusive 1
        call {
        pause 2
        do ss 1007
        $a = @invamount (大捲軸)
        $b = @invamount (蠍子尾巴)
        $c = @eval ($b / 3)
        do eval $::Macro::Data::varStack{c} = sprintf("%.0f",$c);
        if ($a >= $c) goto aa
        call make $a
        stop
        :aa
        call make $c
        }
}
macro make {
        do arrowcraft 0
}
automacro storage {
        inventory "大捲軸" = 0, "蠍子尾巴" < 3
        exclusive 1
        call {
        lock converter
        do talknpc 120 62 c r1 n
        # 自行設定卡普拉座標(預設吉分卡普拉120 62)
        pause 2
        $a1 = @invamount (大捲軸)
        $b1 = @invamount (蠍子尾巴)
        $c1 = @invamount (火 肯貝特)
        if ($a1 = 0) goto jump1
        do storage add @inventory (大捲軸)
        :jump1
        if ($b1 = 0) goto jump2
        do storage add @inventory (蠍子尾巴)
        :jump2
        if ($c1 = 0) goto jump3
        do storage add @inventory (火 肯貝特)
        :jump3
        pause 1
        do storage get @storage (大捲軸) 400
        do storage get @storage (蠍子尾巴) 1200
        do storage get @storage (火 肯貝特) 1
        #自行設定提領材料(預設是400組),要製作的肯貝特身上要有一個
        pause 1
        $a2 = @invamount (大捲軸)
        $b2 = @invamount (蠍子尾巴)
        if ($a2 = 0) goto stop
        if ($b2 < 3) goto stop
        do storage close
        release converter
        stop
        :stop
        log 材料不足,無法製作,自動登出
        do storage close
        do quit
        }
}

woooooooooooooooooooooooooooooooooooooooooooooooo

感 謝X大的提供!

感 謝X大的提供!


感 謝X大的提供!

感謝X大大的分享，終於可以使用了  

                                                                                                                                                      

#####################################
#腳本用途:製作4屬肯貝特                #
#執行條件:請將1234修改成倉庫密碼    #
#請將人物放置中央卡普(146 ,89)附近  #
#作者伺服:免費查爾斯                          #
#作者:摯愛                            #
#####################################
automacro 宣告 {
run-once 1
call {
do conf storageAuto_password ****(****代表倉庫密碼)
$Public = 大捲軸
$Water = 蝸牛殼
$Wind = 彩色昆蟲外殼
$Fire = 蠍子尾巴
$Soil = 硬角
$macro = 0
$Type = -1
$stofull = 300000
log 身上請勿放有任何材料,以及保留一張你想製作的肯貝特
log 例如:你要製作風肯貝特,則在身上放一張風肯貝特
log 欲製作風肯貝特,請於黑窗輸入macro wind
log 欲製作火肯貝特,請於黑窗輸入macro fire
log 欲製作地肯貝特,請於黑窗輸入macro soil
log 欲製作水肯貝特,請於黑窗輸入macro water
log 輸入完請記得按下Enter哦!
log 現在可開始輸入了!
stop
}       
        }
#火
macro fire {
        if (@invamount ($Fire) <= 0 || @invamount ($Public) <= 0) {
        pause 0.5
        do talknpc 146 89 c r1 n
        pause 2
        do storage get @storage ($Fire) @eval(300 - @invamount ($Fire))
        pause 0.5
        do storage get @storage ($Public) @eval(100 - @invamount ($Public))
        do storage close
        call fire
        }
        $RunTime = @eval(@invamount ($Public))
        while ($RunTime != 0) as Makeloop
        do ss 1007
        pause 0.3
        do arrowcraft 0
        $RunTime--
        end Makeloop
        if (@invamount ($Fire) <= 0 || @invamount ($Public) <= 0) {
                $Type = 火 肯貝特
                $get = $Fire
                $macro = 1
                pause 0.5
                call StorageSave
        }        
}
#風
macro wind {
        if (@invamount ($Wind) <= 0 || @invamount ($Public) <= 0) {
        pause 0.5
        do talknpc 146 89 c r1 n
        pause 2
        do storage get @storage ($Wind) @eval(300 - @invamount ($Wind))
        pause 0.5
        do storage get @storage ($Public) @eval(100 - @invamount ($Public))
        do storage close
        pause 0.5
        call wind
        }
        $RunTime = @eval(@invamount ($Public))
        while ($RunTime != 0) as Makeloop
        do ss 1007
        pause 0.3
        do arrowcraft 0
        $RunTime--
        end Makeloop
        if (@invamount ($Wind) <= 0 || @invamount ($Public) <= 0) {
                $Type = 風 肯貝特
                $get = $Wind
                $macro = 2
                pause 0.5
                call StorageSave
        }        
}
#地
macro soil {
        if (@invamount ($Soil) <= 0 || @invamount ($Public) <= 0) {
        pause 1
        do talknpc 146 89 c r1 n
        pause 2
        do storage get @storage ($Soil) @eval(300 - @invamount ($Soil))
        pause 0.5
        do storage get @storage ($Public) @eval(100 - @invamount ($Public))
        do storage close
        pause 0.5
        call soil
        }
        $RunTime = @eval(@invamount ($Public))
        while ($RunTime != 0) as Makeloop
        do ss 1007
        pause 0.3
        do arrowcraft 0
        $RunTime--
        end Makeloop
        if (@invamount ($Soil) <= 0 || @invamount ($Public) <= 0) {
                $Type = 地 肯貝特
                $get = $Soil
                $macro = 3
                pause 0.5
                call StorageSave
        }        
}
#水
macro water {
        if (@invamount ($Water) <= 0 || @invamount ($Public) <= 0) {
        pause 1
        do talknpc 146 89 c r1 n
        pause 2
        do storage get @storage ($Water) @eval(300 - @invamount ($Water))
        pause 0.5
        do storage get @storage ($Public) @eval(100 - @invamount ($Public))
        do storage close
        pause 0.5
        call water
        }
        $RunTime = @eval(@invamount ($Public))
        while ($RunTime != 0) as Makeloop
        do ss 1007
        pause 0.3
        do arrowcraft 0
        $RunTime--
        end Makeloop
        if (@invamount ($Water) <= 0 || @invamount ($Public) <= 0) {
                $Type = 水 肯貝特
                $get = $Water
                $macro = 4
                pause 0.5
                call StorageSave
        }        
}
macro StorageSave {
log 存倉開始
                pause 0.5
                do talknpc 146 89 c r1 n
                pause 2.5
                do storage add @inventory ($Type) @eval(@invamount ($Type) -1 )
                pause 0.5
                do storage get @storage ($get) @eval(300 - @invamount ($get))
                pause 0.5
                do storage get @storage ($Public) @eval(100 - @invamount ($Public))
                $storagem = @storamount ($Type)
                pause 0.5
                if ($storagem == $stofull || @invamount ($get) == 0 ) {
                        $stostatus = 0
                        log 有$storagem張$Type
                        log 材料或倉庫已滿,執行重登保留畫面
                        do relog 100
                        #倉庫滿後斷線100秒重登(會保留畫面資訊)
                        stop
                } else {
                        $ss = 0
                        log 目前倉庫有$storagem張$Type
                }
                do storage close
                pause 0.3
                if ($macro == 1 ) {
                call fire
                } elsif ($macro == 2) {
                call wind
                } elsif ($macro == 3){
                call soil
                } else {
                call water
                }
                stop
        }