Ну многие из вас видели одну из версий моего макроса на ламбер . Сейчас вот выкладываю немного улучшенную версию . Выкладываю здесь , потому что после актаки раССистов на меня у меня теперь и аккаунт забанен и из Техники игры меня выкинули . Хотя там в технике и сейчас остались макросы ( не мои
). Но то или с ошибками или есть и рабочие , но расчитанные на чаров с раССовой припиской . Дело в том , что при ламбере идут бои с древодриадами и рипперами . А у чаров раССистов понижен ущерб в 2а раза и дамага повышена в 2а раза . Возможно еще чтото есть , но это секретная информация . Естественно только такие чары могут рубать без бинтиков . Остальным те макросы не подойдут . Почему это удар по Махне ? Да почитайте его подпись . Он воспользовался моментом атаки раССистов на меня , чтобы устранить с форума того , что мешает ему стричь шерсть с баранов ! Сорри , шутка , но я всеравно не понимаю , как этой барыге удалось такое . Он грабит малознающих и еще у него кличка Батько . Тьху ....
Код:
initevents
msg 'resend $
wait 1s
gosub podgotovka
metka01:
gosub lumber 2167 1280 2168 1278 3277
gosub lumber 2167 1280 2168 1281 3277
gosub lumber 2165 1280 2164 1281 3290
....
....
....
gosub lumber 2173 1284 2172 1284 3299
gosub lumber 2175 1284 2176 1284 3293
goto metka01
sub podgotovka
event sysmessage Made by Mihoshi
wait 1s
msg 'pc repeat on $
wait 1s
ignoritem reset
ignoreitem #CHARID
set %maxweight 390
set %time1 0
set %HealingHits1 #maxhits - 10
set %HealingHits2 #maxhits - 5
finditem FSF_BSF_RMH_ZRF_NSF_MPN_MPH
if #findkind <> 0
{
metka11:
event sysmessage NET TOPORA !!!
wait 5s
goto metka11
}
set %topor #findid
metka12:
event macro 32 0
wait 1s
scanjournal 1
if off in #journal
{
goto metka12
}
return
sub lumber
set %xto4ka %1
set %yto4ka %2
metka20:
gosub atack
move %xto4ka %yto4ka 0 30s
set #LTargetX %3
set #LTargetY %4
set #LTargetTile %5
set #LTargetKind 3
set #LObjectID %topor
metka23:
event macro 17 0
event macro 25 0
wait 1s
event macro 22 0
wait 2s
wait 300ms
scanjournal 1
if 459AB285 in #journal
{
goto metka23
}
goto metka24
metka21:
wait 1s
wait 500ms
metka24:
if #weight > %maxweight
{
gosub jachik
goto metka20
}
if #hits < %HealingHits1
{
gosub atack
goto metka20
}
scanjournal 1
if [202] in #journal
{
wait 1s
goto metka22
}
if #sysmsg = N/A
{
wait 2s
if #sysmsg = N/A
{
goto metka22
}
}
goto metka21
metka22:
gosub atack
return
sub jachik
move 2166 1282 0 100s
move 2168 1275 0
gosub heal
msg 'resend $
wait 1s
metka31:
ignoreitem #findid
finditem MMK_WZF_MZF
if #FindKind = 0
{
event drag #findid
key Enter
wait 500ms
click 345 255
wait 500ms
Msg $
wait 500ms
goto metka31
}
move 2166 1282 0
return
sub heal
if #hits < %HealingHits1
{
msg 'pc heal self $
wait 8s
wait 300ms
}
metka41:
if #hits < %HealingHits2
{
msg 'pc heal self $
wait 8s
wait 300ms
goto metka41
}
return
sub atack
metka51:
finditem HS
if #FINDKIND = 1
{
if #FINDCOL = 2006
{
if #FINDREP = 6
{
gosub monster
}
}
}
finditem JE
if #FINDKIND = 1
{
if #FINDCOL = 0
{
if #FINDREP = 6
{
gosub monster
}
}
}
if #hits < %HealingHits1
{
msg 'pc heal self $
wait 8s
wait 300ms
goto metka51
}
return
sub Monster
set #Ltargetid #Findid
metka61:
move #FindX #FindY 1 1s
if #hits < %HealingHits1
{
if %time1 = 0
{
goto metka62
}
set %time1 #SCNT2
if %time1 < %time2
{
goto metka63
}
metka62:
msg 'pc heal self $
wait 300ms
set %time1 #SCNT2
set %time2 %time1 + 80
metka63:
}
finditem #Ltargetid
if #Findkind = 1
{
goto metka61
}
set %time1 0
return
Расказывать подробно как прописывать не буду . Кто по нулям то это очень много писать надо . Кто немного имеет опыт сам разберется . В двух словах .
В строчках gosub lumber надо дать 5ть чисел . Первые 2е - координаты чара ( возле дерева со стороны ящика ) , остальные - само дерево , координаты и тайл .
В подпрограмме подготовки пропишите максимальный вес ( учитывайте курсу от НПСишек ) . В подпрограмме ящик надо прописать точку впереди дома за несколько клеток и точку возле ящика . Все. Макрос делал для достижения максимальной производительности , а также конструкция макроса расчитана на всякое , есть защиты от сбоев . У меня этот макрос работал даже когда вот недавно канал на АоП лежал и был пинг 1500 -3000 ( правда я поувеличивал многие задержки ) .
Реєстрація
