自己寫的EUO程式

[amber9999]

檢怪物屍體(錢-弓箭)
initevents
set %yfm yfm_ZLF_
set %iten pof_rwf_lnk_
set %FINDREP 0127
onhotkey z alt
{
finditem %YFM G_2
if #FINDCNT <> 0
{
set %targetcrop #FINDID
set #LTARGETKIND #FINDKIND
set #LOBJECTID #FINDID
ignoreitem %targetcrop
nextCPos 10 10
event macro 17 0
wait 5
finditem %iten C_ , %targetcrop
WHILE #FINDCNT <> 0
{
Exevent Drag #findid #findstack ;拿起尋找到的物件全部
wait 5
Exevent Dropc #BACKPACKID ;放進自己的包包中
wait 5
finditem %iten C_ , %targetcrop
}
ignoreitem reset 30 ;不重覆開屍體超過30個更新
}
}
onhotkey a alt
{
EVENT MACRO 52 5
set %target1 #LTARGETID
finditem %target1 G_20
set %target1 #FINDID
set #LTARGETID #FINDID
if #FINDREP notin %FINDREP
{
EVENT MACRO 53
}
ignoreitem reset 30
}


自動補血綁繃帶.....

initevents
WHILE #HITS < #MAXHITS && #CHARGHOST <> yes
{
finditem ZLF c_
set #LTARGETKIND 1
SET #LOBJECTID #FINDID
event macro 17 0
TARGET 1S
event macro 23 0
WAIT 200 - ( #dex / 20 ) * 10
}

正在改良中的挖礦

initevents
;設定各項參數
set %a ，
set %cnt 1
set #MENUBUTTON 0
set %POSN 5
set %n 5
set %n1 100
;設定工具品項
set %tools TWF_

;設定存放物資品項
set %m_mo dwj_tvj_gwj_ewj_tws_gxs_axs_VWS_ZWS_UWS_



menu Clear
menu Window Title 豐收季節 by 溺水魚
menu font size 10
menu Window Size 318 210
menu Shape Shape 3 3 312 204 3 6 1 gray 1 $dedddd
menu Shape Shape 3 87 312 1 3 7 1 gray 7 gray
menu Shape Shape 3 180 312 1 3 7 1 gray 7 gray
menu Edit BankRunebook 10 10 110 銀行的座標
menu Button SetBankRunebook 120 5 50 30 設定
menu set BankRunebook *hpox %a *hpoy
MENU EDIT Setminingno 180 10 30
menu Text xxx 230 10 挖礦次數
menu Edit BankBag 10 60 100 資源包設定
menu Button SetBankBag 100 60 45 20 設定
menu set BankBag *BAG_B
menu Text xxx 150 38 移動方式
menu Combo Create RecSelect1 10 35 137
menu Combo Add RecSelect1 騎士 - 神聖之旅
menu Combo Add RecSelect1 魔法 - 召回術
menu Combo Add RecSelect1 走路回家......
menu Button Start 90 93 120 40 開始設定礦點
menu Button Startminin 10 93 80 40 開始採礦
menu Button Save 222 93 80 20 儲存設定
menu Button Load 222 113 80 20 載入設定
menu Font Color $565656
menu Text xxx 102 143 Powered By 溺水魚
menu Text xxx 108 158 挖礦模式
menu Font Color $3071f6
menu Text Tips 10 186 歡迎使用豐收季節資源採集
menu Show


loop: ;主回圈判斷
MENU GETNUM Setminingno
set %Setminingno #menures
menu get RecSelect1
set %Rec #menures

IF %Rec = 1 ;是否使用神聖之旅 ;目前無法使用
{
set %Rec1 15
set %Rec2 210
}

IF %Rec = 2 ;是否使用召回術 ;目前無法使用
{
set %Rec1 15
set %Rec2 31
}

IF #MenuButton = SetBankRunebook ;設定銀行座標
{
gosub Setgohome
}
IF #MenuButton = Startminin
{
menu Button Stop 10 93 80 40 停止採集
goto miningloop
}

if #MenuButton = SetBankBag ;設定銀行資源袋子
{
gosub SetBag
set #MenuButton 0
}

if #MenuButton = Start ;開始採集
{
menu set Tips 啟動採集資源程序
set #MenuButton 0
gosub miningStart
}

goto loop

;各種副程式
;-------------------------------------------------------------------------------------

sub s7GetTarget ;選擇游標產生副程式
{
set #ltargetid
set #targcurs 1
TARGET 3S
WHILE #targcurs = 1
{
wait 1s
}
set #MENUBUTTON 0
return
}

;-------------------------------------------------------------------------------------
sub Setgohome ;設定回家地點副程式
{
menu set Tips 設定回家的座標，請選擇地點
gosub s7GetTarget
FINDITEM #LTARGETID
set *hpox #FINDX
set *hpoy #FINDY
menu set BankRunebook *hpox %a *hpoy
set %REC 3
return
}

;-------------------------------------------------------------------------------------
sub SetBag ;設定銀行或家里的存放補給容器
{
menu set Tips 設定存放資源容器，請選擇容器
nextCPos 10 10
msg Bank $$
gosub s7GetTarget
FINDITEM #LTARGETID
set *BAG_B #FINDID
menu set BankBag *BAG_B
menu set Tips 存放資源容器已設定完成
return
}

;-------------------------------------------------------------------------------------
sub tobank ;回銀行或是家裡副程式
{

if %rec = 3
{
move *hpox *hpoy a
msg bank $$
return
}
menu set Tips 準備飛回銀行存放物資
finditem %Rec_BANK
set #LTARGETKIND 1
set #LTARGETID #FINDID
event macro %Rec1 %Rec2
TARGET 10S
event macro 22 0
wait 5s
msg bank $$
wait 2s
return
}

;-------------------------------------------------------------------------------------
sub WEIGHT ;負重處理副程式
{
menu set Tips 負重不堪負荷，進行負重處理程序
gosub tobank
finditem %m_mo c_ , #BACKPACKID

move %hpox %hpoy a
msg bank $$
WAIT 5
menu set Tips 正在存放身上的物資
WHILE #FINDCNT <> 0 ;找到物品的處理
{
Exevent Drag #findid #findstack ;拿起尋找到的物件全部
Exevent Dropc *BAG_B ;放進自己的包包中
wait 1S
finditem %m_mo c_ , #BACKPACKID
}
wait 50
set #MenuButton Start
menu set Tips 返回挖礦點
return
}

;-------------------------------------------------------------------------------------
sub NO ;缺少繃帶斧頭鏟子回銀行
{
gosub tobank
menu set Tips 領取斧頭鏟子
finditem %m_mo c_ , #BACKPACKID
WAIT 2
menu set Tips 正在存放身上的物資
WHILE #FINDCNT <> 0 ;找到物品的處理
{
Exevent Drag #findid #findstack ;拿起尋找到的物件全部
Exevent Dropc *BAG_B ;放進自己的包包中
wait 1S
finditem %m_mo c_ , #BACKPACKID
}

finditem *BAG_B c_
set #LOBJECTID #FINDID
set #LTARGETKIND 1
wait 5
Event macro 17 0
wait 5
finditem %tools c_ , #BACKPACKID
WHILE #FINDCNT < 3
{
wait 5
finditem %tools c_ , *BAG_B
wait 5
WHILE #FINDCNT < 3
{
msg 銀行沒鏟子了$$
wait 10S
}
set %FINDID #FINDID
Exevent Drag #findid 1 ;拿起尋找到的物件全部
Exevent Dropc #BACKPACKID ;放進自己的包包中
wait 1S
finditem %tools c_ , #BACKPACKID
}
wait 2s
set #MenuButton Start
menu set Tips 返回挖礦點
return
}

;-------------------------------------------------------------------------------------
sub miningStart ;挖礦設定副程式
{
menu Clear
menu font size 8
menu Window Size 300 300
menu Window Title 豐收季節 by 溺水魚
menu Font Color RED
menu Button Start 100 270 100 20 開啟自動挖礦
menu Button Load 200 270 100 20
menu Button Startset 10 270 100 20 開始設定
menu Show

loop2:
{
FINDITEM TWF ;判斷身上有無鏟子
if #FINDSTACK < 1
{
gosub no
}
if #MenuButton = startset
{
menu Button Start 10 270 100 20 開啟自動挖礦
gosub startset

}
if #MenuButton = Start
{
set %cnt 1
menu Button Stop 100 270 100 20 停止自動挖礦
goto miningloop
}
if #MenuButton = STOP or #MENUBUTTON = CLOSED
{
stop
}
if #MenuButton = CLOSED
{
stop
}
goto loop2
}
sub startset
{
WHILE #MenuButton <> STOP && %cnt < 21 && #MenuButton <> Start
{
menu Edit %L . %cnt %n %POSN %n1 地點 , %cnt
FINDITEM TWF ;使用鏟子產生選擇游標
set #LOBJECTTYPE #FINDTYPE
set #LOBJECTID #FINDID
Event macro 17 0
TARGET 5s
if %cnt = 11 ;設定超過10行換列
{
set %n 120
set %POSN 5
}
msg 請選擇目標 $$
WHILE #targcurs = 1
{
wait 1S

}
if #targcurs = 0
{
set *POSX . %cnt #LTARGETX
set *POSY . %cnt #LTARGETY
menu set %L . %cnt *POSX . %cnt *POSY . %cnt
set %POSN %POSN + 25
set %cnt %cnt + 1
set %L . %cnt %cnt
}
}
menu Button Stop 10 270 100 20 停止自動挖礦
goto miningloop
return
}


miningloop: ;挖礦主程式回圈

set %c 1
WHILE #MenuButton <> STOP && %c < 15
{
set %posx *POSX . %c
set %posy *POSy . %c
set %cnt1 0
menu set Tips 前往第 %c 挖礦點$$
gosub MINing
set %c %c + 1
}
if #MenuButton = STOP
{
menu Font Color red
menu set Tips 程式停止__請重新啟動
stop
}
if #MenuButton = CLOSED
{
stop
}
ignoreitem reset
goto miningloop

;-------------------------------------------------------------------------------------
;挖礦處理副程式

sub mining
{
WHILE %cnt1 <= %Setminingno && #MENUBUTTON <> stop && #MENUBUTTON <> CLOSED
{

FINDITEM TWF ;使用鏟子產生選擇游標
if #FINDSTACK < 1
{
menu set Tips 身上沒有挖礦鏟子了
gosub no
}
if #WEIGHT > #MAXWEIGHT - 20
{
gosub WEIGHT
FINDITEM TWF
}
move %POSX %POSY a
set #LOBJECTTYPE #FINDTYPE
set #LOBJECTID #FINDID
Event macro 17 0
TARGET
set #LTARGETX %POSX
set #LTARGETY %POSY
set #LTARGETKIND 2
EVENT MACRO 22 0
wait 1S
set %cnt1 %cnt1 + 1
menu set Tips 正在第 %cnt1 挖礦 $
}
return
}