Вот скрипт на лут
Дороботайте ПОЖАЛУЙСТО
sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[18]
Loot[0]=0x1400 ; крис
Loot[1]=0x13FE ; катана
Loot[2]=0x13B5 ; клава
Loot[3]=0x1404 ; вилка
Loot[4]=0x143C ; Хаммер
Loot[5]=0x2DB2 ; Клюха
Loot[6]=0x0F60 ; Лонг сворд
Loot[7]=0x26BB ; Блоод клава
Loot[8]=0x13B9 ; Викинг сворд
Loot[9]=0x0F5E ; Дирк
Loot[10]=0x1B76 ; Квадратный щит
Loot[11]=0x1B78 ; Титан
Loot[12]=0x1413 ; ! Горжетка
Loot[13]=0x1414 ; ! Перчатки
Loot[14]=0x1415 ; ! Тело
Loot[15]=0x1410 ; ! Плечи
Loot[16]=0x1411 ; ! Ноги
Loot[17]=0x1412 ; Шлем
Loot[18]=0x2BEE ; Вамп
Loot[19]=0x0EFC ; Трансы
Loot[20]=0x0F09 ; Манки
Loot[21]=0x0F08 ; Инвизки
Loot[22]=0x0E76 ; мешок #1
Loot[23]=0x0E75 ; Мешок #2
Loot[24]=0x09B0 ; Мешок #3
UO.UseObject('lastcorpse')
UO.SetReceivingContainer('0x400DC875') ; loot store bag
For i=0 to 18
UO.FindType(Loot[i],-1,'ground')
if UO.GetQuantity('finditem') then
UO.Grab(STR(0),'finditem')
wait(WaitTime)
endif
if UO.GetQuantity('lastcorpse') then
UO.FindType(Loot[i],-1,'lastcorpse')
if UO.GetQuantity('finditem') then
if Loot[i]==0x1078 then
UO.WaitTargetObject('finditem')
UO.UseType('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next
; UO.UnSetReceivingContainer()
end sub
Когда я всавил вот ето
Loot[19]=0x0EFC ; Трансы
Loot[20]=0x0F09 ; Манки
Loot[21]=0x0F08 ; Инвизки
Loot[22]=0x0E76 ; мешок #1
Loot[23]=0x0E75 ; Мешок #2
Loot[24]=0x09B0 ; Мешок #3
Скрипт перестал работать пишит Ошибка (Unhandled exception in parser.)
Если я уберу ети 6 значениq скрипт опять работает ( люди добрые помогите мне пожалуйсто ) Зделайте так чтобы работало с етими значениями
