; przerobione makro Tina na kucie expow -> drutowanie expow by Rob, uzupelnienie Jaskolka

set %k 0
set %i 0
set %licz 0
set #sysmsgcol 80

------------------------------------------------
;itemy - USTAWIAC TYLKO ALBO METALOWE ALBO DREWNIANE
set %majstra 0    ; ilosc itemow
set %mlotszklo 0
set %krawieckie 0
set %kosa 0
set %lopata 0
set %druty 0
set %kowalski 0
set %kilof 0
set %mozdzierz 0
set %topor 0
set %sierp 0
set %tasak 0
set %noz 0
set %nozDoKanapek 0

set %pierscionek 0  ; nie dziala
set %naszyjnikkolki 0
set %ciemnynaszyjnik 10
set %kolczyki 10
set %naszyjnikkolia 0
set %bransoleta 10

set %pioro 0
set %paleta 0
set %stolarskie 0
------------------------------------------------

init:
event SysMessage [Majster] Wskaz narzedzia:
set #targcurs 1
repeat
      target 3
until #targcurs = 0
set %narzedzia #ltargetid

event SysMessage [Majster] Wskaz material:
set #targcurs 1
repeat
      target 3
until #targcurs = 0
set %material #ltargetid

; TEGO NIE RUSZAC
set %item 0

goto start

----------------------------------------------------

start:

nozDoKanapek:
if %nozDoKanapek > 0
{
if %licz >= %nozDoKanapek
    {
    set %licz 0
    set %nozDoKanapek 0
    goto nozDoKanapek
    }
gosub drutuj 442 132 TRD 210 320
gosub przedrutuj
set %licz %licz + 1
goto nozDoKanapek
}

noz:
if %noz > 0
{
if %licz >= %noz
    {
    set %licz 0
    set %noz 0
    goto noz
    }
gosub drutuj 442 132 FMH 130 250
gosub przedrutuj
set %licz %licz + 1
goto noz
}

majstra:
if %majstra > 0
{
if %licz >= %majstra
    {
    set %licz 0
    set %majstra 0
    goto majstra
    }
gosub drutuj 119 132 JTL 120 190
gosub przedrutuj
set %licz %licz + 1
goto majstra
}

mlotszklo:
if %mlotszklo > 0
{
if %licz >= %mlotszklo
    {
    set %licz 0
    set %mlotszklo 0
    set %k 0
    goto mlotszklo
    }
gosub drutuj 119 132 GBG 260 190
gosub przedrutuj
set %licz %licz + 1
goto mlotszklo
}

krawieckie:
if %krawieckie > 0
{
if %licz >= %krawieckie
    {
    set %licz 0
    set %krawieckie 0
    set %k 0
    goto krawieckie
    }
gosub drutuj 119 132 HAG 380 190
gosub przedrutuj
set %licz %licz + 1
goto krawieckie
}

kosa:
if %kosa > 0
{
if %licz >= %kosa
    {
    set %licz 0
    set %kosa 0
    set %k 0
    goto kosa
    }
gosub drutuj 119 132 FUO 120 250
gosub przedrutuj
set %licz %licz + 1
goto kosa
}

lopata:
if %lopata > 0
{
if %licz >= %lopata
    {
    set %licz 0
    set %lopata 0
    set %k 0
    goto lopata
    }
gosub drutuj 119 132 TWF 260 250
gosub przedrutuj
set %licz %licz + 1
goto lopata
}

druty:
if %druty > 0
{
if %licz >= %druty
    {
    set %licz 0
    set %druty 0
    set %k 0
    goto druty
    }
gosub drutuj 119 132 DFF 380 250
gosub przedrutuj
set %licz %licz + 1
goto druty
}

kowalski:
if %kowalski > 0
{
if %licz >= %kowalski
    {
    set %licz 0
    set %kowalski 0
    set %k 0
    goto kowalski
    }
gosub drutuj 119 132 TLH 120 320
gosub przedrutuj
set %licz %licz + 1
goto kowalski
}

kilof:
if %kilof > 0
{
if %licz >= %kilof
    {
    set %licz 0
    set %kilof 0
    set %k 0
    goto kilof
    }
gosub drutuj 119 132 NPF 260 320
gosub przedrutuj
set %licz %licz + 1
goto kilof
}

mozdzierz:
if %mozdzierz > 0
{
if %licz >= %mozdzierz
    {
    set %licz 0
    set %mozdzierz 0
    set %k 0
    goto mozdzierz
    }
gosub drutuj 119 132 RQF 380 320
gosub przedrutuj
set %licz %licz + 1
goto mozdzierz
}

topor:
if %topor > 0
{
set %k 1
set %x 412
set %y 331
if %licz >= %topor
    {
    set %licz 0
    set %topor 0
    set %k 0
    goto topor
    }
gosub drutuj 119 132 FSF 120 190
gosub przedrutuj
set %licz %licz + 1
goto topor
}

sierp:
if %sierp > 0
{
set %k 1
set %x 412
set %y 331
if %licz >= %sierp
    {
    set %licz 0
    set %sierp 0
    set %k 0
    goto sierp
    }
gosub drutuj 119 132 FUO 260 250
gosub przedrutuj
set %licz %licz + 1
goto sierp
}

pioro:
set %i 1
if %pioro > 0
{
if %licz >= %pioro
    {
    set %licz 0
    set %pioro 0
    set %k 0
    goto pioro
    }
gosub drutuj 405 190 PBG
gosub przedrutuj
set %licz %licz + 1
goto pioro
}

paleta:
set %i 1
if %paleta > 0
{
if %licz >= %paleta
    {
    set %licz 0
    set %paleta 0
    set %k 0
    goto paleta
    }
gosub drutuj 270 190 BXF
gosub przedrutuj
set %licz %licz + 1
goto paleta
}

stolarskie:
set %i 1
if %stolarskie > 0
{
if %licz >= %stolarskie
    {
    set %licz 0
    set %stolarskie 0
    set %k 0
    goto stolarskie
    }
gosub drutuj 150 310 WFG
gosub przedrutuj
set %licz %licz + 1
goto stolarskie
}

tasak:
if %tasak > 0
{
if %licz >= %tasak
    {
    set %licz 0
    set %tasak 0
    goto tasak
    }
gosub drutuj 442 132 INF 128 319
gosub przedrutuj
set %licz %licz + 1
goto tasak
}

pierscionek:
set %kamien 1
if %pierscionek > 0
{
if %licz >= %pierscionek
    {
    set %licz 0
    set %pierscionek 0
    set %kamien 0
    goto pierscionek
    }
gosub drutuj 120 360 UJG 125 190
gosub przedrutuj
set %licz %licz + 1
goto pierscionek
}

naszyjnikkolki:
set %kamien 1
if %naszyjnikkolki > 0
{
if %licz >= %naszyjnikkolki
    {
    set %licz 0
    set %naszyjnikkolki 0
    set %kamien 0
    goto naszyjnikkolki
    }
gosub drutuj 120 360 RJG 260 190
gosub przedrutuj
set %licz %licz + 1
goto naszyjnikkolki
}

ciemnynaszyjnik:
set %kamien 1
if %ciemnynaszyjnik > 0
{
if %licz >= %ciemnynaszyjnik
    {
    set %licz 0
    set %kamien 0
    set %ciemnynaszyjnik 0
    goto ciemnynaszyjnik
    }
gosub drutuj 120 360 FJG 408 190
gosub przedrutuj
set %licz %licz + 1
goto ciemnynaszyjnik
}

kolczyki:
set %kamien 1
if %kolczyki > 0
{
if %licz >= %kolczyki
    {
    set %licz 0
    set %kamien 0
    set %kolczyki 0
    goto kolczyki
    }
gosub drutuj 120 360 HJG 125 250
gosub przedrutuj
set %licz %licz + 1
goto kolczyki
}

naszyjnikkolia:
set %kamien 1
if %naszyjnikkolia > 0
{
if %licz >= %naszyjnikkolia
    {
    set %licz 0
    set %kamien 0
    set %naszyjnikkolia 0
    goto naszyjnikkolia
    }
gosub drutuj 120 360 SJG 269 250
gosub przedrutuj
set %licz %licz + 1
goto naszyjnikkolia
}

bransoleta:
set %kamien 1
if %bransoleta > 0
{
if %licz >= %bransoleta
    {
    set %licz 0
    set %kamien 0
    set %bransoleta 0
    goto bransoleta
    }
gosub drutuj 120 360 IJG 407 250
gosub przedrutuj
set %licz %licz + 1
goto bransoleta
}

halt
----------------------------------------------------

sub narzcheck

    finditem JTL C
    if #findkind = -1
    {
       set #sysmsgcol 33
       event SysMessage [Majster] Nie moglem znalezc narzedzi!
       event SysMessage [Majster] Makro zatrzymane.
       stop
    }
    return

----------------------------------------------------

sub menudruta

    set #lobjectid %narzedzia
    set #ltargetid %material
    event macro 17 0
    repeat
    set %lama %lama + 1
    if %lama > 5
       {
       event macro 17 0
       set %lama 0
       }
    wait 1
    until #targcurs = 1
    event macro 22 0
    repeat
          wait 3
    until #contkind = MIJB ; MIJB
    click %1 %2
    if %i = 1
    return
    repeat
          wait 3
    until #contkind = MIJB ; MIJB
    if %k <> 0
        {
        click %x %y
        repeat
              wait 3
        until #contkind = MIJB ; MIJB
        }
    return

-----------------------------------------------------

sub drutuj

    gosub narzcheck
    finditem %3 C
    if #findkind = 0
    {
       ignoreitem reset
       while #findindex <= #findcnt
       {
         ignoreitem #findid
         set #findindex #findindex + 1
       }
    }

    repeat
       gosub menudruta %1 %2
       click %4 %5
       dalej10:
       set %jrnl #jindex
           dalej2:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if stworzyl in #journal
   goto dupa2
   if przetworzyl in #journal
   goto dupa
   if Zniszczyl in #journal
   gosub drutuj
   }
goto dalej2
dupa2:
    finditem %3 C
    set %item #findid
    return

----------------------------------------------------

sub przedrutuj

  gosub narzecheck
  dupa:
    set #lobjectid %narzedzia
    set #ltargetid %item
    event macro 17 0
    repeat
    set %lama %lama + 1
    if %lama > 5
       {
       event macro 17 0
       set %lama 0
       }
    wait 1
    until #targcurs = 1
    event macro 22 0
    set #ltargetid %material
    repeat
          target 3
    until #targcurs = 1
    set %jrnl #jindex
    event macro 22 0
    dalej:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if przetworzyl in #journal
   goto dupa
   if jakosci_przedmiot_i_wlozyl in #journal
   goto podpis
   if Zniszczyl in #journal
   goto dupa
   }
goto dalej

  podpis:
  ; TU JEST DODAWANIE PODPISU, MOZESZ WYKOMENTOWAC JESLI NIE CHCESZ DODAWAC PODPISU NA KONCU PRZEKUWANIA
  set #lobjectid %narzedzia
  set #ltargetid %item
  event macro 17 0
  repeat
  set %lama %lama + 1
  if %lama > 5
     {
     event macro 17 0
     set %lama 0
     }
  wait 1
  until #targcurs = 1
  event macro 22 0
  dalej3:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if dodal in #journal
   goto koniec
   }
goto dalej3
koniec:
return