Guild Allianse

Тут будем выкладывать макросы и другие полезные хреновины)

Таксь... держите макрос на ламбер...
примечание - менять координаты пеньков можно тыцкая на дерево с использованием команды ,infotile после этого откроется подменюшка в которой будет указана координата дерева, именно ее копируите в макрос


;ID сундуков в которых лежат итемы для работы с макросом
set %box_big EBBHAOF
set %box_mage JNRHZNF
set %box_band UBQJUTF
set %box_item WHFZKWF
set %findband 10
set %maxhits #HITS / 2
;=====================================================================*
Event Macro 8 1
wait 10
contpos 808 2
set %char #ContID
Event macro 8 2
wait 10
contpos 776 290
Event macro 8 7
wait 10
contpos 788 415
set %BACKPACKID #CONTID
GoSub House

lumberstart:
;координаты деревьев - узнаются командой ,infotile
GoSub Drees 3277 1012 1629 0
GoSub Drees 3299 1016 1632 0
GoSub Drees 3280 1012 1635 0
GoSub Drees 3280 1012 1644 0
GoSub Drees 3299 1016 1644 0
GoSub Drees 3296 1020 1644 0
GoSub Drees 3299 1024 1644 0
GoSub Drees 3277 1032 1650 0
GoSub Drees 3286 1032 1656 0
GoSub Drees 3299 1024 1656 0
GoSub Drees 3283 1020 1656 0
GoSub Drees 3302 1020 1650 0
GoSub Drees 3283 1016 1647 0
GoSub Drees 3277 1016 1659 0
GoSub Drees 3277 1012 1659 0
GoSub Drees 3286 1008 1659 0
GoSub Drees 3296 1008 1656 0
GoSub Drees 3280 1004 1656 0
GoSub Drees 3302 1000 1659 0
GoSub Drees 3280 1008 1671 0
GoSub Drees 3302 1016 1668 0
GoSub Drees 3296 1020 1665 0
GoSub Drees 3286 1024 1665 0
GoSub Drees 3296 1024 1662 0
GoSub Drees 3296 1028 1665 0
GoSub Drees 3286 1028 1671 0
GoSub Drees 3280 1036 1677 0
GoSub Drees 3277 1036 1674 0
GoSub Drees 3286 1040 1674 0
GoSub Drees 3296 1040 1680 0
GoSub Drees 3283 1044 1680 0
GoSub Drees 3286 1044 1674 0
GoSub Drees 3302 1044 1686 0
GoSub Drees 3296 1052 1686 0
GoSub Drees 3286 1052 1695 0
GoSub Drees 3277 1048 1695 0

wait 65
Msg 'resend $
wait 60
goto lumberstart






Sub House
;=====================================================================*
; ???????????? ??? ??????? ??? ????? ???????
set %max #str * 3
;=====================================================================*
;? ?????? ???????? ??? ??????????? ?????? ?? ?????
set %max_str #STR * 3 + 30
;=====================================================================*
House:
if #WEIGHT > %max_str
{
finditem MMK C_ , %backpackid
wait 5s
msg ,drop 5 0 0 -1 #FINDID $
Goto House
}
wait 10
;=========================================================================*
;кооржинаты ведущие к сундуку - можно использовать и одну, но что ;бы чар не петлял впишите промежуточную.
move 1015 1655 0
move 1013 1648 0
;=========================================================================*
set #LOBJECTID %box_big
Event Macro 17 0
wait 10
contpos 0 0
Event macro 8 7
wait 10
contpos 788 415
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
contpos 190 25
Moveitem:
finditem ZLF C_ , %backpackid
if #FINDSTACK < 10
{
set %band %findband - #FINDSTACK
finditem ZLF C_ , %box_band
if #FINDID = X
{
Event SysMessage ?? ?? ???????? ? ?????? ??????, ???????? ????? ?
????????????? ??????
wait 30
GoTo Moveitem
}
wait 10
finditem ZLF C_ , %box_band
if #FINDID <> X
{
wait 10
msg ,grab %band #FINDID $
GoTo Moveitem
}
}
;====================================================================*
finditem HND C_ , %BACKPACKID
if #FINDID = X
{
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
finditem HND C_ , %box_band
if #FINDID = X
{
Display ok ? ??? ??? ??? ? ??????? ???????? ??? ? ????????????? ??????
GoTo Moveitem
}
msg ,grab 1 #FINDID $
wait 10
GoTo Moveitem
}
;=================================================================*
finditem FSF C_ , %BACKPACKID
if #FINDID = X
{
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
finditem FSF C_ , %box_band
if #FINDID = X
{
Display ok ? ??? ??? ?????? ? ??????? ???????? ?????? ? ????????????? ??????
GoTo Moveitem
}
msg ,grab 0 #FINDID $
wait 10
GoTo Moveitem
}
;================================================================*
finditem MMK_MZF_WZF C_ , %BACKPACKID
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_item $
wait 10
GoTo Moveitem
}
finditem KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %backpackid
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_mage $
wait 10
GoTo Moveitem
}
FINDITEM WUF C_ , %backpackid
if #FINDID <> X
{
wait 10
msg ,moveitem #FINDID 0 %box_band $
GoTo Moveitem
}

FINDITEM UUF C_ , %backpackid
if #FINDID = X
{
finditem UUF C_ , %box_band
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 10
}
finditem UUF C_ , %backpackid
if #FINDID <> X
{
Event SysMessage ?? ????? ????? ??? ????????????? HITS
}
finditem UUF C_ , %backpackid
if #FINDID = X
{
Event SysMessage ?? ?? ????? ????? ??? ????????????? HITS
}
}
hitshouse:
if %lefttime > #TIME
GoTo hitshouse
if #HITS <> #MAXHITS
{
if #HITS < 50
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo moveitem
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
wait 10
GoTo moveitem
}
move %2 %3 1
Return



Sub Drees
msg $
Drees:
move %2 %3 1
finditem BSF_FSF C_ , %BACKPACKID
if #FINDID = X
{
wait 10
GoSub House
GoTo Drees
}
set #LOBJECTID #FINDID
Event Macro 17 0
set #LTARGETKIND 3
wait 10
set #LTARGETX %2
set #LTARGETY %3
set #LTARGETTILE %1
Event Macro 22 0

Journal:
for %i 1 45
{
wait 1s
finditem BSF_FSF C_ , %BACKPACKID
if #FINDID = X
{
wait 10
GoSub House
GoTo Drees
}
for %scanj 1 10
{
ScanJournal %scanj
if [202]_45AL_=5B_1> in #Journal
{
deleteJournal
wait 3s
Return
}
}
if #WEIGHT > %max
{
GoSub House
GoSub Move
GoTo Drees
}
if #HITS <> #MAXHITS
{
GoSub Healing
GoTo Drees
}
if #HITS <> #MAXHITS
{
GoSub Healing
GoTo Drees
}
}
GoTo Drees

Sub Healing
HEALING:
FINDITEM ZLF C_ , %BACKPACKID
if #FINDID = X
{
GoSub House
}
if %lefttime > #TIME
GoTo HEALING
if #HITS <> #MAXHITS
{
if #HITS < %maxhits
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo HEALING
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
finditem JE_GD_HS_WE_YD_WD
if #FINDID <> X
{
msg $,waittargetobject #FindID self $
wait 1s
msg $,useskill Enticement $
wait 1s
ignoreitem #FINDID
GoTo HEALING
}
if #HITS < 60
GoSub House
GoTo HEALING
}
CORPSE:
FINDITEM YFM
if #FINDID <> X
{
if #FINDDIST < 8
{
set %corpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1
FINDITEM WRH_SOH_NMH_ATF_KPH C_ , %char
if #FINDID <> X
{
set #LOBJECTID #FINDID
set #LTargetKind 1
set #LTARGETID %corpse
Event macro 17 0
target 1s
Event macro 22 0
wait 3s
set #LOBJECTID %corpse
Event Macro 17 0
wait 1s
REGI:
FINDITEM KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %corpse
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 1s
GoTo REGI
}
ignoreitem %corpse 3
GoTo CORPSE
}
}
}
wait 3s
return

не чегог себе макра )

-AK- писал(а):не чегог себе макра )

нормальный макрос на ламбер... берт на ентис, режет трупы, лутит реги и гп...

да... чуть не забыл, работает только под поледней инжой

Ястно

Britney писал(а):нормальный макрос на ламбер... берт на ентис, режет трупы, лутит реги и гп...

Да, но из-за этого лута выходит логов менше

Alien писал(а):

Britney писал(а):нормальный макрос на ламбер... берт на ентис, режет трупы, лутит реги и гп...

Да, но из-за этого лута выходит логов менше

Ой... да не нуди ты... то что за сутки оно нарубит на 3-4к логов меньше, но при этом на 10-12к гп больше... думаю и так ясно что выгоднее и вообще - ХОРОШ ФЛУДИТЬ В ЭТОМ ТОПИКЕ

итак... макрос на майнинг... работает только под изю 1,5

initevents
;ID сундуков в которых лежат итемы для работы с макросом
set %garbige YKMZHGG
set %box_big LHFQZFG
set %box_item HKFQZFG
set %box_mage LGFQZFG
set %box_band DHFQZFG
set %box_dress LHFQZFG
set %findband 10
set %maxhits #HITS / 2
;=====================================================================
; максимальный вес который чар может понести
set %max #str * 3
Event SySMEssage WGHT %max Максимальный вес который чар может понести
;=====================================================================
;в случаи перевеса чар выбрасывает инготы на землю
set %max_str #STR * 3 + 30
Event SySMEssage WGHT %max_str В случаи перевеса чар выбрасывает инготы на землю
;=====================================================================
;опкапывается квадрат или прямоугольник - тобишь берете ставите ;координату точки с которой начинаите копать и координату точки где ;копка окончена - таким образом у вас должен получится ;прямоугольник.
set %move_char_newx 4032 ;координата Х начало
set %move_char_newy 318 ;координаты У начало
set %move_char_endx 4038 ;координата Х конец
set %move_char_endy 324 ;координата У конец
;=====================================================================
Event Macro 8 1
wait 10
contpos 808 2
set %char #ContID
Event macro 8 2
wait 10
contpos 776 290
Event macro 8 7
wait 10
contpos 788 415
set %BACKPACKID #CONTID
Display ok Для начала макроса вам необходима находиться в шахте
GoSub Move_House
Event SySMessage Старт макроса
Start:
for %move_charx %move_char_newx %move_char_endx
{
for %move_chary %move_char_newy %move_char_endy
{
GoSub Journal
}
}
GoTo Start
Sub Journal
Journal:
Event macro 8 7
msg $
contpos 788 415
finditem NPF C_ , %backpackid
if #FINDID = X
{
GoSub Move_House
GoTo Journal
}
move %move_charx %move_chary 0
find:
finditem ZVF_DWF_MWF_BWF_XVF_EWF_RVF_VVF_GWF_CWF_FWF_YVF_AWF_TVF_SVF_DWJ G_2
if #FINDID <> X
{
wait 50
msg ,grab 0 #FINDID $
GoTo find
}
Event SySMessage Вы находитесь на координате #CHARPOSX #CHARPOSY #CHARPOSZ
msg 'pc mine CENTER $
for %i 1 40
{
wait 10
for %scanj 1 20
{
ScanJournal %scanj
if LH5_@C4K in #Journal
{
deleteJournal
wait 90
Return
}
}
if #WEIGHT > %max
{
GoSub Move_House
GoTo Journal
}
if #HITS <> #MAXHITS
{
GoSub Healing
GoTo Journal
}
}
GoTo Journal
;======================================================
Sub Dress
UnDress:
set #LOBJECTID %box_big
Event Macro 17 0
wait 10
contpos 0 0
Event macro 8 7
wait 10
contpos 788 415

finditem ZVF_DWF_MWF_BWF_XVF_EWF_RVF_VVF_GWF_CWF_FWF_YVF_AWF_TVF_SVF C_ , %backpackid
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %garbige $
Event SysMessage Вы выкладываете драгоценности сундук
GoTo UnDress
}
finditem DWJ C_ , %backpackid
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_item $
Event SysMessage Вы выкладываете руду в сундук
GoTo UnDress
}
finditem SZF_POF_KUF_JUF_MZF_KZF_WZF_RZF_JZF C_ , %backpackid
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %box_mage $
Event SysMessage Вы выкладываете реги в сундук
GoTo UnDress
}
;========================================================
set #LOBJECTID %box_band
Event Macro 17 0
wait 10
contpos 190 25
Dress:
finditem ZLF C_ , %backpackid
if #FINDSTACK < 10
{
set %band %findband - #FINDSTACK
finditem ZLF C_ , %box_band
if #FINDID = X
{
Event SysMessage Вы не положили в сундук бинтов, положите бинты и
перезапустите макрос
wait 30
GoTo Dress
}
wait 10
finditem ZLF C_ , %box_band
if #FINDID <> X
{
wait 10
msg ,grab %band #FINDID $
GoTo Dress
}
finditem ZLF C_ , %backpackid
if #FINDID = X
{
wait 10
GoTo Dress
}
Event SysMessage Вы взяли #FINDSTACK бинтов
Goto Dress
}
;=======================================================
wait 10
finditem NPF C_ , %backpackid
if #FINDID = X
{
finditem NPF C_ , %box_band
if #FINDID = X
{
Event SysMessage Вы не положили в сундук кирку, положите несколько и
перезапустите макрос
GoTo Dress
}
wait 10
msg ,grab 0 #FINDID $
Event SysMessage Вы взяли кирку
Goto Dress
}
;=======================================================
wait 10
finditem HND C_ , %backpackid
if #FINDID = X
{
finditem HND C_ , %box_band
if #FINDID = X
{
Event SysMessage Вы не положили в сундук еду, положите несколько и
перезапустите макрос
wait 30
GoTo Dress
}
msg ,grab 1 #FINDID $
wait 10
Event SysMessage Вы взяли еду
Goto Dress
}
FINDITEM WUF C_ , %backpackid
if #FINDID <> X
{
wait 10
msg ,moveitem #FINDID 0 %box_band $
GoTo Dress
}
FINDITEM UUF C_ , %backpackid
if #FINDID = X
{
finditem UUF C_ , %box_band
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 10
}
finditem UUF C_ , %backpackid
if #FINDID <> X
{
Event SysMessage Вы взяли банку для востановление HITS
}
finditem UUF C_ , %backpackid
if #FINDID = X
{
Event SysMessage Вы не взяли банку для востановление HITS
}
}
hitshouse:
if %lefttime > #TIME
GoTo hitshouse
if #HITS <> #MAXHITS
{
if #HITS < 50
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo hitshouse
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
GoTo Dress
}
Return

;=======================================================
Sub Move_House
Move_House:
if #WEIGHT > %max_str
{
finditem DWJ C_ , %backpackid
wait 90
msg ,drop 1 0 0 -1 #FINDID $
Goto Move_House
}
Event SySMessage Вы направляетесь к дому
move 4037 315 0
Event SySMessage #CHARNAME #CHARPOSX #CHARPOSY #CHARPOSZ
move 4046 315 0
Event SySMessage #CHARNAME #CHARPOSX #CHARPOSY #CHARPOSZ
move 4046 301 0
Event SySMessage #CHARNAME #CHARPOSX #CHARPOSY #CHARPOSZ

GoSub Dress
GoSub Move_Mining
Return

Sub Move_Mining
Event SySMessage Вы направляетесь в шахту
move 4046 315 0
Event SySMessage #CHARNAME #CHARPOSX #CHARPOSY #CHARPOSZ
move 4036 315 0
Event SySMessage #CHARNAME #CHARPOSX #CHARPOSY #CHARPOSZ

Return


Sub Healing
HEALING:
FINDITEM ZLF C_ , %BACKPACKID
if #FINDID = X
{
GoSub Move_House
}
if %lefttime > #TIME
GoTo HEALING
if #HITS <> #MAXHITS
{
if #HITS < %maxhits
{
FINDITEM UUF C_ , %BACKPACKID
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo HEALING
}
}
msg $'pc heal self $
set %lefttime #TIME + 9
finditem JE_GD_HS_WE_YD_WD
if #FINDID <> X
{
msg $,waittargetobject #FindID self $
wait 1s
msg $,useskill Enticement $
wait 1s
ignoreitem #FINDID
GoTo HEALING
}
if #HITS < 60
GoSub Move_House
GoTo HEALING
}
CORPSE:
FINDITEM YFM
if #FINDID <> X
{
if #FINDDIST < 8
{
set %corpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1
FINDITEM WRH_SOH_NMH_ATF_KPH C_ , %char
if #FINDID <> X
{
set #LOBJECTID #FINDID
set #LTargetKind 1
set #LTARGETID %corpse
Event macro 17 0
target 1s
Event macro 22 0
wait 3s
set #LOBJECTID %corpse
Event Macro 17 0
wait 1s
REGI:
FINDITEM KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF_POF_OZF_LZF_DUF C_ , %corpse
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 1s
GoTo REGI
}
ignoreitem %corpse 3
GoTo CORPSE
}
}
}
wait 3s
return

скрин на котором нарисовано как выставить координаты копания - http://flyfolder.ru/3020350

Кто мне даст макром на Пвп в окло

SnapShot писал(а):Кто мне даст макром на Пвп в окло

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

Этот макрос на мининг тоже берёт монстров на этисмнет?

Alien писал(а):Этот макрос на мининг тоже берёт монстров на этисмнет?

разумеется берет и режит туши

guildaliance писал(а):разумеется берет и режит туши

С моим 25 энтисмента на нюбу этот маакрос не для меня

Alien писал(а):

guildaliance писал(а):разумеется берет и режит туши

С моим 25 энтисмента на нюбу этот маакрос не для меня

слабо поставить на гендальф???
у меня даже у самого гавенного раба ентисмента 100

Сайт махно работает? И где можна скачать гендальф и изиуо 1.5?

BLACKman писал(а):Сайт махно работает? И где можна скачать гендальф и изиуо 1.5?

http://files.adamant.ua/374

BLACKman писал(а):где можна скачать изиуо 1.5?

http://files.adamant.ua/8955

BLACKman писал(а):Сайт махно работает? И где можна скачать гендальф и изиуо 1.5?

зайдите на сайт SoD в разделе полезности есть и изя и гендальф

Всем спасибо вот токо как в геной работать непомню - год не играл

BLACKman писал(а):Всем спасибо вот токо как в геной работать непомню - год не играл

...хм... во это уже проблематично... так сходу не обьяснишь

Britney писал(а):...хм... во это уже проблематично... так сходу не обьяснишь

В тимспике проще всё обьяснить

Alien писал(а):

Britney писал(а):...хм... во это уже проблематично... так сходу не обьяснишь

В тимспике проще всё обьяснить

а чем телефон хуже?)

guildaliance писал(а):а чем телефон хуже?)

У меня нет твоего номера

Выложите еще плз макрос на фишинг буду очень рад

BLACKman писал(а):Выложите еще плз макрос на фишинг буду очень рад

насколько я знаю не один макрос на фишинг сечас не работает... там вроде коанда не отключена... хотя хз)