;ver 1.7
set %results1 0
set %results2 0
set %results3 0
set %fullpars #false
set %asd 30
set %asa 10
set %tt 0
set %num 0
set %scnt 0
set %strike 0
set %or 0


rotate:
Menu Clear
Menu hide
gosub men
Menu Clear
Menu hide
morestuff:
gosub start
grabready:
wait 5
if %done = n/a
{
menu Window Title Chest Digger
     menu Window Color $00D9D0C8
menu Font Transparent #true
     menu Window Size 130 50
     menu Font Size 16
set %item No , #spc , Results
Menu Text msg 0 0 %item
menu Font red
menu show 421 270
halt
}
if %done >= 30
{
if #scnt > %scnt
{
set %scnt #scnt + 1
if %ak = 1
menu font color Yellow
if %ak = 0
menu font color red
menu Button More 0 0 30 30 More
if %ak <> 1
set %ak 1
else
set %ak 0
}
}
if More in #menubutton
goto morestuff
if item in #menubutton
gosub grab
wait 10
goto grabready
goto rotate

;-----Made with easyUO Menu Designer__________________
sub men
     menu Clear
menu window transparent 100
     menu Window Title Chest Digger
     menu Window Color $00D9D0C8
     menu Window Size 297 160
     menu Font Transparent #true
     menu Font Align Right
     menu Font Name MS Sans Serif
     menu Font Size 12
     menu Font Style b
     menu Font Teal
     menu Font Transparent #false
     menu Font Align Left
     menu Font BGColor $00D9D0C8
     menu Text EUOLabel1 96 0 Chest Digger
     menu Font Size 8
     menu Font Style
     menu Font Color WindowText
     menu Check regents 0 0 97 33 #false Ignore Regs
     menu Check Scrolls 0 30 97 33 #false Ignore Scrolls
menu Check filter 0 60 97 33 #false Use filter to filter out
menu Check or 0 90 97 33 #false Finds any item
menu Text EUOLabel5 100 100 with any name(s) in filter
menu Text EUOLabel2 0 172 Click start and target a chest. This script will locate up to 35
     menu Text EUOLabel3 0 184 items and display them. Great for searching for swords, bods,
     menu Text EUOLabel4 0 196 powerscrolls, anything. you can enter up to three key words
     menu Text EUOLabel5 0 208 to filter with. if you filter War, it will find all items with the word
     menu Text EUOLabel6 0 220 War in it.
menu Text UOLabel3 0 232 If you check ignore regs or ignore scrolls they will be filtered
menu Text UOLabel4 0 244 If you check "Use filter to filter out" it ignores any item with the
menu Text UOLabel6 0 256 Word(s) you enter into the filter, if this is left unchecked it will
menu Text UOLabel7 0 268 find all items with words you entered, if filters are left blank
menu Text UOLabel9 0 280 it will find and list all items in the chest.
menu Text UOLabel88 0 292 You can remove any item by clicking button next to info
menu Text UOLabel66 0 304 If there are to many items to list a MORE button will appear
menu Text UOLabel6 0 316 and flash on top of the menu, clicking it will page forward
          menu Font Size 10
     menu Font Style bu
     menu Text EUOLabel7 124 28 Filter 1
     menu Text EUOLabel8 124 52 Filter 2
     menu Text EUOLabel9 124 76 Filter 3
     menu Font Size 8
     menu Font Style
     menu Font BGColor $00D9D0B1
     menu Edit EUOEdit1 172 24 121 0
     menu Edit EUOEdit2 172 48 121 0
     menu Edit EUOEdit3 172 72 121 0
menu Font Style b
     menu Font Color yellow
     menu Font BGColor Background
menu Button inst 220 113 75 25 Instructions
     menu Font Style b
     menu Font Color Aqua
     menu Font BGColor Background
     menu Button Start 220 136 75 25 Start
     menu Show 300 200

menuloop:
if #menubutton = inst
{
menu Window Size 297 329
}
if #menubutton = start
{
menu get regents
if #menures <> 0
gosub ignore
menu get scrolls
if #menures <> 0
gosub ignore2
menu get or
if #menures <> 0
set %or 1
menu get filter
if #menures <> 0
set %strike 1
menu get euoedit1
if #menures <> 0
set %results1 #menures
menu get euoedit2
if #menures <> 0
set %results2 #menures
menu get euoedit3
if #menures <> 0
set %results3 #menures
goto jumpl
}
goto menuloop
jumpl:
return
;--------- EasyUO Menu Designer Code End ---------


sub start
if %ss = 1
{
for %roll 1 35
{
menu delete More
menu delete txt , %roll
menu delete item , %roll
}
set #menubutton closed
set %asd 30
set %asa 10
set %tt 0
set %num 0
set %done 0
set %aaa %asd + 15
Menu Window size 700 %aaa
goto continue
}
set %ss 1
set #targcurs 1
wait 5
sitting:
if #targcurs = 1
goto sitting
set #lobjectid #ltargetid
wait 20
event macro 17 0
set %cont #lobjectid
round:
Continue:
finditem * c_ , %cont
if #findid = x || %done >= 30
{
goto goagain
}
set %num %num + 1
set %p , %num #findid
event property #findid
if %strike = 0 && %or = 0
{
if ( %results1 <> 0 && %results1 notin #property ) || ( %results2 <> 0 && %results2 notin #property ) || ( %results3 <> 0 && %results3 notin #property )
{
ignoreitem #findid
goto round
}
}
if %strike = 1
{
if ( %results1 <> 0 && %results1 in #property ) || ( %results2 <> 0 && %results2 in #property ) || ( %results3 <> 0 && %results3 in #property )
{
ignoreitem #findid
goto round
}
}
if %or = 1
{
if ( %results1 <> 0 && %results1 notin #property ) || ( %results1 = 0 )
{
if ( %results2 <> 0 && %results2 notin #property ) || ( %results2 = 0 )
{
if ( %results3 <> 0 && %results3 notin #property ) || ( %results3 = 0 )
{
ignoreitem #findid
goto round
}
}
}
}


gosub color
set %aaa %asd + 15
menu window transparent 85
Menu Window size 700 %aaa
Menu Window Color $D9D0C8
Menu Font bgcolor $D9D0C8
If %filter <> 1
{
menu font color navy
menu font style b
menu font size 12
if %results1 <> 0
menu Text filt1 50 0 Filter1 - %results1
If %results2 <> 0
menu Text filt2 250 0 Filter2 - %results2
If %results3 <> 0
menu Text filt3 450 0 Filter3 - %results3
menu font color purple
set %filter 1
}
Menu Font size 7
gosub pars
ignoreitem #findid
if %do <> 1
menu Button item , %num 0 %asd 30 15 item , %num
set %do 0
Menu Text txt , %num 65 %asd %path
set %done %done + 1
set %asd %asd + 15
menu show 0 0
goto round
goagain:
return



sub pars
set %l 0
set %w 0
if %test = #true
{
display msg Target item to be broken down.
set #targcurs 1
wait 5
wait:
if #targcurs = 1
goto wait
}
set #lpc 500
set %c 0
set %d part
set %path Item
set %string Augments , #spc , By , #spc , Number , - , $ ,
event property #findid
SET %a #PROPERTY
top:
set %w %w + 1
STR POS %a $
set %h #strres
if %fullpars = #true
{
STR POS %a #spc
set %j #strres
if %h < %j || %j = 0 || ( %l = 0 && #strres = 1 )
STR POS %a $
if %l = 0
set %l 1
}
if #strres = 0 || #strres = 1 || #strres = $
{
return
}
if #strres <> 1
{
SET %b #STRRES - 1
STR LEFT %a %b
SET %b %b + 1
set %d . %c #strres
set %path %path , #spc , - , #spc , #strres , #spc ,
if %w >= 5
{
if %do <> 1
menu Button item , %num 0 %asd 30 15 item , %num
set %do 1
Menu Text txt , %num 65 %asd %path
set %done %done + 1
set %asd %asd + 15
Menu Window size 700 %asd
set %w 0
SET %path #spc
}
}
STR DEL %a 1 %b
set %a #strres
goto top
return

sub color
if %tt = 1
{
set %tt 0
menu Font Style b
menu font color teal
}
else
{
set %tt 1
menu Font Style b
menu font color purple
}
return

sub grab
Menu Window size 700 20
set %roll 40
continueroll:
if %roll notin #menubutton
{
set %roll %roll - 1
goto continueroll
}
menu delete txt , %roll
set #lobjectid %p . %roll
wait 10
event drag #lobjectid
wait 5
msg $
wait 5
hangout:
if #lliftedkind = 1
{
wait 5
goto hangout
}
Menu Window size 700 %aaa
set #menubutton Closeed
return


sub ignore
set %regents KUF_JUF_KZF_JZF_MZF_WZF_RZF_SZF_NZF_DUF_TZF_UZF_YZF_IUF_
ignoreitem %regents 1
return

sub ignore2
;scrolls
set %scrolls _kym_pym_sym_tym_wym_AUL_BUL_cul_dul_EUL_FUL_GUL_hul_iul_JUL_KUL_LUL_MUL_nul_oul_PUL_
          +QUL_RUL_SUL_tul_UUL_vul_wul_XUL_YUL_zul_avl_gvl_fvl_ivl_hvl_cvl_
set %scroll NTL_otl_ptl_qtl_rtl_stl_ttl_utl_VTL_wtl_XTL_YTL_ZTL_
          +qxl_pxl_zxl_nxl_wxl_vxl_yxl_xxl_zfj_byl_cyl_dyl_eyl_fyl_gyl_hyl_iyl_jyl_kyl_
ignoreitem %scrolls 2
ignoreitem %scroll 3
return

sub ignore3

return