* * * * * * * * * * Zamknięte forum dyskusyjne Gildii Najemników na prywatnym serwerze "Dziedzictwo Mistrzów" na bazie gry Ultimy Online * * * * * * * * *
Aktywny
;Autor: [nGz]
;Wersja: 3.8
;wersja 3.8 - poprawione kopanie w krasnalowie i w nooblandii plus cos tam z hidem (to i tak jest zrobione na 'odwal sie'), dodana zmienna %skala (jest nad %skill), jesli chcesz kopac w skale ustaw na 1, jesli w ziemi ustaw na 0.
;Ten skrypt powiadamia Cie poprzez sysmessage dlaczego sie zatrzymal lub dlaczego nie przeniosl rudy.
;Aby widziec te powiadomienia musisz wlaczyc w Easyuo opcje Enable Event Sysmessage(Options-->Configuration).
;Kopie rude w 25 miejscach dookola postaci, jak nie ma rudy w 1 miejscu to zaczyna kopac w 2,
;jak sie skonczy w 2 to kopie w 3 itd. Jak juz nigdzie dookola postaci nie bedzie rudy to
;skrypt SAM SIE ZATRZYMA i wtedy nalezy pojsc kopac w inne miejsce.
;Zatrzyma sie rowniez jesli bedziecie wazyc ponad 1000 kamieni.
;Przerzuca rowniez rude do plecaka(musi on byc calkowicie odsloniety)
;(CHODZI TU O IKONE PLECAKA, A NIE O JEGO WNETRZE),
;KTORY MOZNA UMIESCIC NA KONIU/LAMIE jucznej(NIE BEDZIE PRZEZUCAL RUDY DO PLECAKA
;KONIA/LAMY.CHODZI TU O DRUGI PLECAK KTORY UMIESZCZACIE W PLECAKU KONIA/LAMY).
;Musisz jednak ustawic pewne zmienne, inaczej nie bedzie przenosil rudy.
;Aby to zrobic musisz miec liste zmiennych po prawej stronie Easyuo(View-->Variables-->Standart nastepnie nacisnij Ctrl+R)
;Teraz otworz plecak do ktorego ma byc ruda przezucana i nacisnij raz
;lewym przyciskiem myszy na wnetrze tego plecaka(chodzi tu o to aby ten plecak byl na wierzchu)
;Znajdz na tej liscie po prawo #CONTID - to bedzie id tego plecaka. Zeby dowiedziec sie
;id twojego plecaka kliknij lewym myszki na jego wnetrze wtedy #CONTID bedzie pokazywalo id twojego plecaka.
;Plecak do ktorego bedzie przezucana ruda nie musi byc otwarty ale MUSI byc odsloniety.
;W zaleznosci na ktorym shardzie grasz tam wprowadz te zmiany.
;Mozesz tez ustawic czy ma cwiczyc Anatomie(%skill 1), Armslore(%skill 2),
;Ukrywanie(%skill 3) lub Wykrywanie(%skill 4), czy tez ma nic nie cwiczyc(%skill 0).
;Anatomie robi na lamie/koniu jucznym ktory stoi w poblizu, jesli takiego nie ma
;to skrypt poprosi Cie o wskazanie celu.
;Armslore robi na kilofie.
set %skala 0 ;<------ TUTAJ ustaw czy ma kopac w skale czy w ziemi [0 - ziemia, 1 - skala].
set %skill 0 ;<----- TUTAJ ustawiasz czy ma robic Anatomie/Armslore/Ukrywanie
;czy tez nie(0-nic,1-anatomia,2-armslore,3-ukrywanie,4-wykrywanie,5-identyfikacja)
if DREAM in #shard
{
set %plecakid emjderd ;<----- TUTAJ wpisz zamiast emjderd id plecaka do ktorego ma byc ruda przezucana jesli grasz na DM
set %twojplecakid uvmrdqd ;<----- TUTAJ wpisz zamiast uvmrdqd id twojego plecaka jesli grasz na DM
set %idLamy 0
}
if #shard = MYSTERIOUSWORLD
{
set %plecakid slmzjmd ;<----- TUTAJ wpisz zamiast slmzjmd id plecaka do ktorego ma byc ruda przezucana jesli grasz na MW
set %twojplecakid #backpackid ;<----- TUTAJ NIC NIE WPISUJ jesli grasz na MW
set #targcurs 1
set #sysmsgcol 1264
event sysmessage Wskaz juczniaka na ktorym jest plecak (jesli nie ma takiego wcisnij ESC).
repeat
onhotkey ESC
goto wcis_esc
until #targcurs = 0
onhotkey ESC
{
wcis_esc:
set %idLamy 0
goto wcis_esc2
}
set %idLamy #ltargetid
wcis_esc2:
}
initevents
set %kop 0
set %runda 0
set %syspid 0
set %systid 0
set %syszleid 0
set %spr_plecaka_lamy 0
set %bylPlecak 0
set %jrud 0
set %wjt 0
set %zacz 0
start:
set %licz2 0
if #weight > 600
{
set #sysmsgcol 1080
event sysmessage WAZYSZ PONAD 600 kamieni !
sound E:\Mp3\kryt.wav
halt
}
if %kop = 0
{
set #ltargetx #charposx
set #ltargety #charposy
}
if %kop = 1
{
set #ltargetx #charposx
set #ltargety #charposy + 1
}
if %kop = 2
{
set #ltargetx #charposx - 1
set #ltargety #charposy
}
if %kop = 3
{
set #ltargetx #charposx
set #ltargety #charposy - 1
}
if %kop = 4
{
set #ltargetx #charposx + 1
set #ltargety #charposy
}
if %kop = 5
{
set #ltargetx #charposx + 1
set #ltargety #charposy + 1
}
if %kop = 6
{
set #ltargetx #charposx
set #ltargety #charposy + 2
}
if %kop = 7
{
set #ltargetx #charposx - 1
set #ltargety #charposy + 1
}
if %kop = 8
{
set #ltargetx #charposx - 2
set #ltargety #charposy
}
if %kop = 9
{
set #ltargetx #charposx - 1
set #ltargety #charposy - 1
}
if %kop = 10
{
set #ltargetx #charposx
set #ltargety #charposy - 2
}
if %kop = 11
{
set #ltargetx #charposx + 1
set #ltargety #charposy - 1
}
if %kop = 12
{
set #ltargetx #charposx + 2
set #ltargety #charposy
}
if %kop = 13
{
set #ltargetx #charposx + 2
set #ltargety #charposy + 1
}
if %kop = 14
{
set #ltargetx #charposx + 2
set #ltargety #charposy + 2
}
if %kop = 15
{
set #ltargetx #charposx + 1
set #ltargety #charposy + 2
}
if %kop = 16
{
set #ltargetx #charposx - 1
set #ltargety #charposy + 2
}
if %kop = 17
{
set #ltargetx #charposx - 2
set #ltargety #charposy + 2
}
if %kop = 18
{
set #ltargetx #charposx - 2
set #ltargety #charposy + 1
}
if %kop = 19
{
set #ltargetx #charposx - 2
set #ltargety #charposy - 1
}
if %kop = 20
{
set #ltargetx #charposx - 2
set #ltargety #charposy - 2
}
if %kop = 21
{
set #ltargetx #charposx - 1
set #ltargety #charposy - 2
}
if %kop = 22
{
set #ltargetx #charposx + 1
set #ltargety #charposy - 2
}
if %kop = 23
{
set #ltargetx #charposx + 2
set #ltargety #charposy - 2
}
if %kop = 24
{
set #ltargetx #charposx + 2
set #ltargety #charposy - 1
}
ignoreitem reset
kilofek:
finditem npf C_ , #charid
if #findkind = -1
{
set #sysmsgcol 1080
event sysmessage Nie znaleziono kilofa
halt
}
set %kilofek #findid
if %zacz = 0
{
set #sysmsgcol 1264
event sysmessage Zaczynam kopac - 1
set %zacz 1
wait 1
}
kil:
set %licz 0
set #lobjectid #findid
event macro 17
loop:
if %skala = 0
{
set #ltargetkind 3
set #ltargettile 1339
}
else
set #ltargetkind 2
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
goto dylej
if %licz > 6
goto kil
goto loop
dylej:
event macro 22
event macro 22
event macro 22
wait 5
if Nie_widzisz_tego in #sysmsg
goto start
if Tu_nic_nie_wykopiesz in #sysmsg
{
if %kop = 24
{
set #sysmsgcol 1080
wait 1
event sysmessage Skonczono kopac
halt
}
set %kop %kop + 1
set %rkop %kop + 1
set #sysmsgcol 1264
wait 1
event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
goto start
}
if lopaty_lub_szufelki in #sysmsg
{
if %kop = 24
{
set #sysmsgcol 1080
wait 1
event sysmessage Skonczono kopac
halt
}
set %kop %kop + 1
set %rkop %kop + 1
set #sysmsgcol 1264
wait 1
event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
goto start
}
set %odloz 1
rudka:
finditem %plecakid
set #findmod 25_7
if #findkind = -1
{
if %spr_plecaka_lamy = 0
{
gosub otworz
set %spr_plecaka_lamy 1
wait 8
goto rudka
}
if %syspid = 1
goto wtym
if %jrud = 1
{
str lower %plecakid
set #sysmsgcol 1080
wait 1
event sysmessage Nie znaleziono plecaka #strres - Nie przenosze rudy
set %syspid 1
}
goto wtym
}
if #findstack = 0
{
if %syszleid = 1
goto wtym
set #sysmsgcol 1080
event sysmessage Podales prawdopodobnie ID plecaka lamy, a nie o ten chodzi...
set %syszleid 1
goto wtym
}
set %x #findx
set %y #findy
set %bylPlecak 1
set %syspid 0
finditem dwj C_ , %twojplecakid
if #findkind = -1
{
if %systid = 1
goto wtym
if %jrud = 1
{
str lower %twojplecakid
set #sysmsgcol 1080
wait 1
event sysmessage Nie znaleziono rudy w plecaku - #strres
set %systid 1
}
goto wtym
}
set %systid 0
set %jrud 0
if #contkind = odob
{
set #sysmsgcol 1080
if %odloz = 1
event sysmessage Odloz przedmiot !
set %odloz 0
goto rudka
}
event drag #findid
if #findstack > 1
{
wait 1
set %licz 0
kolko:
set %licz %licz + 1
if #conttype = dwj
goto wcis
if %licz > 15
goto rudka
goto kolko
wcis:
wait 1
msg $
}
wait 2
click %x %y
if That_item_is_too_heavy in #sysmsg
{
set #sysmsgcol 1080
event sysmessage Plecak jest juz pelny
halt
}
if #conttype = dwj
goto wcis
goto rudka
wtym:
if %bylPlecak = 1
set %spr_plecaka_lamy 0
set %jrud 0
set %licz2 %licz2 + 1
if That_item_is_too_heavy in #sysmsg
{
set #sysmsgcol 1080
event sysmessage Plecak jest juz pelny
halt
}
if #sysmsg = W_tym_miejscu_nie_ma_juz_rudy.
{
if %kop = 24
{
set #sysmsgcol 1080
event sysmessage Skonczono kopac
halt
}
set %kop %kop + 1
set %rkop %kop + 1
set #sysmsgcol 1264
wait 1
event sysmessage Zaczynam kopac w nastepnym miejscu - %rkop
set %spr_plecaka_lamy 0
goto next
}
if Wlozyl in #sysmsg
{
set %jrud 1
goto next
}
if Znalazl in #sysmsg
{
;set %jrud 1
goto next
}
if Nie_udalo_ci_sie in #sysmsg
goto next
if nic,_co_by_Cie_interesowalo in #sysmsg
goto next
if Your_skill_in_Mining in #sysmsg
{
scanjournal 1
if Your_skill_in in #journal
{
set %jrud 1
goto next
}
}
if Your_skill_in_Gornictwo in #sysmsg
{
scanjournal 1
if Your_skill_in in #journal
{
set %jrud 1
goto next
}
}
if Your_strength_has in #sysmsg
{
scanjournal 1
if Your_strength_has in #journal
{
set %jrud 1
goto next
}
}
if To_jest_za_daleko in #sysmsg
goto next
if %licz2 > 110
goto next
goto wtym
next:
if %skill = 0
goto start
if %runda = 1
{
set %runda 0
goto start
}
wait 1
if %skill <> 1
goto armsal
set %ltn 0
anat:
finditem wn
if #findkind = -1
{
finditem bo
if #findkind = -1
set %ltn 1
}
if #finddist > 3
{
ignoreitem #findid
goto anat
}
if %ltn = 0
goto anat2
if %wjt = 1
goto anat2
ltanat:
set %licz 0
event macro 13 1
petl:
set %licz %licz + 1
if #targcurs = 1
{
wait 2
wskter:
set #sysmsgcol 1152
event sysmessage Wskaz teraz na czym ma byc robiona Anatomia
set %licz 0
goto petl2
}
if %licz > 50
goto ltanat
goto petl
petl2:
set %licz %licz + 1
set %wjt 1
if #targcurs = 0
goto wskaz
if %licz > 300
goto wskter
goto petl2
wskaz:
wait 10
set %lt #ltargetid
if Anulowano in #sysmsg
{
set #sysmsgcol 1080
event sysmessage Nie wskazano celu!
set %wjt 0
}
goto srund
anat2:
set %licz 0
event macro 13 1
loop2:
set #ltargetkind 1
if %ltn = 0
set #ltargetid #findid
if %ltn = 1
set #ltargetid %lt
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
goto adalej
if %licz > 5
goto anat2
goto loop2
armsal:
if %skill <> 2
goto identyfikacja
wiedza:
set %licz 0
event macro 13 4
loop3:
set #ltargetkind 1
set #ltargetid %kilofek
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
goto adalej
if %licz > 5
goto wiedza
goto loop3
identyfikacja:
if %skill <> 5
goto hid
ident:
set %licz 0
event macro 13 3
identloop:
set #ltargetkind 1
set #ltargetid %kilofek
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
goto adalej
if %licz > 5
goto ident
goto identloop
adalej:
event macro 22
event macro 22
event macro 22
hid:
if %skill <> 3
goto wykryw
hid2:
set %licz 0
event macro 13 21
loop4:
scanjournal 1
set %licz %licz + 1
wait 1
wait 1
if H in #charstatus or *ukryl in #journal
goto srund
if nie_udalo_Ci_sie_ in #journal
goto srund
if %licz > 10
goto hid2
goto loop4
wykryw:
if %skill <> 4
goto srund
event macro 13 14
srund:
set %runda 1
goto start
sub otworz
finditem %idLamy
if #findtype <> wn && #findtype <> bo && #findtype <> yab
return
if #finddist > 1
{
set #sysmsgcol 1080
event sysmessage Juczniak stoi za daleko.
return
}
set #lobjectid #findid
event macro 17
return
Offline