檢怪物屍體(錢-弓箭)
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
}
自己寫的EUO程式
版主: GM Saga
回覆文章
1 篇文章
• 第 1 頁 (共 1 頁)
前往
- GM公告區
- ↳ GM公告版
- ↳ └── 城市 地城 郊外
- ↳ GM公告版 - 玩家守則
- ↳ └── 房屋規則
- 遊戲事務區
- ↳ Runuo系統事務
- ↳ Page GM版
- ↳ └── 帳號問題求助版
- ↳ 活動公告版
- ↳ 主頁作者專欄
- ↳ Odyssey司法部
- ↳ 公會留言版設定申請
- 玩家討論區
- ↳ Odyssey市集版
- ↳ 新手討論版(新手問題求助專區)
- ↳ └── 安裝與登陸
- ↳ └── 技能與三圍
- ↳ └── 寵物與生物
- ↳ └── 任務
- ↳ └── 房屋
- ↳ └── 新手報到 & 留言版測試
- ↳ 輔助軟體討論版
- ↳ 玩家經驗談
- ↳ 公會資訊交流區
- ↳ 貼圖專區
- ↳ 遊記發表區
- ↳ Odyssey回憶錄
- 公會討論區
- ↳ WOW 公會
- ↳ N.M.G公會
- ↳ [Wolves] 狼寨
- ↳ ^Q^
- ↳ 紫雲公會
- ↳ DK公會
- ↳ NPC聯盟
- ↳ Utopia 烏托邦公會
- ↳ Power Angel
- ↳ 霹靂公會
- ↳ ^O^ Babe's
- ↳ 3K合眾騎士團公會
- ↳ Hunter閒聊板
- ↳ Sky Earth天地會
- ↳ Die Die公會
- ↳ Lord Knight King 統治者騎士
- ↳ Unknown無名公會
- ↳ Net power公會
- ↳ All Kill 公會
- ↳ F.S warriors公會
- ↳ Black Market黑市
- ↳ A.K[天使之吻]
- ↳ K.S.公會
- ↳ Wild Knight狂怒騎士團
- ↳ DA公會
- ↳ Overseas Kingdom[O.K.]
- ↳ Red Knight 紅騎士公會
- ↳ Kinghts of Light【 K o L 】
- ↳ Fallen Angel公會
- ↳ GB公會
- ↳ Shining Soul [光之魂]
- ↳ Ultima Hacker 創世紀駭客
- ↳ Black Knight[黑騎士]
- ↳ GuruGuru
- ↳ Steel Brotherhood [鋼鐵兄弟]
- ↳ Royal Knight公會
- ↳ 糖果屋
- ↳ Wind Walker公會
- ↳ $皇家搶錢團$
- ↳ CoEquality[大同世界]
- ↳ 點子& 腳本投稿區
- ↳ 物品設定
- ↳ 生物設定
- ↳ 臭蟲(Bugs)報告
- ↳ 屬性技能設定
- ↳ 城市
- ↳ 地城與郊外
- ↳ Bmw 工會版
- ↳ Red Spider紅蜘蛛公會
- ↳ 旅行騎士[T.S]公會
- ↳ Ice Fire公會
- ↳ Captain Lonely Night Club
- ↳ Test Center測試報告
誰在線上
正在瀏覽這個版面的使用者:沒有註冊會員 和 4 位訪客