Yoko

в чем проблема ?
скрипт должен работать при ,exec Looting он работает максимум 30 минут как надо а потом виснет в загрузках
Version 312.19

sub Looting()
var t,l,m
m=13 ## ?????????? ????? ??? ????
t=1820
dim LootingItem[15] ## ?????? ?????? ??? ????
LootingItem[1] = 0x13BA ## ?????
LootingItem[2] = 0x13B9 ## ?????
LootingItem[3] = 0x143C ## ????
LootingItem[4] = 0x0F63 ## ????
LootingItem[5] = 0x0F46 ## ????????
LootingItem[6] = 0x143E ## ?????
LootingItem[7] = 0x1406 ## ????
LootingItem[8] = 0x1BC3 ## ??????
LootingItem[9] = 0x13FC ## ??????
LootingItem[10] = 0x1400 ## ????
LootingItem[11] = 0x13B1 ## ??????
LootingItem[12] = 0x1515 ## ??????
LootingItem[13] = 0x204E ## ??????
LootingItem[14] = 0x13FE ## ?????
LootingItem[15] = 0x0B16 ## ice sword

uo.set("finddistance",4)
for l=1 to m
uo.findtype(LootingItem[l],"-1","1")
while uo.FindCount() > 0
uo.grab("0","finditem")
wait(t)
uo.findtype(LootingItem[l],"-1","1")
wend
next


if uo.GetSerial("lastcontainer") == uo.GetSerial(uo.ObjAtLayer('Bpack')) then
goto end
endif
for l=1 to m
uo.FindType(LootingItem[l],"-1","lastcontainer")
while UO.FindCount() > 0
uo.grab(0,"finditem")
wait(t)
uo.FindType(LootingItem[l],"-1","lastcontainer")
wend
next
end:
end sub

dim LootingItem[16] ## ?????? ?????? ??? ????

Вообщето лучше сделать один цикл перебора лотингитемс, а внутри него выбирать лут с земли или с ластконта. Будет шустрее. Конкуренты отдыхают.

напишите с одним циклом а то я слаб в инжекте ...

dim 15 я же стартанул с 1

Не. Ща в лом. Может потом. Насчёт "слаб в инжекте" имеет смысл почитать уроки из раздела леарнинг. Там немного. На вечер изучения всего. Необязательно сразу всё понимать, но очень полезно будет прочитать сразу все. Чтото да и отложится. А потом можно будет интересующий вопрос более детально проштудировать.

Это если конечно, есть желание освоить программу и разобраться в скриптописании.


А 0 остался за кадром. Значит всего элементов 16. Когда происходят подобные ошибки, лучше рестартануть клиент. А то таких глюков насмотришься что век не забудешь

а покажи к примеру как пишется одним циклом

1) ковычки у типов проставил
2) m = 15 (хотя не существенно но правильнее)
3) заменил последний goto на нормальный if
Проверяй.

sub Looting()
   var t,l,m
   m=15
   t=1820
   dim LootingItem[15] ## ?????? ?????? ??? ????
   LootingItem[1] = '0x13BA' ## ?????
   LootingItem[2] = '0x13B9' ## ?????
   LootingItem[3] = '0x143C' ## ????
   LootingItem[4] = '0x0F63' ## ????
   LootingItem[5] = '0x0F46' ## ????????
   LootingItem[6] = '0x143E' ## ?????
   LootingItem[7] = '0x1406' ## ????
   LootingItem[8] = '0x1BC3' ## ??????
   LootingItem[9] = '0x13FC' ## ??????
   LootingItem[10] = '0x1400' ## ????
   LootingItem[11] = '0x13B1' ## ??????
   LootingItem[12] = '0x1515' ## ??????
   LootingItem[13] = '0x204E' ## ??????
   LootingItem[14] = '0x13FE' ## ?????
   LootingItem[15] = '0x0B16' ## ice sword
   uo.set("finddistance",4)
   for l=1 to m
      uo.findtype(LootingItem[l],"-1","1")
      while uo.FindCount() > 0
         uo.grab("0","finditem")
         wait(t)
         uo.findtype(LootingItem[l],"-1","1")
      wend
   next
   if uo.GetSerial("lastcontainer") <> uo.GetSerial(uo.ObjAtLayer('Bpack')) then
      for l=1 to m
         uo.FindType(LootingItem[l],"-1","lastcontainer")
         while UO.FindCount() > 0
            uo.grab(0,"finditem")
            wait(t)
            uo.FindType(LootingItem[l],"-1","lastcontainer")
         wend
      next
   endif
end sub

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

Не будет работать.

почему Не будет работать. ? вроде-бы работает как и раньше

Ошибка в определении массива так и осталась.

поправь

У него счет идет с 1 до 15. Это 15 ячеек. Так что все правильно

все три массива жизнеспособны.

 dim x[3]
x[0]
x[1]
x[2]

 dim x[3]
x[1]
x[2]
x[3]

 dim x[668]
x[666]
x[667]
x[668]

и даже вот так работает

sub test()
var n
Dim r[888]
r[666] = '666'
r[777] = '777'
r[888] = '888'
For n = 666 To 666
   uo.print(r[n])
   wait(300)
next
For n = 777 To 777
   uo.print(r[n])
   wait(300)
next
For n = 888 To 888
   uo.print(r[n])
   wait(300)
next
end sub

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

Сильно заблуждаешься. Жизнеспособны только лишь потому что портят некритичные участки памяти. Если запись последнего элемента испортит стэк, будет жопа.
Пофиг с какого элемента идёт счёт, нулевой элемент присутствует в массиве всегда.

так и не понял , в чем проблема скрипта ?

up кто еще чего умного посоветует ?

лома по инсайду лазить.
Опиши по человеческому что у тебя в массиве
LootingItem[1] = 0x13BA ## ?????
LootingItem[2] = 0x13B9 ## ????
.....

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

sub Looting()
var t,l,m
m=13
t=1820
dim LootingItem[13]
LootingItem[1] = '0x13BA' ##Sw
LootingItem[2] = '0x023F' ##Shield
LootingItem[3] = '0x13FE' ##Katana
LootingItem[4] = '0x1515' ##Cloak
LootingItem[5] = '0x13FC' ##Crossbow
LootingItem[6] = '0x143E' ##Scythe
LootingItem[7] = '0x13FD' ##CrossBow
LootingItem[8] = '0x1BC3' ##Shield
LootingItem[9] = '0x0287' ##Sw
LootingItem[10] = '0x204E' ##DeathRobe
LootingItem[11] = '0x143F' ##FScythe
LootingItem[12] = '0x1530' ##Cloak
LootingItem[13] = '0x0284' ##Robe
uo.set("finddistance",4)
for l=1 to m
uo.findtype(LootingItem[l],"-1","1")
while uo.FindCount() > 0
uo.grab("0","finditem")
wait(t)
uo.findtype(LootingItem[l],"-1","1")
wend
next
if uo.GetSerial("lastcontainer") <> uo.GetSerial(uo.ObjAtLayer('Bpack')) then
for l=1 to m
uo.FindType(LootingItem[l],"-1","lastcontainer")
while UO.FindCount() > 0
uo.grab(0,"finditem")
wait(t)
uo.FindType(LootingItem[l],"-1","lastcontainer")
wend
next
endif
end sub