скрипт на сртировку булок на кожу и кости

[fnurov]

books are to be called tosort leather rubish
u need to set filter to book tosort small and leather

 finditem DYM
while #findcnt <> 0
{
 event property #findid
 if rubbish in #property
 {
   set %rubbish #findid
 }
 ignoreitem #findid
 finditem DYM
}
ignoreitem reset
finditem DYM
while #findcnt <> 0
{
 event property #findid
 if leather in #property
 {
   set %leather #findid
 }
 ignoreitem #findid
 finditem DYM
}
ignoreitem reset
finditem DYM
while #findcnt <> 0
{
 event property #findid
 if tosort in #property
 {
   set %tosort #findid
 }
 ignoreitem #findid
 finditem DYM
}
loop:
wait 20
set #contid N/A
set #LOBJECTID %tosort
event macro 17
while #contid <> N/A
 {
  set %a a
  }
set %cx #CONTPOSX + 41
set %cy #CONTPOSY + 106
for %i 1 10
{
 click %cx %cy dmc
 while #contid <> N/A
 {
  set %a a
  }
set #contid N/A
}

finditem EYM
while #findcnt > 0
{
 takeprop:
 event property #findid
 str count #property $
 if #strres = 1
 {
 goto takeprop
 }
 if bone in #property
 {
	Exevent Drag #findid
	wait 10
	Exevent Dropc %rubbish
	wait 10
	}
	else
	{
	 Exevent Drag #findid
	 Exevent Dropc %leather
  }
  finditem EYM
}
goto loop

[fnurov]

переделан
первый пост по-ангельски потомучто ссылка на него с маркета