set %x1 2217 ; координаты поля х1
set %x2 2230 ; координаты поля х2
set %y1 1158 ; координаты поля у1
set %y2 1145 ; координаты поля у2

set %x %x1
set %y %y1
set %weight #STR * 3 - 30

Event macro 8 1
wait 10
contpos 808 2
Event macro 8 2
wait 10
contpos 776 290
Event macro 8 7
wait 10
contpos 788 415

;================================================================================
Telo:
GoSub Healing
if %y < %y2
{
set %x %x + 1
set %y %y1
}
if %x > %x2
{
set %x %x1
set %y %y1
Goto Sbor
}

move %x %y 0 2s
GoSub Kop
finditem CPE_LIJ_TIJ_HJJ_XIJ G_0
if #FINDID <> X
{
Goto Telo
}
GoSub Sad
FINDITEM NFF_FPE_CPE_MZF_YIJ_LIJ_WZF_VIJ_TIJ_KZF_FJJ_HJJ_JZF_UIJ_XIJ G_0
if #FINDID = X
{
Goto Telo
}
GoSub Healing
set %y %y - 1
GoSub Scan

GoTo Corpse
;================================================================================
Sub Kop
finditem CPE_LIJ_TIJ_HJJ_XIJ G_0
if #FINDID <> X
{
set #LTARGETKIND 1
set #LTARGETID #findid
finditem %katana C_ , #CHARID
set #LOBJECTID #findid
event macro 17 0
event macro 25 0
event macro 22 0
wait 3s
}
return
;================================================================================
Sub Sad
FINDITEM NFF_FPE_CPE_MZF_YIJ_LIJ_WZF_VIJ_TIJ_KZF_FJJ_HJJ_JZF_UIJ_XIJ G_0
if #FINDID = X
{
finditem %lopata C_ , #BACKPACKID
if #FINDID = X
{
Goto Home
}
set #LOBJECTID #findid
event macro 17 0
event macro 25 0
finditem NFF_MZF_WZF_KZF_JZF C_ , #BACKPACKID
wait 5
set #LTARGETID #findid
set #LTARGETKIND 1
set #LTARGETTILE 0
event macro 22 0
event macro 25 0
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY
set #LTARGETZ 0
set #LTARGETTILE 0
set #LTARGETKIND 2
Event macro 22 0
wait 3s
}
return
;================================================================================
Sub Healing
if #HITS < #MAXHITS - 50
{
msg 'pc heal self $
wait 8s
Goto Healing
}
return
;================================================================================
Home:
Event SysMessage Going to Home
Move 2224 1158 0 60s ; точки домой
Event SysMessage Going to Home
Move 2224 1195 0 60s ; точки домой
Event SysMessage Going to Home
Move 2240 1195 0 60s ; точки домой

msg bank $
wait 2s
set #LOBJECTID %sunduk_1
Event Macro 17 0
wait 20

finditem NFF_MZF_WZF_KZF_JZF C_ , #BACKPACKID ; Выкладываем сырье в сундук
wait 1s
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %sunduk_1 $
Event SysMessage Вы выкладываете сырье
}
finditem JUF C_ , #BACKPACKID ; Выкладываем БM в сундук
wait 1s
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %sunduk_2 $
Event SysMessage Вы выкладываете БM
}
finditem EEG C_ , #BACKPACKID ; Выкладываем кожу в сундук
wait 1s
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %sunduk_2 $
Event SysMessage Вы выкладываете кожу
}
A:
finditem KHJ C_ , #BACKPACKID ; Выкладываем квест бутылки
wait 1s
if #FINDID <> X
{
msg ,moveitem #FINDID 0 %sunduk_2 $
Event SysMessage Вы выкладываете квест бутылки
GoTo A
}
wait 1s

finditem ZLF C_ , #BACKPACKID ; бинты
if #FINDSTACK < 15
{
FindItem ZLF C_ , %sunduk_1
Msg ,grab 50 #FINDID $
wait 10
}
finditem %lopata C_ , #BACKPACKID ; лопата
if #FINDID = X
{
FindItem TWF C_ , %sunduk_1
Msg ,grab 0 #FINDID $
wait 10
}
finditem HND C_ , #BACKPACKID ; Еда
if #FINDID = X
{
FindItem HND C_ , %sunduk_1
Msg ,grab 5 #FINDID $
wait 10
}
finditem NFF_MZF_WZF_KZF_JZF C_ , #BACKPACKID ; сырье
if #FINDSTACK < 10
{
FindItem NFF_MZF_WZF_KZF_JZF C_ , %sunduk_1
Msg ,grab 10 #FINDID $
wait 10
}
finditem %katana C_ , #CHARID
if #findid = X
{
finditem %katana C_ , %sunduk_1 ; Katana
Msg ,grab 0 #FINDID $
wait 10
msg ,equip Rhand #FINDID $
wait 10
}
Event SysMessage Going to Home
Move 2224 1195 0 60s ; точки с дома на поле
Event SysMessage Going to Home
Move 2224 1158 0 60s ; точки с дома на поле
Goto Telo
;================================================================================
Corpse:
FINDITEM YFM G_1
if #FINDID <> X
{
if #FINDDIST < 8
{
set %corpse #FindID
set %Corpsex #FindX
set %CorpseY #FindY
move %Corpsex %CorpseY 1 25s
FINDITEM NMH C_ , #CHARID
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
Loot:
FINDITEM EEG_JUF_KHJ C_ , %corpse
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 1s
GoTo Loot
}
ignoreitem %corpse 3
GoTo CORPSE
}
}
}
Goto Telo
;================================================================================
Sub Scan
if #WEIGHT > %weight ; Вес
{
GoTo Home
}
finditem NFF_MZF_WZF_KZF_JZF C_ , #BACKPACKID ; сырье
if #FINDSTACK > 500
{
Goto Home
}
finditem NFF_MZF_WZF_KZF_JZF C_ , #BACKPACKID ; сырье
if #FINDSTACK < 2
{
Goto Home
}
finditem ZLF C_ , #BACKPACKID ; Бинты
if #FINDSTACK < 5
{
Goto Home
}
finditem HND C_ , #BACKPACKID ; Еда
if #FINDID = X
{
Goto Home
}
finditem %katana C_ , #CHARID ; Katana
if #findid = X
{
Goto Home
}
return