外掛聯合國討論區

標題: 請教我如何設定外掛自動做肯貝特...拜託Q____Q [打印本頁]

作者: linglee00    時間: 2014-9-15 13:41
標題: 請教我如何設定外掛自動做肯貝特...拜託Q____Q
有好心的大大可以教我如何設定掛掛自動做肯貝特嗎?!!
摸索了好久還是沒辦法!唉~~
作者: leannpalas    時間: 2014-10-6 23:19
回覆是美德!
感謝分享囉!
回覆是美德!
感謝分享囉!
作者: a3760206    時間: 2015-1-7 23:06
#####################################
#腳本用途:製作4屬肯貝特                #
#執行條件:請將1234修改成倉庫密碼    #
#請將人物放置中央卡普(146 ,89)附近  #
#作者伺服:免費查爾斯                          #
#作者:摯愛                            #
#####################################
automacro 宣告 {
run-once 1
call {
do conf storageAuto_password 1234 <--倉庫密碼
$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
        }
作者: bbb123tim    時間: 2015-2-28 01:56
推推推推推推推推推推推推推推推推推推推推推推推
推推推推推推推推推推推推推推推推推推推推推推推推
推推推推推 推推推推推推推推推  推推  推推推
推推推推推 推推推推推推推推  推推  推推推推
推推推推推 推推推推推推推推 推推推 推推推推推
推推       推推推          推推
推推推推推 推推推推推推 推 推推推 推推推推推
推推推推推 推推 推推  推 推推推 推推推推推
推推推推推 推  推推推推推 推推推 推推推推推
推推推推推   推推推推推推        推推
推推推   推推推推推推推推 推推推 推推推推推
推推  推 推推推推推推推推 推推推 推推推推推
推推 推推 推推推推推推推推 推推推 推推推推推
推推推推推 推推推推推推推推        推推
推推推推推 推推推推推推推推 推推推 推推推推推
推推  推 推推推推推推推推 推推推 推推推推推
推推推   推推推推推推推推 推推推 推推推推推
推推推推  推推推推推推推推        推推
推推推推推推推推推推推推推推推推推推推推推推推推
作者: TSts02722521    時間: 2015-2-28 20:31
推推推推推推推推推推推推推推推推推推推推推推推推
推推推推推 推推推推推推推推推  推推  推推推
推推推推推 推推推推推推推推  推推  推推推推
推推推推推 推推推推推推推推 推推推 推推推推推
推推       推推推          推推
推推推推推 推推推推推推 推 推推推 推推推推推
推推推推推 推推 推推  推 推推推 推推推推推
推推推推推 推  推推推推推 推推推 推推推推推
推推推推推   推推推推推推        推推
推推推   推推推推推推推推 推推推 推推推推推
推推  推 推推推推推推推推 推推推 推推推推推
推推 推推 推推推推推推推推 推推推 推推推推推
推推推推推 推推推推推推推推        推推
推推推推推 推推推推推推推推 推推推 推推推推推
推推  推 推推推推推推推推 推推推 推推推推推
推推推   推推推推推推推推 推推推 推推推推推
推推推推  推推推推推推推推        推推
推推推推推推推推推推推推推推推推推推推推推推推推




歡迎光臨 外掛聯合國討論區 (https://bbs.wgun.net/) Powered by Discuz! X2.5