|
|
kamyk | 2007, kwi 12 19:54
|
|
|
|
|
Nie istnieje |
initevents start: set %kegid 0ignoreitem reset findkeg: finditem nuf ignoreitem #findid set %kegid #findid if #findkind = -1 goto start if #findkind = 1 goto findkeg wait 10 pois: event macro 13 30 wait 10 usekeg: set #ltargetid %kegid event macro 22 target wait 10 scanjournal 1 if Keg_jest in #jurnal goto findkeg findhalka: finditem dci ignoreitem #findid if #findkind = 1 goto findhalka if #findkind = -1 halt targethalka: set #ltargetid #findid set #ltargetkind 1 event macro 22 wait 210 if Udalo_ci_sie_zatruc_przedmiot. in #sysmsg wait 10 goto start if Nie_udalo_ci_sie. in #sysmsg wait 10 goto start |
|
Don | 2007, kwi 11 21:48
|
|
|
|
|
| Brak postaci | |
|
2007, cze 9
Kraków | |
Yhhh uzylem tego twojego skryptu:
Truja i ochrania tylko i wylacznie z kega.. wait 1 next: set #ltargetid #findid if #targcurs = 1 goto dalej goto next dalej: wait 1 event macro 22 wait 3 finditem tsf ;
lecz on nie dziala niestety :/... |
|
Goeff | 2007, kwi 9 18:44 | 2007, kwi 9 18:45
|
|
|
|
| Brak postaci | |
|
2009, lut 23 |
Trzymaj byq i pozdro
Autor: [nGz] ;Zrob recznie miksa truty. Potrzebny jest sztylet ; edit by dupol Truje z kega i nie trzeba pierwszego mixa robic set %lo #lobjectid initevents start: set #ltargetkind 1 set #lobjectid %lo event macro 13 30 finditem qmj if #findkind = -1 halt wait 1
Truja i ochrania tylko i wylacznie z kega.. wait 1 next: set #ltargetid #findid if #targcurs = 1 goto dalej goto next dalej: wait 1 event macro 22 wait 3 finditem tsf ; |
|
SiMet | 2007, kwi 5 22:43 | 2007, kwi 5 23:01
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
; Autor: SiMet ; Nazwa: Makro na robienie butli z kociolka + skill umyslowy ; Data stworzenia: 5 IV 2007
set %skill 0 ; 0-nic, 1-ukrywanie, 2-rozmowa z duchami, ; 3-madrosc, 4-anatomia, ; 5-wiedza o zwierzetach
;======================== set #sysmsgcol 1264 event sysmessage Odpalono skrypt na alchemia kociolek + umyslowy event sysmessage Napisal SiMet dla Igora start: if %skill > 2 { event sysmessage Pokaz na czym chcesz robic skill umyslowy set #TARGCURS 1 repeat onhotkey ESC { sound event sysmessage Nie wskazales zwierzaka halt } until #targcurs = 0 set %zwierz #ltargetid }
skill:
if %skill = 1 event macro 1 0 .um ukrywanie if %skill = 2 event macro 1 0 .um rozmowa z duchami if %skill = 3 { event macro 1 0 .um madrosc target 5s set #ltargetid %zwierz event macro 22 }
if %skill = 4 { event macro 1 0 .um anatomia target 5s set #ltargetid %zwierz event macro 22 } if %skill = 5 { event macro 1 0 .um wiedza o zwierzetach target 5s set #ltargetid %zwierz event macro 22 } mix: wait 5 finditem UMD G_1 if #findkind 1 { event sysmessage Brak kociolka! Lub stoisz za daleko! sound halt } set #lobjectid #findid event macro 17 repeat until #CONTNAME = generic_gump click 512 58 wait 5 if Nie_masz_pustych in #sysmsg { event sysmessage BRAK BUTELEK!! sound wait 60 goto mix } if potrzebujesz in #sysmsg { event sysmessage BRAK SKLADNIKOW!! sound wait 60 goto mix } wait 240
goto skill |
|
Sin | 2007, kwi 2 22:32
|
|
|
|
|
| Brak postaci | |
|
2006, lis 6
Gdynia | |
initevents Event Macro 8 2 set %type1 ZUF set %name1 Staminy set %type2 TUF set %name2 Wybuchy set %type3 UUF set %name3 Leczenia set %type4 NUF set %name4 Odtruty set %j 4 Mainloop: gosub CountRegs gosub StatusBarUp SetUOTitle #charname [ HP: #hits / #maxhits ST: #stamina / #maxstam Mana: #mana / #maxmana ] [ %tb ] Goto Mainloop
sub CountRegs ignoreitem reset set %tb for %i 1 %j { set %count 0cr1: finditem %type . %i CA , #backpackid if #findkind -1 { set %count %count + #findstack ignoreitem #findid goto cr1 } set %tb %tb , #spc , %name . %i , : , %count } return
sub StatusBarUp if #charname = N/A { Event Macro 8 2 wait 5 } return
Mozna przy nim pomajstrowac, zeby pokazywal przerozne rzeczy.
|
| Great things are possible when one man's wisdom and an hour's effort are combined. A sound offense has the power of roaring water, it fills every hole in an opponent's defenses.
Respectable evil-doer
img11.imageshack.us/img11/4650/idiotavv.jpg
|
Achaja | 2007, kwi 2 01:48
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25
Nibylandia | |
Nic nie stoi na przeszkodzie bys kopiowal go z ta czescia.... Ta czesc spowoduje tylko to ze po odpaleniu skryptu odpali ci sie tekst w lewym dolnym rogu "Skrypt [jedzenie-bind] odpalony (by SabiK)". Wiec smialo mozesz wklejac caly skrypt I potraktuj ten msg jako reklame
|
| [nGz]: mam dosc tych prvow zeby zrobic cos z twoja niedojrzala wyobraznia img242.imageshack.us/my.php?image=uo0033xv3.jpg
|
Aamon | 2007, kwi 1 16:30
|
|
|
|
|
| Brak postaci | |
|
2007, kwi 10
Sulechów | |
Ja ma pytanko(jestem niowy w tych sprawach). Jeśli ma taki skrypt :
initevents set #sysmsgcol 1281 event sysmessage Skrypt [jedzenie-bind] odpalony (by SabiK) wait 1
start1: onhotkey %key goto start goto start1
start: set %jedz 0event macro 8 4 set %licz #scnt2 + 50 czekaj_skills: if #contname = generic_gump goto info if %licz < #scnt2 goto start goto czekaj_skills info: click 259 41 set %licz #scnt2 + 40 czekaj_info: if #contname = generic_gump goto jedzenie if %licz < #scnt2 { if #contname = generic_gump goto info else goto start } goto czekaj_info
jedzenie: set %glod 0set %bialka 0set %witaminy 0set %weglowodany 0if %jedz = 1 { jedz1: set %jedz 0 click 38 41 wait 10 set %licz #scnt2 + 40 czekaj_odswiez: if #contname = generic_gump goto jedz if %licz < #scnt2 { if #contname = generic_gump goto jedz1 else goto start } goto czekaj_odswiez } jedz: savepix 311 260 1 if #pixcol = 4294967295 { set %licz #scnt2 + 100 sound %sciezka display ok UO na wierzch! } if #pixcol = 11392710 set %glod 1 savepix 311 280 1 if #pixcol = 11392710 set %bialka 1 savepix 311 300 1 if #pixcol = 11392710 set %witaminy 1 savepix 311 320 1 if #pixcol = 11392710 set %weglowodany 1
if %glod = 0 && %bialka = 0 && %witaminy = 0 && %weglowodany = 0{ finditem MGG if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem chleba! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 if #sysmsg = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } scanjournal 1 if #journal = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } scanjournal 2 if #journal = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } finditem JGI if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem salatki! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 if #sysmsg = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } scanjournal 1 if #journal = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } scanjournal 2 if #journal = Czujesz_sie_w_pelni_sil. { set %jedz 1 goto jedzenie } finditem SLI if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem ciasteczek! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } if %glod = 1 && %bialka = 0 && %witaminy = 0 && %weglowodany = 0{ finditem ZBM if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem soku kokosowego! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } if %bialka = 0{ if %glod = 1 { finditem END if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem sera! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } else { finditem MGG if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem chleba! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } } if %witaminy = 0{ finditem JGI if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem salatki! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } if %weglowodany = 0{ finditem SLI if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem ciasteczek! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } if %glod = 0 && %bialka = 1 && %witaminy = 1 && %weglowodany = 1 { finditem MGG if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie znalazlem chleba! Uzupelnil zapasy lub otworz plecak z jedzeniem! sound %sciezka goto start1 } set #lobjectid #findid event macro 17 wait 22 set %jedz 1 goto jedzenie } click 311 260 r set #sysmsgcol 1082 event sysmessage Zakonczono jedzenie! goto start1
to czy mma go kopiować z tą częścią?:
initevents set #sysmsgcol 1281 event sysmessage Skrypt [jedzenie-bind] odpalony (by SabiK) wait 1
Proszę o wyrozumiałość ( i nie śmiejcie się ze mnie ) |
|
Bllood | 2007, mar 12 18:35
|
|
|
|
|
| Brak postaci | |
|
2007, mar 14
Lezak | |
Ten skrypt mi nie dziala moglby ktos go poprawic ? otoz - gdy kaze mi stanac w rogu a potem na przeciwleglym rogu skrypt sie wylacza - "Koniec"
;Autor: [nGz] ;%Roslina moze miec wartosc jedna z nastepujacych: dynia, arbuz, marchewka, cebula, rzepa, salata, kapusta, kukurydza, len, chmiel, pszenica, bawelna. ;%Skill 0-nic, 1-Anatomia, 2-Madrosc, 3-Wiedza o zwierzetach, 4-Ukrywanie, 5-Wiedza o broni, 6-Wykrywanie. ;%SkillPowtorzenia - okresla co ktora probe scinania ma robic skilla umyslowego (domyslnie 1 - co kazde scinanie).
;====================== set %Roslina marchewka set %Skill 1 set %SkillPowtorzenia 1 ;======================
set #sysmsgcol 0event sysmessage Stan na ktoryms rogu prostokata w ktorym ma szukac rosliny i wcisnij play w euo. pause set %Xe #charposx set %Ye #charposy event sysmessage Teraz stan na przeciwleglym rogu tego prostokata i wcisnij play. pause set %Xs #charposx set %Ys #charposy set #lpc 200 if %Skill 0{ set %LicznikPowtorzen %SkillPowtorzenia set %CelSkilla 0 if %Skill = 1 set %SkillName Anatomia if %Skill = 2 set %SkillName Madrosc if %Skill = 3 set %SkillName AnimalLore if %Skill = 4 set %SkillName Ukrywanie if %Skill = 5 set %SkillName ArmsLore if %Skill = 6 set %SkillName Wykrywanie } set %null set %bok1 %Xs - %Xe abs set %bok2 %Ys - %Ye abs if %bok1 > %bok2 { set %n_start %Ys set %n_end %Ye set %m_start %Xs set %m_end %Xe } else { set %n_start %Xs set %n_end %Xe set %m_start %Ys set %m_end %Ye } tile Init for %n %n_start %n_end { set %Row 0 for %m %m_start %m_end { gosub ZapiszXY tile Cnt %x %y for %i 1 #tilecnt { tile Get %x %y %i if %Roslina in #tilename && ( Background in #tileflags || #tileflags = %null ) { set #lpc 10 gosub Podejdz if #result gosub Scinaj else { set #sysmsgcol 1080 event sysmessage Nie udalo mi sie dostac do rosliny. set #sysmsgcol 0 event sysmessage Szukam nastepnej. } set #lpc 200 if %Row = 0 set %Row 1 break } } } if %Row = 1 { set %temp %m_start set %m_start %m_end set %m_end %temp } } set #sysmsgcol 0event sysmessage Koniec. halt
sub ZapiszXY if %bok1 > %bok2 { set %x %m set %y %n } else { set %x %n set %y %m } return
sub Podejdz Idz: set %JIndex #jindex event pathfind %x %y #tilez set %Timer #scnt2 + 15 repeat if %Timer < #scnt2 goto Idz scanjournal 1 until ( #journal = Pathfinding! || #journal = Can't_get_there ) && #jindex %JIndex if #journal = Can't_get_there return #false set %Timer 0set %Char_x_old -1 set %Char_y_old -1 repeat if %Timer < #scnt2 { if %Char_x_old = #charposx && %Char_y_old = #charposy goto Idz set %Char_x_old #charposx set %Char_y_old #charposy set %Timer #scnt2 + 40 } until #charposx = %x && #charposy = %y return #true
sub Scinaj PetlaScinania: if %LicznikPowtorzen = %SkillPowtorzenia && %Skill 0 gosub %SkillName if %Skill 0 set %LicznikPowtorzen %LicznikPowtorzen - 1 if %LicznikPowtorzen | | | | | | | | | | |
| | | |
|