【EasyUO】腳本：分熔礦

[Gykk]

我不是作者喔 來源:google + EasyUO官網討論區 http://www.easyuo.com/psl.php

3.分熔礦(這個忘了在哪找到的 如果作者在Ody 而你不爽被我分享出來 請跟我說一下)

代碼: 選擇全部

initevents
;修改日期: 2010/09/20
set %weight #maxweight
;設定礦推的容器
;-----------------
event macro 13 16
target 4s
while #targcurs = 1
{
 msg 請選擇放礦的包包或容器 $
 wait 15
}
set %box #ltargetid
set #lobjectid %box
event macro 17
wait 1s
;----設定熔爐-------
event macro 13 16
target 4s
while ( #TARGCURS = 1 )
{
 msg 請選擇鎔爐 $
 wait 15
}
set %forge #ltargetid


start:
;判斷有沒有負重
if #weight >= %weight
 gosub put_iron
;---------------------
finditem DWJ C_ , %box
wait 10
;----分礦---------
exevent drag #findid 1
wait 15
exevent dropc #backpackid
wait 15
;-----------------
finditem DWJ C_ , #backpackid
wait 10
;----開始融礦-----
set #LOBJECTID #FINDID
set #ltargetid %forge
set #ltargetkind 1
event macro 17 0
target 4s
event macro 22 0
goto start


sub put_iron
finditem ENK C_ , #backpackid
wait 15
if #findid = X
 goto start
exevent drag #findid #findstack
wait 15
exevent dropc %box
wait 15
return