; Makro dla kowali na kucie wyjatkowych itemow
; Uruchamiajac makro nalezy wybrac mlotek i sztaby - zaznacz prawidlowo i nie pomyl sie
; Gotowe makro czeka na bindy, ktore mozesz ustawic w oznaczonym komentarzem miejscu
; Makro nie bedzie dzialac jesli nie stoisz blisko kowadla
; Konkretny item mozna sobie zmienic poprzez uzycie suba "kuj"
; Uzycie: gosub kuj x_grupy y_grupy type_itemu x_itemu y_itemu
; x_grupy, y_grupy - x/y przycisku otwierajacego grupe w gumpie kowalstwa
; x_itemu, y_itemu - x/y przycisku do kucia itemu
; id_itemu - #lobjectid po dwukliku na item

; autor: Tinerot
; + leciutkie poprawki rob
; + uzupelnienie i poprawki Jaskolka

lpc 2000
set %k 0
set %x 0
set %y 0
set %licz 0
set #sysmsgcol 80

;SETY
set %zwyklZamH 0
set %damskaSmocza 0
set %damska 0
set %smocza 0    ; wpisać jaki typ plyty (tylko 1!) smocza elfia itp robai tylko helm tego typu
set %zwykla 1
set %elfia 0
set %demonia 0
set %runiczna 0
set %kolcza 0
set %luczZestawM 0
set %luczZestawD 0


;tarcze
set %puklerz 0
set %pawez 0
set %trojkatna 0
set %chaosu 0
set %prawosci 0

;szpony
set %szpony 0
set %CClaive 0
set %LClaive 0

;miecze
set %kordelas 0
set %katana 0
set %kosa 0
set %scimitar 0
set %bitewny 0
set %dlugi 0
set %poltorareczny 0
set %obureczny 0

;topory
set %bojowy 0
set %wojenny 0
set %obosieczny 0
set %wielki 0
set %berdysz 0
set %halabarda 0

;szpady
set %wlocznia 0
set %widly 0
set %sztylet 0
set %kryss 0
set %pika 0
set %trojzab 0
set %ostrza 0

;mloty
set %gwiazda 0
set %mbojowy 0
set %mobureczny 0
set %berlo 0
set %mdlugi 0   ;nieaktywne
set %bulawa 0

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

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

; TEGO NIE RUSZAC
set %item 0

goto start

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

start:

zwyklZamH:
if %zwyklZamH > 0
{
set %k 0
set %x 117
set %y 210
if %licz >= %zwyklZamH
    {
    set %licz 0
    set %zwyklZamH 0
    goto zwyklZamH
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 ESH 420 209  ; helm
gosub przekuwaj
set %licz %licz + 1
goto zwyklZamH
}


luczZestawD:
if %luczZestawD > 0
{
set %k 0
set %x 218
set %y 209
if %licz >= %luczZestawD
    {
    set %licz 0
    set %luczZestawD 0
    goto luczZestawD
    }
gosub kuj 284 130 MSK 410 304  ; klata
gosub przekuwaj
gosub kuj 208 133 APH 310 210 ; nogi
gosub przekuwaj
gosub kuj 208 133 DPH 160 210 ; czepiec kolczy
gosub przekuwaj
gosub kuj 115 133 KMH 160 210 ; rekawice pierscieniowe
gosub przekuwaj
gosub kuj 115 133 YLH 308 208 ; naramienniki
gosub przekuwaj
set %licz %licz + 1
goto luczZestawD
}

luczZestawM:
if %luczZestawM > 0
{
set %k 0
set %x 218
set %y 209
if %licz >= %luczZestawM
    {
    set %licz 0
    set %luczZestawM 0
    goto luczZestawM
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 208 133 APH 310 210 ; nogi
gosub przekuwaj
gosub kuj 208 133 DPH 160 210 ; czepiec kolczy
gosub przekuwaj
gosub kuj 115 133 KMH 160 210 ; rekawice pierscieniowe
gosub przekuwaj
gosub kuj 115 133 YLH 308 208 ; naramienniki
gosub przekuwaj
set %licz %licz + 1
goto luczZestawM
}

damskaSmocza:
if %damskaSmocza > 0
{
set %k 0
set %x 218
set %y 209
if %licz >= %damskaSmocza
    {
    set %licz 0
    set %damskaSmocza 0
    goto damskaSmocza
    }
gosub kuj 284 130 MSK 410 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 OSH 220 304  ; helm
gosub przekuwaj
set %licz %licz + 1
goto damskaSmocza
}

damska:
if %damska > 0
{
set %k 0
set %x 218
set %y 209
if %licz >= %damska
    {
    set %licz 0
    set %damska 0
    goto damska
    }
gosub kuj 284 130 MSK 410 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 LKO 118 305  ; helm
gosub przekuwaj
set %licz %licz + 1
goto damska
}

smocza:
if %smocza > 0
{
set %k 0
set %x 218
set %y 209
if %licz >= %smocza
    {
    set %licz 0
    set %smocza 0
    goto smocza
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 LKO 220 304  ; helm
gosub przekuwaj
set %licz %licz + 1
goto smocza
}

zwykla:
if %zwykla > 0
{
set %k 0
set %x 117
set %y 210
if %licz >= %zwykla
    {
    set %licz 0
    set %zwykla 0
    goto zwykla
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 OSH 118 305  ; helm
gosub przekuwaj
set %licz %licz + 1
goto zwykla
}

elfia:
if %elfia > 0
{
set %k 0
set %x 119
set %y 304
if %licz >= %elfia
    {
    set %licz 0
    set %elfia 0
    goto elfia
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 TJQ 418 305  ; helm
gosub przekuwaj
set %licz %licz + 1
goto elfia
}

demonia:
if %demonia > 0
{
set %k 0
set %x 318
set %y 210
if %licz >= %demonia
    {
    set %licz 0
    set %demonia 0
    goto demonia
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 0
gosub kuj 364 130 RBP 320 305  ; helm
gosub przekuwaj
set %licz %licz + 1
goto demonia
}

runiczna:
if %runiczna > 0
{
set %k 0
set %x 418
set %y 207
if %licz >= %runiczna
    {
    set %licz 0
    set %runiczna 0
    goto runiczna
    }
gosub kuj 284 130 HSH 273 304  ; klata
gosub przekuwaj
gosub kuj 284 130 LSH 128 305  ; nogi
gosub przekuwaj
gosub kuj 284 130 MSH 408 212  ; naramienniki
gosub przekuwaj
gosub kuj 284 130 ISH 271 209  ; rekawice
gosub przekuwaj
gosub kuj 284 130 NSH 131 211  ; karczek
gosub przekuwaj
set %k 1
set %x 446
set %y 251
gosub kuj 364 130 LZO 121 208  ; helm
gosub przekuwaj
set %licz %licz + 1
goto runiczna
}

kolcza:
if %kolcza > 0
{
if %licz >= %kolcza
    {
    set %licz 0
    set %kolcza 0
    goto kolcza
    }
gosub kuj 208 133 ZOH 160 308 ; klata
gosub przekuwaj
gosub kuj 208 133 APH 310 210 ; nogi
gosub przekuwaj
gosub kuj 208 133 DPH 160 210 ; czepiec
gosub przekuwaj
gosub kuj 115 133 KMH 160 210 ; rekawice pierscieniowe
gosub przekuwaj
set %licz %licz + 1
goto kolcza
}

puklerz:
if %puklerz > 0
{
if %licz >= %puklerz
    {
    set %licz 0
    set %puklerz 0
    goto puklerz
    }
gosub kuj 444 130 FIK 119 209
gosub przekuwaj
set %licz %licz + 1
goto puklerz
}

pawez:
if %pawez > 0
{
if %licz >= %pawez
    {
    set %licz 0
    set %pawez 0
    goto pawez
    }
gosub kuj 440 130 CIK 420 207
gosub przekuwaj
set %licz %licz + 1
goto pawez
}


trojkatna:
if %trojkatna > 0
{
if %licz >= %trojkatna
    {
    set %licz 0
    set %trojkatna 0
    goto trojkatna
    }
gosub kuj 440 130 AIK 122 303
gosub przekuwaj
set %licz %licz + 1
goto trojkatna
}


chaosu:
if %chaosu > 0
{
if %licz >= %chaosu
    {
    set %licz 0
    set %chaosu 0
    goto chaosu
    }
gosub kuj 440 130 HLK 221 304
gosub przekuwaj
set %licz %licz + 1
goto chaosu
}


prawosci:
if %prawosci > 0
{
if %licz >= %prawosci
    {
    set %licz 0
    set %prawosci 0
    goto prawosci
    }
gosub kuj 440 130 CLK 321 304
gosub przekuwaj
set %licz %licz + 1
goto prawosci
}


szpony:
if %szpony > 0
{
if %licz >= %szpony
    {
    set %licz 0
    set %szpony 0
    goto szpony
    }
gosub kuj 100 361 EBP 120 208
gosub przekuwaj
set %licz %licz + 1
goto szpony
}


CClaive:
if %CClaive > 0
{
if %licz >= %CClaive
    {
    set %licz 0
    set %CClaive 0
    goto CClaive
    }
gosub kuj 100 361 EBP 241 205
gosub przekuwaj
set %licz %licz + 1
goto CClaive
}


LClaive:
if %LClaive > 0
{
if %licz >= %LClaive
    {
    set %licz 0
    set %LClaive 0
    goto LClaive
    }
gosub kuj 100 361 EBP 360 205
gosub przekuwaj
set %licz %licz + 1
goto LClaive
}


kordelas:
if %kordelas > 0
{
if %licz >= %kordelas
    {
    set %licz 0
    set %kordelas 0
    goto kordelas
    }
gosub kuj 184 362 KPH 121 209 ;kordelas
gosub przekuwaj
set %licz %licz + 1
goto kordelas
}


katana:
if %katana > 0
{
if %licz >= %katana
    {
    set %licz 0
    set %katana 0
    goto katana
    }
gosub kuj 184 362 OMH 221 207 ;katana
gosub przekuwaj
set %licz %licz + 1
goto katana
}


kosa:
if %kosa > 0
{
if %licz >= %kosa
    {
    set %licz 0
    set %kosa 0
    goto kosa
    }
gosub kuj 184 362 GUO 421 208 ;kosa bojowa
gosub przekuwaj
set %licz %licz + 1
goto kosa
}


scimitar:
if %scimitar > 0
{
if %licz >= %scimitar
    {
    set %licz 0
    set %scimitar 0
    goto scimitar
    }
gosub kuj 184 362 POH 117 305 ;scimitar
gosub przekuwaj
set %licz %licz + 1
goto scimitar
}


bitewny:
if %bitewny > 0
{
if %licz >= %bitewny
    {
    set %licz 0
    set %bitewny 0
    goto bitewny
    }
gosub kuj 184 362 ATF 219 305 ;bitewny miecz
gosub przekuwaj
set %licz %licz + 1
goto bitewny
}


dlugi:
if %dlugi > 0
{
if %licz >= %dlugi
    {
    set %licz 0
    set %dlugi 0
    goto dlugi
    }
gosub kuj 184 362 KTF 321 303 ;dlugi miecz
gosub przekuwaj
set %licz %licz + 1
goto dlugi
}


poltorareczny:
if %poltorareczny > 0
{
if %licz >= %poltorareczny
    {
    set %licz 0
    set %poltorareczny 0
    goto poltorareczny
    }
gosub kuj 184 362 BPH 422 304 ;miecz poltorareczny
gosub przekuwaj
set %licz %licz + 1
goto poltorareczny
}


obureczny:
if %obureczny > 0
{
set %k 1
set %x 447
set %y 252
if %licz >= %obureczny
    {
    set %licz 0
    set %obureczny 0
    set %k 0
    goto obureczny
    }
gosub kuj 184 362 UPO 117 207 ;miecz obureczny
gosub przekuwaj
set %licz %licz + 1
goto obureczny
}

bojowy:
if %bojowy > 0
{
if %licz >= %bojowy
    {
    set %licz 0
    set %bojowy 0
    goto bojowy
    }
gosub kuj 277 361 OFR 118 211 ;topor bojowy
gosub przekuwaj
set %licz %licz + 1
goto bojowy
}


wojenny:
if %wojenny > 0
{
if %licz >= %wojenny
    {
    set %licz 0
    set %wojenny 0
    goto wojenny
    }
gosub kuj 277 361 JOH 224 303 ;wojenny topor
gosub przekuwaj
set %licz %licz + 1
goto wojenny
}


obosieczny:
if %obosieczny > 0
{
if %licz >= %obosieczny
    {
    set %licz 0
    set %obosieczny 0
    goto obosieczny
    }
gosub kuj 277 361 NSF 272 208 ;obosieczny topor bojowy
gosub przekuwaj
set %licz %licz + 1
goto obosieczny
}


wielki:
if %wielki > 0
{
if %licz >= %wielki
    {
    set %licz 0
    set %wielki 0
    goto wielki
    }
gosub kuj 277 361 SMH 359 307 ;wielki topor obosieczny
gosub przekuwaj
set %licz %licz + 1
goto wielki
}


berdysz:
if %berdysz > 0
{
if %licz >= %berdysz
    {
    set %licz 0
    set %berdysz 0
    goto berdysz
    }
gosub kuj 375 362 KSF 416 212 ;berdysz
gosub przekuwaj
set %licz %licz + 1
goto berdysz
}


halabarda:
if %halabarda > 0
{
set %k 1
set %x 447
set %y 252
if %licz >= %halabarda
    {
    set %licz 0
    set %halabarda 0
    set %k 0
    goto halabarda
    }
gosub kuj 275 362 YTH 121 206 ;halabarda
gosub przekuwaj
set %licz %licz + 1
goto halabarda
}


wlocznia:
if %wlocznia > 0
{
if %licz >= %wlocznia
    {
    set %licz 0
    set %wlocznia 0
    goto wlocznia
    }
gosub kuj 375 362 LTF 222 209 ;dluga wlocznia
gosub przekuwaj
set %licz %licz + 1
goto wlocznia
}

widly:
if %widly > 0
{
if %licz >= %widly
    {
    set %licz 0
    set %widly 0
    goto widly
    }
gosub kuj 375 362 SRH 320 208 ;wojenne widly
gosub przekuwaj
set %licz %licz + 1
goto widly
}


sztylet:
if %sztylet > 0
{
if %licz >= %sztylet
    {
    set %licz 0
    set %sztylet 0
    goto sztylet
    }
gosub kuj 375 362 TSF 168 305 ;sztylet
gosub przekuwaj
set %licz %licz + 1
goto sztylet
}


kryss:
if %kryss > 0
{
if %licz >= %kryss
    {
    set %licz 0
    set %kryss 0
    goto kryss
    }
gosub kuj 375 362 VRH 232 304 ;kryss
gosub przekuwaj
set %licz %licz + 1
goto kryss
}


pika:
if %pika > 0
{
if %licz >= %pika
    {
    set %licz 0
    set %pika 0
    goto pika
    }
gosub kuj 375 362 CUO 118 304 ;pika
gosub przekuwaj
set %licz %licz + 1
goto pika
}


trojzab:
if %trojzab > 0
{
if %licz >= %trojzab
    {
    set %licz 0
    set %trojzab 0
    goto trojzab
    }
gosub kuj 375 362 PPF 328 305 ;trojzab
gosub przekuwaj
set %licz %licz + 1
goto trojzab
}

ostrza:
if %ostrza > 0
{
set %k 1
set %x 418
set %y 302
if %licz >= %ostrza
    {
    set %licz 0
    set %ostrza 0
    set %k 0
    goto ostrza
    }
gosub kuj 375 362 OBP 120 210 ;ostrza skryto
gosub przekuwaj
set %licz %licz + 1
goto ostrza
}


gwiazda:
if %gwiazda > 0
{
if %licz >= %gwiazda
    {
    set %licz 0
    set %gwiazda 0
    goto gwiazda
    }
gosub kuj 450 360 YSF 122 209 ;gwiazda zaranna
gosub przekuwaj
set %licz %licz + 1
goto gwiazda
}


mbojowy:
if %mbojowy > 0
{
if %licz >= %mbojowy
    {
    set %licz 0
    set %mbojowy 0
    goto mbojowy
    }
gosub kuj 450 360 WTH 118 306 ;mlot bojowy
gosub przekuwaj
set %licz %licz + 1
goto mbojowy
}


mobureczny:
if %mobureczny > 0
{
if %licz >= %mobureczny
    {
    set %licz 0
    set %mobureczny 0
    goto mobureczny
    }
gosub kuj 450 360 AUH 421 210 ;mlot obureczny
gosub przekuwaj
set %licz %licz + 1
goto mobureczny
}


berlo:
if %berlo > 0
{
if %licz >= %berlo
    {
    set %licz 0
    set %berlo 0
    goto berlo
    }
gosub kuj 450 360 AUO 219 306 ;berlo
gosub przekuwaj
set %licz %licz + 1
goto berlo
}


dlugi:
if %dlugi > 0
{
if %licz >= %dlugi
    {
    set %licz 0
    set %dlugi 0
    goto dlugi
    }
gosub kuj 450 360 CUH 221 211 ;dlugi mlot
gosub przekuwaj
set %licz %licz + 1
goto dlugi
}


bulawa:
if %bulawa > 0
{
if %licz >= bulawa
    {
    set %licz 0
    set %bulawa 0
    goto bulawa
    }
gosub kuj 450 360 URH 318 210 ;wojenna bulawa
gosub przekuwaj
set %licz %licz + 1
goto bulawa
}
halt

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

sub anvilcheck

    finditem ZAG_BBC_KBG G_1
    if #findkind = -1
    {
       set #sysmsgcol 33
       event SysMessage [Kowal] Nie moglem znalezc kowadla!
       event SysMessage [Kowal] Makro zatrzymane.
       stop
    }
    return

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

sub menukucia

    set #lobjectid %mlotek
    set #ltargetid %sztaby
    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
    repeat
          wait 3
    until #contkind = MIJB ; MIJB
    if %k <> 0
        {
        click %x %y
        repeat
              wait 3
        until #contkind = MIJB ; MIJB
        }
    return

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

sub kuj

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

    repeat
       gosub menukucia %1 %2
       set %jrnl #jindex
       click %4 %5
           dalej2:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if wykul in #journal
   goto dupa2
   if przekul in #journal
   goto dupa
   if Zniszczyl in #journal
   gosub kuj
   }
goto dalej2
dupa2:
    finditem %3 C
    set %item #findid
    return

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

sub przekuwaj

  gosub anvilcheck
  dupa:
    set #lobjectid %mlotek
    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 %sztaby
    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 przekul in #journal
   goto dupa
   if jakosci_przedmiot 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 %mlotek
  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
  repeat
        wait 3
  until #contkind = MIJB ; MIJB
  set %jrnl #jindex
  click 104 125
  dalej3:
wait 5
if #jindex > %jrnl
   {
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if dodal in #journal
   goto koniec
   }
goto dalej3
koniec:
return