- UID
- 2183839
- 熱心
- 42 值
- 嘉獎
- 0 次
- 違規
- 0 次
- 在線時間
- 9 小時
- 經驗
- 20 點
- 積分
- 20
- 精華
- 0
- 最後登錄
- 2015-2-4
- 閱讀權限
- 20
- 註冊時間
- 2014-12-13
- 論壇幣
- 19 幣
- 聯合幣
- 34 枚
- 幸運鑽
- 20 顆
- 招待卷
- 0 點
|
#####################################
#腳本用途:製作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
} |
|