На форуме не нашел...
От скрипта нужно малое...
1. в паке есть рыбы разная (4 или 5 видов)
2. в руке есть даггер
3. скрит ищет тип рыбки и режет его
4. потом нарезанное скидывает в сундук
если не сложно... будте добры...
Резка рыбы
Moderators: Murderator+, Murderator
Re: Резка рыбы
felkon wrote:На форуме не нашел...
От скрипта нужно малое...
1. в паке есть рыбы разная (4 или 5 видов)
2. в руке есть даггер
3. скрит ищет тип рыбки и режет его
4. потом нарезанное скидывает в сундук
если не сложно... будте добры...
Code: Select all
sub fish_rezka()
VAR sunduk = '0x00000000' #ID сундука для стейков
VAR dagger = '0x00000000' #ID даггера
VAR i, stake = '0x0000' #Тип порезаных котлеток
DIM fish[5] #Массив типов рыбы
fish[0] = '0x0000'
fish[1] = '0x0000'
fish[2] = '0x0000'
fish[3] = '0x0000'
fish[4] = '0x0000'
for i = 0 to 4
UO.FindType(fish[i], '-1', 'backpack')
If UO.FindCount() > 0 then
repeat
UO.Print('Режем рыбу типа ' + fish[i])
UO.WaitTargetObject('finditem')
UO.UseObject(dagger)
wait(1000)
UO.FindType(fish[i], '-1', 'backpack')
until NOT UO.FindCount()
endif
next
UO.Print('Порезали, выкладываем')
UO.FindType(stake, '-1', 'backpack')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '-1', sunduk)
wait(1000)
UO.FindType(stake, '-1', 'backpack')
until NOT UO.FindCount()
endif
UO.Print('Закончили, выход')
end sub
Пробуй.
