1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119. | set %lastSpell #LSPELL
set %lt #LTARGETID
set %med 5 ; <- po ilu czarach chcesz medytowac
set %ltk 1 ; 1- przedmioty/ludzie, 2 ziemia gory, 3 drzewa woda
set %mCount 0
set %jedzenie QRD
ptl:
set #LSPELL %lastSpell
set %m #MANA
set %tmp #jindex
event macro 16 0
repeat
{
if #mana < %m
break
if #jindex > %tmp
{
set %tmp %tmp + 1
scanjournal %tmp
if Brakuje_ci in #journal
break
}
}
until #TARGCURS <> 0
target 1s
if #TARGCURS <> 0
{
set #LTARGETKIND %ltk
set #LTARGETID %lt
event macro 22 0
}
set %mCount %mCount + 1
if %mCount >= %med
{
wait 10
gosub medytacja
set %mCount 0
}
goto ptl
sub medytacja
{
start_med:
set %tmp #jindex
event macro 13 46
while #true
{
if #jindex > %tmp
{
set %tmp %tmp + 1
scanjournal %tmp
if Konczysz_medytacje. in #journal
break
if Nie_mozesz_sie in #journal
{
wait 1s
goto start_med
}
if Juz_cos_robisz in #journal
{
wait 1s
goto start_med
}
if Nie_brakuje in #journal
break
if You_must_wait in #journal
{
break
}
if I_am_already in #journal
break
}
}
gosub glod
return
}
sub Glod
{
set %tmp #jindex
event macro 1 0 .glod
while #true
{
if #jindex > %tmp
{
set %tmp %tmp + 1
scanjournal %tmp
if Jestes_porzadnie in #journal
break
if Jestes_najedzon in #journal
{
finditem %jedzenie ; tu trzeba dopisac jedzonko !!
if #findkind = -1
{
event sysmessage Nie moge znalesc niczego do jedzenia !
halt
}
set #lobjectid #findid
event macro 17 0
wait 25
break
}
}
}
return
}
|
