|
|
raist | 2007, mar 4 05:03 | 2007, mar 4 05:32
|
|
|
|
| Brak postaci | |
|
2007, wrz 21
Gdansk | |
Skrypcik na identyfikaje przedmiotow w pojemniku: ---------------------------------------------------------------------------------------- ------------------------------- ;Identyfikacja by Raist ;masz duzo magikow? nie chcesz klikac? ;wcisnij play i ogladaj TV
initevents ignoreitem reset set #targcurs 1 ;ustawienie kursora set #sysmsgcol 1080 event sysmessage Pokaz plecak z magikami repeat onhotkey ESC goto wcis_esc until #targcurs = 0onhotkey ESC { wcis_esc: set #sysmsgcol 1080 event sysmessage ANULOWANO halt }
set %ple #ltargetid ;ustawia plecak z magikami set #lobjectid %ple event macro 17 0set %czas #scnt2 + 20 repeat event macro 17 0wait 5 if %czas < #scnt2 { set #sysmsgcol 1080 event sysmessage ANULOWANO halt } until ( #contid = #ltargetid )
start: finditem * C_ , %ple if #findkind = -1 { set #sysmsgcol 1080 event sysmessage KONIEC IDENTA sound C:missile.wav halt } event property #findid if magiczn in #property gosub lecimy ignoreitem #findid goto start
sub lecimy set #ltargetid #findid ident: event macro 1 0 .um identyfikacja set %czas #scnt2 + 20 czekaj: scanjournal 1 if #TARGCURS = 1 { event macro 22 0 wait 6s goto ident2: } if Juz_cos in #sysmsg { wait 1s goto ident } if %czas < #scnt2 goto ident else goto czekaj ident2: finditem #ltargetid if #findkind = -1 return event macro 1 0 .um identyfikacja set %czas #scnt2 + 20 czekaj2: scanjournal 1 if #TARGCURS = 1 { event macro 22 0 wait 6s return } if Juz_cos in #journal { wait 1s goto ident2 } if %czas < #scnt2 goto ident2 else goto czekaj2
---------------------------------------------------------------------------------------- -------------------------------- Tabliczka hp ---------------------------------------------------------------------------------------- -------------------------------- ;Monitor hp by Raist
initevents menu Clear menu window title #CHARNAME menu Window size 345 65 menu Window color black menu Show menu Font color Red menu Font bgcolor black menu Font size 20 menu Text reg010 5 0 HP menu Font color White menu Text reg020 5 30 ST menu Font color Blue menu Text reg030 120 0 MP menu Font color White menu Text reg040 120 30 WG menu Font color Yellow menu Text reg050 235 0 AR
start: reg1: if %reg1 = #hits goto reg2 menu Font color Red set %reg1 #hits menu delete reg1 menu Text reg1 60 0 %reg1 reg2: if %reg2 = #stamina goto reg3 menu Font color White set %reg2 #stamina menu delete reg2 menu Text reg2 60 30 %reg2
reg3: if %reg3 = #mana goto reg4 menu Font color Blue set %reg3 #mana menu delete reg3 menu Text reg3 175 0 %reg3
reg4: if %reg4 = #weight goto reg5 menu Font color White set %reg4 #weight menu delete reg4 menu Text reg4 175 30 %reg4 reg5: if %reg5 = #AR goto start menu Font color Yellow set %reg5 #AR menu delete reg5 menu Text reg5 290 0 %reg5
goto start ---------------------------------------------------------------------------------------- --------------------------------- Liczenie regow - akurat pisane pod moje regi wampira ---------------------------------------------------------------------------------------- --------------------------------- ;Regi wampa by Raist initevents ignoreitem XNJNRYD
menu Clear menu window title Regi Wampa menu Window size 155 140 menu Window color black menu Show menu Font color White menu Font bgcolor black menu Font size 13 menu Text reg010 5 0 Mand menu Text reg020 5 20 Siar menu Text reg030 5 40 Czos menu Text reg040 5 60 Zens menu Text reg090 5 80 Szaf menu Text reg050 80 0 Siec menu Text reg060 80 20 Jago menu Text reg070 80 40 Perl menu Text reg080 80 60 Mech menu Text reg100 80 80 Demo menu Text reg110 5 100 Krew menu Text reg120 80 100 Wrzo menu Text reg130 5 120 Rubi menu Text reg140 80 120 Oto
start: finditem CKF_ZJF C_ , #BACKPACKID ;woreczek lub plecak if #findkind = -1 { set %plecak #backpackid goto reg1 } set %plecak #findid
reg1: menu Font color Yellow finditem MZF C_ , %plecak ; if %reg1 = #FINDSTACK goto reg2 set %reg1 #FINDSTACK if %reg1 < 16 menu Font color Red menu delete reg1 menu Text reg1 50 0 %reg1
reg2: menu Font color Yellow finditem SZF C_ , %plecak ; if %reg2 = #FINDSTACK goto reg3 set %reg2 #FINDSTACK if %reg2 < 16 menu Font color Red menu delete reg2 menu Text reg2 50 20 %reg2
reg3: menu Font color Yellow finditem KZF C_ , %plecak ; if %reg3 = #FINDSTACK goto reg4 set %reg3 #FINDSTACK if %reg3 < 16 menu Font color Red menu delete reg3 menu Text reg3 50 40 %reg3
reg4: menu Font color Yellow finditem JZF C_ , %plecak ; if %reg4 = #FINDSTACK goto reg5 set %reg4 #FINDSTACK if %reg4 < 16 menu Font color Red menu delete reg4 menu Text reg4 50 60 %reg4
reg5: menu Font color Yellow finditem RZF C_ , %plecak ; if %reg5 = #FINDSTACK goto reg6 set %reg5 #FINDSTACK if %reg5 < 16 menu Font color Red menu delete reg5 menu Text reg5 125 0 %reg5
reg6: menu Font color Yellow finditem WZF C_ , %plecak ; if %reg6 = #FINDSTACK goto reg7 set %reg6 #FINDSTACK if %reg6 < 16 menu Font color Red menu delete reg6 menu Text reg6 125 20 %reg6
reg7: menu Font color Yellow finditem KUF C_ , %plecak ; if %reg7 = #FINDSTACK goto reg8 set %reg7 #FINDSTACK if %reg7 < 16 menu Font color Red menu delete reg7 menu Text reg7 125 40 %reg7
reg8: menu Font color Yellow finditem JUF C_ , %plecak ; if %reg8 = #FINDSTACK goto reg9 set %reg8 #FINDSTACK if %reg8 < 16 menu Font color Red menu delete reg8 menu Text reg8 125 60 %reg8
reg9: menu Font color Yellow finditem FVF C_ , %plecak ; if %reg9 = #FINDSTACK goto reg10 set %reg9 #FINDSTACK if %reg9 < 4 menu Font color Red menu delete reg9 menu Text reg9 50 80 %reg9
reg10: menu Font color Yellow finditem OZF C_ , %plecak ; if %reg10 = #FINDSTACK goto reg11 set %reg10 #FINDSTACK if %reg10 < 4 menu Font color Red menu delete reg10 menu Text reg10 125 80 %reg10 reg11: menu Font color Yellow finditem DUF C_ , %plecak ; if %reg11 = #FINDSTACK goto reg12 set %reg11 #FINDSTACK if %reg11 < 15 menu Font color Red menu delete reg11 menu Text reg11 50 100 %reg11
reg12: menu Font color Yellow finditem HUF C_ , %plecak ; if %reg12 = #FINDSTACK goto reg13 set %reg12 #FINDSTACK if %reg12 < 5 menu Font color Red menu delete reg12 menu Text reg12 125 100 %reg12 reg13: menu Font color Yellow finditem HVF C_ , %plecak ; if %reg13 = #FINDSTACK goto reg14 set %reg13 #FINDSTACK if %reg13 < 10 menu Font color Red menu delete reg13 menu Text reg13 50 120 %reg13 reg14: menu Font color Yellow finditem FUF C_ , %plecak ; if %reg14 = #FINDSTACK goto start set %reg14 #FINDSTACK if %reg14 < 10 menu Font color Red menu delete reg14 menu Text reg14 125 120 %reg14
goto start ---------------------------------------------------------------------------------------- --------------------------------- Odczytywanie postrzepionych map ---------------------------------------------------------------------------------------- --------------------------------- ;Autor Raist
initevents ignoreitem reset
start: finditem rvh C ; if #findkind = -1 { set #sysmsgcol 1080 event sysmessage Koniec Mapek sound C:missile.wav halt } set #lobjectid #findid event macro 17 0 ;last object wait 10 goto end
end: scanjournal 1 if Udalo_Ci in #sysmsg goto start goto end ---------------------------------------------------------------------------------------- ------------------------------
Wiem, ze skrypty sa dosc prostackie, ale mi conieco ulatwiaja zycie moze ulatwia tez wam. Jak cos przydatnego wypoce do dorzuce na forum |
|
Crow | 2007, mar 4 09:14 | 2007, mar 4 09:17
|
|
|
|
| Brak postaci | |
|
2008, wrz 27
Włocławek | |
raist Gdzie moge znaleść jakie liczby przypisane sa do jakiego rega? chodzi mi o to
finditem eag C set %reg14 #findstack menu delete reg14 menu Text reg14 85 169 %reg14 goto reg15
|
| o---|======> pomoc-mw.prv.pl.
|
raist | 2007, mar 4 12:49 | 2007, mar 4 12:52
|
|
|
|
| Brak postaci | |
|
2007, wrz 21
Gdansk | |
Nie bardzo rozumiem. eag oznacza typ rega, %reg14 to zmienna w ktora przypisuje ilosc rega o typie eag, liczby 85 169 to x y w ktorym w okienku z regami wypisze ilosc rega eag. A co to za reg eag? easyuo.com documentation/object type database wklepujemy eag i otrzymujemy martwe drzewo |
|
raist | 2007, mar 4 19:15 | 2007, mar 5 03:39
|
|
|
|
| Brak postaci | |
|
2007, wrz 21
Gdansk | |
SZYCIE ZESTAWU EXP ----------------------------------------------------------------------------- ;KRAWIECTWO by Raist ;Skrypt szyje zestaw nieutwardzany exp maga lub utw samuraja ;tnie nie expy, moze robic hida podczas szycia ;kolejnosc szycia 1-tunika 2-nogawice 3-naramienniki ;4-rekawiczki 5-karczek 6-czapka 7-sandaly ;kolejnosc szycia samuraja 1-utw do 2-utw suneate 3-utw hiro sode ;4-utw mempo 5-utw kabuto 6-utw rekawiczki 7-sandaly samuraja ;Czyli np. jezeli mamy tunike i nogawice dajemy %gdzie = 3 ;aby kontynuowac od naramiennikow ;----------------------------- set %samuraj 0 ;0-set maga nieutwardzany 1-set samuraja utwardzany set %hid 1 ;0-bez hida 1-z hidem set %gdzie 1 ;od jakiego przedmiotu ma zaczynac set %dex 36 ;ile dexa ma twoj krawiec bez butli ;----------------------------- initevents set %ple #BACKPACKID set %profile 560_460 set %zmiana 1 set %skora
0goto tnij dexbutla: if #dex = %dex { finditem yuf C if #findkind = -1 { set #sysmsgcol 1080 event sysmessage NIE MASZ BUTLI DEXA goto dalej } set #lobjectid #findid event macro 17 0 wait 1s } dalej: if %zmiana = 1 { if %gdzie = 1 { if %samuraj = 1 { set %klik1 341 set %klik2 364 set %klik3 279 set %klik4 306 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 279 set %klik4 306 } } if %gdzie = 2 { if %samuraj = 1 { set %klik1 341 set %klik2 364 set %klik3 179 set %klik4 306 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 179 set %klik4 306 } } if %gdzie = 3 { if %samuraj = 1 { set %klik1 341 set %klik2 364 set %klik3 379 set %klik4 210 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 479 set %klik4 210 } } if %gdzie = 4 { if %samuraj = 1 { set %klik1 341 set %klik2 364 set %klik3 279 set %klik4 210 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 379 set %klik4 210 } } if %gdzie = 5 { if %samuraj = 1 { set %klik1 341 set %klik2 364 set %klik3 179 set %klik4 210 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 279 set %klik4 210 } } if %gdzie = 6 { if %samuraj = 1 { set %klik1 224 set %klik2 132 set %klik3 279 set %klik4 211 } if %samuraj = 0 { set %klik1 124 set %klik2 132 set %klik3 179 set %klik4 210 } } if %gdzie = 7 { if %samuraj = 1 { set %klik1 429 set %klik2 132 set %klik3 438 set %klik4 211 } if %samuraj = 0 { set %klik1 429 set %klik2 132 set %klik3 169 set %klik4 212 } } if %gdzie = 8 goto koniec }
start: finditem HAG C , %ple ; szuka narzedzie szewskie set #lobjectid #findid ; ustawia je jako lastobject finditem ddg_cui C ; szuka tkaniny/skory if #findkind = -1 { set %skora 1 goto tnij } set #ltargetid #findid event macro 17 0target 1s event macro 22 0set %czas #scnt2 + 10 stolarz: if #CONTSIZE = %profile { if %zmiana = 1 { set %czas #scnt2 + 20 click %klik1 %klik2 wait 5 screen2: if #CONTSIZE = %profile { set %czas #scnt2 + 70 click %klik3 %klik4 set %zmiana = 0 wait 1s goto pat } if %czas < #scnt2 goto pat else goto pat } set %czas #scnt2 + 70 click 137 392 ; rob ostatnie ostatnie wait 1s goto pat } if %czas < #scnt2 goto pat else { goto stolarz } pat: scanJournal 1 if ( Uszyles_przedmiot in #journal ) || ( Uszylas_przedmiot in #journal ) || ( Zniszczyles_troche in #journal ) || ( Zniszczylas_troche in #journal ) { goto hid } if ( Uszyles_Wyjatkowej in #journal ) || ( Uszylas_Wyjatkowej in #journal ) { set %gdzie %gdzie + 1 set %zmiana 1 goto tnij } if Masz_za in #journal { set %skora 1 goto tnij } if By_to_zrobic_potrzebujesz in #journal { set #sysmsgcol 1080 event sysmessage NIE MASZ KOTLA Z OLEJEM halt } if W_plecaku_nie_ma in #journal goto tnij if %czas < #scnt2 goto hid else goto pat hid: if %hid = 0 goto dexbutla event macro 1 0 .um ukrywanie set %czas #scnt2 + 10
hid2: scanjournal 1 if Cheeza: in #journal goto dexbutla if Nie_udalo in #journal goto dexbutla if Juz_cos in #journal goto dexbutla if Your_skill_in_Ukrywanie in #journal goto dexbutla if %czas < #scnt2 goto dexbutla else goto hid2
tnij: ignoreitem reset wait 10 tnij2: finditem KAG ; szuka nozyczek if #findkind = -1 { set #sysmsgcol 1080 event sysmessage NIE MASZ NOZYCZEK halt } set #lobjectid #findid ; ustawia je jako lastobject finditem SBP_ALH_YKH_MLH_OSK_ZZR_XKH_DCP_PCP_NWO_TBP_MWO_SSK_QSK_YSK_ATK_JKH_KCP_NJL_NVI_KKH_PKH_VK H_QKH_TES_EWI_TCP_LLH_HCM_FWL_DCI_FCI_PAM_LDI_VDI_BDP_YBP_UCP C_ , #backpackid if #findkind = -1 { if %skora = 1 { set #sysmsgcol 1080 event sysmessage KONIEC sound C:missile.wav halt } goto dexbutla } event property #findid if Wyjatkowej , #spc , Jakosci in #property { ignoreitem #findid goto tnij2 } set %skora 0set #ltargetid #findid event macro 17 0set %czas #scnt + 30 wait 10
lamimy: event macro 22 0set %czas #scnt2 + 30 pat2: if Pocielas in #sysmsg goto tnij2 if Nie_udalo in #sysmsg goto tnij2 if %czas < #scnt2 goto tnij2 goto pat2
koniec: set #sysmsgcol 1080 event sysmessage KONIEC sound C:missile.wav halt |
|
SiMet | 2007, mar 5 09:02 | 2007, mar 5 09:03
|
|
|
|
| Brak postaci | |
|
2014, kwi 25 |
Quote sie cos traci
To zalezy jakich uzywasz narzedzi. Z tego co pamietam to albo jest na dlugie drewniane narzedzia stolarza albo poprostu na pile. |
|
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 |
|
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 ; |
|
Animek | 2007, maj 11 02:42 | 2007, maj 19 19:26
|
|
|
|
| Brak postaci | |
|
2015, maj 12
Kwidzyn | |
Moze ktos tu poprawic blad? chodiz o to ze zamiast mlotow wojennych kuje mi berla z gory dzieki
;Autor: [nGz] modificate by Goblin ;Wersja: 3.7
//SiMet: sorry, ale nie wkejajcie tutaj calych skryptow z menu, bo robi sie wielki spam. Dawajcie linki jak cos.
|
| Entliczek pentliczek czerwony stoliczek na kogo wypadnie,na tego bęc.... | | | | | | | | | |
| | | |
|