;Autor: odzi:)
;ver. 1.0.0
;Skrypt na grabienie i skanowanie zwlok w poszukiwaniu nietypowym itemow ktore nie powinny normalnie sie tam znajdowac (Moga być wyjatki)
;Skrypt zbiera nam automatycznie - połączenie ze skryptem na dobijanie
;Skrypt zbiera nam manualnie, po wcisnięciu klawisz ctrl + z (Mozna sobie zmienic niżej, chyba każdy znajdzie)
;Pod przyciskiem F1 zbindowane: .walka
;Skrypt kompatybilny ze skryptem na auto-chodzenie/dobijanie
set #lpc 1000
menu Clear
menu window title Skaner zwlok v. 1.0.0
menu font name times
menu Window size 440 200
menu Window color black
menu Show
ignoreitem reset
set %y1 0
set %liczba 0
repeat
{
onhotkey z ctrl
{
menu Clear
set %liczba 0
set %y1 0
finditem * G_2
for #findindex 1 #findcnt
{
  if #findtype = YFM
  {
     if #finddist > 1
        move #findx #findy 1 3s
     set #lobjectid #findid
     event macro 17
     ignoreitem #findid
     repeat
     {
           if #conttype <> YFM
              event macro 17
     }
     until #conttype = YFM
     set %x #contposx - 80
     contpos %x #contposy
     finditem * C_ , #contid
     for #findindex 1 #findcnt
     {
         if #findcol <> 0
         {
            event property #findid
            repeat
            {
                  if #property = N/A
                     event property #findid
            }
            until #property <> N/A
            if smazon in #property || pieczon in #property
            {
               ignoreitem #findid
               continue
            }
            set %p1 #property
            str Count  %p1
            str Pos %p1 $
            str Del %p1 #strres 1
            set %p1 #strres
            str count %p1
            str Pos %p1 ]
            str Del %p1 #strres 20
            set %p1 #strres
            menu Font BGColor black
            menu Font Size 12
            menu Font Color white
            set %liczba %liczba + 1
            menu Text znal1 0 %y1 %liczba : %p1
            set %y1 %y1 + 20
            sound F:\ringin.wav
            set #sysmsgcol 75
            event sysmessage ZNALAZLEM!!! %p1
         }
     }
  }
}
event macro 1 0 .grab zloto, klejnoty, ziola, druid, nekro, wampir, magiczne
set %x 0
}
set %liczba 0
set %y1 0
finditem * G_10
for #findindex 1 #findcnt
{
  if #findtype = YFM
  {
     set *grabie 1
     set %x1 #charposx
     set %y1 #charposy
     if #finddist > 1
     {
        event pathfind #findx #findy
        set %czas #scnt + 2
        repeat
        {
              if %czas < #scnt
                 break
              if #charposx = %x1 && #charposy = %y1
                 event pathfind #findx #findy
        }
        until #charposx = #findx && #charposy = #findy
     }
     event macro 1 0 .grab zloto, klejnoty, ziola, druid, nekro, wampir, magiczne
     set #lobjectid #findid
     event macro 17
     ignoreitem #findid
     set %czas #scnt + 2
     repeat
     {
           if #conttype <> YFM
              event macro 17
           if %czas < #scnt
              break
     }
     until #conttype = YFM
     deletejournal
     set %x #contposx - 80
     contpos %x #contposy
     finditem * C_ , #contid
     for #findindex 1 #findcnt
     {
         if #findcol <> 0
         {
            event property #findid
            repeat
            {
                  if #property = N/A
                     event property #findid
            }
            until #property <> N/A
            if smazon in #property || pieczon in #property
            {
               ignoreitem #findid
               continue
            }
            menu Clear
            set %p1 #property
            str Count  %p1
            str Pos %p1 $
            str Del %p1 #strres 1
            set %p1 #strres
            str count %p1
            str Pos %p1 ]
            str Del %p1 #strres 20
            set %p1 #strres
            menu Font BGColor black
            menu Font Size 12
            menu Font Color white
            set %liczba %liczba + 1
            menu Text znal1 0 %y1 %liczba : %p1
            set %y1 %y1 + 20
            sound F:\ringin.wav
            set #sysmsgcol 75
            event sysmessage ZNALAZLEM!!! %p1

         }
     }
     ignoreitem #findid
     wait 5s
     set *grabie 0
     set %x 0
  }
}


}
onhotkey x ctrl
{
         event macro 1 0 .walka
               wait 3
}
}
until #false