Yoko

Вот скрипт на лут
Дороботайте ПОЖАЛУЙСТО

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 скрипт опять работает ( люди добрые помогите мне пожалуйсто ) Зделайте так чтобы работало с етими значениями

DIM Loot[25]

sub Loot() 
VAR WaitTime=500 
VAR Exit=0, i 
DIM Loot[25] 

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 24 
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 

лутай наздоровье

Даработай чтобы он как открылся пак сразу лутал


sub Loot()
VAR WaitTime=500
VAR Exit=0, i
DIM Loot[25]

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 24
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