Че не так не берет Реги!

[0xygenius]

Code: Select all

sub loot() 
var i,n 
Dim A[24] 
A[1] = 0x0eed ;gold 
A[2] = 0x1415 ;Piese of Amber 
A[3] = 0x1411 
A[4] = 0x1410 
A[5] = 0x1412 
A[6] = 0x1414
A[7] = 0x1413
A[8] = 0x13BF 
A[9] = 0x13BB 
A[10] = 0x13BE 
A[11] = 0x13EE 
A[12] = 0x13EB 
A[13] = 0x1406
A[14] = 0x13B1
A[15] = 0x0F3F
A[16] = 0x1B76
A[17] = 0x401FE05B
A[18] = 0x0F88
A[19] = 0x0F8D
A[20] = 0x0F8C
A[21] = 0x0E21
A[22] = 0x0F7A
A[23] = 0x0F85
A[24] = 0x0F84
i = 500
FOR n=1 TO 24 
uo.findtype(A[n],"-1","lastcontainer") 
if UO.GetQuantity('finditem') then 
UO.grab(0,"finditem") 
; uo.print("Found "+str(uo.findcount())) 
Wait(i) 
end if
NEXT 
end sub

[Kynep]

sub loot()
var i,n
Dim A[24]
A[1] = 0x0eed ;gold ##A[0] = 0x0eed <- далее по порядку
A[2] = 0x1415 ;Piese of Amber
A[3] = 0x1411
A[4] = 0x1410
A[5] = 0x1412
A[6] = 0x1414
A[7] = 0x1413
A[8] = 0x13BF
A[9] = 0x13BB
A[10] = 0x13BE
A[11] = 0x13EE
A[12] = 0x13EB
A[13] = 0x1406
A[14] = 0x13B1
A[15] = 0x0F3F
A[16] = 0x1B76
A[17] = 0x401FE05B
A[18] = 0x0F88
A[19] = 0x0F8D
A[20] = 0x0F8C
A[21] = 0x0E21
A[22] = 0x0F7A
A[23] = 0x0F85
A[24] = 0x0F84
i = 500
FOR n=1 TO 24 ##FOR n=0 TO 23 так должно быть
uo.findtype(A[n],"-1","lastcontainer")
if UO.GetQuantity('finditem') then
UO.grab(0,"finditem") ## UO.grab(500,"finditem") а тут поставь кол-во!!!!
; uo.print("Found "+str(uo.findcount()))
Wait(i)
end if
NEXT
end sub

Проверь Типы регов в массиве, и так для справки у тя массив на 24 числа, если не ошибаюсь то первое значение не 1 а 0, я выделил красным где надо исправить, а последнее число 23. Попробуй исправить количество а то не берет он по ноль предметов


Вот посмотри:

Code: Select all

sub loot() 
var i,n 
Dim A[24]
A[0] = 0x0eed ;gold
A[1] = 0x1415 ;Piese of Amber 
A[2] = 0x1411 
A[3] = 0x1410 
A[4] = 0x1412 
A[5] = 0x1414
A[6] = 0x1413
A[7] = 0x13BF 
A[8] = 0x13BB 
A[9] = 0x13BE 
A[10] = 0x13EE 
A[11] = 0x13EB 
A[12] = 0x1406
A[13] = 0x13B1
A[14] = 0x0F3F
A[15]= 0x1B76
A[16] = 0x401FE05B
A[17] = 0x0F88
A[18] = 0x0F8D
A[19] = 0x0F8C
A[20] = 0x0E21
A[21] = 0x0F7A
A[22] = 0x0F85
A[23] = 0x0F84
i = 500
FOR n=0 TO 23
uo.findtype(A[n],"-1","lastcontainer") 
if UO.GetQuantity('finditem') then 
UO.grab(i,"finditem")
; uo.print("Found "+str(uo.findcount())) 
end if
NEXT 
end sub

количество это переменная i

[0xygenius]

Все равно не работает пишет Unhandled exeption in parser

[Kynep]

Все равно не работает пишет Unhandled exeption in parser

i = 500
FOR n=0 TO 23
uo.findtype(A[n],"0x0000","lastcontainer")
if UO.GetQuantity('finditem') <> 0 then
UO.grab(i,"finditem")
; uo.print("Found "+str(uo.findcount()))
end if
next
end sub

Попробуй так

[0xygenius]

Неа Не пашет ты проверь у себя!

[LordTom]

все , только не ногти носкера , трусы кери , трезвых матвея и ларису ( реинкарнация сида и нэнси ) . а так все думаю увижу , всю правду , которую от меня по каким-то причинам скрывали , всех своих бли
jj Не могли бы вы найти и скачать и выложить фильм "Такой-то", оригинальное название (крайне желатьльно указать если фильм не русский) "Такое-то". Ещё желатьельно указывать приблизительный год фильма

[0xygenius]

Неа все равно!

[LordTom]

Дамы и господа! Уважаемые жители нашего вроде бы как хорошего города Щелково! Скажите, пожалуйста, был ли кто-нибудь из вас 22.04.2006 в ночном клубе Встреча в районе 01.00 ночи? И если кто то и был

[Kynep]

Неа все равно!

Млин ХЗ у мя это работает:

Code: Select all

sub loot() 
var i,n 
Dim A[24] 
A[1] = 0x0eed ;gold 
A[2] = 0x1415 ;Piese of Amber 
A[3] = 0x1411 
A[4] = 0x1410 
A[5] = 0x1412 
A[6] = 0x1414 
A[7] = 0x1413 
A[8] = 0x13BF 
A[9] = 0x13BB 
A[10] = 0x13BE 
A[11] = 0x13EE 
A[12] = 0x13EB 
A[13] = 0x1406 
A[14] = 0x13B1 
A[15] = 0x0F3F 
A[16] = 0x1B76 
A[17] = 0x401FE05B 
A[18] = 0x0F88 
A[19] = 0x0F8D 
A[20] = 0x0F8C 
A[21] = 0x0E21 
A[22] = 0x0F7A 
A[23] = 0x0F85 
A[24] = 0x0F84 
i = 500 
FOR n=1 TO 24 
uo.findtype('A[n]','-1','lastcontainer') 
if UO.FindCount('finditem') > 0 then 
UO.grab(0,'finditem') 
Wait(i) 
else 
end if 
NEXT 
end sub 

Тока пишет что фаст лут, но это решаемо, задержки побольше поставить. Кстати на каком шарде играешь?
У мя он лутит удочки и тинкер тулзы, так должно быть?
проверь еще раз типы вещей которые лутишь.

[Destruction]

Code: Select all

A[8] = 0x13BF 

кавычки ставить не учили?

Code: Select all

uo.findtype('A[n]',

Ну а здесь-то они зачем?!

[LordTom]

Вообще то Traiser прав Это с какого, извините за выражение, х.я Traiser вдруг прав? Я вот чёта не могу въехать, почему мы, трейсеры, не должны объединяться, ведь это делают большенство представителей

[Destruction]

Code: Select all

A[8] = 0x13BF 

кавычки ставить не учили?

Code: Select all

uo.findtype('A[n]',

Ну а здесь-то они зачем?!

Элементу массива задаеться значение вида 0x0000, в findtype надо передать переменную в ковычках.
а теперь покажи разницу где ставить ковычки Дестр я тя прошу не лепи умня лол

Использование первой конструкции возможно, но крайне нежелательно, во-втором случае мы в поиск передаём строку, а не элемент массива.

Code: Select all

A[17] = 0x401FE05B 

- ваще не тайп.
И ваще много мелких лишних действий.

Ниже попробую привести исправленный вариант, хотя проверитиь не имею возможности. А что у вас с номерами элементов - ужасть..

Code: Select all

sub loot() 
var i, n = 500 ; задержка на лут
Dim A[24] 
A[0] = '0x0eed' ;Gold 
A[1] = '0x1415' ;Piece of Amber 
A[2] = '0x1411' 
A[3] = '0x1410' 
A[4] = '0x1412' 
A[5] = '0x1414' 
A[6] = '0x1413' 
A[7] = '0x13BF' 
A[8] = '0x13BB' 
A[9] = '0x13BE' 
A[10] = '0x13EE' 
A[11] = '0x13EB' 
A[12] = '0x1406' 
A[13] = '0x13B1' 
A[14] = '0x0F3F' 
A[15] = '0x1B76' 
A[16] = '0x401FE05B' ; Таких таких тайпов не  существует
A[17] = '0x0F88' 
A[18] = '0x0F8D' 
A[19] = '0x0F8C' 
A[20] = '0x0E21' 
A[21] = '0x0F7A' 
A[22] = '0x0F85' 
A[23] = '0x0F84' 
for i=0 to 23 
uo.findtype(A[i],'-1','lastcontainer') 
if uo.findcount() then 
uo.grab('0','finditem') 
wait(n) 
end if 
next 
end sub

Новое в скрипт добавлять не стал, инструкция по использованию:
0. Задать паузу (переменная n, вверху скрипта).
1. Открыть необходимый контейнер (например труп).
2. Включить скрипт.