Сдесь написанны легкие макросы для тех кому лень залать в опцыи и выстаавлять
Detect

initevents
event macro 13 14
wait 4s
Стелс

initevents
stealth:
if #charstatus = h
{
event macro 13 47
wait 4s
goto stealth
}
event macro 13 21
wait 4s


И вот еще макрос на майнинг....
Все что надо изменять написанно русс.буквами в макросе...
Initevents
; максимальный вес
Set %MaxWeight 460
Set %MinWeight %MaxWeight - 100
Set %point 0
Set #SYSMSGCOL 89
Event SysMessage Mining macro v4.0 for Dafi by MAXHO.
Event SysMessage Starting macro...
Wait 1s
Msg 'resend $
Wait 1s
GoSub Autorun_ON

Gosub NewPoint
Begin:
Wait 1s
Msg 'pc mine %position $
Set %timer 1
Dig:
GoSub FindLich
Set %timer %timer + 1
Wait 2s
If #WEIGHT > %MaxWeight
Gosub Smelt
If %square > 8
Gosub NewPoint
If %timer > 30
Event Sysmessage [201] Zdes net bolshe rudi.
GoSub Scan
Goto Dig

Sub Scan
Scanjournal 1
If [201] in #JOURNAL
GoSub Next
If STOP in #JOURNAL
GoSub Next
Scanjournal 2
If [201] in #JOURNAL
GoSub Next
If STOP in #JOURNAL
GoSub Next
Scanjournal 3
If [201] in #JOURNAL
GoSub Next
Scanjournal 4
If [201] in #JOURNAL
GoSub Next
Scanjournal 5
If [201] in #JOURNAL
GoSub Next
Return

Sub Next
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Event Sysmessage |
Set %square %square + 1
If %square = 1
{
Set %position s
Goto Begin
}
If %square = 2
{
Set %position sw
Goto Begin
}
If %square = 3
{
Set %position w
Goto Begin
}
If %square = 4
{
Set %position n
Goto Begin
}
If %square = 5
{
Set %position ne
Goto Begin
}
If %square = 6
{
Set %position e
Goto Begin
}
If %square = 7
{
Set %position se
Goto Begin
}
If %square = 8
{
Set %position center
Goto Begin
}
Return

Sub NewPoint
Set %square 0
Set %point %point + 1
If %point > 4
Set %point 1
; дальше идут координаты четырех точек вокруг которых обкапывает
If %point = 1
{
Set %x 1800
Set %y 854
}
If %point = 2
{
Set %x 1806
Set %y 853
}
If %point = 3
{
Set %x 1799
Set %y 850
}
If %point = 4
{
Set %x 1804
Set %y 844
}
Event SysMessage Going to square %point at %x %y
Move %x %y 0 60s
Wait 2s
Gosub Next
Return

Sub Smelt
Event SysMessage Now going smelt ore.
; координаты плавильни
Move 1799 852 0 60s
Move 1796 855 0 60s
FindForge:
Finditem JBG
If #FINDDIST > 3
{
IgnoreItem #FINDID
Event SysMessage Ignore forge. Its too far.
Goto FindForge
}
If #FINDKIND <> 1
{
Msg 'resend $
Event SysMessage There is no forge to smelt ore.
Wait 3s
Goto FindForge
}
Event SysMessage Forge finded. Now smelting ore to ingots.
Set #LTARGETID #FINDID
Set #LTARGETKIND 1
FindOre:
Finditem DWJ
If #FINDKIND = -1
{
Event SysMessage There are no ore to smelt.
GoSub Check
Goto Begin
}
If #FINDKIND = 1
{
Ignoreitem #FINDID
Goto FindOre
}
Set #LOBJECTID #FINDID
Event macro 17 0
Wait 2s
Event macro 22 0
Wait 2s
Goto FindOre

Sub Check
If #WEIGHT > %MinWeight
GoSub Store
Event SysMessage Continue diging.
Move %x %y 0 60s
Wait 2s
Return

Sub Store
; координаты точек вдоль которых к домику бежать
Event SysMessage Now going to store ingots.
Move 1813 850 0 60s
Move 1825 850 0 60s
Move 1825 856 0 60s
Move 1833 856 0 60s
Drag:
Finditem ENK_SZF_GFF_POF_PMH_CQF_BFF
; координаты бежать обратно в шахту
If #Findkind = -1
{
Event SysMessage Done.
Event SysMessage Now return to mine.
Move 1825 856 0 60s
Move 1825 850 0 60s
Move 1813 850 0 60s
Return
}
If #Findkind = 1
{
Ignoreitem #FindId
Goto Drag
}
Event drag #FindId
Wait 5
Msg $
Wait 5
; координаты сундука на экране
Click 460 280
Goto Drag
Sub Autorun_on
Event macro 32 0
Wait 1s
Scanjournal 1
If _OFF in #journal
Event macro 32 0
Scanjournal 2
If _OFF in #journal
Event macro 32 0
Scanjournal 3
If _OFF in #journal
Event macro 32 0
Return

Sub Autorun_off
Event macro 32 0
Wait 1s
Scanjournal 1
If _ON in #journal
Event macro 32 0
Scanjournal 2
If _ON in #journal
Event macro 32 0
Scanjournal 3
If _ON in #journal
Event macro 32 0
Return

_________________
Live if you wanna live(c)Bob Marley

Скрипт на майнинг:

Как только набирается максимальный вес начинает ити спам -сообщение и продолжает копать
Подскажи де нада поправить

Простите за неправельность

_________________
Live if you wanna live(c)Bob Marley