moving objects

[fnurov]

target from, target to, target type...

frompack:
event ExMsg #charid 2 3 target frompack
set #targcurs 1
target
while #targcurs = 1
{
sleep 10
}
set %frompack #ltargetid
finditem %frompack
if #finddist > 2
{
  event ExMsg #charid 2 3 frompack too is faraway
  goto frompack
}
topack:
event ExMsg #charid 2 3 target topack
set #targcurs 1
target
while #targcurs = 1
{
sleep 10
}
set %topack #ltargetid
finditem %topack
if #finddist > 2
{
  event ExMsg #charid 2 3 topack too is faraway
  goto topack
}
event ExMsg #charid 2 3 target what to move
set #targcurs 1
target
while #targcurs = 1
{
sleep 10
}
finditem #ltargetid
set %type #findtype

repeat
      finditem %type C_ , %frompack
      for %i 1 #findcnt
      {
       set #findindex %i
       Exevent Drag #findid #findstack
       wait 3
       Exevent Dropc %topack
       wait 3
      }
      wait 1
until #findcnt = 0

halt

[fnurov]

moveing bods from named book to named book. name 1 book tosort, one book cloth. set filter small cloth for "tosort". run scipt.

ignoreitem reset
finditem DYM
while #findcnt <> 0
{
 event property #findid
 if cloth in #property
 {
   set %cloth #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:
     gosub turnina
     gosub movenewbod
goto loop


sub turnina
  set #lobjectid %tosort
event macro 17
set %timeout2 #scnt + 5
for %i 1 10
{
  set %timeout #scnt2 + 30
  while #contName <> generic_gump && #contSize <> 615_454 && %timeout > #scnt2
        wait 1
  if #scnt > %timeout2
  {
     return
  }
  set %dclickx #contposx + 40
  set %dclicky #contposy + 105
  wait 1
  click %dclickx %dclicky
}
  set %timeout #scnt2 + 200
  while #contName <> generic_gump && #contSize <> 615_454 && %timeout > #scnt2
        wait 1

  set %newx #contposx + 20
  set %newy #contposy + 20
  wait 1
  click %newx %newy r

return
  
  Sub movenewbod
    finditem EYM c_ , #backpackid
    if #findcnt = 0
    {
       halt
    }
    if #findkind <> -1
    {
      repeat
            for %i 1 #findcnt
            {
                   set #findindex %i
	                 Exevent Drag #findid
 	                 wait 2
	                 Exevent Dropc %cloth
 	                 wait 6
              }
              finditem EYM c_ , #backpackid
      until #findkind = -1
    }
  return

[fnurov]

sorting leather bods to real leather and bones.
name one book tosort, one - rubbish, one - leather.
set filter small leather to "tosort", run script

 finditem DYM
set %scan_journal_line #jindex
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:
     gosub turnina
     gosub movenewbod
goto loop


sub turnina
  set #lobjectid %tosort
event macro 17
set %timeout2 #scnt + 5
for %i 1 10
{
  set %timeout #scnt2 + 30
  while #contName <> generic_gump && #contSize <> 615_454 && %timeout > #scnt2
        wait 1
  if #scnt > %timeout2
  {
     return
  }
  set %dclickx #contposx + 40
  set %dclicky #contposy + 105
  wait 1
  click %dclickx %dclicky
}
  set %timeout #scnt2 + 200
  while #contName <> generic_gump && #contSize <> 615_454 && %timeout > #scnt2
        wait 1

  set %newx #contposx + 20
  set %newy #contposy + 20
  wait 1
  click %newx %newy r

return
  
  Sub movenewbod
    finditem EYM c_ , #backpackid
    if #findcnt = 0
    {
       halt
    }
    if #findkind <> -1
    {
      repeat
            for %i 1 #findcnt
            {
                set #findindex %i
                repeat
                      event property #findid
                      str count #property $
                until #strres > 1
               if bone in #property
               {
                  exevent Drag #findid
                  wait 2
	                Exevent Dropc %rubbish
	                wait 6
               }
	             else
	             {
	                 Exevent Drag #findid
 	                 wait 2
	                 Exevent Dropc %leather
 	                 wait 6
                }
              }
              finditem EYM c_ , #backpackid
      until #findkind = -1
    }
  return

[fnurov]

moves all bods from main pg backpack to targeted book

frompack:
set %frompack #backpackid
topack:
event ExMsg #charid 2 3 target topack
set #targcurs 1
target
while #targcurs = 1
{
sleep 10
}
set %topack #ltargetid
finditem %topack
if #finddist > 2
{
  event ExMsg #charid 2 3 topack too is faraway
  goto topack
}
set %type EYM

repeat
      finditem %type C_ , %frompack
      for %i 1 #findcnt
      {
       set #findindex %i
       Exevent Drag #findid #findstack
       wait 2
       Exevent Dropc %topack
       wait 6
      }
      wait 1
until #findcnt = 0

halt