* * * * * * * * * * Zamknięte forum dyskusyjne Gildii Najemników na prywatnym serwerze "Dziedzictwo Mistrzów" na bazie gry Ultimy Online * * * * * * * * *
Aktywny
; 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
Offline