Помогите исправить скрипт

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
flix-f
Posts: 8
Joined: 2006-02-19 19:27:12

Помогите исправить скрипт

Post by flix-f »

Вот сам скрипт:
sub Loot()
VAR WaitTime=2500
VAR Exit=0, i
DIM Loot[8]
Loot[0]=0x0EED ; gold coin
Loot[1]=0x0E75 ; sumka
Loot[2]=0x0F10 ; emeralds
Loot[3]=0x0F0F ; star sapphires
Loot[4]=0x0F13 ; rubies
Loot[5]=0x0F78 ; Batwings
Loot[6]=0x0F91 ; Wyrm's Hearts
Loot[7]=0x1726 ; Tinkering Materia

UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.WaitTargetObject('lastcorpse')
endif
UO.SetReceivingContainer('0x400C876F') ;
For i=0 to 8
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


Проблема в том что он неправильно работает. Тоесть лутать он лутает, но все подряд а не то что в списке.
Помогите пожалуйсто.
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

могу ошибаться но на 4 if, 3 end if =)))

Code: Select all

if
if
if
if
...
endif
endif
endif



Code: Select all

sub Loot() 
VAR WaitTime=2500
VAR Exit=0, i
DIM Loot[8]
Loot[0]=0x0EED ; gold coin
Loot[1]=0x0E75 ; sumka
Loot[2]=0x0F10 ; emeralds
Loot[3]=0x0F0F ; star sapphires
Loot[4]=0x0F13 ; rubies
Loot[5]=0x0F78 ; Batwings
Loot[6]=0x0F91 ; Wyrm's Hearts
Loot[7]=0x1726 ; Tinkering Materia

UO.UseObject('lastcorpse')
if UO.GetQuantity('lastcorpse') then
UO.WaitTargetObject('lastcorpse')
endif
UO.SetReceivingContainer('0x400C876F') ;
For i=0 to 8
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
endif
next

; UO.UnSetReceivingContainer()
end sub


пробуй так )
LordTom
Posts: 256
Joined: 2006-02-03 11:32:16
Location: ND
Contact:

утепление потолка в парной

Post by LordTom »

Маришка, вам надо заходить с другого бока. Вы просто не интересны сами себе, неуверены в себе, не понимаете свою уникальность. Уникальность не для вашего партнера, а прежде всего для самой себя. Ваше
Маришка, вам надо заходить с другого бока. Вы просто не интересны сами себе, неуверены в себе, не понимаете свою уникальность. Уникальность не для вашего партнера, а прежде всего для самой себя. Ваше
Last edited by LordTom on 2009-12-23 22:02:20, edited 3 times in total.
flix-f
Posts: 8
Joined: 2006-02-19 19:27:12

Post by flix-f »

Описано от 0 до 7 а проверяеш от 0 до 8 вот он на последнем loot[8] и беред любой тип, что собсна и приводит к луту всего подряд.

а ты посчитай сколько тайпов!? (от 0 до 7 получается 8 )
Если сделать до 7 то проверка остановится на 6 тайпе.
А насчет ендиф то их ровно столько сколько ифов посчитай.

Может у меня сам инжект старый или новый и на нем скрипт работает неправильно?
CFA
Posts: 64
Joined: 2006-02-03 06:53:36

Post by CFA »

а ты пробовал изменить? правильно тебе говорят
в цикле - for n=a1 to a2, n будет принимать значения от a1 до a2 включительно. For i=0 to 8 - конкретно тут от 0 до 8, а 8 элемента массива нет
LordTom
Posts: 256
Joined: 2006-02-03 11:32:16
Location: ND
Contact:

защита акустики на классике

Post by LordTom »

" А ежели поймешь, что сансара - нирвана, то всяка печаль пройдет" Б.Г. Святые тоже так говорят, остается сначала только понять, что такое нирвана, затем сравнить её с сансарой Жаль, что по сущ
Last edited by LordTom on 2009-12-23 09:58:19, edited 4 times in total.
flix-f
Posts: 8
Joined: 2006-02-19 19:27:12

Post by flix-f »

мдя.... попробую... Спасибо бальшое за помощь! :wink:
Post Reply