initevents
set #SYSMSGCOL 22
set %dg 0x00000F51
msg $,setarm 2 $
wait 15
msg ,disarm $
wait 15
msg ,equip Rhand ^0x00000DBF $
wait 1s
msg ,useobject lastequip $
target 3s
Event SysMessage Slim дает добро))
;---------------------------------------------------
begin:
set %chrx #CHARPOSX
set %chry #CHARPOSY
goSub enemys
if #STAMINA < 100
{
gosub obriv
wait 30
msg $'pc quaf refresh $
wait 7s
msg ,equip Rhand ^0x00000DBF $
wait 1s
msg ,useobject lastequip $
target 3s
Event SysMessage продолжим..
}
gosub scan
wait 1s
goto begin
;-----------------------------------------------------
enemy:
finditem OD_KI_BD G_12
If #FINDKIND = -1
{
if c in #CHARSTATUS || #HITS < #MAXHITS - 8
gosub hell
gosub corpse
gosub ribs
Event SysMessage все слутили))
msg ,disarm $
wait 1s
msg ,equip Rhand ^0x00000DBF $
wait 1s
msg ,useobject lastequip $
target 3s
Event SysMessage можеш ловить дальше...
Goto Begin
}

if #HITS = N/A || #HITS = 0
PAUSE
if #HITS < #MAXHITS - 10
{
if c in #CHARSTATUS && #HITS < #MAXHITS - 40 || #HITS < #MAXHITS / 3
{
msg 'pc quaf heal $
goto pervak
}
msg 'pc heal self $
pervak:
if #FINDX = #CHARPOSX
{
if #FINDY = #CHARPOSY
{
wait 4s
}
}
}
Move #FINDX #FINDY 0 8s
Goto enemy
;---------------------------------------------------
Sub enemys
finditem OD_KI_BD G_12
If #FINDDIST > 14
{
Event SysMessage вражина поблизости..
return
}

If #FINDKIND <> -1
{
if #FINDDIST <= 14
{
msg ,arm 2 $
wait 10
Set #LTARGETID #FINDID
Event SysMessage рыбалка в опасности!
Move #FINDX #FINDY 1 12s
Event Macro 27
Goto enemy
}
Event SysMessage враг рядом..
}
Return
sub obriv
msg $,disarm $
wait 10
return
;--------------------------------------------------------
sub corpse
CORPSE:
FINDITEM YFM G_2
if #FINDKIND <> -1
{
set %corpse #FINDID
move #FindX #FindY 1 30s
wait 1s
set #LTargetKind 1
set #LTARGETID %corpse
msg ,useobject ^ , %dg $
target 2s
Event macro 22 0
wait 3s
set #LOBJECTID %corpse
Event Macro 17 0
wait 1s
REGI:
FINDITEM WZF_JUF_ZUF_DUF_POF_LZF_IIF_HSL_KUF_VVF_JZF_WZF_RVF_SZF_JUF_RZF_ZUF_KZF_MZF C_ , %corpse
if #FINDID <> X
{
msg ,grab 0 #FINDID $
wait 1s
GoTo REGI
}
}
}
}
if YFM in #CONTTYPE
{
set %sx #CONTPOSX + 50
set %sy #CONTPOSY + 50
click %sx %sy r
wait 10
}
wait 1s
return
;---------------------------------------------------------
sub hell
hl:
IF #HITS < #MAXHITS || c in #CHARSTATUS
{
msg 'pc heal self$
wait 164
goto hl
}
return
;----------------------------------------------------------
sub ribs
move %chrx %chry 0 15s
wait 1s
rzr:
FINDITEM EQD_DQD_GQD G_3
if #FINDKIND = -1
return
set #LTARGETID #FINDID
set #LTARGETKIND 1
msg ,useobject ^ , %dg $
target 3s
event macro 22 0
wait 56
goto rzr
;----------------------------------------------------------
sub scan
scanjournal 1
if  <5AB0. in #journal || 745AL in #journal || @K1C in #journal || =5G53> in #journal || 48B5AL in #journal || 1KBL in #journal
gosub next
scanjournal 2
if  <5AB0. in #journal || 745AL in #journal || @K1C in #journal || =5G53> in #journal || 48B5AL in #journal || 1KBL in #journal
gosub next
scanjournal 3
if  <5AB0. in #journal || 745AL in #journal || @K1C in #journal || =5G53> in #journal || 48B5AL in #journal || 1KBL in #journal
gosub next
scanjournal 4
if  <5AB0. in #journal || 745AL in #journal || @K1C in #journal || =5G53> in #journal || 48B5AL in #journal || 1KBL in #journal
gosub next
return
;------------------------------------------------------------
sub next
deletejournal
goSub enemys
wait 2s
gosub ribs
msg ,useobject lastequip $
target 3s
Event SysMessage можеш ловить дальше...
return