|
|
SiMet | 2006, cze 7 00:30
|
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
:Skrypt na płukanie bandaży (LT) oraz na ukrywanie ; Data utworzenia: 6.6.6 (6 VI 06) ; Twórca: SiMet initevents bandaze: event macro 1 0 .um ukrywanie
finditem AMF if #findkind = -1 halt if #findkind = 1 { ignoreitem #findid goto bandaze } set %licz 0set #lobjectid #findid event macro 17 target 4s event macro 22 wait 10
//-------- jestem nie wtajemniczony i nie wiem OCB |
|
Konto Do Usunięcia. | 2008, kwi 8 22:09
|
|
|
|
|
| Brak postaci | |
|
2009, lis 4 |
|
|
Radagast | 2010, sty 4 10:51
|
|
|
|
|
| Dweralin | |
|
2006, maj 5
Kwidzyn | |
; )) kiedys mialem zapisywane ogolne monstery potworki jak i neidzwieie etc i tak:
AD_QD_IS_HS_QF_LD_XE_MB_SI_BD_TH_CJ_NI_GD_ID_YE_PD_ED_XH_I_UC_UD_RB_BJ_W_CBB_JD_WD_XC_DB_Y__DI_AB_ND_ AI_BI_RI_KI_DJ_N_TI_OD_OJ_EF_AF_UF_WB_BB_JB_XF_FD_QE_GB_QD_IB_KD_TD_AE_DE_BE_IE_CD_WE_YFM_VE_PE_ZC_YD _IS_HS_WZA_TN_IS_XU_HS_LJ
|
| LA GARDE MEURT, MAIS ELLE NE SE REND PAS!
|
sledzislaw | 2011, paź 5 14:34 | 2011, paź 5 14:35
|
|
|
|
| Brak postaci | |
|
2013, sie 4 |
; ------------START---------------------; ; -skrypt przerzuca przedmioty z jednego plecaka do drugiego - ; ; - w nastepujacy sposob: ; - otwieramy sobie plecak do ktorego chcemy wrzucic przedmioty ; ; - otwieramy plecak, z ktorego bedziemy przerzucac przedmioty -; ; - bierzemy sobie jeden przedmiot i ukladamy go w wybranym ; ; - plecaku na wybranej pozycji i klikamy klawisz [f2] a nastepnie ; ; - klikamy wewnatrz plecaka z ktorego maja byc przerzucane przedmioty; ; - skrypt bedzie je ukladal idealnie jeden na drugim, tak aby w plecaku; ; - panowal porzadek. ; - przydaje sie do ukladanie np jedzenia czy porzadkowania przeroznych; ; - smieci w skrzyni magazyniera i bankiera... onhotkey f2 { ; ------------WYBOR PRZEDMIOTU---------; event sysmessage Wskaz przedmiot set #targcurs 1 while ( #targcurs = 1 ) { wait 10 }
finditem #LTARGETID set %celid #LTARGETID set %celtype #FINDTYPE set %celx #FINDX - #CONTPOSX set %cely #FINDY - #CONTPOSY set %tbag #FINDBAGID wait 10 ; -----------WYBOR PLECAKA W KTORYM SA PRZEDMIOTY DO PRZERZUCENIA -------; event sysmessage Wskaz wnetrze plecaka zrodlowego while ( #FINDBAGID = #CONTID ) ( wait 10 ) set %sbag #CONTID ; ------------SZUKANIE PRZEDMIOTOW W PLECAKU--------------; finditem #FINDTYPE C_ , %sbag if ( #FINDCNT = 0 ) { event sysmessage Nie znaleziono przedmiotow w plecaku } if ( #FINDCNT > 0 ) { event sysmessage Znaleziono przedmioty w liczbie: #FINDCNT if ( #FINDSTACK = 1 ) ( event sysmessage przerzucanie pojedynczo finditem %celtype C_ , %sbag while ( #FINDCNT > 0 ) { finditem %celtype C_ , %sbag exevent drag #FINDID #FINDSTACK wait 5 exevent dropc %tbag %celx %cely wait 5 } ) } }
czekam na recenzje... |
|
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 |
|
..::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...
|
Oska | 2019, lis 21 20:01
|
|
|
|
|
| Postać ukryta | |
|
2018, lis 11
Kwidzyn | |
; Nazwa: Leczenie_Menu_v-1.7.txt ; Autor: Janusz [Fris] ;==================================================== set %Ukrywanie 0 ;0 - wylaczone; 1 - wlaczone set %lczyKogos 0set %SkilTime #scnt + 9 set %autoLeczenie 1 set %kolor 89 ;38 - czerwony 89 - jasno niebieski set %CelLeczenia #charid set %KlawiszLeczenie F1 set #lpc 2000 menu clear menu window color black menu show menu window size 220 170 menu window title Leczenie 1.7 menu font size 10 menu font color white menu font BGColor black menu text mtOpisLeczenie 1 1 Czas Leczenia menu text mtOpisPoziomuHP 120 1 Poziom HP menu font style b menu font color red menu font size 34 menu text mtCzasLeczenie 10 20 0menu font color white menu text mtPoziomHP 120 20 #HITS menu font style ;b menu font color white menu font size 10 menu button mbWskrzesWamp 10 80 90 24 Res wamp menu button mbWskrzesCzlek 120 80 90 24 Res czlek menu button mb_LeczWampa 10 110 90 25 Lecz wampa menu button mb_LeczCzleka 120 110 90 25 Lecz czleka menu button mb_LeczSiebie 10 140 200 25 Lecz Siebie ;menu hideEUO ;==================================================== set #menubutton n/a ;=================== petla =========================== loop: set #lpc 200 if #menubutton = mb_LeczWampa { set #menubutton N/A set %lczyKogos 1 event sysmessage Wskaz Cel set #targcurs 1 repeat until #targcurs = 0 set %RodzajBandaza AMF set %CelLeczenia #LTARGETID } if #menubutton = mb_LeczCzleka { set #menubutton N/A set %lczyKogos 1 event sysmessage Wskaz Cel set #targcurs 1 repeat until #targcurs = 0 set %RodzajBandaza ZLF set %CelLeczenia #LTARGETID } if #menubutton = mb_LeczSiebie { set #menubutton N/A set %CelLeczenia #charid set %lczyKogos 0 } if %lczyKogos = 1 { finditem %RodzajBandaza C_ , #backpackid set #lobjectid #findid event macro 17 target 2s fidnitem %CelLeczenia G set #ltargetid %CelLeczenia set #ltargetx #findx set #ltargety #findy set #ltargetz #findz set #ltargetkind 1 event macro 22 wait 5 } if #menubutton = CLOSED ;wcisnieto przycisk X { menu hide set #menubutton N/A halt } if #menubutton = mbWskrzesWamp { set #menubutton N/A gosub Wskrzeszenie wamp } if #menubutton = mbWskrzesCzlek { set #menubutton N/A gosub Wskrzeszenie czlek } if #hits < #maxhits && %autoLeczenie = 1 && %lczyKogos = 0 gosub Leczenie if %autoLeczenie = 0 && %lczyKogos = 0 { onhotkey %KlawiszLeczenie gosub Leczenie } if %Ukrywanie = 1 && %SkilTime < #scnt { event macro 13 47 ; ukrywanie set %SkilTime #scnt + 9 } if #hits < #maxhits && %lczyKogos = 0 { event ExMsg #charid 3 %kolor 0 s [ #HITS / #MAXHITS ] } goto loop
;------------------------------------------------------------ sub Wskrzeszenie if wamp in %1 set %JakieBandaze AMF if czlek in %1 set %JakieBandaze ZLF
finditem %JakieBandaze C_ . #backpackid if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Nie masz bandazy. goto loop } else { if #findstack < 10 event sysmessage Koncza Ci sie bandaze. Zostalo #findstack bandazy!!! uzyj_bandazy: set #lobjectid #findid event macro 17 set %cel_time #scnt + 2 repeat if A in #charstatus { event sysmessage Zostales unieruchomiony return } if %cel_time < #scnt goto uzyj_bandazy until #targcurs = 1 } return ;------------------------------------------------------------ sub Leczenie if #hits = #maxhits return finditem ZLF C_ , #backpackid if #findkind = -1 { Display ok $Nie masz *BUTLA butli $lub nie masz $PRZEDMIOT $lub nie masz bandazy w plecaku. $Skrypt wylaczony. halt ;goto loop } else { if #findstack < 10 event sysmessage Koncza Ci sie bandaze. Zostalo #findstack bandazy!!! uzyj_bandazy: set #lobjectid #findid event macro 17 set %cel_time #scnt + 3 repeat if %cel_time < #scnt goto uzyj_bandazy until #targcurs = 1 set %cel_time #scnt + 3 ;if #charid in %CelLeczenia event macro 23 repeat if %cel_time < #scnt goto uzyj_bandazy if #hits = #maxhits return until Zaczynasz in #sysmsg event ExMsg #charid 3 %kolor 0 s [ #HITS / #MAXHITS ] set %licznik 0 set %czas #scnt2 + 9 set %jindex #jindex set #lpc 200 set %czas_hp #scnt + 1 repeat set #sysmsgcol 1088 if %czas < #scnt2 { set %licznik %licznik + 1 if %licznik > 14 || #hits = #maxhits { menu Set mtCzasLeczenie 0 menu Set mtPoziomHP #HITS event ExMsg #charid 3 %kolor %licznik s [ #HITS / #MAXHITS ] return } menu Set mtCzasLeczenie %licznik menu Set mtPoziomHP #HITS event ExMsg #charid 3 %kolor %licznik s [ #HITS / #MAXHITS ] if #menubutton = mbWskrzesWamp { set #menubutton N/A gosub Wskrzeszenie wamp return } if #menubutton = mbWskrzesCzlek { set #menubutton N/A gosub Wskrzeszenie czlek return } set %czas #scnt2 + 9 } set %ji #jindex - %jindex for %i 1 %ji { scanjournal %i if Wyleczyl in #journal || palec in #journal || Nie_udalo in #journal || przestal in #journal || Anulowano. in #journal || Ta_osoba in #journal { menu Set mtCzasLeczenie 0 menu Set mtPoziomHP #HITS return } } if #hits < 20 && #charghost = no && %czas_hp < #scnt { set #sysmsgcol 1080 event sysmessage MASZ #hits HP!!! set %czas_hp #scnt + 1 } until Wyleczyl in #sysmsg || palec in #sysmsg || Nie_udalo in #sysmsg || przestal in #sysmsg || Anulowano. in #sysmsg || Ta_osoba in #journal } menu Set mtCzasLeczenie 0menu Set mtPoziomHP #HITS return |
|
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 | | | | | | | | | | |
| | | |
|