;Autor: odzi
;v. 1.0
;Skrypt otwiera nam plecak juki i wyrzuca poszczególną rude na ziemie
set %ji #jindex
set *STOP 0
repeat
{
if *STOP = 1
{
   repeat
   until *STOP = 0
}
if %ji < #jindex
{
   set %ji %ji + 1
   scanjournal %ji
   if Zapisywanie in #journal
      gosub zapis
}
if #targcurs = 1
{
   repeat
   until #targcurs = 0
}
finditem YAB_BO G_5
         for #findindex 1 #findcnt
         {
             IF #findtype = BO && #finddist > 1
             {
                event macro 1 0 Podejdzcie!!
                set #lobjectid #findid
                event macro 17
             }
         }
         wait 10
finditem * C
         for #findindex 1 #findcnt
         {
             if #findtype = DWJ && #findcol = 1209 || #findtype = DWJ && #findcol = 1309 || #findtype = DWJ && #findcol = 1247 || #findtype = DWJ && #findcol = 1320 || #findtype = DWJ && #findcol = 0
             {
                ignoreitem
                continue
             }
             if #findtype = DWJ
                gosub wyrzuc #findid #findstack
         }
}
until #false

sub zapis
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Koniec_zapisywania in #journal
            return
      }
until #false

sub wyrzuc
exevent drag %1 %2
if %ji < #jindex
{
   repeat
   {
         set %ji %ji + 1
         scanjournal %ji
         if Holding_ in #journal
         {
            set #sysmsgcol 55
            event sysmessage Holding skrypt wraca do poczatku.
            return
         }
   }
   until %ji = #jindex
}
wait 10
exevent dropg #charposx #charposy
gosub sprawdz
return

sub sprawdz
if #LLIFTEDKIND = 1
   event dropc #backpackid
return