lumberstart:
;координаты деревьев - узнаются командой ,infotile
GoSub Drees 3296 784 1908 0
GoSub Drees 3296 780 1917 0
GoSub Drees 3280 780 1920 0
GoSub Drees 3299 780 1923 0
GoSub Drees 3283 780 1926 0
GoSub Drees 3277 784 1938 0
GoSub Drees 3296 784 1932 0
GoSub Drees 3296 784 1926 0
GoSub Drees 3277 784 1923 0
GoSub Drees 3283 784 1920 0
GoSub Drees 3296 784 1917 0
GoSub Drees 3286 788 1905 0
GoSub Drees 3283 788 1917 0
GoSub Drees 3286 788 1923 0
GoSub Drees 3280 788 1926 0
GoSub Drees 3280 788 1932 0
GoSub Drees 3286 788 1935 0
GoSub Drees 3286 788 1941 0
GoSub Drees 3296 788 1947 0
GoSub Drees 3277 788 1950 0
GoSub Drees 3277 792 1950 0
GoSub Drees 3280 792 1938 0
GoSub Drees 3277 792 1935 0
GoSub Drees 3296 792 1932 0
GoSub Drees 3299 792 1899 0
GoSub Drees 3280 796 1911 0
GoSub Drees 3277 796 1920 0
GoSub Drees 3277 796 1923 0
GoSub Drees 3302 796 1926 0
GoSub Drees 3299 796 1938 0
GoSub Drees 3283 796 1953 0
GoSub Drees 3302 800 1944 0
GoSub Drees 3280 800 1932 0
GoSub Drees 3299 800 1917 0
GoSub Drees 3302 800 1914 0
GoSub Drees 3277 800 1908 0
GoSub Drees 3283 800 1905 0
GoSub Drees 3299 800 1899 0
GoSub Drees 3280 800 1896 0

wait 65

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 791 1898 0
move 791 1898 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