|
|
SiMet | 2006, lis 4 20:00
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
initevent event macro 1 0 .um ukrywanie wait 5 event macro 17 target 5s event macro 22 wait 8s ; czas po wykonaniu akcji
Prosze |
|
Kenskin | 2006, paź 28 21:12
|
|
|
|
|
| Brak postaci | |
|
2007, lut 27
Bydgoszcz | |
Masz oto skrypt na krawca i madrosc
;Macro bY SabiK ;krawiec-menu.txt ;Wersja 1.0 ;!!!!!UWAGA!!!!! rzerzucanie expów do innego pojemnika ;Aby to zrobić musisz podac jego wspolrzedne w okna menu ;Jesli najedziesz na ikone plecaka (ZAMKNIETY PLECAK) kursorem to wpisz w okna #CORSORX i #CURSORY initevents menu hide
krawiecmenu: set %xr 0set %yr 0set %mat 0set %mat1 0set %item 0set %skill 0set %skill1 0set %ciecie 0set %ciecie_trwa 0set %rzut 0set %licz 0set %id n/a set %lt n/a set #sysmsg n/a set #scnt 0set #menubutton n/a menu clear menu window title Menu Krawca bY SabiK menu window size 250 240 menu window color btnface ;Material menu font name verdana menu font size 9 menu font color black menu font bgcolor btnface menu font style b menu text wersja 85 214 Wersja 1.0 menu text 1material 21 12 Materiał: menu font size 8 menu font bgcolor white menu font style menu combo create material 85 10 155 menu combo add material Wybierz: menu combo add material ---------------------------------- menu combo add material Tkanina menu combo add material Skóra menu combo select material 1 goto menuskille rzedmioty z tkaniny menukrawca1: menu delete sprzedmioty menu font size 9 menu font color black menu font bgcolor btnface menu font style b menu text 1przedmioty 9 47 Przedmiot: menu font size 8 menu font bgcolor white menu font style menu combo create tprzedmioty 85 45 155 menu combo add tprzedmioty Wybierz: menu combo add tprzedmioty ---------------------------------- menu combo add tprzedmioty To co ostatnio ;menu combo add tprzedmioty Koszulka ;menu combo add tprzedmioty Koszula ;menu combo add tprzedmioty Oponcza ;menu combo add tprzedmioty Tunika ;menu combo add tprzedmioty Plaszcz ;menu combo add tprzedmioty Stroj blazenski ;menu combo add tprzedmioty Kubrak ;menu combo add tprzedmioty Jin-baori ;menu combo add tprzedmioty Hakama-skita ;menu combo add tprzedmioty Krotkie spodnie ;menu combo add tprzedmioty Dlugie spodnie ;menu combo add tprzedmioty Tettsuke-hakama ;menu combo add tprzedmioty Kilt ;menu combo add tprzedmioty Spodniczka ;menu combo add tprzedmioty Hakama ;menu combo add tprzedmioty Sukienka ;menu combo add tprzedmioty Spodnica ;menu combo add tprzedmioty Kimono(m) ;menu combo add tprzedmioty Kimono(f) ;menu combo add tprzedmioty Toga ;menu combo add tprzedmioty Kimshimo ;menu combo add tprzedmioty Szarfa ;menu combo add tprzedmioty Oib ;menu combo add tprzedmioty Koc ;menu combo add tprzedmioty Plotno ;menu combo add tprzedmioty Krotki fartuch ;menu combo add tprzedmioty Fartuch ;menu combo add tprzedmioty Mata ;menu combo add tprzedmioty Juka ;menu combo add tprzedmioty Bandana ;menu combo add tprzedmioty Mycka ;menu combo add tprzedmioty Czarodziejska czapka ;menu combo add tprzedmioty Czapka ;menu combo add tprzedmioty Beret ;menu combo add tprzedmioty Czapka z piorkiem ;menu combo add tprzedmioty Kesa ;menu combo add tprzedmioty Kapelusz okragly ;menu combo add tprzedmioty Kapelusz ;menu combo add tprzedmioty Trojkatny kapelusz ;menu combo add tprzedmioty Blazenska czapka menu combo select tprzedmioty 1 set %mat1 1 goto czekaj rzedmioty ze skóry menukrawca2: menu delete tprzedmioty menu font size 9 menu font color black menu font bgcolor btnface menu font style b menu text 1przedmioty 9 47 Przedmiot: menu font size 8 menu font bgcolor white menu font style menu combo create sprzedmioty 85 45 155 menu combo add sprzedmioty Wybierz: menu combo add sprzedmioty ---------------------------------- menu combo add sprzedmioty To co ostatnio ;menu combo add sprzedmioty Sk. Czapka ;menu combo add sprzedmioty Sk. Karczek ;menu combo add sprzedmioty Sk. Rekawiczki ;menu combo add sprzedmioty Sk. Narramienniki ;menu combo add sprzedmioty Sk. Nogawice ;menu combo add sprzedmioty Sk. Tunika ;menu combo add sprzedmioty Sk. Jingasa ;menu combo add sprzedmioty Ut. Karczek ;menu combo add sprzedmioty Ut. Rekawiczki ;menu combo add sprzedmioty Ut. Narramienniki ;menu combo add sprzedmioty Ut. Nogawice ;menu combo add sprzedmioty Ut. Tunika ;menu combo add sprzedmioty Ut. Jingasa ;menu combo add sprzedmioty Sk. Kabuto ;menu combo add sprzedmioty Sk. Mempo ;menu combo add sprzedmioty Sk. Hiro sode ;menu combo add sprzedmioty Sk. Suneate ;menu combo add sprzedmioty Sk. Do ;menu combo add sprzedmioty Ut. Kabuto ;menu combo add sprzedmioty Ut. Mempo ;menu combo add sprzedmioty Ut. Hiro sode ;menu combo add sprzedmioty Ut. Suneate ;menu combo add sprzedmioty Ut. Do ;menu combo add sprzedmioty Biustonosz ;menu combo add sprzedmioty Ut. Biustonosz ;menu combo add sprzedmioty Spodnie ;menu combo add sprzedmioty Spodniczka ;menu combo add sprzedmioty Damska zbroja ;menu combo add sprzedmioty Ut. Damska zbroja ;menu combo add sprzedmioty Sandaly ;menu combo add sprzedmioty Sandaly samuraja ;menu combo add sprzedmioty Buty ;menu combo add sprzedmioty Wysokie buty ;menu combo add sprzedmioty Wysokie buty2 ;menu combo add sprzedmioty Worek ;menu combo add sprzedmioty Skrzynka ;menu combo add sprzedmioty Plecak ;menu combo add sprzedmioty W. na wilkolackie runa ;menu combo add sprzedmioty W. na wampirze runa menu combo select sprzedmioty 1 set %mat1 2 goto czekaj ;Skille menuskille: menu font size 9 menu font color black menu font bgcolor btnface menu font style b menu text 1skille 46 83 Skill: menu font size 8 menu font bgcolor white menu font style menu combo create skille 85 80 155 menu combo add skille Wybierz: menu combo add skille ---------------------------------- menu combo add skille Zaden menu combo add skille Ukrywanie menu combo add skille Madrosc menu combo add skille Anatomia menu combo add skille Identyfikacja menu combo add skille Rozmowa z duchami menu combo add skille Wykrywanie menu combo add skille Wiedza o zwierzetach menu combo add skille Wiedza o broni menu combo select skille 1 ;Ciecie menu font size 8 menu font color black menu font style menu font bgcolor btnface menu check ciecie 20 120 205 15 0 Wlacz opcje ciecia przedmiotow rzezucanie expow menu font size 8 menu font color black menu font style menu font bgcolor btnface menu check rzut 20 148 210 15 0 Wlacz opcje przerzucania expow goto startianuluj rzucanietak: menu font size 8 menu font color black menu font style menu font bgcolor btnface menu text 1rzut 8 176 "X" PLECAKA: menu edit rzutx 90 172 28 xxx menu text 1rzut 123 176 "Y" PLECAKA: menu edit rzuty 205 172 28 xxx set %rzut1 1 goto czekaj ;Start i anuluj startianuluj: menu font size 10 menu font color black menu font style b menu font bgcolor btnface menu button startp 10 210 60 25 START menu button anuluj 178 210 60 25 Anuluj
menu hideEuo menupokaz: set #menubutton n/a menu show
czekaj: if #str = N/A || #dex = N/A || #int = N/A event macro 8 2 if #menubutton <> n/a goto #menubutton menu get material set %mat #menures - 2 menu get rzut set %rzut 1 if #menures <> -1 set %rzut 0if %rzut = 0{ menu delete 1rzut menu delete rzutx menu delete rzuty set %rzut1 0} if %rzut1 = 1 goto czekaj2 if %rzut = 1 goto rzucanietak czekaj2: if %mat <= 0 { menu delete tprzedmioty menu delete sprzedmioty menu delete 1przedmioty set %mat1 0} if %mat1 = 1 && %mat = 2 goto czekaj4 if %mat1 = 2 && %mat = 1 goto czekaj3 if %mat1 = 1 || %mat1 = 2 goto czekaj czekaj3: if %mat = 1 goto menukrawca1 czekaj4: if %mat = 2 goto menukrawca2 goto czekaj
closed: set #targcurs 0halt anuluj: set #targcurs 0set #menubutton n/a goto krawiecmenu stopp: set #targcurs 0menu delete startp menu delete stopp menu font size 10 menu font color black menu font style b menu font bgcolor btnface menu button startp 10 210 60 25 START if #menubutton = closed menu show set #menubutton n/a goto czekaj
startp: menu delete ramka menu delete blad menu window size 250 240 menu font color black menu delete startp menu font size 10 menu font color black menu font style b menu font bgcolor btnface menu button stopp 10 210 60 25 STOP set #menubutton n/a if #str = N/A || #dex = N/A || #int = N/A event macro 8 2 if %mat = 1 { menu get tprzedmioty set %item #menures - 2 } if %mat = 2 { menu get sprzedmioty set %item #menures - 2 }
menu get skille set %skill #menures - 3
menu get ciecie set %ciecie 1 if #menures <> -1 set %ciecie
0if %rzut = 1 { menu get rzutx set %xr #menures menu get rzuty set %yr #menures }
if %mat < 1 && %skill < 0 && %item < 1 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany material, przedmiot i skill! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany materiał, przedmiot i skill! if #menubutton = closed goto menupokaz goto czekaj }
if %mat < 1 && %item < 1 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany material i przedmiot! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany materiał i przedmiot! if #menubutton = closed goto menupokaz goto czekaj }
if %mat < 1 && %skill < 0 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany material i skill! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany materiał i skill! if #menubutton = closed goto menupokaz goto czekaj }
if %item < 1 && %skill < 0 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany przedmiot i skill! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany przedmiot i skill! if #menubutton = closed goto menupokaz goto czekaj }
if %mat < 1 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany material! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany materiał! if #menubutton = closed goto menupokaz goto czekaj }
if %item < 1 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany przedmiot! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany przedmiot! if #menubutton = closed goto menupokaz goto czekaj }
if %skill < 0 { menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START set #sysmsgcol 1080 event sysmessage Zle wybrany skill! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Źle wybrany skill! if #menubutton = closed goto menupokaz goto czekaj }
if #menubutton <> n/a goto #menubutton
if %mat = 1 { if %item = 2 { set %x 120 set %y 131 set %x1 218 set %y1 178 } if %item = 3 { set %x 120 set %y 131 set %x1 318 set %y1 178 } if %item = 4 { set %x 120 set %y 131 set %x1 418 set %y1 178 } if %item = 5 { set %x 120 set %y 131 set %x1 118 set %y1 243 } if %item = 6 { set %x 120 set %y 131 set %x1 218 set %y1 243 } if %item = 7 { set %x 120 set %y 131 set %x1 318 set %y1 243 } if %item = 8 { set %x 120 set %y 131 set %x1 118 set %y1 313 } if %item = 9 { set %x 120 set %y 131 set %x1 218 set %y1 313 } if %item = 10 { set %x 270 set %y 130 set %x1 158 set %y1 209 } if %item = 11 { set %x 270 set %y 130 set %x1 308 set %y1 209 } if %item = 12 { set %x 270 set %y 130 set %x1 428 set %y1 209 } if %item = 13 { set %x 270 set %y 130 set %x1 158 set %y1 302 } if %item = 14 { set %x 270 set %y 130 set %x1 308 set %y1 302 } if %item = 15 { set %x 270 set %y 130 set %x1 428 set %y1 302 } if %item = 16 { set %x 432 set %y 131 set %x1 158 set %y1 189 } if %item = 17 { set %x 432 set %y 131 set %x1 288 set %y1 189 } if %item = 18 { set %x 432 set %y 131 set %x1 158 set %y1 285 } if %item = 19 { set %x 432 set %y 131 set %x1 288 set %y1 xxx xxx } if %item = 20 { set %x 432 set %y 131 set %x1 158 set %y1 xxx xxx } if %item = 21 { set %x 432 set %y 131 set %x1 158 set %y1 xxx xxx } if %item = 22 { set %x 200 set %y 360 set %x1 118 set %y1 209 } if %item = 23 { set %x 200 set %y 360 set %x1 218 set %y1 209 } if %item = 24 { set %x 200 set %y 360 set %x1 318 set %y1 209 } if %item = 25 { set %x 200 set %y 360 set %x1 408 set %y1 209 } if %item = 26 { set %x 200 set %y 360 set %x1 118 set %y1 302 } if %item = 27 { set %x 200 set %y 360 set %x1 218 set %y1 302 } if %item = 28 { set %x 200 set %y 360 set %x1 318 set %y1 302 } if %item = 29 { set %x 200 set %y 360 set %x1 408 set %y1 302 } if %item = 30 { set %x 380 set %y 360 set %x1 118 set %y1 178 } if %item = 31 { set %x 380 set %y 360 set %x1 208 set %y1 178 } if %item = 32 { set %x 380 set %y 360 set %x1 328 set %y1 178 } if %item = 33 { set %x 380 set %y 360 set %x1 418 set %y1 178 } if %item = 34 { set %x 380 set %y 360 set %x1 118 set %y1 248 } if %item = 35 { set %x 380 set %y 360 set %x1 208 set %y1 248 } if %item = 36 { set %x 380 set %y 360 set %x1 328 set %y1 248 } if %item = 37 { set %x 380 set %y 360 set %x1 418 set %y1 248 } if %item = 38 { set %x 380 set %y 360 set %x1 118 set %y1 318 } if %item = 39 { set %x 380 set %y 360 set %x1 268 set %y1 318 } if %item = 40 { set %x 380 set %y 360 set %x1 418 set %y1 318 } }
if %mat = 2 { if %item = 2 { set %x set %y set %x1 set %y1 } if %item = 3 { set %x set %y set %x1 set %y1 } if %item = 4 { set %x set %y set %x1 set %y1 } if %item = 5 { set %x set %y set %x1 set %y1 } if %item = 6 { set %x set %y set %x1 set %y1 } if %item = 7 { set %x set %y set %x1 set %y1 } if %item = 8 { set %x set %y set %x1 set %y1 } if %item = 9 { set %x set %y set %x1 set %y1 } if %item = 10 { set %x set %y set %x1 set %y1 } if %item = 11 { set %x set %y set %x1 set %y1 } if %item = 12 { set %x set %y set %x1 set %y1 } if %item = 13 { set %x set %y set %x1 set %y1 } if %item = 14 { set %x set %y set %x1 set %y1 } if %item = 15 { set %x set %y set %x1 set %y1 } if %item = 16 { set %x set %y set %x1 set %y1 } if %item = 17 { set %x set %y set %x1 set %y1 } if %item = 18 { set %x set %y set %x1 set %y1 } if %item = 19 { set %x set %y set %x1 set %y1 } if %item = 20 { set %x set %y set %x1 set %y1 } if %item = 21 { set %x set %y set %x1 set %y1 } if %item = 22 { set %x set %y set %x1 set %y1 } if %item = 23 { set %x set %y set %x1 set %y1 } if %item = 24 { set %x set %y set %x1 set %y1 } if %item = 25 { set %x set %y set %x1 set %y1 } if %item = 26 { set %x set %y set %x1 set %y1 } if %item = 27 { set %x set %y set %x1 set %y1 } if %item = 28 { set %x set %y set %x1 set %y1 } if %item = 29 { set %x set %y set %x1 set %y1 } if %item = 30 { set %x set %y set %x1 set %y1 } if %item = 31 { set %x set %y set %x1 set %y1 } if %item = 32 { set %x set %y set %x1 set %y1 } if %item = 33 { set %x set %y set %x1 set %y1 } if %item = 34 { set %x set %y set %x1 set %y1 } if %item = 35 { set %x set %y set %x1 set %y1 } if %item = 36 { set %x set %y set %x1 set %y1 } if %item = 37 { set %x set %y set %x1 set %y1 } if %item = 38 { set %x set %y set %x1 set %y1 } if %item = 39 { set %x set %y set %x1 set %y1 } }
skill1: if #menubutton <> n/a goto #menubutton if %skill = 0 || %skill = 1 || %skill = 5 || %skill = 6 goto start if %skill = 2 set %skill1 Madrosc if %skill = 3 set %skill1 Anatomia if %skill = 4 set %skill1 Identyfikacja if %skill = 7 set %skill1 Wiedza , #spc , o , #spc , zwierzetach if %skill = 8 set %skill1 Wiedza , #spc , o , #spc , broni
if %lt = n/a { lt: set #targcurs 1 set #sysmsgcol 1090 event sysmessage Wskaz teraz na czym ma byc robiona %skill1 menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 35 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Stan: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Wskaz teraz na czym ma byc robiona menu font color blue menu text blad 15 277 %skill1 if #menubutton = closed menu show set #menubutton n/a set %licz 0 czekaj_lt: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 0 goto dalej_lt if %licz > 300 goto lt goto czekaj_lt } dalej_lt: set %lt #ltargetid set #sysmsgcol 1082 event sysmessage Zapisano. menu delete ramka menu delete blad menu window size 250 240 goto start
start: if #menubutton <> n/a goto #menubutton
skille: if #menubutton <> n/a goto #menubutton if %skill = 0 goto start1
ukrywanie: if %skill <> 1 goto madrosc event macro 13 21 set %licz 0czekaj_ukrywanie: scanjournal 1 set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if H in #charstatus goto start1 if Nie_udalo_Ci_sie in #journal goto start1 if %licz > 50 goto ukrywanie goto czekaj_ukrywanie
madrosc: if %skill <> 2 goto anatomia event macro 13 16 set %licz 0czekaj_madrosc: set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #targcurs = 1 goto dalej_madrosc if %licz > 50 goto madrosc goto czekaj_madrosc dalej_madrosc: set #ltargetid %lt event macro 22 goto start1
anatomia: if %skill <> 3 goto identyfikacja event macro 13 1 set %licz 0czekaj_anatomia set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #targcurs = 1 goto dalej_anatomia if %licz > 50 goto anatomia goto czekaj_anatomia dalej_anatomia: set #ltargetid %lt event macro 22 goto start1
identyfikacja: if %skill <> 4 goto rozmowa event macro 13 3 set %licz 0czekaj_identyfikacja: set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #targcurs = 1 goto dalej_identyfikacja if %licz > 50 goto identyfikacja goto czekaj_identyfikacja dalej_identyfikacja: set #ltargetid %lt event macro 22 goto start1
rozmowa: if %skill <> 5 goto wykrywanie event macro 13 32 set %licz 0czekaj_rozmowa: scanjournal 1 set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #sex = 0{ if Porozumiales_sie in #journal goto start1 } if #sex = 1 { if Porozumialas_sie in #journal goto start1 } if Nie_udalo_Ci_sie in #journal goto start1 if %licz > 50 goto rozmowa goto czekaj_rozmowa
wykrywanie: if %skill <> 6 goto wiedzaozw event macro 13 14 set %licz 0czekaj_wykrywanie: set %licz %licz + 1 if #menubutton <> n/a goto #menubutton scanjournal 1 if #sex = 0{ if Znalazles_kogos in #journal goto start1 if Nie_znalazles_nikogo in #journal goto start1 } if #sex = 1 { if Znalazlas_kogos in #journal goto start1 if Nie_znalazlas_nikogo in #journal goto start1 } if %licz > 50 goto wykrywanie goto czekaj_wykrywanie
wiedzaozw: if %skill <> 7 goto wiedzaobr event macro 13 2 set %licz 0czekaj_wiedzaozw: set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #targcurs = 1 goto dalej_wiedzaozw if %licz > 50 goto wiedzaozw goto czekaj_wiedzaozw dalej_wiedzaozw: set #ltargetid %lt event macro 22 goto start1
wiedzaobr: if %skill <> 8 goto start1 event macro 13 4 set %licz 0czekaj_wiedzaobr: set %licz %licz + 1 if #menubutton <> n/a goto #menubutton if #targcurs = 1 goto dalej_wiedzaobr if %licz > 50 goto wiedzaobr goto czekaj_wiedzaobr dalej_wiedzaobr: set #ltargetid %lt event macro 22 goto start1
start1: if #menubutton <> n/a goto #menubutton if %ciecie_trwa = 1 goto ciecie
szycie: if #menubutton <> n/a goto #menubutton finditem hag C if #findkind = 0{ set #lobjectid #findid event macro 17 } if #findkind = 1 { ignoreitem #findid goto szycie } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz narzedzi szewskich! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz narzedzi szewskich! if #menubutton = closed menu show set #menubutton n/a goto czekaj } set %licz 0czekaj_narzedzia: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 1 goto dalej_narzedzia if %licz > 50 goto szycie goto czekaj_narzedzia dalej_narzedzia: if #menubutton <> n/a goto #menubutton if %mat = 1 { finditem cui C if #findkind = 0 { set #ltargetid #findid event macro 22 set %licz 0 goto czekaj_szycie } if #findkind = 1 { ignoreitem #findid goto dalej_narzedzia } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz tkaniny! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz tkaniny! if #menubutton = closed menu show set #menubutton n/a goto czekaj } } if %mat = 2 { finditem ddg C if #findkind = 0 { set #ltargetid #findid event macro 22 set %licz 0 goto czekaj_szycie } if #findkind = 1 { ignoreitem #findid goto dalej_narzedzia } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz skory! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz skóry! if #menubutton = closed menu show set #menubutton n/a goto czekaj } } czekaj_szycie: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #contsize = 560_460 goto szyj_ostatni_przedmiot if %licz > 100 goto szycie goto czekaj_szycie szyj_ostatni_przedmiot: if #menubutton <> n/a goto #menubutton if %item = 1 || %last = 1 { click 135 390 goto koniec } click %x %y set %licz 0czekaj_tabela: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #contsize = 560_460 goto dalej_tabela if %licz > 100 goto szycie goto czekaj_tabela dalej_tabela: click %x1 %y1 set %last 1 goto koniec
koniec: if #menubutton <> n/a goto #menubutton if Masz_za_malo in #sysmsg { if %mat = 1 { set #sysmsgcol 1080 if %ciecie = 1 { event sysmessage Masz za malo tkaniny! Skrypt zaczyna ciac przedmioty! goto ciecie } set #sysmsgcol 1080 event sysmessage Nie masz tkaniny! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz tkaniny! if #menubutton = closed menu show set #menubutton n/a goto czekaj } if %mat = 2 { set #sysmsgcol 1080 if %ciecie = 1 { event sysmessage Masz za malo skory! Skrypt zaczyna ciac przedmioty! goto ciecie } set #sysmsgcol 1080 event sysmessage Nie masz skory! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz skóry! if #menubutton = closed menu show set #menubutton n/a goto czekaj } } if Uszyl in #sysmsg { if %ciecie = 0 goto omin_id if %id1 = 1 goto omin_id id: set #targcurs 1 set #sysmsgcol 1090 event sysmessage Wskaz teraz uszyty przedmiot, aby skrypt mogl pozniej pociac przedmioty! menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 35 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Stan: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Wskaz teraz uszyty przedmiot menu font color blue menu text blad 15 277 aby skrypt mogl pozniej pociac przedmioty! if #menubutton = closed menu show set #menubutton n/a set %licz 0 czekaj_id: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 0 goto dalej_id if %licz > 100 goto id goto czekaj_id dalej_id: set %id #ltargetid set #sysmsgcol 1082 event sysmessage Zapisano. menu delete ramka menu delete blad menu window size 250 240 set %id1 1 omin_id: scanjournal 2 wait 1s if W_pojemniku in #journal { set #sysmsgcol 1080 if %ciecie = 1 { event macro 1 .grab event sysmessage W pojemniku nie ma juz miejsca! Skrypt zaczyna ciac przedmioty! wait 10 goto ciecie } set #sysmsgcol 1080 event sysmessage W pojemniku nie ma juz miejsca! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 W pojemniku nie ma juz miejsca! if #menubutton = closed menu show set #menubutton n/a goto czekaj } goto start } if Zniszczyl in #sysmsg goto start if Your in #sysmsg goto start goto koniec
ciecie: if #menubutton <> n/a goto #menubutton set %ciecie_trwa 1 finditem kag C if #findkind = 0{ set #lobjectid #findid event macro 17 } if #findkind = 1 { ignoreitem #findid goto ciecie } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz nozyczek! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz nożyczek! if #menubutton = closed menu show set #menubutton n/a goto czekaj } set %licz 0czekaj_nozyczki: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 1 goto dalej_nozyczki if %licz > 50 goto ciecie goto czekaj_nozyczki dalej_nozyczki: finditem %id C if #findkind = 0{ set #lobjectid #findid event macro 22 } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc! set %ciecie_trwa 0 goto start } koniec1: if #menubutton <> n/a goto #menubutton if Nie_mozesz_pociac in #sysmsg { if %rzut = 0 goto koniec11 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie } if #CONTSIZE = 188_118 { if %rzut = 0 goto koniec11 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie } koniec11: if Pociales in #sysmsg goto ciecie2 if Nie_udalo_Ci in #sysmsg goto ciecie2 goto koniec1
ciecie2: if #menubutton <> n/a goto #menubutton finditem kag C if #findkind = 0{ set #lobjectid #findid event macro 17 } if #findkind = 1 { ignoreitem #findid goto ciecie2 } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz nozyczek! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz nożyczek! if #menubutton = closed menu show set #menubutton n/a goto czekaj } set %licz 0czekaj_nozyczki2: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 1 goto dalej_nozyczki2 if %licz > 50 goto ciecie2 goto czekaj_nozyczki2 dalej_nozyczki2: finditem %id C if #findkind = 0{ set #lobjectid #findid event macro 22 } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc! set %ciecie_trwa 0 goto start } koniec2: if #menubutton <> n/a goto #menubutton if Nie_mozesz_pociac in #sysmsg { if %rzut = 0 goto koniec11 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie2 } if #CONTSIZE = 188_118 { if %rzut = 0 goto koniec11 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie2 } koniec22: if Pociales in #sysmsg goto ciecie3 if Nie_udalo_Ci in #sysmsg goto ciecie3 goto koniec2
ciecie3: if #menubutton <> n/a goto #menubutton finditem kag C if #findkind = 0{ set #lobjectid #findid event macro 17 } if #findkind = 1 { ignoreitem #findid goto ciecie3 } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz nozyczek! menu font size 10 menu font color red menu font style b menu font bgcolor btnface menu delete startp menu delete stopp menu button startp 10 210 60 25 START menu shape ramka 10 240 230 18 3 6 1 blue 7 $98FB98 menu shape ramka 10 257 230 30 3 6 1 blue 7 $FFF8DC menu font size 9 menu font color red menu font style b menu font bgcolor $98FB98 menu window size 250 300 menu text blad 110 241 Błąd: menu font size 7 menu font bgcolor $FFF8DC menu font color black menu text blad 15 265 Nie masz nożyczek! if #menubutton = closed menu show set #menubutton n/a goto czekaj } set %licz 0czekaj_nozyczki3: if #menubutton <> n/a goto #menubutton set %licz %licz + 1 if #targcurs = 1 goto dalej_nozyczki3 if %licz > 50 goto ciecie3 goto czekaj_nozyczki3 dalej_nozyczki3: finditem %id C if #findkind = 0{ set #lobjectid #findid event macro 22 } if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znaleziono przedmiotu do ciecia! Skrypt zaczyna szyc! set %ciecie_trwa 0 goto start } koniec3: if #menubutton <> n/a goto #menubutton if Nie_mozesz_pociac in #sysmsg { if %rzut = 0 goto koniec33 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie3 } if #CONTSIZE = 188_118 { if %rzut = 0 goto koniec33 click 126 94 event Drag #findID wait 20 click %xr %yr p goto ciecie3 } koniec33: if Pociales in #sysmsg goto start if Nie_udalo_Ci in #sysmsg goto start goto koniec3
|
| eheheheehe
|
3,1415... | 2006, paź 28 08:38
|
|
|
|
|
| Brak postaci | |
|
2014, lis 19 |
[quote='Shadek'] A ma ktos moze makro na Tkactwo?? [/quote]
Wiem, że teraz wszyscy skrypterzy mnie wysmieja ale co tam sprobuj zrobic jeden dywan jaki chcesz a pozniej wlacz skrypt:
autor [adek] start: event macro 17 target 5s event macro 22 wait 1s click 510 60 wait 2s ;click 90 100 ;wait 1s ;click 180 100 ;wait 1s click 90 340 wait 10s go to start:
jak nie bedzie działąc to pisz na: 1966357[/quote] |
|
matek | 2006, paź 14 22:41 | 2007, lut 15 00:06
|
|
|
|
| Brak postaci | |
|
2015, sty 25
Lębork | |
UMAGICZNIANIE
ok 40k szkła 25%- 40% światła [turmalin] 40%- 60% wytrzymałości [ametyst] 60%- 7x% obrony [ametyst] 7x%- 8x% mocy [bursztyn] 8x%- 9x% ochrony przed piorunami/zimnem [diament/gwiezdny szfir] 9x%-100% mądrości/stabilności/witalności [szafir/cytryn/rubin]
initevents start: set %licz 0finditem mpf set #lobjectid #findid event macro 17 ksiega: set %licz %licz + 1 if #contsize = 520_350 goto krysztal if %licz > 10 goto start goto ksiega krysztal: click 145 305 wait 170 goto start
All rights reserved.
|
| o lol
|
SiMet | 2006, paź 7 17:24
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
Albo mi sie wydaje albo ten skrypt nie dzialac powinien |
|
..::zMy::.. | 2006, paź 7 15:34
|
|
|
|
|
| Brak postaci | |
|
2012, sie 5
Kwidzyn | |
raist co ty gadasz ze niedarady
--------
;Najpierw zrob recznie anatomie na wybranym celu, odczekaj chwile, a potem play. initevents set %lt #ltargetid start: event macro 13 21 wait 5 scanjournal 1 wait 2 if #charstatus = H goto dalej if nie_udalo_Ci_sie_tu in #journal goto dalej goto start dalej: wait 160 10 anat: set %licz 0event macro 13 1 loop: set #ltargetkind 1 set %licz %licz + 1 wait 1 wait 1 if #targcurs = 1 goto dalej2 if %licz > 5 goto anat goto loop dalej2: set #ltargetid %lt scanjournal 1 event macro 22 event macro 22 event macro 22 wait 160 10 goto start
------------------- masz
|
| ...Oh my Lord, tell me what I\'m livin for Everybody\'s droppin got me knockin on heaven\'s door And all my memories, of seein brothers bleed And everybody grieves, but still nobody sees Recollect your thoughts don\'t get caught up in the mix Cause the media is full of dirty tricks Only God can judge me...
|
..::zMy::.. | 2006, paź 3 21:50 | 2008, sty 4 00:45
|
|
|
|
| Brak postaci | |
|
2012, sie 5
Kwidzyn | |
; Hid+druciarz
set %jj 0set %tryb 0;tryb 0 hid co dwa przedmioty ;tryb 1 hid opoznia druciarza set %okno IOIB set %czass 99 event sysmessage WYBIERZ RUDE set #targcurs 1 czo: wait 1s if ( #targcurs = 1 ) goto czo else set %ruda #ltargetid } set #scnt 11 set #scnt 100 loop: scanjournal 1 if #scnt > 10 || your in #journal || zniszczyles in #journal || stworzyles in #journal { deletejournal if %tryb = 0gosub hid if %tryb = 1 gosub hidd set %jj %jj + 1 event sysmessage %jj gosub drut } goto loop
sub drut { if %czass > 110 set %czass 99 scanjournal 1 if You_must in #journal { set %czass %czass + 3 deletejournal } set #scnt 0finditem JTL if #findid = X { event sysmessage NIE MASZ NARZEDZI halt } set #lobjectid #findid event macro 17 hihi: if #scnt > 7 return wait 5 target 6s if #targcurs = 0goto hihi set #ltargetid %ruda set #ltargetkind 1 event macro 22 czas: if #scnt > 7 return wait 1 if #contsize = 500_460 goto wtf
} else goto czas } return sub hid { if #scnt2 > %czass { set #scnt2 0item: if #targcurs = 1 goto item set %Item #ltargetid set %Timeout 0start: if %Timeout < #scnt { event macro 13 3 target set #ltargetid %Item set #ltargetkind 1 event macro 22 set %Timeout #scnt + 12 set %ctrl 1 goto karto return sub hidd { uko: wait 2 if #scnt2 > %czass { set #scnt2 0event macro 13 21 } else goto uko } return
wtf: wait 1 click 77 390 goto loop
----------------------------------------------------------------------------------- mam proxbe co do tego skryptu powyzej zeby ktos mogl by go naprawic albo dac juz naprawiony na druciarstwo z identyfikacja z gory dziekowac
|
| ...Oh my Lord, tell me what I\'m livin for Everybody\'s droppin got me knockin on heaven\'s door And all my memories, of seein brothers bleed And everybody grieves, but still nobody sees Recollect your thoughts don\'t get caught up in the mix Cause the media is full of dirty tricks Only God can judge me...
|
Sortris | 2006, wrz 24 16:20
|
|
|
|
|
| Nieznajomy | |
|
2005, lis 19
Ostrołęka | |
A oto mój w 90% samodzielny skrypt na druciarstwo + ukrywanie Prosze skrypterów o uwagi
PS. Macie DZIALAJACY skrypt na kowalstwo?
;autor: Sortris ;skrypt ukrywa się, sprawdza wagę, po czym wykonuje ostatnio zrobiony przedmiot ;------------------------------------------------
invents set #sysmsgcol 1075 event sysmessage Sktypt na druciarstwo ukrywanie odpalony [by Sortris]. wait 1
start: event macro 1 0 .um ukrywanie goto waga
waga: if #weight > 750 { set #sysmsgcol 1080 event sysmessage Wazysz ponad 750 kamieni. Odloz troche jesli Ci zycie mile! halt } if #weight < = 750 { ignoreitem #findid goto druciarstwo }
druciarstwo: finditem JTL if #findkind = 0{ set #lobjectid #findid event macro 17 } if #findkind <> 0{ set #sysmsgcol 1080 event sysmessage Nie masz narzedzi! Moze bankier ma? halt } goto ruda ruda: finditem ENK if #findkind = 0{ set #LTARGETID #findid target 10 event macro 22 wait 10 click 140 390 } if #findkind <> 0{ set #sysmsgcol 1080 event sysmessage Nie masz rudy! Lec do biedronki. halt } wait 1 goto start | | | | | | | | | | | | |
| | | |
|