- ===================================================================== ;
- Script Name
- The Bountiful Harvest 豐收季節
- Author
- 溺水魚 & GeniusKiKi
- Version
- 20170312
- Revision Date
- 2017/3/12
- Public Release
- 2017/3/12
- Purpose
- 方便玩家採集資源
- Website
- http://zh.ody.wikia.com/wiki/豐收季節
- ============================= 程式設定區 ============================= ;
initevents set %m_mo POF_rwf_lnk_jjg_PPO_fuo_atf_npo_jph_tsf_nmh_vrh_jtf_soh_bph_
+zto_buo_xth_opo_cuo_xrh_guo_mtf_rrh_vth_ysf_buh_auo_trh_zth_ +woh_usf_lmh_qpo_ppo_SVH_CKF_KUF_JUF_KZF_JZF_MZF_WZF_tlk_NVF_ +HVF_GVF_BVF_EVF_ZVF_UVF_ylf_ZLK_RZF_SZF_DUF_TZF_UZF_YZF_IUF_ +bwr_nws_yws_xws_fxs_
set %axes lsf_bsf_nsf_zrf_rmh_lph_uoh_fsf_ ;設定斧頭種類 set %a , set %BandageTime 160 - ( #dex / 20 ) * 10 set #MENUBUTTON 0
menu Clear menu Window Title 豐收季節 by 溺水魚 menu font size 10 menu Window Size 350 300 menu Shape Shape 3 3 345 295 3 6 3 gray 1 $dedddd menu Shape Shape 3 200 345 1 3 6 6 gray 1 $dedddd menu Edit BankRunebook 10 10 100 銀行座標 menu Button BankRun 110 10 45 20 設定 menu Edit BankBag 10 60 100 設定資源包 menu Button SetBankBag 110 60 45 20 設定 menu Edit setwood 180 10 120 設定樹林座標 menu Button setadds 280 10 45 20 設定 menu Button Start 10 100 120 40 開始採集資源 menu Font Color $565656 menu font size 12 MENU FONT STYLE bu menu Text xxx 180 120 Powered By 溺水魚 menu Text xxx 10 150 ASGARD 阿斯嘉 - 眾神國度 menu Text xxx 10 180 http://zh.asg.wikia.com/wiki/Asgard_Wiki menu Font Color red MENU FONT STYLE b menu Text Tips 10 210 歡迎使用豐收季節砍樹走路版(2014/03/17) menu Show
loop:
menu get ResSelect set %Rec #menures
if #MenuButton = setadds { gosub setadds set #MenuButton 0 }
if #MenuButton = SetBankBag { gosub SetBag set #MenuButton 0 } if #MenuButton = BankRun {
gosub Setgohome
set #MenuButton 0 }
if #MenuButton = Start { menu Delete Start menu Button Stop 10 100 120 40 停止採集資源 menu set Tips 啟動採集資源程序 move %wpox %wpoy a
gosub Start
}
if #MenuButton = Stop { menu Delete Stop menu Button Start 10 100 120 40 開始採集資源 menu set Tips 暫停採集資源程序,請按開始繼續 set %Start #false set #MenuButton 0 }
if #MenuButton = closed { halt }
GOTO loop
sub setadds {
menu set Tips 設定森林的座標,請選擇地點
gosub s7GetTarget
FINDITEM #LTARGETID
set %wpox #FINDX
set %wpoy #FINDY menu set setwood %wpox %a %wpoy set %REC 3
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 #result set %BAG_B #FINDID menu set BankBag %BAG_B menu set Tips 存放資源容器已設定完成 return }
sub start {
WHILE #MenuButton <> CLOSED { menu set Tips 開始尋找可以砍伐的樹木
tile Init
for %x 0 10
{ for %y 0 10 { set %xpos #charposx - %x
set %ypos #charposy - %y
gosub moveTree set %xpos #charposx + %x
set %ypos #charposy + %y
gosub moveTree set %xpos #charposx - %x
set %ypos #charposy + %y
gosub moveTree set %xpos #charposx + %x
set %ypos #charposy - %y
gosub moveTree } }
} return
}
sub moveTree { menu set Tips 正在尋找可以砍伐的樹木 if #WEIGHT > #MAXWEIGHT + 30
{
gosub WEIGHT
} menu Text WEIGHT 10 250 目前負重--- #WEIGHT
tile CNT %xpos %ypos
tile GET %xpos %ypos 2
if TREE in #TILENAME && #TILENAME <> o'hii_tree { gosub getTreeName menu set Tips 找到一株 %TreeName ( %xpos %A %ypos )
move %xpos %ypos 1 a
set %move 1 gosub chop_single
} return }
}
sub getTreeName
{
set %TreeName #TILENAME
if #TILENAME = tree
set %TreeName 樹
if #TILENAME = oak_tree
set %TreeName 像樹
if #TILENAME = willow_tree
set %TreeName 柳樹
if #TILENAME = walnut_tree
set %TreeName 胡桃樹
if #TILENAME = cedar_tree
set %TreeName 香柏樹
if #TILENAME = Yew_tree
set %TreeName 紫杉大樹
if #TILENAME = cypress_tree
set %TreeName 白扁柏樹
return
}
sub chop_single { WHILE %move = 1
{
finditem %axes set #LOBJECTID #FINDID set #LTARGETX %xpos set #LTARGETY %ypos set #LTARGETZ #tilez set #LTARGETKIND 3 set #LTARGETTILE #tiletype if #FINDKIND = -1
{ menu set Tips 找不到斧頭,無法進行伐木 gosub no }
menu set Tips 正在砍伐一株 %TreeName ( %xpos %A %ypos ) Event macro 17 0 Target Event macro 22 0 wait 2s FINDITEM ZLK c_ , #BACKPACKID set #LTARGETID #FINDID if #FINDSTACK = 0 { set %move 0 return } if #FINDSTACK > 0 { finditem %axes set #LOBJECTID #FINDID set #LTARGETKIND 1 Event macro 17 0 Target 1s Event macro 22 0 menu Text WEIGHT 10 250 目前負重--- #WEIGHT }
if #MenuButton = Stop { goto loop }
} return }
sub tobank {
move %hpox %hpoy a msg bank $$
wait 2s
return
}
sub WEIGHT { menu set Tips 負重不堪負荷,進行負重處理程序
gosub tobank msg bank $$
finditem %m_mo c_ , #BACKPACKID WAIT 2 menu set Tips 正在存放身上的物資 WHILE #FINDCNT <> 0 ;找到物品的處理 { Exevent Drag #findid #findstack ;拿起尋找到的物件全部
wait 10 Exevent Dropc %BAG_B ;放進自己的包包中
wait 20 finditem %m_mo c_ , #BACKPACKID } wait 20 set #MenuButton Start
goto loop
}
sub NO ;缺少斧頭回銀行
WHILE c in #CHARSTATUS { gosub HITS }
gosub tobank menu set Tips 領取斧頭或是繃帶
finditem %m_mo c_ , #BACKPACKID WAIT 2
WHILE #FINDCNT <> 0 ;找到物品的處理 { Exevent Drag #findid #findstack ;拿起尋找到的物件全部
wait 10 Exevent Dropc %BAG_B ;放進自己的包包中
wait 20 finditem %m_mo c_ , #BACKPACKID }
finditem %BAG_B c_ set #LOBJECTID #FINDID set #LTARGETKIND 1 Event macro 17 0 wait 1S finditem %axes c_ , #BACKPACKID WHILE #FINDSTACK < 1 { finditem %axes c_ , %BAG_B Exevent Drag #findid 1 ;拿起尋找到的物件全部 wait 10 Exevent Dropc #BACKPACKID ;放進自己的包包中 wait 20 finditem %axes c_ , #BACKPACKID }
set #LHANDID #FINDID Event macro 24 1 wait 30
set #MenuButton Start
goto LOOP
- ____________________________________________________________________ ;
- @name s7GetTarget
- @author snicker7
sub s7GetTarget { set #ltargetid set #targcurs 1 _waitfortargcurs: if #targcurs = 1 2 wait 1 goto _waitfortargcurs return #ltargetid }