set %corpse YFM
set %loot POF_RWF_AUD_DWJ_GWJ_EWJ_NMK_RMK_CKF_UZF_ZJF ;HJG_SJG_UJG_IJG_
set %healHP #maxhits - 20
Set %potionHP #maxhits - 50
set %camphits #maxhits - 20
set %laiks #scnt

Mainloop:
if #hits < %healhp
gosub camp
gosub check
finditem %corpse G_1
if #findkind = -1
 {
  wait 5
  gosub pickup
  gosub heal
  gosub drink
  goto Mainloop
 }

set #lobjectid #findid
  set %lootfrom #findid
  event macro 17 0
  wait 5
gosub potion
gosub lootit
goto mainloop




sub lootit
lootit:
finditem %loot C_ , %lootfrom
if #findkind = -1
{
ignoreitem %lootfrom
return
}
 exEvent Drag #FindID #findstack
 wait 10
 exEvent dropc #backpackid
 wait 10
 gosub check
goto lootit

sub pickup
pickup:
gosub check
finditem %loot G_3
if #findkind = -1
 {

  return
 }

{
 exEvent Drag #FindID #findstack
 wait 10
 exEvent dropc #backpackid
 wait 10
 goto pickup
}

sub check
ghost:
if #charghost = no
return
finditem XHL G_3
set #lobjectid #findid
event macro 17
wait 5s
goto ghost

sub heal
if #hits < %healHP
{
finditem ZLF C_ , #backpackid
set #lobjectid #findid
Event macro 17
target
Event macro 23
wait 3s
return
}
return

sub drink
if #hits < %potionhp
{
finditem WUF C_ , #backpackid
set #lobjectid #findid
event macro 17
return
}
return

sub potion
potion:
finditem WUF C_ , #backpackid
if #findstack < 150
{
 finditem WUF C_ , %lootfrom
 if #findkind = -1
 return
}
 if #findcol <> 1092
 {
  ignoreitem #findid
  goto potion
 }
 exEvent Drag #FindID #findstack
 wait 10
 exEvent dropc #backpackid
 wait 10
 return

sub camp
if #scnt < %laiks + 31
return
finditem PEF C_ , #backpackid
if #findkind = -1
return
set #lobjectid #findid
event macro 17
wait 10
click 150 120
set %laiks #scnt
return

sub firstcamp
finditem PEF C_ , #backpackid
if #findkind = -1
return
set #lobjectid #findid
event macro 17
wait 10
click 150 120
return