;Autor: odzi
;v. 1.1
;Skrypt otwiera nam plecak juki i wyrzuca poszczególną rude na ziemie
set %ji #jindex
set *STOP 0
set #lpc 1000
set *PLECAK 0
;-------------------------------------------
event macro 4 0 PODEJDZCIE!!
repeat
{
      Finditem YAB_BO G_1
      for #findindex 1 #findcnt
      {
          if #findtype = BO
          {
              set #lobjectid #findid
              event macro 17
              set %czas #scnt + 5
              repeat
              {
                    if %czas < #scnt
                       event macro 17
              }
              until #contname = container_gump
              set %plecak #contid
              event property #findid
              repeat
              {
                    if #property = N/A
                       event property #findid
              }
              until #property <> N/A
              set %p1 #property
              str Count %p1
              str Pos %p1 $
              str Del %p1 #strres 1
              set %p1 #strres
              set #sysmsgcol 75
              event sysmessage Zapisalem ID %p1 i jego ID PLECAKA: %plecak
          }
      }
      break
}
until #false
repeat
{
if *STOP = 1
{
   repeat
   until *STOP = 0
}
if *PLECAK = 1
   halt
if %ji < #jindex
{
   set %ji %ji + 1
   scanjournal %ji
   if Zapisywanie in #journal
      gosub zapis
}
if #targcurs = 1
{
   repeat
   until #targcurs = 0
}
IF #contid <> %plecak
{
   finditem YAB_BO G_2
   for #findindex 1 #findcnt
   {
       if #findtype = BO
       {
          if #finddist > 1
             event macro 1 0 Podejdzcie!!
          set #lobjectid #findid
          event macro 17
       }
   }
}
finditem DWJ 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 #findbagid
         }
}
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
repeat
{
      finditem %1 C_ , %3
      for #findindex 1 #findcnt
      {
          if #findid = %1
             exevent drag %1 %2
      }
      break
}
until #false
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
}
exevent dropg #charposx #charposy
repeat
{
      finditem %1 G_2
      for #findindex 1 #findcnt
      {
          if #findid = %1
          {
             event property %1
             repeat
             {
                   if #property = N/A
                      event property %1
             }
             until #property <> N/A
             set %property #property
             str count %property
             str Pos %property $
             str Ins %property #spc #strres
             set %property #strres
             str count %property
             str Pos %property Wydobyl
             str Del %property #strres 20
             set %property #strres
             str Count %property
             str Pos %property $
             str Del %property #strres 1
             set %property #strres
             set #sysmsgcol 45
             event sysmessage Wyrzucilem %property
             return
          }
      }
      exevent dropg #charposx #charposy
}
until #false
return