Yoko

Posted: **2006-04-04 06:30:38**

sry for not knowin russian
sub Loot()
VAR i, n
VAR w = 500 ; the waiting time after moving an item
VAR razmer = 5
DIM Loot[5]
Loot[1] = '0x143E'
Loot[2] = '0x1406'
Loot[3] = '0x1515'
Loot[4] = '0x1BC3'
Loot[5] = '0x204E'

if uo.getdistance( 'lastcorpse' ) <4 then
uo.deletejournal()
repeat
uo.findtype( '-1', '-1', 'lastcorpse' )
n = 0
for i = 1 to razmer
if uo.getgraphic( 'finditem' ) == Loot then
uo.moveitem( 'finditem', 'all', 'my' )
wait(w)
if uo.injournal( 'UNSP' ) then
wait(w*3)
endif
n = 1
goto nextitem
endif
next
if n == 0 then
uo.ignore( 'finditem' )
endif
nextitem:
until uo.findcount() == 0
else
uo.print( 'The corpse is too far!' )
endif
endsub

it says cant find item or something. any suggestions?

Posted: **2006-04-04 13:41:44**

Go to topic " Что ищут многие ", or look at search-there are lots scripts which do you want.

Posted: **2006-04-04 16:16:20**

а ты не подумал что у него русский пакет шрифтов может быть не установлен и твое сообщение для него будет выглядеть в виде пустых окошек?
-
to author
1. please use

Code: Select all

 TAG
2. try this script

[code]sub Lootbody() 
   VAR i,k,Exit  
   DIM Loot[30] 

   Loot[0]=0x13B9 ; Halberd 
   Loot[1]=0x143E ; Vikin Sword 
   Loot[2]=0x0EED ; gp 
   Loot[3]=0x1B76 ; Shield    
   Loot[4]=0x1B77 ; Shield 
   Loot[5]=0x1415 ; Body 
   Loot[6]=0x1416 ; Body  
   Loot[7]=0x1411 ; Legs 
   Loot[8]=0x141A ; Legs 
   Loot[9]=0x1414 ; Gauntlets 
   Loot[10]=0x1418 ; Gauntlets 
   Loot[11]=0x1410 ; Arms 
   Loot[12]=0x140E ; Helm 
   Loot[13]=0x1413 ; Gorget 
   Loot[14]=0x1086 ; Mana Bracelet 
   Loot[15]=0x1F5F ; Fs 
   Loot[16]=0x0F0E ; Bag 
   Loot[17]=0x1F52 ; Total Mana 
   Loot[18]=0x1406 ; War Mace 
   Loot[19]=0x1412 ; Plate Helm 
   Loot[20]=0x0E21 ; Bandages 
   Loot[21]=0x0EED ; 
   Loot[22]=0x0EED ; 
   Loot[23]=0x0EED ; 
   Loot[24]=0x0EED ; 
   Loot[25]=0x0EED ; 
   Loot[26]=0x0EED ; 
   Loot[27]=0x0EED ; 
   Loot[28]=0x0EED ; 
   Loot[29]=0x0EED ; 
    
UO.SetReceivingContainer('0x400186C7') 
   For i=0 to 29 
      Exit=0 
      repeat 
      if Loot[i]==0x0F0E then 
         k=0x09DF 
      else 
         k=-1 
      endif 
       UO.FindType(Loot[i],k,'lastcontainer') 
        if UO.FindCount('finditem') then 
         UO.Grab('0','finditem') 
          wait(500) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot") 
   Next 
UO.UnSetReceivingContainer() 
end sub

and look at this topic
https://yoko.uokit.com/viewtopic.php?t= ... ld&start=0
-
online translate - http://www.online-translator.com/translator.asp?lang=en

Posted: **2006-04-04 17:28:02**

Code: Select all

1. please use TAG

лол

Yoko

lootscript problem

lootscript problem