;Created bY odzi
;ver. 1.0 Oddawanie zamowien
;Skrypt oddaje zamowienia pojedynczo ma mozliwosc szukania, na ziemi, w plecaku, i w juce.
;Trzeba podac ID plecaka w ktorym beda nasze wyroby, 2x na plecak, a ID mamy po prawej stronie euo w zakladce LAST ACTION
;Kopiujemy wartosc z #lobjectid do zmiennej %plecak
;Skrypt działa z jucznym koniem puki co
;UWAGA: WERSJA PROBNA, niektóre rzeczy mogą nie działać
;================================================================================================================================================================================

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

;================================================================================================================================================================================
set %dist 2
set %ji #jindex
set %wydobywcze 1    ;<- Ustala czy ma oddawac przedmioty typu klody/rude/zielarke
set %rzemieslnicze 0 ;<- Ustala czy ma oddawac rzeczy tworzone ktore znajduja sie w plecaku
set %wydobyte ZJF    ;<- Ustala liste przedmiotow wydobywyczych klody/rude/zielarke kolejno dodawac po ZLK_
set %plecak CXGPQMD  ;<- Ustala nasz plecak z przedmiotami tworzonymi dla zamowien rzemieslniczych
set %juka 0          ;<- Ustala czy mam przy sobie juke czy nie. Jesli tak to bierze itemy bezposrednio z juki.
;---------------------------------------------------------------------------------------------------------------------------------------------------------------------------
menu Clear
menu window title Zamowienia
menu font name times
menu Window size 150 45
menu Window color black
menu Show
if %rzemieslnicze = 1
{
   menu font bgcolor green
   menu font color black
   menu button oddaj 0 0 150 45 Rzemieslnicze
}
if %wydobywcze = 1
{
   menu font bgcolor green
   menu font color black
   menu button oddaj 0 0 150 45 Wydobywcze
}
ignoreitem #charid
repeat
{
      if oddaj = #menubutton
      {
         if %rzemieslnicze = 0
         {
            set %rzemieslnicze 1
            set %wydobywcze 0
            menu font bgcolor green
            menu font color black
            menu button oddaj 0 0 150 45 Rzemieslnicze
            set #menubutton N/A
            continue
         }
         if %rzemieslnicze = 1
         {
            set %rzemieslnicze 0
            set %wydobywcze 1
            menu font bgcolor green
            menu font color black
            menu button oddaj 0 0 150 45 Wydobywcze
            set #menubutton N/A
            continue
         }
      }
      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
      }
      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 G_2
                                for #findindex 1 #findcnt
                                {
                                    if #findtype = ZJF
                                    {
                                       set #sysmsgcol 75
                                       event sysmessage Znalazlem plecak w juce, jade dalej.
                                       return #findid
                                    }
                                    if #findindex >= #findcnt
                                    {
                                       set #sysmsgcol 45
                                       event sysmessage Nie znalazlem plecaka z itemami w juce
                                       halt
                                    }
                                }
return

sub przenies
finditem HS_IS_XU_AV_FH_PG_XU G_1
for #findindex 1 #findcnt
{
    if #findtype = HS
    {
       set %npc #findid
       break
    }
    if #findtype = IS
    {
       set %npc #findid
       break
    }
    if #findtype = AV
    {
       set %npc #findid
       break
    }
    if #findtype = XU
    {
       set %npc #findid
       break
    }
    if #findindex = #findcnt
    {
       set #sysmsgcol 45
       event sysmessage Nie znalazlem npca
       halt
       return
    }
}
                    exevent drag %1 1
                    wait 5
                   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
                   exevent dropc %npc
                   exevent dropc %npc
                   wait 10
                   exevent drag %2 %3
                   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
                   wait 15
                   if %rzemieslnicze = 1
                   {
                   finditem %plecak C_ , #backpackid
                   for #findindex 1 #findcnt
                   {
                       if #findid = %plecak
                       {
                          exevent drag #findid #findstack
                          wait 1s
                          exevent dropg #charposx #charposy
                       }
                   }
                   }
                    if %wydobywcze = 1
                   {
                   finditem %wydobyte C_ , #backpackid
                   for #findindex 1 #findcnt
                   {
                       if #findtype = %wydobyte
                       {
                          exevent drag #findid #findstack
                          wait 10
                          exevent dropg #charposx #charposy
                       }
                   }
                   }
return