[Raziel_]

I have developed this stealing macro since my razor macro wasn't efficient...
It's pretty easy so set up.
1 - Buy a pack horse/llama
2 - Place the animal boxed in your house
3 - Get the item you wish to train with, i suggest a dye tub, and set the %item variable to match the item's id
4 - Set the %pack variable to be the id of the pack of your animal, simply open the pack and check the #contid and set this to be the %pack.
5 - set the %animal to be your animal's id.
6 - The %follow is the ammount of followers you have with the animal tamed.
7 - Put the tub into the animal's pack and try to steal it once.. also release the animal and tame it once.
8 - Keep the animal's pack open!!
9 - Hit the play button and make sure your both hands are empty!!

set %pack NKNDKMD
set %item HYODKMD
set %animal KROB
set %follow 2

While #true
{
if #followers < %follow
{
gosub tame
}
finditem %item C_ , %pack
if #findcnt > 0
{
gosub steal
} else {
gosub porpack
}
}

sub steal
finditem %item C_ , %pack
if #findcnt > 0
{
set #ltargetid #findid
event macro 13 33
target 1s
event macro 22
wait 85
}
return

sub porpack
finditem %item C_ , #backpackid
if #findcnt > 0
{
EXEVENT Drag #findid #findstack
wait 10
Exevent dropc %pack
wait 10
}
return

sub tame
set #ltargetid %animal
event macro 13 35
target 1s
event macro 22
wait 10
finditem ZJF G_
if #findcnt > 0
{
set #lobjectid #findid
event macro 17
wait 20
finditem %item
if #findcnt > 0
{
EXEVENT Drag #findid #findstack
wait 10
Exevent dropc %pack
wait 10
}
}
return