Автор не известен (
В рюкзаке должен быть ножик, а овца не более 1 тайла от вас.
initEvents
gosub init_loot_list
gosub find_corpse
keyloop:
onHotKey F7
gosub F7
goto keyloop
sub F7
ignoreitem reset
lp:
finditem PF G
if #findkind = -1
{
return
}
if #finddist > 1
{
ignoreitem #findid
goto lp
}
else
{
set #LTARGETID #FINDID
set #LTARGETKIND 1
gosub find_dagger
set #LOBJECTID #FINDID
event macro 17 0
event macro 25 0
while #targCurs = 0
{
}
wait 1
event macro 22 0
}
return
sub find_dagger
finditem TSF C
if #findkind = -1
{
halt
}
return