EasyUOScript:The Bountiful Harvest 豐收季節

===================================================================== ;

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 }

EasyUOScript:The Bountiful Harvest 丰收季节

Fan Feed