Code: Select all
sub main()
var syndyk,i
uo.set('finddistance','2')
uo.set('distance','2')
DIM Loot[13]
Loot[0] = 0x0EED; # Gold
Loot[1] = 0x0F3F; # Arrow
Loot[2] = 0x1BFB; # Bolt
Loot[3] = 0x0F26; # Diamond
Loot[4] = 0x0F21; # Star Sapphire
Loot[5] = '0x0F7A'; # pearls, black pearls
Loot[6] = '0x0F7B'; # bood moss
Loot[7] = '0x0F84'; # garlic
Loot[8] = '0x0F85'; # ginseng
Loot[9] = '0x0F86'; # mandrake root
Loot[10] = '0x0F88'; # night shade
Loot[11] = '0x0F8C'; # sulphorous ash
Loot[12] = '0x0F8D'; # spiders silk
while not uo.dead()
uo.findtype('0x0E7C', '-1', '1')
if uo.findcount>0 then
uo.cast('Magic unlock')
uo.waitargettype('0x0E7C')
wait(1000)
endif
uo.usetype('0x0E7C')
wait(1000)
For i = 0 To 12
UO.FindType( Loot[i], '-1', 'lasttype' )
While UO.FindCount() > 0
UO.MoveItem( 'finditem' )
wait( 1000 )
UO.FindType( Loot[i], '-1', 'lasttype')
Wend
Next
UO.Print( 'The loot was finished' )
endsub
Уважаемые скриптеры. Я тут написал скрипт, чтобы чар забирал из сундука вещи. Сундук этот просто стоит в мире, чар кастует Ex Por и открывает, а дальше лутит всё что там лежит нужного. Но скрипт почему-то, по непонятной мне причине не работает. Посмотрите пожалуйста, и исправьте там где я напортачил. Заранее спасибо.[/code]