[EASYUO] Leather Bod Sorter

[fnurov]

Script gets bods from one book and puts them two one of two other books



How to use

1. name 3 books
"tosort" - book with bods to be sorted
"sorted" - book to put bods with checked filters
"useless" - book to put bods with unchecked filters
2. open book "tosort" and set book filter small/leather
3. start script
4. set filters in menu
5. press start button

set #lpc 1000
set %scan_journal_line #jindex
finditem DYM C_ , #backpackid
for #findindex 1 #findcnt
{
 event property #findid
 if useless in #property
    set %Useless #findid
 if sorted in #property
   set %sorted #findid
 if tosort in #property
   set %tosort #findid
}
finditem %Useless , _ , %sorted , _ , %tosort C_ , #backpackid
if #findcnt <> 3
   halt
   
gosub InitVars
gosub showEUOMenu1

set #menubutton n/a
while EUOButton1 notin #menubutton
{
      wait 5
}
menu hide
gosub InitFilters
      
while #true
{
set #contid N/A
set #LOBJECTID %tosort
event macro 17
wait 5
 set %endmove #systime 5000
 while #contid <> N/A
 {
             if #systime > %endmove
             {
                break
             }
  }
             for %jrnl %scan_journal_line #jindex
              {
                scanjournal %jrnl
                if the_book_is_empty in #journal
                {
                   while 1 = 1
                   {
                   sound
                   }
                }
             }
set %scan_journal_line %jrnl + 1

for %i 1 20
{
set %cx #CONTPOSX + 41
set %cy #CONTPOSY + 106
 click %cx %cy dmc
 set %endmove #systime 5000
 wait 5
 while #contid <> N/A
 {
             if #systime > %endmove
                break
 }
 set #contid N/A
}

finditem EYM
if #findkind = -1
{
   wait 5
   continue
}
for #findindex #findcnt 1
{
    repeat
       event property #findid
       str count #property $
    until #strres > 1
    set %Save #false
    if large notin #property
    {
       for %i 1 %total
       {
           if %B . %i in #property
           {
              if %F . %i
                 set %Save #true
              break
           }
       }
    }
    if %Save
       gosub dragdrop #findid %sorted
    else
        gosub dragdrop #findid %Useless
}
sleep 10
}

sub dragdrop
    exevent drag %1
    exevent dropc %2
    wait 10
return

sub InitVars
set %B1 thigh , #spc , boots
set %C1 EUOCheckBox18

set %B2 shoes
set %C2 EUOCheckBox41

set %B3 sandals
set %C3 EUOCheckBox43

set %B4 boots
set %C4 EUOCheckBox42

set %B5 leather , #spc , gorget
set %C5 EUOCheckBox19

set %B6 leather , #spc , cap
set %C6 EUOCheckBox20

set %B7 leather , #spc , gloves
set %C7 EUOCheckBox21

set %B8 leather , #spc , sleeves
set %C8 EUOCheckBox22

set %B9 leather , #spc , leggings
set %C9 EUOCheckBox23

set %B10 leather , #spc , tunic
set %C10 EUOCheckBox24

set %B11 leather , #spc , skirt
set %C11 EUOCheckBox25

set %B12 leather , #spc , bustier
set %C12 EUOCheckBox26

set %B13 leather , #spc , shorts
set %C13 EUOCheckBox27

set %B14 female , #spc , leather , #spc , armor
set %C14 EUOCheckBox28

set %B15 studded , #spc , armor
set %C15 EUOCheckBox29

set %B16 studded , #spc , bustier
set %C16 EUOCheckBox30

set %B17 studded , #spc , gorget
set %C17 EUOCheckBox31

set %B18 studded , #spc , gloves
set %C18 EUOCheckBox32

set %B19 studded , #spc , sleeves
set %C19 EUOCheckBox33

set %B20 studded , #spc , leggings
set %C20 EUOCheckBox39

set %B21 studded , #spc , tunic
set %C21 EUOCheckBox35

set %B22 Bone , #spc , Armor
set %C22 EUOCheckBox34

set %B23 Bone , #spc , Arms
set %C23 EUOCheckBox36

set %B24 Bone , #spc , Gloves
set %C24 EUOCheckBox37

set %B25 Bone , #spc , Helmet
set %C25 EUOCheckBox40

set %B26 Bone , #spc , Leggings
set %C26 EUOCheckBox38

set %Total 26
return

sub InitFilters
      For %i 1 %Total
      {
          	menu get %C . %i
            set %F . %i #menures
      }

return

;--------- EasyUO Menu Designer Code Begin ---------
sub showEUOMenu1
	menu Clear
	menu Window Title Leather Bod Sorter
	menu Window Color BtnFace
	menu Window Size 312 204
	menu Font Transparent #true
	menu Font Align Right
	menu Shape EUOShape1 4 4 305 165 3 7 1 Black 7 White
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color WindowText
	menu Font Align Left
	menu Check EUOCheckBox18 12 12 81 17 #true Thigh boots
	menu Check EUOCheckBox19 12 40 65 17 #true Gorget
	menu Check EUOCheckBox20 12 60 65 17 #true Cap
	menu Check EUOCheckBox21 12 80 65 17 #true Gloves
	menu Check EUOCheckBox22 12 100 65 17 #true Sleeves
	menu Check EUOCheckBox23 12 120 65 17 #true Leggings
	menu Check EUOCheckBox24 12 140 65 17 #true Tunic
	menu Check EUOCheckBox25 80 40 65 17 #true Skirt
	menu Check EUOCheckBox26 80 60 65 17 #true L Bustier
	menu Check EUOCheckBox27 80 80 65 17 #true Shorts
	menu Check EUOCheckBox28 80 100 65 17 #true FLA
	menu Check EUOCheckBox29 80 120 65 17 #true S Armor
	menu Check EUOCheckBox30 80 140 65 17 #true S Bustier
	menu Check EUOCheckBox31 148 40 65 17 #true S Gorget
	menu Check EUOCheckBox32 148 60 65 17 #true S Gloves
	menu Check EUOCheckBox33 148 80 69 17 #true S Sleeves
	menu Check EUOCheckBox35 148 120 65 17 #true S Tunic
	menu Check EUOCheckBox39 148 100 77 17 #true S Leggings
	menu Check EUOCheckBox34 224 40 65 17 #false B Armor
	menu Check EUOCheckBox36 224 60 65 17 #false B Arms
	menu Check EUOCheckBox37 224 80 69 17 #true B Gloves
	menu Check EUOCheckBox38 224 120 77 17 #false B Leggings
	menu Check EUOCheckBox40 224 100 73 17 #true B Helmet
	menu Check EUOCheckBox41 96 12 57 17 #true Shoes
	menu Check EUOCheckBox42 156 12 53 17 #true Boots
	menu Check EUOCheckBox43 212 12 65 17 #true Sandals
	menu Button EUOButton1 232 176 75 25 Start
	menu Show 421 270
return
;--------- EasyUO Menu Designer Code End ---------

[Introvabile]

Good!