макрос: варим/кафра - варим/кафра...

[AndreyLun]

Святой Инквизитор

Покажу своё творение.. только уже автомакро...

Ниче так а [] скобки что делают?

[autotrade]

AndreyLun, вот сделал макрос по аналогии с твоим
этот макрос тоже ерундовый, но мне щаз авжно чтобы цикл работал правильно, всё остальное мелочи.

Код: Выделить всё

macro AS {
	set macro_delay 0.7
	pause 3
	$a = 0
:start
	do talknpc 28 229 c r1 n
	pause 1
	$a = 0
	do storage add Blue Potion
	pause 1
	do storage add Blue Herb
	pause 1
	do storage add Scell
	pause 1
	do storage add Empty Potion Bottle
	pause 1
	do storage get Blue Herb 100
	pause 1
	do storage get Scell 100
	pause 1
	do storage get Empty Potion Bottle 100
	pause 1
	do storage get Medicine Bowl 100
	pause 3
	do storage close
:varka
	$a++
	do ss 228 10
	do eval $::messageSender->sendForgeItem(505)
	if ($a < 101) goto varka
	goto start
	pause 3
}

Через какоето время макрос просто набрал в инвентрарь кучу лута для варки под перевес и вырубилась кора. Загружаю её опять лезу в кафру - опять ошибка и кора закрывается.

AndreyLun, попробую воспользоваться твоим макросом. Скажи какая у тя версия коры.

[Святой Инквизитор]

AndreyLun
Ускоряют варку в 5 раз.. это цепь команд.. должен был знать... почитай в гайде по макросах....

[AndreyLun]

Версия OpenKore 2.0.6 SVN6458 с Русификацией и dKore.

do storage add Blue Potion
pause 1
do storage add Blue Herb
pause 1
do storage add Scell
pause 1
do storage add Empty Potion Bottle

А зачем всё выкладываешь?

$a++

далее в учебнике пишется

$var4++
$var4 = @eval ($var4) или $var4 = @eval ($var4 + 54) это типо математические действий чтоли)

т.е. увеличив $var4 на единицу нам надо записать её, так сказать в ячейку $var4, иначе она может затереться. Я так всегда писал.
ну и по поводу твоего цикла я уже отошёл от этого, т.к. можно постоянно проверять наличие или отсутствие в инвертаре необходимого. Т.о. появляется у меня цикл:

:varka
do ss Pharmacy
do craft $id
if ( @invamount (Medicine Bowl) < 1 ) goto kafra
goto varka
stop

Святой Инквизитор

Ускоряют варку в 5 раз.. это цепь команд..

Хм... ну и поф у меня и так 2 синьки за секунду варит где то) мне хватает и то быстро слишком. поставлю может даже задержку, а то палевно

[Святой Инквизитор]

AndreyLun
Ну я ныкаюсь в какое-то место где народу нет.. и варю по 10 в секунду...)))

[AndreyLun]

Аналогичная халява
Варка зажигательной смеси

Добавлено спустя 10 минут 37 секунд:
Варка соляной кислоты

[Даниил]

мм а варку красных слимов мона?)

[EternalHarvest]

мм а варку красных слимов мона?)

Даже немножко не разобравшись сам, хочешь нахаляву в топе подняться?

[Даниил]

угу)правдо несовсем я... просто небось есть у кого-нить)) ну лан сам напишу)просто лениво было

[FloatingBoy]

Взял за основу варки кислоты, предложенной AndreyLun... Вот что получилось:

macro start {
$xnpc = 175
$ynpc = 226
$npcsteps = c r1 n
$id = 545
$i = 1000
$m = 150
$ab = Condensed Red Potion
$ih = @invamount (Red Potion)
$mb = @invamount (Medicine Bowl)
$eb = @invamount (Empty Test Tube)
$cn = @invamount (Cactus Needle)
:proverka
if ( @invamount (Medicine Bowl) < $m ) goto kafra
goto varka
stop
:kafra
log лута для варки закончился
$k = 0
do talknpc $xnpc $ynpc $npcsteps
pause 3
$k = @invamount ($ab)
do storage add @inventory ($ab) $k
pause 1
if ( @storamount ($ab) > $i ) goto end
goto getlut
stop
:getlut
$n = 0
$n = @eval ($m - $ih)
pause 1
do storage get Red Potion $n
$n = 0
$n = @eval ($m - $mb)
pause 1
do storage get Medicine Bowl $n
$n = 0
$n = @eval ($m - $cn)
pause 1
do storage get Cactus Needle $n
$n = 0
$n = @eval ($m - $eb)
pause 1
do storage get Empty Test Tube $n
pause 1
do storage close
:varka
do ss Pharmacy
do craft $id
if ( @invamount (Medicine Bowl) < 1) goto kafra
goto varka
stop
:end
log Я наварил более $i слимов!
log закончила варку
}


Только вот при запуске вылает сообщение о ошибке.. Сколько не пересматривал, ошибки не находил.. Хоть и не силен в данных темах.. Есть у кого какие предложения?

[AndreyLun]

FloatingBoy хз вроде всё правильно...
Я правда не варил красньlе уменьшеньlе зелья, но у меня вот такой есть макрос:
В прошльlх моих макросах есть ошибка:
Через какое то время хим перегружался не вьlкладьlвая все зелья и не добирал до 150 лута, а брал всегда по 150...Ниже новьlе макросьl, исправленньlе.

Код: Выделить всё

macro start {
$xnpc = 175
$ynpc = 226
$npcsteps = c r1 n
$id = 545
$i = 1000
$m = 150
$crp = Condensed Red Potion
:proverka
$rp = @invamount (Red Potion)
$mb = @invamount (Medicine Bowl)
$et = @invamount (Empty Test Tube)
$cn = @invamount (Cactus Needle)
if ( @invamount (Medicine Bowl) < $m ) goto kafra
goto varka
stop
:kafra
log лута для варки закончился
do talknpc $xnpc $ynpc $npcsteps
pause 3
do storage add @inventory ($crp)
pause 1
if ( @storamount ($crp) > $i ) goto end
goto getlut
stop
:getlut
$n = 0
$n = @eval ($m - $rp)
pause 1
do storage get Red Potion $n
$n = 0
$n = @eval ($m - $mb)
pause 1
do storage get Medicine Bowl $n
$n = 0
$n = @eval ($m - $cn)
pause 1
do storage get Cactus Needle $n
$n = 0
$n = @eval ($m - $et)
pause 1
do storage get Empty Test Tube $n
pause 1
do storage close
:varka
pause 0.2
do ss Pharmacy
pause 0.4
do craft $id
pause 0.2
if ( @invamount (Medicine Bowl) < 1) goto proverka
goto varka
stop
:end
log Я наварил более $i слимов!
log закончили варку
}