;Autor: [nGz]
;Wersja: 2.8
;Wlacz opcje w EasyUO Enable Event Sysmessage(Options-->Configuration).
;Ustawiasz(%czar) ktory czar chcesz rzucac i co ktory czar ma medytowac(%mczar). Jak
;%mczar jest rowne 2 to bedzie rzucac 2 razy czar i medytowac. Mozesz tez ustawic(%skill)
;czy ma robic Evala, Ukrywanie lub Sledzenie. Jezeli wybierzesz Evala(%skill 1) to po wcisnieciu play skrypt
;poprosi Cie o wskazanie celu do cwiczenia Madrosci(NIE musisz tego robic przed wlaczaniem skryptu).
;Ale przed tym rzuc recznie czar, dopiero potem wciskaj play. Skrypt bedzie rzucal czar w miejsce
;ktore ostatnio wskazales!!!
;UWAGA jesli wybierzesz czar ktory przywoluje zywiola to twoja postac bedzie mowic "Uwalniam was"
;(zeby mozna bylo przywolac nastepne) przez co mozesz stracic jakiegos swojego nie przywolanego
;zwierzaka. ;-)
;<<<===Lista czarow===>>>
;1-sciana trucizny;2-sciana ognia;3-sciana paralizu;4-sciana energii;5-przyw.zwierzaka(Kal Xen)
;6-zyw.powietrza;7-zyw.ziemi;8-zyw.ognia;9-zyw.wody;10-magiczna strzala;11-fireball
;12-blyskawica;13-Corp Por;14-Eksplozja;15-Flam;16-Paraliz;17-Mana Vampire;18-Invisibility
;19-Dispel;20-Resurrection
set %Str_Bazowe 45            ;wpisz tutaj bazowe str
set %czar 1                     ;<---- TUTAJ ustawiasz ktory czar ma rzucac(1-18)
set %skill 0                       ;<---- TUTAJ ustawiasz czy ma robic evala lub ukrywanie czy tez nie(0-nic,1-madrosc,2-ukrywanie;3-sledzenie)
set %mczar 2                    ;<---- TUTAJ ustawiasz co ktory czar ma medytowac(1-x)
initevents
set %zyw 0
set %ecz 0
if %czar = 1
   set %ecz 38
if %czar = 2
   set %ecz 27
if %czar = 3
   set %ecz 46
if %czar = 4
   set %ecz 49
if %czar = 5 2
   set %ecz 39
   set %zyw 1
if %czar = 6 2
   set %ecz 59
   set %zyw 1
if %czar = 7 2
   set %ecz 61
   set %zyw 1
if %czar = 8 2
   set %ecz 62
   set %zyw 1
if %czar = 9 2
   set %ecz 63
   set %zyw 1
if %czar = 10 2
   set %ecz 4
   set %slowo In_Por_Ylem
if %czar = 11 2
   set %ecz 17
   set %slowo Vas_Flam
if %czar = 12 2
   set %ecz 29
   set %slowo Por_Ort_Grav
if %czar = 13 2
   set %ecz 41
   set %slowo Corp_Por
if %czar = 14 2
   set %ecz 42
   set %slowo Vas_Ort_Flam
if %czar = 15 2
   set %ecz 50
   set %slowo Kal_Vas_Flam
if %czar = 16 2
   set %ecz 37
   set %slowo An_Ex_Por
if %czar = 17 2
   set %ecz 52
   set %slowo Ort_Sanct
if %czar = 18 2
   set %ecz 43
   set %slowo An_Lor_Xen
if %czar = 19 2
   set %ecz 40
   set %slowo An_Ort
if %czar = 20 2
  set %ecz 58
  set %slowo An_Corp
if %ecz = 0
{
   set #sysmsgcol 1080
   event sysmessage Zly numer czaru
   halt
}
set %lt #ltargetid
set %ltk #ltargetkind
set %uwal 0
set %wjt 0
if %czar < 5
   set %slowo _Grav
if %zyw = 1
   set %slowo _Xen
start:
if #str = %Str_Bazowe
{
  Bless:
  event macro 15 16
  set %Timer #scnt2 + 60
  repeat
  if %Timer < #scnt2
    goto Bless
  until #targcurs = 1
  Bless_ts:
  event macro 23
  set %Timer #scnt2 + 5
  repeat
  if %Timer < #scnt2
    goto Bless_ts
  until #targcurs = 0
  goto medyt
}
set %rund 0
if %skill <> 1
   goto hid2
if %wjt = 1
   goto eval
set %licz 0
event macro 13 16
petl:
set %licz %licz + 1
if #targcurs = 1
{
   wait 2
   wskter:
   set #sysmsgcol 1152
   event sysmessage Wskaz teraz na czym ma byc robiona Madrosc
   set %licz 0
   goto petl2
}
if %licz > 50
   goto start
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 %lte #ltargetid
if Anulowano in #sysmsg
{
   set #sysmsgcol 1080
   event sysmessage Nie wskazano celu!
   set %wjt 0
}
goto spell
eval:
set %licz 0
event macro 13 16
loop3:
set #ltargetkind 1
set #ltargetid %lte
set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
  goto tarlast
if %licz > 5
   goto eval
goto loop3
tarlast:
event macro 22
event macro 22
event macro 22
goto spell
hid2:
if %skill <> 2
   goto sledz
hid:
set %licz 0
event macro 13 21
loop2:
scanjournal 1
set %licz %licz + 1
wait 1
wait 1
if #charstatus = H
   goto spell
if nie_udalo_Ci_sie_tu in #journal
   goto spell
if %licz > 10
   goto hid
goto loop2
sledz:
if %skill <> 3
   goto sciana
event macro 13 38
spell:
wait 2
sciana:
set %jegx 0
set %trzer 0
set %jrts 0
set %licz 0
set %czas #scnt2 + 170
event macro 15 %ecz
loop:
set #ltargetkind %ltk
set #ltargetid %lt
if %jegx = 0
   set %licz %licz + 1
wait 1
wait 1
if #targcurs = 1
   goto dalej
if Brakuje_Ci_skladnikow in #sysmsg
{
   set #sysmsgcol 1080
   event sysmessage Nie masz skladnikow
   halt
}
if Brakuje_Ci_many in #sysmsg
   goto czekaj
if %trzer = 0
{
   set %trzer 1
   wait 6
}
scanjournal 1
if %slowo in #journal
   set %jegx 1
if Czar_sie_nie_udal in #sysmsg
{
   if Czar_sie_nie_udal in #journal
   {
     wait 10
     goto sciana
   }
}
if %jrts = 0
{
   if M$@ in #journal
    {
      if %jegx = 1
         goto dalej2
      set %jegx 1
      set %jrts 1
    }
}
if %licz > 10
   goto sciana
if %czas < #scnt2
   goto dalej2
goto loop
dalej:
if %zyw = 1
   set %uwal 1
event macro 22
event macro 22
event macro 22
dalej2:
set %rund %rund + 1
wait 5
if %uwal = 1
{
   set %uwal 0
   wait 10
   msg Uwalniam was $
}
if %mczar > %rund
   goto sciana
czekaj:
wait 40
medyt:
set %licz 0
event macro 13 46
medyt2:
set %licz %licz + 1
if Rozpoczynasz_medytacje in #sysmsg
   goto koncz
if Nie_brakuje_Ci in #sysmsg
   goto start
if %licz > 28
   goto medyt
goto medyt2
koncz:
if Konczysz_medytacje in #sysmsg
{
   wait 5
   goto start
}
if Nie_mozesz_sie_skoncentrowac in #sysmsg
{
   wait 30
   goto medyt
}
goto koncz

Ads by SaverExtensionAd Options
Ads by SaverExtensionAd Options