Зеро дал скрипт на скининг, но так и не доделал, просто лут кожи и перьев + должен резать кожу сразу на скролы. Перья не лутает,кожу не режет, в пак кожу лутает и после этого 2 строчки - Unknow graphic type
Code:
Sub Skinning()
var t_SkinningKnife = '0x0EC3',Feathers = '0x1BD1', t_Hide = '0x1078', Pause = 500, t_Scissors = 0x0F9E, t_CutSkin = '0x1067', t_Corpse = '0x2006', id_Corpse
UO.FindType(t_Corpse, -1, 'ground')
If UO.FindCount() and UO.GetDistance('finditem') < 3 then
id_Corpse = UO.GetSerial('finditem')
UO.UseObject('id_Corpse')
UO.WaitTargetObject(id_Corpse)
UO.UseType(t_SkinningKnife)
Wait(500)
UO.FindType(-1, -1, id_Corpse)
If UO.FindCount() then
UO.FindType(t_Hide, -1, id_Corpse)
If UO.FindCount() then
UO.MoveItem('finditem', -1, 'backpack')
Wait(Pause)
UO.FindType(Feathers, -1, id_Corpse)
If UO.FindCount() then
UO.MoveItem('finditem', -1, 'backpack')
Wait(Pause)
endif
Endif
While UO.Count(t_Hide) or UO.Count(t_CutSkin)
UO.FindType(t_Hide, -1, 'backpack')
If UO.FindCount() then
UO.WaitTargetObject('finditem')
UO.UseType(t_Scissors)
Wait(500)
else
UO.FindType(t_CutSkin, -1, 'backpack')
If UO.FindCount() then
UO.WaitTargetObject('finditem')
UO.WaitMenu('Leather', 'Scroll')
UO.UseType(t_Scissors)
Wait(500)
else
Wait(500)
Endif
Endif
Wend
else
UO.Ignore(id_Corpse)
Endif
Endif
Endsub