initevents
event sysmessage ???????? ??????
set #targcurs 1
Wait 2s
Targeting:
If #TARGCURS = 1
Goto Targeting
set %sword #LTARGETID
set %backpackSAPAXDF
set %mw 490 ; ???????????? ???
set %tmpregs NFF_FPE
set %cutreg CPE
set %lopata TWF
set %homex 1204 ;
set %homey 1899 ;
set %homex1 1204 ;
set %homey1 1899 ; ?????? ???? ??????? ? ???????.
set %cntidJFIZXPG; ?????? ? ??????? ????? ????????? ??????, ? ????????? ???? ?????????????.
set %xstart 1230 ;??? ?????? ????
set %ystart 1872 ;??? ?????? ????
set %xend 1216 ;??? ?????? ????
set %yend 1903 ;??? ?????? ????
set %count 100
check:
for %i %xstart %xend
{
for %j %ystart %yend
{
gosub farmer
}
msg ,usetype HND $
}
endcycle:
move %xstart %ystart a
gosub wait_
set %iddfk 0
goto check
sub farmer
if %iddfk <> 1
{
finditem NFF C_ , %backpack
if #findkind = -1
{
gosub get NFF 25 ;?????? ????? ? ??????? ??????(????? ??? ???-??)
}
}
finditem TWF C_ , %backpack
{
if #findkind = -1
gosub get %lopata 1
}
finditem HND C_ , %backpack
{
if #findkind = -1
gosub get HND 5 ;???-?? ?????, ??????? ?????? ?????,
}
finditem ZLF C_ , %backpack
{
if #findkind = -1
gosub get ZLF 10 ;??? ??????
}
move %i %j a
finditem CPE G_0
if #findkind = -1
{
finditem %tmpregs G_0
if #findkind = -1
gosub s
return
}
if #findkind <> -1
{
if #weight > %mw
gosub store
finditem CPE G_0
set #LTARGETID #findid
set #LTARGETKIND 1
set #LOBJECTID %sword
event macro 17
target 1s
event macro 22 0
wait 3s
gosub s
}
return
sub s
finditem %lopata C_ , %backpack
set #LOBJECTID #findid
finditem NFF C_ , %backpack
set #LTARGETID #findid
set #LTARGETKIND 1
event macro 17 0
target 1s
event macro 22 0
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY
set #LTARGETTILE 0
set #LTARGETKIND 2
set #LTARGETZ #CHARPOSZ
target 1s
event macro 22 0
wait 3s
if #CHARSTATUS = GC
{
Msg 'pc heal self $
Wait 8s
}
return
sub get
move %homex1 %homey1 a
move %homex %homey a
set #LOBJECTID %cntid
event macro 13 21
wait 2s
event macro 17
wait 4s
finditem %1 C_ , %cntid
if #findkind = -1
{
if %1 = NFF
{
set %iddfk 1
return
}
else
halt
}
msg ,grab %2 #findid $
wait 1s
move %i %j a
return
sub store
move %homex %homey a set
finditem NFF C_ , %backpack
set %CC #findcnt - 100
msg ,moveitem #findid %cc %cntid $
wait 1s
move %i %j a3
return
sub wait
for %o 1 10
{
if #charstatus <> H
{
msg 'pc hididng $
wait 3s
}
msg ,usetype HND $
wait 3s
}