Yoko
http://forum.yoko.com.ua/

Помогите исправить скрипт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6746		 Page 1 of 1
Author:  flix-f [ 2006-03-01 16:33:29 ]
Post subject:  Помогите исправить скрипт
Вот сам скрипт:
Quote:
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


Проблема в том что он неправильно работает. Тоесть лутать он лутает, но все подряд а не то что в списке.
Помогите пожалуйсто.
Author:  Scripts Writer [ 2006-03-01 20:29:56 ]
Post subject: 
могу ошибаться но на 4 if, 3 end if =)))
Code:
if
if
if
if
...
endif
endif
endif



Code:
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


пробуй так )
Author:  LordTom [ 2006-03-01 22:16:24 ]
Post subject:  утепление потолка в парной
Маришка, вам надо заходить с другого бока. Вы просто не интересны сами себе, неуверены в себе, не понимаете свою уникальность. Уникальность не для вашего партнера, а прежде всего для самой себя. Ваше
Маришка, вам надо заходить с другого бока. Вы просто не интересны сами себе, неуверены в себе, не понимаете свою уникальность. Уникальность не для вашего партнера, а прежде всего для самой себя. Ваше
Author:  flix-f [ 2006-03-02 12:21:42 ]
Post subject: 
Quote:
Описано от 0 до 7 а проверяеш от 0 до 8 вот он на последнем loot[8] и беред любой тип, что собсна и приводит к луту всего подряд.

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

Может у меня сам инжект старый или новый и на нем скрипт работает неправильно?
Author:  CFA [ 2006-03-02 12:56:52 ]
Post subject: 
а ты пробовал изменить? правильно тебе говорят
в цикле - for n=a1 to a2, n будет принимать значения от a1 до a2 включительно. For i=0 to 8 - конкретно тут от 0 до 8, а 8 элемента массива нет
Author:  LordTom [ 2006-03-02 18:35:38 ]
Post subject:  защита акустики на классике
" А ежели поймешь, что сансара - нирвана, то всяка печаль пройдет" Б.Г. Святые тоже так говорят, остается сначала только понять, что такое нирвана, затем сравнить её с сансарой Жаль, что по сущ
Author:  flix-f [ 2006-03-03 14:10:57 ]
Post subject: 
мдя.... попробую... Спасибо бальшое за помощь! :wink:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/