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

Подправте скрипт пожалуйста
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14255		 Page 1 of 1
Author:  zaelol [ 2009-01-07 12:29:47 ]
Post subject:  Подправте скрипт пожалуйста
нужен скрипт на автолут с земли голда и прочей дребедени с земли (с елементалей) попробавал сам исправить скрипт с автолута с corpse да чтото с земли лутить отказывается:

sub loot()
var count=0
VAR i,Exit
DIM Loot[10]
Loot[0]=0x0E76
Loot[1]=0x1BC3
Loot[2]=0x13FC
Loot[3]=0x1406
Loot[4]=0x1400
Loot[5]=0x0EED
Loot[6]=0x028B
Loot[7]=0x028B
Loot[8]=0x028B
Loot[9]=0x028B


a:
UO.DeleteJournal()
UO.SetReceivingContainer('0x4009768A') ;ID backpacka
For i=0 to 9
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()
repeat
wait(100)
until UO.InJournal('Body')
If UO.InJournal('Body') Then
Endif
goto a:
wend
end sub


P.S.заранее спс
Author:  Millerbeer [ 2009-01-07 12:58:53 ]
Post subject: 
Code:
sub loot() 
uo.set('finddistance','3')
VAR i
DIM Loot[10] 
Loot[0]='0x0E76'
Loot[1]='0x1BC3' 
Loot[2]='0x13FC' 
Loot[3]='0x1406' 
Loot[4]='0x1400' 
Loot[5]='0x0EED' 
Loot[6]='0x028B' 
Loot[7]='0x028B' 
Loot[8]='0x028B' 
Loot[9]='0x028B' 
For i=0 to 9 
loot:
UO.FindType(Loot[i],'-1','ground') 
if UO.findcount() then 
UO.moveitem('finditem','0','backpack') 
wait(500)
goto loot 
endif 
Next 
end sub
Author:  Savage [ 2009-01-07 14:23:23 ]
Post subject: 
Вот вариант. Скрипту передаётся сериал трупа из килялки. или 'ground' для жидких элемов. Если предварительно в объекты добавить мешок для регов, реги будут падать в этот мешок.

Code:
sub mLoot(Source)
   VAR WaitTime=100
   VAR Exit=0, i
   DIM Loot[30]

   UO.Set('finddistance',3)
   
   Loot[0]=0x19B9 ; ore
   Loot[1]=0x0EED ; gp
   Loot[2]=0x0F7B ; BM
   Loot[3]=0x0F7A ; BP
   Loot[4]=0x0F84 ; GA
   Loot[5]=0x0F85 ; GI
   Loot[6]=0x0F86 ; MR
   Loot[7]=0x0F88 ; NS
   Loot[8]=0x0F8C ; SA
   Loot[9]=0x0F8D ; SS
   Loot[10]=0x0F25 ; Pieces of Amber
   Loot[11]=0x0F16 ; Ametist
   Loot[12]=0x0F20 ; Tourmaline
   Loot[13]=0x0F26 ; Diamond
   Loot[14]=0x0F30 ; Diamond
   Loot[15]=0x1F4C ; Scroll Recall
   Loot[16]=0x0F2F ; Emeralds
   Loot[17]=0x0F0F ; Star Saphire
   Loot[18]=0x0F10 ; Emeralds
   Loot[19]=0x0F18 ; Tourmaline
   Loot[20]=0x0F11 ; Saphire
   Loot[21]=0x0F13 ; Ruby
   Loot[22]=0x0F15 ; Citrine
   Loot[23]=0x0F19 ; sapfire
   Loot[24]=0x0F21 ; Star sapfire
   Loot[25]=0x14EB ; map
   
   For i=0 to 25
      Exit=0
      While Exit<>1
         UO.FindType(Loot[i],-1,Source)
         If UO.FindCount() Then
            If i>1 AND i <10 Then
               UO.MoveItem('finditem','0','RegBag') ; Reagents
            Else
               UO.MoveItem('finditem','0','backpack')
            Endif
            wait(WaitTime)
         Else
            Exit=1
         Endif
      Wend
   Next
end sub
Author:  zaelol [ 2009-01-08 01:13:17 ]
Post subject: 
спс ребята
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/