Поиск в паке выкопанной выхи

DIKIY · Post by **DIKIY** » 2006-10-27 10:25:46

ща попробую смувить!

DIKIY · Post by **DIKIY** » 2006-10-27 10:26:27

Вот скрипт..

sub unloadore() 
 var Time,Space
 Time = Time() 
Space = ' '

   VAR TempX,TempY,i,Exit, Exit1, ConTainer, j 
   VAR SundukX=5518 
   VAR SundukY=1088 
   VAR Index=16 ; количество элементов массива 
   DIM Ore[12], Colors[16] 

Colors[0]="0x09F0" ; Gorgan 
Colors[1]="0x09D3" ; Steel 
Colors[3]="0x0BA7" ; Eldar 
Colors[4]="0x08AF" ; Plut 
Colors[5]="0x0085" ; Dragon 
Colors[6]="0x0060" ; Aqua 
Colors[7]="0x09E6" ; Elvin 
Colors[8]="0x010F" ; Krinit 
Colors[9]="0x09DA" ; Vulkan 
Colors[10]="0x09EC" ; Blood Crest 
Colors[11]="0x008F" ; Sand Rock 
Colors[12]="0x09B9" ; Acid 
Colors[13]="0x09A4" ; Crystaline 
Colors[14]="0x0455" ; BlackRock
Colors[15]="0x0028" ; Obsid



   TempX=UO.GetX() 
   TempY=UO.GetY() 
    
   walkn(SundukX,SundukY,"") 
   ToHide() 
   
   UO.UseObject('Sunduk') 
   wait(500)
   UO.UseObject('BESTBag')
   wait(500)
   UO.UseObject('IronBag')

Ore[0]=0x19B9 ; >3 ore 
Ore[1]=0x19B7 ; 1 ore 
Ore[2]=0x19BA ; 2 ore 
Ore[3]=0x19B8 ; 3 ore 
Ore[4]=0x0F11 ; saphires 
Ore[5]=0x0F16 ; amethysts 
Ore[6]=0x0F18 ; tourmalines 
Ore[7]=0x0F15 ; citrines 
Ore[8]=0x0F10 ; emeralds 
Ore[9]=0x0F0F ; star sapphires 
Ore[10]=0x0F26 ; diamonds 
Ore[11]=0x1F4C ; recall scrolls 
Ore[12]=0x0EED ; gold 

   For i=0 to 12 
      Exit=0 
      repeat 
         UO.FindType(Ore[i]) 
          
         if UO.GetQuantity('finditem')>0 then 
            If UO.GetColor('finditem')=='0x0000' Then 
               Container=UO.GetSerial('IronBag') 
            Else 
               Container=UO.GetSerial('OtherBag') 
               Exit1=0 
               j=0 
               While j<Index AND Exit1<>1 
                  If UO.GetColor('finditem')==Colors[j] Then 
                     Container=UO.GetSerial('BESTBag') 
                     Exit1=1 
                  Endif 
                  j=j+1 
               Wend 
            Endif 
            UO.MoveItem('finditem',0,Container) 
            CheckLag() 
            wait(1000) 
         Else 
            Exit=1 
         endif 
      until Exit==1 
   Next 
ToEat() 
uo.textopen() 
UO.TextPrint('Выгрузка произведена: '+Space +Time)  
   walkn(TempX,TempY,"") 
   ToHide() 
end sub

Как сюда встаивть нашь получившийся?

Askaneli · Post by **Askaneli** » 2006-10-27 10:28:28

перед мове итем проверку на цвет и репорт если это выха .

Askaneli · Post by **Askaneli** » 2006-10-27 10:29:29

или перед вот этим репорт сразу

Code: Select all

Container=UO.GetSerial('BESTBag')

DIKIY · Post by **DIKIY** » 2006-10-27 10:35:54

Code: Select all

                  If UO.GetColor('finditem')==Colors[j] Then 
                  tColor = uo.getcolor('finditem') 
            if (tColor>='0x09A4') or (tColor=='0x0060') or (tColor=='0x0085') or (tColor=='0x008F') or (tColor=='0x010F') then 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem'))
Endif
                     Container=UO.GetSerial('BESTBag')

получаеться что название не пишет.. просто

Выха:
Выха:
Выха:

DIKIY · Post by **DIKIY** » 2006-10-27 10:36:20

т.е. он количество правильно определяет, но название не пишет!

DIKIY · Post by **DIKIY** » 2006-10-27 10:36:46

UO.TextPrint('Выха: '+uo.getname('finditem'))

Эта строчка на половину отрабатывает -)

Askaneli · Post by **Askaneli** » 2006-10-27 10:36:52

Code: Select all

uo.click('finditem')

Смари выше.

DIKIY · Post by **DIKIY** » 2006-10-27 10:37:57

Это где?

Askaneli · Post by **Askaneli** » 2006-10-27 10:38:24

в моём куске кода

Code: Select all

uo.click('finditem') 
Cheklag()

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

Askaneli · Post by **Askaneli** » 2006-10-27 10:41:45

и в твоём варианте уже нет смысла проверять на цвет. Уже проверено.
нада просто
тык
чеклаг
репорт

DIKIY · Post by **DIKIY** » 2006-10-27 10:42:33

Всё, добили...

Вот код:

sub unloadore()
var Time,Space
var tColor = uo.getcolor('finditem')
Time = Time()
Space = ' '

VAR TempX,TempY,i,Exit, Exit1, ConTainer, j
VAR SundukX=5518
VAR SundukY=1088
VAR Index=16 ; количество элементов массива
DIM Ore[12], Colors[16]

Colors[0]="0x09F0" ; Gorgan
Colors[1]="0x09D3" ; Steel
Colors[3]="0x0BA7" ; Eldar
Colors[4]="0x08AF" ; Plut
Colors[5]="0x0085" ; Dragon
Colors[6]="0x0060" ; Aqua
Colors[7]="0x09E6" ; Elvin
Colors[8]="0x010F" ; Krinit
Colors[9]="0x09DA" ; Vulkan
Colors[10]="0x09EC" ; Blood Crest
Colors[11]="0x008F" ; Sand Rock
Colors[12]="0x09B9" ; Acid
Colors[13]="0x09A4" ; Crystaline
Colors[14]="0x0455" ; BlackRock
Colors[15]="0x0028" ; Obsid

TempX=UO.GetX()
TempY=UO.GetY()

walkn(SundukX,SundukY,"")
ToHide()

UO.UseObject('Sunduk')
wait(500)
UO.UseObject('BESTBag')
wait(500)
UO.UseObject('IronBag')

Ore[0]=0x19B9 ; >3 ore
Ore[1]=0x19B7 ; 1 ore
Ore[2]=0x19BA ; 2 ore
Ore[3]=0x19B8 ; 3 ore
Ore[4]=0x0F11 ; saphires
Ore[5]=0x0F16 ; amethysts
Ore[6]=0x0F18 ; tourmalines
Ore[7]=0x0F15 ; citrines
Ore[8]=0x0F10 ; emeralds
Ore[9]=0x0F0F ; star sapphires
Ore[10]=0x0F26 ; diamonds
Ore[11]=0x1F4C ; recall scrolls
Ore[12]=0x0EED ; gold

For i=0 to 12
Exit=0
repeat
UO.FindType(Ore[i])

if UO.GetQuantity('finditem')>0 then
If UO.GetColor('finditem')=='0x0000' Then
Container=UO.GetSerial('IronBag')
Else
Container=UO.GetSerial('OtherBag')
Exit1=0
j=0
While j<Index AND Exit1<>1
If UO.GetColor('finditem')==Colors[j] Then
uo.click('finditem')
CheckLag()
tColor = uo.getcolor('finditem')
if (tColor>='0x09A4') or (tColor=='0x0060') or (tColor=='0x0085') or (tColor=='0x008F') or (tColor=='0x010F') then
uo.textopen()
UO.TextPrint('Выха: '+uo.getname('finditem'))
Endif
Container=UO.GetSerial('BESTBag')
Exit1=1
Endif
j=j+1
Wend
Endif
UO.MoveItem('finditem',0,Container)
CheckLag()
wait(1000)
Else
Exit=1
endif
until Exit==1
Next
ToEat()
uo.textopen()
UO.TextPrint('Выгрузка произведена: '+Space +Time)
walkn(TempX,TempY,"")
ToHide()
end sub

Всё получилось! Огромное спасибо!

Askaneli · Post by **Askaneli** » 2006-10-27 10:44:53

да эт старо как мир на самом деле . давно написано и работает.
а проверка на цвет в твоей версии уже нафихх не нуна ...

DIKIY · Post by **DIKIY** » 2006-10-27 10:46:21

Эммм... убери в коде, тогда как сделать? *(вот что я выкинул сейчас)

Askaneli · Post by **Askaneli** » 2006-10-27 10:49:54

сформулируй плиз мысль последовательно, а то я ваще ничё не понял что ты сказал ...

DIKIY · Post by **DIKIY** » 2006-10-27 10:52:20

Выкини из моего кода не нужное =)

Askaneli · Post by **Askaneli** » 2006-10-27 10:54:22

Было:

Code: Select all

If UO.GetColor('finditem')==Colors[j] Then 
uo.click('finditem') 
CheckLag() 
tColor = uo.getcolor('finditem') 
if (tColor>='0x09A4') or (tColor=='0x0060') or (tColor=='0x0085') or (tColor=='0x008F') or (tColor=='0x010F') then 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem')) 
Endif 
Container=UO.GetSerial('BESTBag')

Лучше:

Code: Select all

If UO.GetColor('finditem')==Colors[j] Then 
uo.click('finditem') 
CheckLag() 
uo.textopen() 
UO.TextPrint('Выха: '+uo.getname('finditem')) 
Container=UO.GetSerial('BESTBag')

DIKIY · Post by **DIKIY** » 2006-10-27 10:57:52

Да, всё работает! огромное спасибо!

Askaneli · Post by **Askaneli** » 2006-10-27 10:59:03

нзчт, обращайтесь (с) GM Manson

DIKIY · Post by **DIKIY** » 2006-10-27 11:02:32

Да, последнее... вот я копаюсь, копаюсь, у меня ломается лопата....

есть такой скрипт который подходит к сундуку и берёт в пак лопату?

чтобы ппри очередноё ломке лопаты не стоять ночь в пустую?