|
|
SiMet | 2008, sie 15 00:11
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
;autor: modyfikacje: ReDrack ;Skrypt sluzy do produkcji strzal i beltow (przy ewentualnym koxie ukrywania lub anatomii). ;Aby skrypt dzialal prawidlowo, nalezy najpierw osobiscie stworzyc jedna strzale/belt. ;W przeciwnym wypadku skrypt moze sie zaciac przy findid piorka i strzalek. ;Jezeli ma cwiczyc anatomie, to nalezy przed samym wlaczeniem skryptu ocenic anatomia NPC'a, na ktorym ma byc cwiczony skill.
initevents set %lobj #ltargetid set %produkcja 1 ;wpisz, co ma robic skrypt (0 - strzaly, 1 - belty) set %skill 3 ;wpisz, co skrypt ma koxac przy okazji (1 - ukrywanie, 2 - anatomia) set %profile 296_136 set %plecak #BACKPACKID finditem CKF_ZJF C_ , %plecak ;woreczek lub plecak set %worek #FINDID
if %produkcja = 0{ set %x 60 set %y 60 } if %produkcja = 1 { set %x 105 set %y 60 }
start: finditem VLK C_ , %plecak ;znajduje piora w w plecaku Exevent Drag #findid wait 1 Exevent Dropc %worek ;rzuca jedno piorko do plecaka wait 1 finditem SLK C_ , %plecak ;znajduje strzaly set #lobjectid #findid piora: finditem VLK C_ , %worek ;znajduje pioro w worku if #findkind = -1 goto piora set #ltargetid #findid event macro 17 0target 100s event macro 22 0luk: if #CONTSIZE = %profile { wait 1 dalszyn: set %contposx #contposx + %x set %contposy #contposy + %y click %contposx %contposy d wait 1 if #contsize = %profile goto dalszyn goto pat } goto luk pat: wait 8s waiting: if Stworzyl in #sysmsg goto hid if Zniszczyl in #sysmsg goto hid if Your_skill in #sysmsg goto hid if Oddal in #sysmsg goto hid goto waiting
hid: if %skill = 1 goto hiding goto anat hiding: event macro 13 21 wait 1 if H in #charstatus goto start if Nie_udalo_ in #sysmsg goto start if Your_ in #sysmsg goto start goto hiding
anat: if %skill = 2 goto anatomia if %skill = 3 goto wob goto start anatomia: event macro 13 1 wait 1 if Wybierz_cel in #sysmsg goto anatomia2 goto anatomia anatomia2: set #ltargetid %lobj wait 1 event macro 22 if Cel in #sysmsg goto start if Nie_jestes_ in #sysmsg goto start if Your_ in #sysmsg goto start goto anatomia2
wob: event macro 1 0 .um wiedza o zwierzetach wait 1 if Wybierz_stworzenie in #sysmsg goto wob1 goto wob
wob1: set #ltargetid %lobj wait 1 event macro 22 if nie_udalo in #sysmsg goto start if zwierze in #sysmsg goto start goto wob1 |
|
tuba | 2007, maj 26 16:22
|
|
|
|
|
| Trohtr | |
|
2019, sty 20
Warszawa | |
;Autor: [nGz modernizowal Villa] ;wersja 1,3 ;Makro lowi ryby i cwiczy hida obszar lowienai to 25 miejsc lacznie z centralnym w ktorym zaczynamy (skrypt tak szybko lowi ze ukryanie jest cwiczone co drugi polow) ;Wskaz najpierw miejsce gdzie ma lowic, skrypt bedzie lowil w nim oraz dookola niego - wiec wskaz troche dalej od ladu. initevents set %low 0set %lx #ltargetx set %ly #ltargety set %zacz 0start: if %low = 0 { set #ltargetx %lx set #ltargety %ly } if %low = 1 { set #ltargetx %lx set #ltargety %ly + 1 } if %low = 2 { set #ltargetx %lx - 1 set #ltargety %ly } if %low = 3 { set #ltargetx %lx set #ltargety %ly - 1 } if %low = 4 { set #ltargetx %lx + 1 set #ltargety %ly } if %low = 5 { set #ltargetx %lx + 1 set #ltargety %ly + 1 } if %low = 6 { set #ltargetx %lx set #ltargety %ly + 2 } if %low = 7 { set #ltargetx %lx - 1 set #ltargety %ly + 1 } if %low = 8 { set #ltargetx %lx - 2 set #ltargety %ly } if %low = 9 { set #ltargetx %lx - 1 set #ltargety %ly - 1 } if %low = 10 { set #ltargetx %lx set #ltargety %ly - 2 } if %low = 11 { set #ltargetx %lx + 1 set #ltargety %ly - 1 } if %low = 12 { set #ltargetx %lx + 2 set #ltargety %ly } if %low = 13 { set #ltargetx %lx + 2 set #ltargety %ly + 1 } if %low = 14 { set #ltargetx %lx + 2 set #ltargety %ly + 2 } if %low = 15 { set #ltargetx %lx + 1 set #ltargety %ly + 2 } if %low = 16 { set #ltargetx %lx - 1 set #ltargety %ly + 2 } if %low = 17 { set #ltargetx %lx - 2 set #ltargety %ly + 2 } if %low = 18 { set #ltargetx %lx - 2 set #ltargety %ly + 1 } if %low = 19 { set #ltargetx %lx - 2 set #ltargety %ly - 1 } if %low = 20 { set #ltargetx %lx - 2 set #ltargety %ly - 2 } if %low = 21 { set #ltargetx %lx - 1 set #ltargety %ly - 2 } if %low = 22 { set #ltargetx %lx + 1 set #ltargety %ly - 2 } if %low = 23 { set #ltargetx %lx + 2 set #ltargety %ly - 2 } if %low = 24 { set #ltargetx %lx + 2 set #ltargety %ly - 1 } if %low = 25 { set #ltargetx %lx + 3 set #ltargety %ly } if %low = 26 { set #ltargetx %lx + 3 set #ltargety %ly + 1 } if %low = 27 { set #ltargetx %lx + 3 set #ltargety %ly + 2 } if %low = 28 { set #ltargetx %lx + 2 set #ltargety %ly + 3 } if %low = 29 { set #ltargetx %lx + 1 set #ltargety %ly + 3 } if %low = 30 { set #ltargetx %lx set #ltargety %ly + 3 } if %low = 31 { set #ltargetx %lx - 1 set #ltargety %ly + 3 } if %low = 32 { set #ltargetx %lx - 2 set #ltargety %ly + 3 } if %low = 33 { set #ltargetx %lx - 3 set #ltargety %ly + 2 } if %low = 34 { set #ltargetx %lx - 3 set #ltargety %ly + 1 } if %low = 35 { set #ltargetx %lx - 3 set #ltargety %ly } if %low = 36 { set #ltargetx %lx - 3 set #ltargety %ly - 1 } if %low = 37 { set #ltargetx %lx - 3 set #ltargety %ly - 2 } if %low = 38 { set #ltargetx %lx - 2 set #ltargety %ly - 3 } if %low = 39 { set #ltargetx %lx - 1 set #ltargety %ly - 3 } if %low = 40 { set #ltargetx %lx set #ltargety %ly - 3 } if %low = 41 { set #ltargetx %lx + 1 set #ltargety %ly - 3 } if %low = 42 { set #ltargetx %lx + 2 set #ltargety %ly - 3 } if %low = 43 { set #ltargetx %lx + 3 set #ltargety %ly - 2 } if %low = 44 { set #ltargetx %lx + 3 set #ltargety %ly - 1 } if %zacz = 0 { set #sysmsgcol 1264 event sysmessage Zaczynam lowic - 1 set %zacz 1 wait 1 } kijak: finditem xhf C if #findkind = -1 halt set #ltargetkind 3 set #lobjectid #findid set %licz2 0event macro 17 loop2: set %licz2 %licz2 + 1 wait 1 wait 1 if #targcurs = 1 goto targ if %licz2 > 5 goto kijak goto loop2 targ: event macro 22 event macro 22 event macro 22 set %licz 0petla: set %licz %licz + 1 scanjournal 1 if Wyglada_jakby_juz_tu_nie_bylo in #journal || Nie_widzisz_tego in #journal || Stoisz_za_daleko in #journal || To_nie_wyglada_na_wode in #journal { if %low = 44 { set #sysmsgcol 1080 event sysmessage Skonczono lowic halt } set %low %low + 1 set %rlow %low + 1 set #sysmsgcol 1264 wait 1 event sysmessage Zaczynam lowic w nastepnym miejscu - %rlow goto next } if Your_skill_in_Rybactwo in #journal goto next if Your_dexterity in #journal goto next if Zlapal in #journal && ryb in #journal goto next if Slabo_dzis_biora in #journal goto next if niebezpieczne in #journal && wody in #journal goto next if %licz > 110 goto next goto petla next:
event macro 1 ^ .um ukrywanie goto start
mi tam te dziala
|
| www.youtube.com/TheTubaq
|
larz | 2007, gru 19 19:02
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25
Ostrołęka | |
;Autor: [nGz] ;Wersja 1.3 ;Wyszukuje drzewa w okreslonym zasiegu i podchodzi do nich. rzerzuca klody do juczniaka. ;Wazne jest aby nie miec nic zbindowanego pod klawiszami: Cursor Up, Cursor Down, Cursor Left, Cursor Right, Home, End, Page Up i Page Down, poniewaz euo uzywa ich do poruszania sie postacia. ;Lista nazw drzew: ;- drzewo ;- cedr ;- dab ;- orzech ;- wierzba ;- cyprys ;- cis ;- o'hii ;%Rodzaje_drzew - defaultowo drzewo_cedr_dab_orzech_wierzba_cyprys_cis_o'hii - okresla jakich drzew ma szukac, jesli chcesz tylko zwykle drzewa to zmien na drzewo, a jesli np. cyprysowe i ohii to zmien na cyprys_o'hii (te nazwy musza byc dokladnie takie same jak na liscie)(nie mozna uzywac spacji, zamiast tego stosowac "_" )(kolejnosc jest obojetna, nic nieznaczaca). ;%Skill - defaultowo 0 - nie robi nic miedzy scinaniami, 1 - Ukrywanie, 2 - Anatomia, 3 - Wiedza o broni, 4 - Wiedza o zwierzetach (po wlaczeniu play skrypt poprosi o wskazanie celu dla skilli, wiedze o broni robi na toporku). ;%Skill_powtorzenia - defaultowo 1 - okresla co ile powtorzen ma robic skilla. ;%Sciezka_do_wava - sciezka do pliku wav (nie moze zawierac spacji), ktory bedzie odgrywany przy zatrzymywaniu skryptu. ;%Max_waga - defaultowo 600 - jesli twoja waga przekroczy ta wartosc skrypt zatrzyma sie. ;%Max_odleglosc - defaultowo 13 - maxymalna odleglosc od postaci w jakiej beda szukane drzewa (czyli defaultowo przeszukuje kwadrat o boku 27, a postac jest w jego centrum)(jesli ta odleglosc bedzie za duza to nie bedzie w stanie dojsc do drzewa). ;================ set %Rodzaje_drzew wierzba set %Skill 2 set %Skill_powtorzenia 1 set %Sciezka_do_wava C:\alarm.wav set %Max_waga 600 set %Max_odleglosc 13 ;================ set %Id_plecaka_juczniaka 0gosub Wskaz_juczniaka set #lpc 200 set %Plecak_lamy_pelny 0if %Skill 0 set %Licznik_powtorzen %Skill_powtorzenia if %Skill = 2 || %Skill = 4 set %Cel_skilla 0tile Init if drzewo in %Rodzaje_drzew set %Rodzaje_drzew tree_ , %Rodzaje_drzew set %x_poczatek #charposx - %Max_odleglosc set %y_poczatek #charposy - %Max_odleglosc set %x_koniec #charposx + %Max_odleglosc set %y_koniec #charposy + %Max_odleglosc for %x %x_poczatek %x_koniec { for %y %y_poczatek %y_koniec { tile Cnt %x %y for %i 1 #tilecnt { tile Get %x %y %i if #tilename in %Rodzaje_drzew && Impassable in #tileflags { set #lpc 10 gosub Podejdz_do_drzewa if #result gosub Scinaj_drzewo else { set #sysmsgcol 1080 event sysmessage Nie udalo mi sie dostac do drzewa. set #sysmsgcol 1152 event sysmessage Szukam dalej. } set #lpc 200 break } } } } sound %Sciezka_do_wava set #sysmsgcol 1152 event sysmessage Przeszukiwanie skonczone. halt
sub Podejdz_do_drzewa set #sysmsgcol 1152 event sysmessage Znalazlem drzewo o nazwie #tilename , #dot if %Id_plecaka_juczniaka 0 event macro 1 0 za mna deletejournal set %Uzyte_move_x_y 0Zacznij_isc: event pathfind %x %y #tilez set %Timer #scnt2 + 5 repeat if %Timer < #scnt2 goto Zacznij_isc scanjournal 1 if #journal = Can't_get_there return #false until #journal = Pathfinding! set %Timer 0set %Char_x_old -1 set %Char_y_old -1 repeat if %Timer < #scnt2 { scanjournal 1 if Zapisywanie_Stanu_Swiata in #journal || #journal = Pathfinding! { if #journal = Pathfinding! { scanjournal 2 if Zapisywanie_Stanu_Swiata in #journal goto Przeczekaj_zapis goto Omin_przeczekiwanie_zapisu } Przeczekaj_zapis: wait 90 continue } Omin_przeczekiwanie_zapisu: if %Char_x_old = #charposx && %Char_y_old = #charposy { if %Uzyte_move_x_y = 2 return #false gosub Uzyj_move_x_y if ! #result return #false goto Zacznij_isc } set %Char_x_old #charposx set %Char_y_old #charposy set %Timer #scnt2 + 30 } if #stamina < 1 && %Odleglosc > 1 { repeat gosub Oblicz_odleglosc until #stamina > 9 || %Odleglosc < 2 event pathfind %x %y #tilez } gosub Oblicz_odleglosc until %Odleglosc < 2 if %Odleglosc < 1 return #false return #true
sub Oblicz_odleglosc set %Odl_x %x - #charposx abs set %Odl_y %y - #charposy abs if %Odl_x > %Odl_y set %Odleglosc %Odl_x else set %Odleglosc %Odl_y return
sub Uzyj_move_x_y move %x %y 1 9s if #charposx = %Char_x_old && #charposy = %Char_y_old return #false set %Uzyte_move_x_y %Uzyte_move_x_y + 1 return #true
sub Scinaj_drzewo Petla_scinania_drzewa: deletejournal if %Licznik_powtorzen = %Skill_powtorzenia && %Skill 0{ if %Skill = 1 gosub Ukrywanie if %Skill = 2 gosub Anatomia if %Skill = 3 gosub Armslore if %Skill = 4 gosub Animallore } if %Skill 0 set %Licznik_powtorzen %Licznik_powtorzen - 1 if %Licznik_powtorzen %Max_waga { sound %Sciezka_do_wava set #sysmsgcol 1080 event sysmessage Przekroczono maxymalna wage - %Max_waga halt } finditem fsf C_ , #charid if #findkind = -1 { sound %Sciezka_do_wava set #sysmsgcol 1080 event sysmessage Nie znaleziono Topora. halt } set #lobjectid #findid event macro 17 set %Timer #scnt2 + 5 repeat if %Timer < #scnt2 goto Toporek until #targcurs = 1 Celownik: gosub Ustaw_x_y_drzewa event macro 22 set %Timer #scnt2 + 5 repeat if %Timer < #scnt2 goto Celownik until #targcurs = 0set %Timer_scinania_drzewa #scnt2 + 110 if %Id_plecaka_juczniaka 0 && %Plecak_lamy_pelny = 0 gosub Przezuc_klody repeat scanjournal 1 if Stoisz_za_daleko in #journal || Nie_wiesz_jak_uzyc_te_przedmioty_razem in #journal || Nie_mozesz_tego_uzyc in #journal || To_drzewo_wyglada_juz_na_wystarczajaco_obciete in #journal return until s_troche_klod_i_wlozyl in #journal || Zniszczyles_klody in #journal || Zniszczylas_klody in #journal || Oddaliles_sie in #journal || Oddalilas_sie in #journal || %Timer_scinania_drzewa < #scnt2 goto Petla_scinania_drzewa
sub Ustaw_x_y_drzewa set #ltargetx %x set #ltargety %y set #ltargetz #tilez set #ltargetkind 3 set #ltargettile #tiletype return
sub Ukrywanie Skill_ukrywanie: event macro 1 0 .um ukr set %Timer #scnt2 + 2 repeat if %Timer < #scnt2 goto Skill_ukrywanie scanjournal 1 until ukryl in #journal || nie_udalo_Ci_sie_ukryc in #journal || Wrog_Cie_juz in #journal || Nie_uda_Ci_sie_schowac_wierzchowca in #journal return
sub Anatomia if %Cel_skilla = 0 gosub Wskaz_Cel Anatomii Skill_anatomia: event macro 1 0 .um ana gosub Obsluz_celownik_skilla if ! #result goto Skill_anatomia return
sub Armslore finditem fsf C_ , #charid if #findkind = -1 return set %Cel_skilla #findid Skill_armslore: event macro 1 0 .um bro gosub Obsluz_celownik_skilla if ! #result goto Skill_armslore return
sub Animallore if %Cel_skilla = 0 gosub Wskaz_Cel Animallore Skill_animallore: event macro 1 0 .um wie gosub Obsluz_celownik_skilla if ! #result goto Skill_animallore return
sub Obsluz_celownik_skilla set %Timer #scnt2 + 3 repeat if %Timer < #scnt2 return #false until #targcurs = 1 Celownik_skilla: set #ltargetkind 1 set #ltargetid %Cel_skilla event macro 22 set %Timer #scnt2 + 2 repeat if %Timer < #scnt2 goto Celownik_skilla until #targcurs = 0return #true
sub Wskaz_Cel set #targcurs 1 set #sysmsgcol 1152 Wskaz_cel_skilla: if %1 = Animallore event sysmessage Wskaz cel dla Wiedzy o zwierzetach. else event sysmessage Wskaz cel dla %1 , #dot set %Timer #scnt2 + 90 repeat if %Timer < #scnt2 goto Wskaz_cel_skilla onhotkey ESC goto Wcisnieto_ESC until #targcurs = 0onhotkey ESC { Wcisnieto_ESC: set #sysmsgcol 1080 event sysmessage Nie wskazales celu. halt } set %Cel_skilla #ltargetid return
sub Przezuc_klody Poczatek_przezucania_klod: finditem zlk C_ , #backpackid if #findkind = -1 return set %Id_klod #findid set %Stack_klod #findstack set %Kolor_klod #findcol Klody_Plecak_juczniaka_petla: finditem %Id_plecaka_juczniaka C_ , #charid if #findkind = -1 { finditem %Id_juczniaka if #finddist > 1 { Klody_Powiedz_podejdzcie: if #finddist > 8 { event sysmessage Juczniak stoi za daleko. return } event macro 1 0 podejdzcie set %Timer #scnt2 + 10 repeat if %Timer < #scnt2 goto Klody_Powiedz_podejdzcie finditem %Id_juczniaka until #finddist < 2 } set #lobjectid #findid event macro 17 goto Klody_Plecak_juczniaka_petla } ExDrag_klod: exevent drag %Id_klod %Stack_klod set %Timer #scnt2 + 25 repeat if %Timer < #scnt2 goto ExDrag_klod finditem %Id_klod C_ , #backpackid until #findkind = -1 finditem zlk C_ , %Id_plecaka_juczniaka set %Id_klod_w_plecaku_juczniaka 0for %k 1 #findcnt { if #findkind = -1 break set #findindex %k if #findcol = %Kolor_klod { set %Id_klod_w_plecaku_juczniaka #findid set %Stack_klod_w_plecaku_juczniaka #findstack break } } set %Cnt_drop_klod 0ExDrop_klod: set %Cnt_drop_klod %Cnt_drop_klod + 1 if %Cnt_drop_klod > 4 goto Poczatek_przezucania_klod exevent dropc %Id_plecaka_juczniaka set %Timer #scnt2 + 12 repeat if %Timer < #scnt2 goto ExDrop_klod scanjournal 1 if That_item_is_too_heavy in #journal { set %Plecak_lamy_pelny 1 return } if %Id_klod_w_plecaku_juczniaka = 0 finditem %Id_klod C_ , %Id_plecaka_juczniaka else finditem %Id_klod_w_plecaku_juczniaka C_ , %Id_plecaka_juczniaka until ( #findkind = 0 && %Id_klod_w_plecaku_juczniaka = 0 ) || ( #findstack = %Stack_klod_w_plecaku_juczniaka + %Stack_klod && %Id_klod_w_plecaku_juczniaka 0 ) goto Poczatek_przezucania_klod
sub Wskaz_juczniaka set #targcurs 1 set #sysmsgcol 1152 Wskaz_juczniaka: event sysmessage Wskaz juczniaka. set %Timer #scnt2 + 90 repeat if %Timer < #scnt2 goto Wskaz_juczniaka onhotkey ESC return until #targcurs = 0onhotkey ESC return set %Id_juczniaka #ltargetid Sprawdz_tego_juczniaka: finditem %Id_juczniaka if #findtype wn && #findtype bo { event sysmessage To nie jest ani kon ani lama juczna. return } if #finddist > 1 { if #finddist > 8 { event sysmessage Juczniak stoi za daleko. return } event macro 1 0 podejdzcie set %Timer #scnt2 + 10 repeat if %Timer < #scnt2 goto Sprawdz_tego_juczniaka finditem %Id_juczniaka until #finddist < 2 } set %Id_jakiegos_gumpa #contid set #lobjectid #findid event macro 17 set %Timer #scnt2 + 10 repeat until #contid %Id_jakiegos_gumpa || %Timer < #scnt2 finditem #contid C_ , #charid if #findtype zjf || #findid = #backpackid goto Sprawdz_tego_juczniaka set %Id_plecaka_juczniaka #contid return
|
| Sortris napisał: "Dla ludzi, którzy tworzą takie tematy, jak już kiedyś pisałem, powinien być perm, śmierć w realu i skazanie do Piekła, z uprzednim podpisaniem papierka na oddanie chorym narządów z wyjątkiem mózgu."
|
xcw | 2013, gru 28 14:26
|
|
|
|
|
| Postać ukryta | |
|
2010, lip 6
Mielec | |
;by odzi o wcisnieciu przycisku F5 skrypt znajduje nam wybrane zioło i idzie je zrywac
set %ji #jindex repeat onhotkey f5 gosub start until #false
sub start if #str = 45 gosub bles finditem * G_17 for #findindex 1 #findcnt { if Zapisywanie in #journal gosub zapis if #findindex >= #findcnt && #findtype TIJ || #findindex >= #findcnt && #findtype NIJ || #findindex >= #findcnt && #findtype XIJ || #findindex >= #findcnt && #findtype FJJ ;|| #findindex >= #findcnt && #findtype KBF || #findindex >= #findcnt && #findtype TIJ { set #sysmsgcol 45 event sysmessage Niemam krzakow!!!! sound E:\ringin.wav ignoreitem reset return } if #findtype = KBF || #findtype = TIJ || #findtype = NIJ || #findtype = XIJ || #findtype = FJJ ;|| #findtype = KBF || #findtype = TIJ { gosub idz #findx #findy gosub zbieraj #findid continue } } return
sub bles event macro 15 16 repeat { if %ji < #jindex { set %ji %ji + 1 scanjournal %ji if Zapisywanie in #journal gosub zapis } } until #targcurs = 1 event macro 23 return
sub zapis repeat { if %ji < #jindex { set %ji %ji + 1 scanjournal %ji if Koniec_zapisywania in #journal { wait 7s return } } } until #false return
sub idz event pathfind %1 %2 repeat until #charposx = %1 && #charposy = %2 return
sub zbieraj set #lobjectid %1 event macro 17 repeat { if %ji < #jindex { set %ji %ji + 1 scanjournal %ji if Udalo_Ci_sie_ in #journal || ( in #journal || Your_skill_in_Zielarstwo in #journal || Oddalilas_ in #journal event macro 17 if Stoisz_za_daleko. in #journal return if Z_tej_rosliny_juz_nic in #journal { ignoreitem %1 return } } } until #false return
sub |
|
loleQ | 2007, gru 26 22:46
|
|
|
|
|
Nie istnieje |
roste makro na wydlubywanie czarnych perel z muszelek initevents muszelka: finditem LXF GXF YWF ZWF C set #lobjectid #findid event macro 17 0wait 10 goto muszelka
jakby ktos szukal |
|
Nomad | 2008, kwi 1 23:01
|
|
|
|
|
| Brak postaci | |
|
2014, lip 30 |
;skrypt by Poncky
start: event macro 1 0 .um ukrywanie finditem XDF_IEF_HEF_YDF C if #findkind = -1 { event sysmessage Nie masz rybek, skrypt wylaczony halt } set %ryba #findid
petla: finditem kag C if #findkind = -1 { event sysmessage Nie ma nozyczek, skrypt wylaczony halt } set #lobjectid #findid set %timer #scnt2 + 30 event macro 17 0repeat if #scnt2 > %timer goto petla until #targcurs = 1 set #ltargetid %rybka event macro 22 0goto start
|
| Lets Smoke
|
Demi | 2008, mar 22 00:31
|
|
|
|
|
| Brak postaci | |
|
2015, wrz 17
GRU | |
;Skrypt: ciecie bel materialu ;Autor: Dem ;Nalezy pierw pociac tkanine raz, po czym wlaczyc skrypt
Initevents set #sysmsgcol 1283 event sysmessage Skrypt by Dem
sub ciecie finditem kag C if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz nozyczek! halt } if #findkind = 1 set #lobjectid #findid event macro 17 finditem oag_zzf_mag_lag set #ltargetid #findid wait 5 event macro 22 wait 6s gosub ciecie |
|
Goeff | 2008, cze 12 09:42
|
|
|
|
|
| Brak postaci | |
|
2009, lut 23 |
;Tworzenie beltow/strzal by Raist v1.4 iora i patyki musza znajdowac sie luzem w plecaku glowny ;konieczne jest posiadanie otwartego worka lub plecaka ;w plecaku glownym (do niego beda przenoszone piora) ;----------------------------------------------------------- set %hid 1 ;r /exevent drag #findid odnies set %czas #scnt2 + 25 repeat if %czas < #scnt2 goto exdrag finditem VLK C_ , %plecak until #findstack %tmp exdrop: exevent dropc %worek oloz set %czas #scnt2 + 25 repeat if %czas < #scnt2 goto exdrop finditem VLK C_ , %worek until #findkind -1 goto start
luk: if #CONTSIZE = %profile { click 106 61 d ;wspolrzedne klika wait 5 goto pat } else { goto luk }
pat: set %jrnl #jindex while #true { if #CONTSIZE = %profile { if #contposx 0 || #contposy 0 { set #contposx 0 set #contposy 0 } goto luk } if #jindex > %jrnl { set %jrnl %jrnl + 1 scanjournal %jrnl if Stworzylas in #journal || Stworzyles in #journal || Zniszczylas in #journal || Zniszczyles in #journal { wait 10 goto hid } } }
hid: if %hid = 1 { set %jrnl #jindex event macro 1 0 .um ukrywanie goto czekajhid } goto start
czekajhid: while #true { if #jindex > %jrnl { set %jrnl %jrnl + 1 scanjournal %jrnl if ukryles in #journal || ukrylas in #journal || Nie_udalo_ci_sie_ukryc in #journal { goto start } } }
Bylby ktos w stanie dodac do tego skryptu, dodatkowe skille umyslowe tj, anatomia i wiedza o zwierzetach ? | | | | | | | | | | | |
| | | |
|