|
|
SiMet | 2008, mar 13 22:41
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
Tak, pomimo ze jestem informatykiem i za goto na studiach by sie dostalo mocno po glowie.
Dosc czesto uzywa sie tez gosub ktore sluza dokladnie jako funkcje.
W sumie masz racje, mozna dosc duzo goto zastapic poprzez zwykle petle: repeat until czy for
Ale nie wyobrazam sobie pisania czegokolwiek w eUO bez goto. I prosze, nie traktuj eUO jak jezykow programowania czy nawet jezykow skryptowych. Dla mnie ten jezyk zadzi sie innymi zasadami. I szczerze mowiac, skrypty raczej nie sa na tyle dlugie zeby nie dalo sie polapac przez to goto co gdzie i jak sie dzieje. Nie zamazuje to az tak bardzo czytelnosci kodu. Ale jezeli zaczniesz pisac bez tej funkcji skrypty - Chwala Ci za to |
|
rosak | 2008, mar 14 16:41
|
|
|
|
|
| Brak postaci | |
|
2009, lut 16
Gdynia City | |
Witam, jest to skrypt SiMet'a na lowienie z lodzi i co 4 machniecia wedka ukrywa sie, pomoze mi ktos przeksztalcic go tak, zeby co 2 machniecia lowil? ( btw. czy 4 machniecia to dobrze? czy lepiej by bylo 2? albo inaczej) z gory dziekuje
initevents set %ile 0set #sysmsgcol 1080
start: set #ltargetx #charPosX - 6 + #random % 12 wait 1 set #ltargetY #charPosY - 6 + #random % 12 set %a #ltargetx - #charPosX set %b #ltargety - #charPosY event sysmessage X: %a Y: %b goto loop loop:
if %ile % 2 = 0{ wait 4 event macro 13 21 } set %ile %ile + 1 event macro 17 target 5s event macro 22 wait 2s deletejournal wait 16 scanjournal 1 wait 3 if Wyglada_jakby_juz_tu_nie_bylo in #journal { event sysmessage Zmieniam miejsce lowienia goto start } if Nie_widzisz_tego in #journal { event sysmessage Zmieniam miejsce lowienia goto start } goto loop |
|
SiMet | 2008, mar 15 14:14
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
if %ile % 2 =
0tam masz ze powinien sie ukrywac co 2 raz, sprobuj ustawic if %ile % 3 = 0 wtedy powinien sie ukrywac co 3 raz. Mozliwe ze jak ukrywa sie co 2 raz (czyli tak jak jest teraz) to nie jest jeszcze delay od poprzedniego ukrywania. Sprawdz |
|
Nomad | 2008, kwi 6 21:45
|
|
|
|
|
| Brak postaci | |
|
2014, lip 30 |
eriah:
http://sabik87.neostrada.pl/uo/macros/menu/inskrypcja_menu.txt
Zulio napisz dokladnie co trzeba zrobic (np otwieram worek druida klikam krysztalek a potem klikam na ziemie zeby przywolac)
|
| Lets Smoke
|
hali | 2008, mar 20 13:18
|
|
|
|
|
| Brak postaci | |
|
2009, kwi 15
BDG | |
Mam takie makro przydatne dla krawca tylko ze ma problem z cieciam bali na material. Pierwszy raz czynnosc jest wykonana dobrze ale juz nie powtarza sie. Moze ktos potrafil by naprawic ten skrypt. Z gory dziekuje.
rzerabianie welny by Raist rzerabia welne na bele materialu, po czym ;tnie bele na tkanine, moze to robic z hidem ;------------------------------------------------------------------------------------ set %hajd 1 ; 0-bez hida 1-z hidem ;------------------------------------------------------------------------------------ initevents
finditem xeg_jfg_GFG_mkg G_1 ; znajduje kolowrotek set #ltargetid #findid
welna: finditem off C ; znajduje welne if #findkind = -1 goto przedza set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj: if Stworzylas in #sysmsg || Stworzyles in #sysmsg { if %hajd = 1 gosub hid goto welna } else goto czekaj
przedza: finditem plf C ; znajduje przedze if #findkind = -1 { finditem idg_vcg G_1 ; znajduje narzedzie tkackie set #ltargetid #findid goto nici } set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj2: if Zwinalas in #sysmsg || Zwinales in #sysmsg { if %hajd = 1 gosub hid goto przedza } else goto czekaj2
nici: finditem uag C ; znajduje nici if #findkind = -1 { finditem kag C ; znajduje nozyczki set #ltargetid #findid goto ciecie } set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj3: if Stworzylas in #sysmsg || Stworzyles in #sysmsg { if %hajd = 1 gosub hid goto nici } if Masz_za in #sysmsg { goto ciecie } else goto czekaj3
ciecie: finditem kag C ; znajduje nozyczki set #lobjectid #findid finditem oag_mag_lag_zzf C ; znajduje tkanine if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Welna przerobiona halt } set #ltargetid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj4: if Pocielas in #sysmsg || Pocieles in #sysmsg { if %hajd = 1 gosub hid goto ciecie } else goto czekaj4
sub hid set %jrnl #jindex event macro 1 0 .um ukrywanie start: while #true { if #jindex > %jrnl { set %jrnl %jrnl + 1 scanjournal %jrnl if Juz_cos in #journal || ukrylas in #journal || ukryles in #journal || Nie_udalo in #journal return } } |
|
hali | 2008, mar 21 20:00
|
|
|
|
|
| Brak postaci | |
|
2009, kwi 15
BDG | |
To moze ktos by mi napisal sam skrypt na ciecie bali materialu. Z gory dziekuje |
|
JetBoy | 2008, mar 21 21:56
|
|
|
|
|
| Brak postaci | |
|
2008, maj 14 |
Dołączam sie do prośby hali |
|
JetBoy | 2008, mar 21 22:03
|
|
|
|
|
| Brak postaci | |
|
2008, maj 14 |
; przerabianie welny by Raist ; przerabia welne na bele materialu, po czym ; tnie bele na tkanine, moze to robic z hidem ;------------------------------------------------------------------------------------ set %hajd 0 ; 0-bez hida 1-z hidem ;------------------------------------------------------------------------------------ initevents
finditem xeg_jfg_GFG_mkg G_1 ; znajduje kolowrotek set #ltargetid #findid
welna: finditem off C ; znajduje welne if #findkind = -1 goto przedza set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj: if Stworzylas in #sysmsg || Stworzyles in #sysmsg { if %hajd = 1 gosub hid goto welna } else goto czekaj
przedza: finditem plf C ; znajduje przedze if #findkind = -1 { finditem idg_vcg G_1 ; znajduje narzedzie tkackie set #ltargetid #findid goto nici } set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj2: if Zwinalas in #sysmsg || Zwinales in #sysmsg { if %hajd = 1 gosub hid goto przedza } else goto czekaj2
nici: finditem uag C ; znajduje nici if #findkind = -1 { finditem kag C ; znajduje nozyczki set #ltargetid #findid goto ciecie } set #lobjectid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj3: if Stworzylas in #sysmsg || Stworzyles in #sysmsg { if %hajd = 1 gosub hid goto nici } if Masz_za in #sysmsg { goto ciecie } else goto czekaj3
ciecie: finditem kag C ; znajduje nozyczki set #lobjectid #findid finditem oag_mag_lag_zzf C ; znajduje tkanine if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Welna przerobiona halt } set #ltargetid #findid event macro 17 0 ;lobject target 20s event macro 22 0 ;ltarget
czekaj4: if Pociales in #sysmsg || Pociales in #sysmsg { if %hajd = 1 gosub hid goto ciecie } else goto czekaj4
sub hid set %jrnl #jindex event macro 1 0 .um ukrywanie start: while #true { if #jindex > %jrnl { set %jrnl %jrnl + 1 scanjournal %jrnl if Juz_cos in #journal || ukrylas in #journal || ukryles in #journal || Nie_udalo in #journal return } }
Teraz bedzie Ci dzialac | | | | | | | | | |
| | | |
|