Макрос на фишинг

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: Zenthas

Форум » Ultima On line » Макросы под EasyUO » Макрос на фишинг (Будет работать после востановления команды 'pc fish)

Макрос на фишинг

TrickFox

Дата: Суббота, 08.03.2008, 02:08 | Сообщение # 1

Admin

Группа: Администраторы

Сообщений: 1685

Репутация: 32767

Статус: Offline

initEvents
set %musorka SWXNHYE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk1 VPGTXUE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk2 FORGEOE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk3 INRIDXE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk4 HBAWRWE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk5 KZHQOFF -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk6 HSRIDXE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %sunduk7 JQEMHYE -ID сундуков/сумок для складывания вещей веловленых/бинтов и прочего для макроса
set %f1 877 Положение чара по "x"
set %g1 2026 Положение чара по "y"
set %r1 0
set %x1 -4
set %y1 4
set %x2 -4
set %y2 3
set %x3 -4
set %y3 2
set %x4 -4
set %y4 1
set %x5 -3
set %y5 4
set %x6 -3
set %y6 3
set %x7 -3
set %y7 2
set %x8 -3
set %y8 1
set %x9 -2
set %y9 4
set %x10 -2
set %y10 3
set %x11 -2
set %y11 2
set %x12 -2
set %y12 1
set %x13 -1
set %y13 4
set %x14 -1
set %y14 3
set %x15 -1
set %y15 2
set %x16 -1
set %y16 1

set %x17 4
set %y17 4
set %x18 4
set %y18 3
set %x19 4
set %y19 2
set %x20 4
set %y20 1
set %x21 3
set %y21 4
set %x22 3
set %y22 3
set %x23 3
set %y23 2
set %x24 3
set %y24 1
set %x25 2
set %y25 4
set %x26 2
set %y26 3
set %x27 2
set %y27 2
set %x28 2
set %y28 1
set %x29 1
set %y29 4
set %x30 1
set %y30 3
set %x31 1
set %y31 2
set %x32 1
set %y32 1

set %z 1

Start:
Event Macro 8 1
wait 1s
set #CONTPOSX 790
set #CONTPOSY -22
set %paperdol #CONTID
wait 1s
Event Macro 8 2
wait 1s
set #CONTPOSX 775
set #CONTPOSY 284
set %stats #CONTID
wait 1s
Event Macro 8 7
wait 1s
set #CONTPOSX 776
set #CONTPOSY 406
set %backpack #CONTID
wait 1s
===========================================
FIND:
FINDITEM XHF C_ , %backpack
if #FINDID = X
{
msg Nu da moget udochku pologish v peck $
wait 3s
GoTo FIND
}
==========================================
FINDITEM HND C_ , %backpack
if #FINDID = X
{
msg Nu da moget pohavaty pologish v peck $
wait 3s
GoTo FIND
}
FINDITEM ZLF C_ , %backpack
if #FINDID = X
{
msg Nu da moget bintikov pologish v peck $
wait 3s
GoTo FIND
}
==========================================
FINDITEM ZLF C_ , %backpack
if #FINDID = X
{
msg Nu da moget bintikov pologish v peck $
wait 3s
GoTo FIND
}
finditem DF_CD_YE_XE
if #findiD <> X
{
msg $all guard$
target 1s
Event Macro 23 0
wait 2s
msg $,findtype HND -1 %mainpack $
msg $,moveitem finditem 0 #FindID $
wait 1s
set %npc2 #FINDID
ignoreitem %npc2 2
GoTo FIND
}
=========================================
ignoreitem reset 2
FISHING:
if #STAMINA < 15
{
FINDITEM ZUF C_ , %backpack
if #FINDID <> X
{
msg 'pc quaf refresh $
wait 8s
GoTo FISHING
}
}
move %f1 %g1 0
if %z > 32
set %z 1
set %x %x . %z
set %y %y . %z
msg $'pc fish %x %y $
ScanJournal:
for %i 1 45
{
wait 1s
if #HITS <> #MAXHITS
{
GoSub HEALING
GoSub DRAG
GoTo FIND
}
scanJournal 1
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 2
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 3
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 4
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 5
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 6
if _@K1K_745AL_=5B. in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 1
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 2
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 3
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 4
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 5
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
scanJournal 6
if K_=5_<>65B5_ in #JOURNAL
{
deleteJournal
set %z %z + 1
wait 3s
GoSub DRAG
GoTo FIND
}
}
set %z %z + 1
GoTo FIND
===========================================
Sub DRAG
DRAG:
wait 1s
FINDITEM HSL
set %npc1 #FindID
if #FINDID <> X
{
msg $,moveitem #FindID 0 %musorka $
ignoreitem %npc1 1
GoTo DRAG
}
FINDITEM HSL_UQF_GIK_TVI_KXF_RCK_YNF_GXF_YWF_JXF_SCK_TVI_YWF_LXF_QCK_HSL_VNF_MXF_ICK_QNF_MNF_JNF_PCK_MCK_LNF_ZWF_XWF_PNF_NSL_KNF_WNF_AXF_WQF_ONF_NNF_ ZQF_GRF_XQF_VQF_YQF_ARF_TQF_ZVI C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %musorka $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=======================================
FINDITEM RVH_XVH C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk2 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=======================================
FINDITEM POF_LZF C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk1 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
======================================
FINDITEM DQD_EQD_GQD C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk2 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=====================================
FINDITEM XKV C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk2 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
======================================
FINDITEM XKV C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk3 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=====================================
FINDITEM KUF_JUF_KZF_JZF_MZF_WZF_SZF_RZF_DUF_OZF C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk4 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
======================================
FINDITEM KIF_IIF_JIF_HIF C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk5 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=======================================
FINDITEM LMH_USF_MTF_UOH_TSF_INF_WRH_ATF_FMH_RMH_CNF_ZRF_SOH_KPH_CPH_YSF_CUH_URH_BSF_NSF_JSF_PPF_AUH_YTH_EPH_WTH_HSF_QOH_RRH_LSF_NMH_IKH_OSH_DPH_NKH_ OLH_NSH_DSH_AVL_KSH_NPF C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk6 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
=====================================
FINDITEM KIF_IIF C_ , %backpack
if #FINDID <> X
{
msg $,moveitem #FINDID 0 %sunduk7 $
set %item #FINDID
ignoreitem %item 1
GoTo DRAG
}
ignoreitem reset 1
Return

Sub HEALING
HEALING:
if #HITS <> #MAXHITS
{
if #HITS < 50
{
FINDITEM UUF C_ , %backpack
if #FINDID <> X
{
msg 'pc quaf heal $
wait 8s
GoTo HEALING
}
}
msg $'pc heal self $
wait 8s
GoTo HEALING
}
CORPSE:
FINDITEM YFM
if #FINDID <> X
{
if #FINDDIST < 2
{
set %corpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1
FINDITEM WRH_SOH_NMH_ATF_KPH C_ , %paperdol
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 2s
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
}
}
}
Event Macro 8 1
wait 1s
set #CONTPOSX 790
set #CONTPOSY -22
set %paperdol #CONTID
wait 1s
Return