;Created bY odzi
;ver. 1.1 Oddawanie zamowien
;Skrypt oddaje zamowienia po wcisnieciu klawisza F6
;Wystarczy pobrać zamówienia, podejsc do npc i wcisnąć f6, reszta sama się wykona.
;Trzeba mieć plecak z przedmiotami w głownym plecaku
;================================================================================================================================================================================

set %key1 f7 ;<- Oddawanie zamowien
set %key2 f8 ;<- Wyrzucanie zuzytych zamowien

;================================================================================================================================================================================
set %ji #jindex
set %plecak LDMJKYD  ;<- Ustala nasz plecak z przedmiotami tworzonymi dla zamowien rzemieslniczych
ignoreitem #charid
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
ignoreitem #charid
repeat
{
      ignoreitem #charid
      onhotkey %key1
      {
       repeat
       {
                     gosub sprawdz1
                     set %zamowienie #result
                     if #result = koniec
                        break
                     gosub sprawdz2
                     if #result = koniec
                        break
                     set %grzybki #result
                     gosub przenies %zamowienie %grzybki #findstack
                     if #result = zatrzymaj
                        break
      }
      until #false
      }
      onhotkey %key2
      {
               finditem EWH C
               for #findindex 1 #findcnt
               {
                   if #findtype = EWH && #findcol = 999
                   {
                      exevent drag #findid
                      wait 7
                      exevent dropg #charposx #charposy
                   }
                   if #findindex = #findcnt
                      break
               }
      }
}
until #false

sub sprawdz1
finditem EWH C_ , #backpackid
         for #findindex 1 #findcnt
         {
             if #findtype = EWH && #findcol = 1310
             {
                ignoreitem #findid
                return #findid
             }
             if #findindex = #findcnt
             {
                set #sysmsgcol 45
                event sysmessage Nie znalazlem zamowienia
                ignoreitem reset
                return koniec
             }
         }
return

sub sprawdz2
finditem ZJF_ENK C_ , #backpackid
                                for #findindex 1 #findcnt
                                {
                                    if #findtype = ZJF || #findtype = ENK
                                    {
                                       set #sysmsgcol 75
                                       return #findid
                                    }
                                    if #findindex >= #findcnt
                                    {
                                       set #sysmsgcol 45
                                       event sysmessage Nie znalazlem plecaka z itemami w juce
                                       halt
                                    }
                                }
return

sub przenies
ignoreitem #charid
finditem HS_IS_XU_AV_FH_PG_XU G_1
set %czas #scnt + 2
repeat
{
      if %czas < #scnt
         finditem HS_IS_XU_AV_FH_PG_XU G_1
}
until #findtype = HS || #findtype = IS || #findtype = XU || #findtype = AV || #findtype = FH || #findtype = PG
for #findindex 1 #findcnt
{
    if #findtype = HS && #findid <> #charid
    {
       event property #findid
       if #property = N/A
       {
          repeat
          {
                event property #findid
          }
          until #property <> N/A
       }
       set %property #property
       str count %property
       str Pos %property $
       str Del %property #strres 1
       set %property #strres
       event sysmessage Znalazlem %property
       set %npc #findid
       set %x1 #findx
       set %y1 #findy
       break
    }
    if #findtype = IS && #findid <> #charid
    {
       event property #findid
       if #property = N/A
       {
          repeat
          {
                event property #findid
          }
          until #property <> N/A
       }
       set %property #property
       str count %property
       str Pos %property $
       str Del %property #strres 1
       set %property #strres
       event sysmessage Znalazlem %property
       set %npc #findid
       set %x1 #findx
       set %y1 #findy
       break
    }
    if #findtype = AV && #findid <> #charid
    {
       event property #findid
       if #property = N/A
       {
          repeat
          {
                event property #findid
          }
          until #property <> N/A
       }
       set %property #property
       str count %property
       str Pos %property $
       str Del %property #strres 1
       set %property #strres
       event sysmessage Znalazlem %property
       set %npc #findid
       set %x1 #findx
       set %y1 #findy
       break
    }
    if #findtype = XU && #findid <> #charid
    {
       event property #findid

       if #property = N/A
       {
          repeat
          {
                event property #findid
          }
          until #property <> N/A
       }
       set %property #property
       str count %property
       str Pos %property $
       str Del %property #strres 1
       set %property #strres
       event sysmessage Znalazlem %property
       set %npc #findid
       set %x1 #findx
       set %y1 #findy
       break
    }
    if #findindex > #findcnt
    {
       set #sysmsgcol 45
       event sysmessage Nie znalazlem npca
       halt
       return
    }
}
                    exevent drag %1
                    repeat
                    {
                          finditem %1 C_ , #backpackid
                          for #findindex 1 #findcnt
                          {
                              if #findid = %1
                                 exevent drag %1
                          }
                          break
                    }
                    until #false
                   if %ji < #jindex
                   {
                      set %ji %ji + 1
                      scanjournal %ji
                      if Holding_ in #journal
                      {
                         set #sysmsgcol 55
                         event sysmessage Holding skrypt wraca do poczatku.
                         return
                      }
                   }
                   exevent dropc %npc
                   repeat
                   {
                         finditem %1 C_ , #backpackid
                         for #findindex 1 #findcnt
                         {
                             if #findid = %1
                                break
                         }
                         if #findindex > #findcnt
                            exevent dropc %npc
                         break
                   }
                   until #false
                   exevent drag %2 %3
                   repeat
                   {
                         finditem %2 C_ , #backpackid
                         for #findindex 1 #findcnt
                         {
                             if #findid = %2
                                exevent drag %2 %3
                         }
                         break
                   }
                   until #false
                   exevent dropc %npc
                   repeat
                   {
                         finditem %2 C_ , #backpackid
                         for #findindex 1 #findcnt
                         {
                             if #findid = %2
                                break
                         }
                         if #findindex > #findcnt
                            exevent dropc %npc
                         break
                   }
                   until #false
                   if %ji < #jindex
                   {
                      repeat
                      {
                            set %ji %ji + 1
                            scanjournal %ji
                            if :_W_tym_pojemniku_nie_ma_nic_co_by_mnie_interesowalo. in #journal || :_Dzieki_dam_za_to_ in #journal
                               return zatrzymaj
                            if :_Prosze,_to_zaplata_w_wysokosci_ in #journal
                               return
                      }
                      until %ji > #jindex
                   }
return