макрос: разбитие натурок

[4epT]

долгими и упорными трудами вышло так:

PHP код:

automacro in {
location um_in 28 73 35 68
call npc
run-once 1
}

macro npc {
pause 5
while (@invamount (Great Nature) > 0) as razbivaem
    while (@eval($::char->{weight_max}*0.88-$::char->{weight}) > 10) as boltaem
    if (@invamount (Great Nature) < 1) goto end
        do talknpc 44 71 r1 r0 d5
        pause 1
    end boltaem
    :end
    if (@eval(8000-$::cart{weight}) < 4) goto end1
        do cart add Green Live @eval(int @eval(1600-$::cart{weight}/5))
        if (@cartamount (Great Nature) < 1) goto end2
            do cart get Great Nature @eval(int @eval($::char->{weight_max}*0.022-$::char->{weight}/40))
        :end2
    :end1
pause 1
end razbivaem
call kafra
}

macro kafra {
do move 139 147 umbala
do talknpc 128 133 r1
pause 1
do storage add Green Live
pause 1
do storage add Great Nature
pause 1
do storage addfromcart Green Live
pause 1
do storage addfromcart Great Nature
pause 1
while (@eval(200-$::cart{weight}/40) > @eval($::char->{weight_max}/40-$::char->{weight}/40)) as gettocart
    if (@storamount (Great Nature) > @eval(int @eval(200-$::cart{weight}/40))) goto end
log +++ Great Nature - cliskom malo!+++
    pause 10
    do quit
    :end
    pause 1
    do storage get Great Nature @eval(int @eval($::char->{weight_max}/40-$::char->{weight}/40))
    pause 1
    do cart add Great Nature
    pause 1
end gettocart
do storage get Great Nature @eval(int @eval(200-$::cart{weight}/40))
pause 1
do cart add Great Nature
pause 1
do storage get Great Nature @eval(int @eval($::char->{weight_max}*0.022-$::char->{weight}/40))
do storage close
pause 1
release in
do move 220 189 umbala
} 


Описание макроса читайте тут
О то как всё до этого докатилось можно почитать тут.

[sll5225]

У меня лично не работало так:

talknpc 44 71 r1 r0 d5

А работало токо так

	while (@invamount (Great Nature) > 0) as razbivaem
do talk 0
do talk resp 1
do talk resp 0
do talk num 9
	pause 1
	end razbivaem

[4epT]

дык нада писать не "talknpc 44 71 r1 r0 d5", а:

do talknpc 44 71 r1 r0 d5

[sll5225]

Даже если прописать в самом боте talknpc 44 71 r1 r0 d5
он чето быстро пробазарит но нече нераспилит
Так шо пользуюсь своим 8)

[4epT]

sll5225, у всех рахбивает..
ты б почитал на чём он там заваливается..

[Dima]

мне наверно преведущий понравился..

[4epT]

Dima, какой предыдущий, ты про что?

[Dima]

я про макрос...

[Dima]

у меня сейчас такой макрос но я хачу его дополнить добавив продаже после разбития из инвентаря и из телеги Green Live
automacro in {
location um_in 28 73 35 68
call npc
run-once 1
}

macro npc {
pause 5
while (@invamount (Great Nature) > 0) as razbivaem
while (@eval($::char->{weight_max}*0.88-$::char->{weight}) > 10) as boltaem
if (@invamount (Great Nature) < 1) goto end
do talknpc 44 71 r1 r0 d5
pause 1
end boltaem
:end
if (@eval(8000-$::cart{weight}) < 4) goto end1
do cart add Green Live @eval(int @eval(1600-$::cart{weight}/5))
if (@cartamount (Great Nature) < 1) goto end2
do cart get Great Nature @eval(int @eval($::char->{weight_max}*0.022-$::char->{weight}/40))
:end2
:end1
pause 1
end razbivaem
call sell
}
macro sell {
do move 125 157 umbala
do talknpc 160 125 (как сказать ему продать Green Live из инвентаря и из телеги?)
call kafra
}
дальше все пообычному..(убирать складывать жизьни в кафру не надо..(их просто не буит..))
macro kafra {
do move 97 148 umbala
do talknpc 87 160 r1
pause 1
do storage add Green Live
pause 1
do storage add Great Nature
pause 1
do storage addfromcart Green Live
pause 1
do storage addfromcart Great Nature
pause 1
while (@eval(200-$::cart{weight}/40) > @eval($::char->{weight_max}/40-$::char->{weight}/40)) as gettocart
if (@storamount (Great Nature) > @eval(int @eval(200-$::cart{weight}/40))) goto end
log +++ Great Nature - cliskom malo!+++
pause 10
do quit
:end
pause 1
do storage get Great Nature @eval(int @eval($::char->{weight_max}/40-$::char->{weight}/40))
pause 1
do cart add Great Nature
pause 1
end gettocart
do storage get Great Nature @eval(int @eval(200-$::cart{weight}/40))
pause 1
do cart add Great Nature
pause 1
do storage get Great Nature @eval(int @eval($::char->{weight_max}*0.022-$::char->{weight}/40))
do storage close
pause 1
release in
do move 220 189 umbala
}
do talknpc 87 160 r1
pause 1
do storage add Green Live
pause 1
do storage add Great Nature
pause 1
do storage addfromcart Green Live
pause 1
do storage addfromcart Great Nature
pause 1
log wes telegi: @eval(200-$::cart{weight}/40)
log swobodniy wes @eval($::char->{weight_max}/40-$::char->{weight}/40)
while (@eval(200-$::cart{weight}/40) > @eval($::char->{weight_max}/40-$::char->{weight}/40)) as gettocart
log (@eval(200-$::cart{weight}/40) > @eval($::char->{weight_max}/40-$::char->{weight}/40))
log do storage get Great Nature @eval(int @eval(200-$::cart{weight}/40))
pause 1
do storage get Great Nature @eval(int @eval($::char->{weight_max}/40-$::char->{weight}/40))
pause 1
do cart add Great Nature
log @eval(200-$::cart{weight}/40) > @eval($::char->{weight_max}/40-$::char->{weight}/40)
pause 1
end gettocart
log end gettocart
do storage get Great Nature @eval(int @eval(200-$::cart{weight}/40))
pause 1
do cart add Great Nature
pause 1
do storage get Great Nature @eval(int @eval($::char->{weight_max}*0.022-$::char->{weight}/40))
do storage close
pause 1
release in
do move 220 189 umbala
}

[4epT]

Dima, ты бы писал вопросы отдельно от текста макроса.. (на будующее) или хотяб цветом выделял..

как сказать ему продать Green Live из инвентаря и из телеги?

из инвентаря: читай Консольные команды Openkore
А продавать из телеги - это чит!