тема - http://forum.yoko.com.ua/viewtopic.php?t=8214

BoBBaH · Post by **BoBBaH** » 2006-07-13 09:28:41

и всеже вот в топиге то что ищут многие(viewtopic.php?p=38880#38880) там нету того о чем я сказал там есть луталки с земли кеоторые лутят все мне надо вставить в таую луталку массив как в лутании с трупа, в массиве указывается типы итемов и не закрывайте тему так как я не умею писать скрипты и прошу поправить! всю вашу тему прочитал нету того что надо!

Scripts Writer · Post by **Scripts Writer** » 2006-07-13 10:41:33

Code: Select all

sub Loot4() 
   VAR i,Exit  
   DIM Loot[18] 
    
  
Loot[0]=0x0EED ; gp 
Loot[1]=0x0F7B ; BM 
Loot[2]=0x0F7A ; BP 
Loot[3]=0x0F84 ; GA 
Loot[4]=0x0F85 ; GI 
Loot[5]=0x0F86 ; MR 
Loot[6]=0x0F88 ; NS 
Loot[7]=0x0F8C ; SA 
Loot[8]=0x0F8D ; SS 
Loot[9]=0x13FA ;two handed axe 
Loot[10]=0x1413 ;arm 
Loot[11]=0x1415 ;arm 
Loot[12]=0x1411 ;arm 
Loot[13]=0x1410 ;arm 
Loot[14]=0x1414 ;arm 
Loot[15]=0x0E21 ;ban 
Loot[16]=0x0F78 ;batw 
Loot[17]=0x0F8B ;pumise 

UO.SetReceivingContainer('0x4000C313') ;ID backpacka 
   For i=0 to 17 
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'ground')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('0','finditem') 
          wait(100) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot") 
   Next  
UO.UnSetReceivingContainer() 
end sub

Пробуй

BoBBaH · Post by **BoBBaH** » 2006-07-13 14:04:29

все ок вот только можно попросить чтобы сделали задержку а то на дрв унсп стоит лутанув 3 весчит считай умирает вся игра, так как постоянно пытается что-то поднять скрипт, и слишком ьбыстро

Rijo · Post by **Rijo** » 2006-07-14 09:57:57

BoBBaH wrote:все ок вот только можно попросить чтобы сделали задержку а то на дрв унсп стоит лутанув 3 весчит считай умирает вся игра, так как постоянно пытается что-то поднять скрипт, и слишком ьбыстро

Code: Select all

UO.Grab('0','finditem') 
          wait(тут поставь время, предлагаю 750)

BoBBaH · Post by **BoBBaH** » 2006-07-14 12:26:05

спасибо сработало но вот еще 1 трабла он када все слутит не отрубается, как исправить?

ZWERb · Post by **ZWERb** » 2006-07-16 17:26:57

поправочка не большая! На дрв задержка - 550!

Nmy · Post by **Nmy** » 2006-07-16 18:39:06

Зверь убери тупую картинку или будеш ищо раз регатся :!:

отвратително !

BoBBaH · Post by **BoBBaH** » 2006-07-16 23:02:11

ZWERb wrote:поправочка не большая! На дрв задержка - 550!

гагага и еще раз гагага 600 не меньше 550 блочит унсп методом тыка 599 блочит унсп) 600 все ок