Yoko

Posted: **2006-04-03 12:18:31**

ok i need loot script. i will put my own type in were u need me to put it juss tell me. i ned it 2 loot 4 different types, it can loot at a good pace. sry for not knowin russian.

anyone can help plz do so. sry for no russian.
0x2006 thats the corspse type i want it to loot
someone help plz, i will put the type numbers in, juss tell me were to put um. i need 4 types looted.

Posted: **2006-04-03 12:43:00**

Write 4 types what you want to loot. Your character will loot last corspse and only this 4 items. I will try to write this skript, but I can't promise anifing.

Posted: **2006-04-03 13:20:51**

ok its these types, 0x143E,0x1406,0x1515,0x1BC3,0x204E, ok sry i need5 types, thx man, someone help plz thx, i juss need it to loot those types, it can loot slow or fast dont matter.

Posted: **2006-04-03 13:51:45**

Code: Select all

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[i] 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

Posted: **2006-04-03 14:24:22**

it says variable undefined, not workin

Posted: **2006-04-03 14:44:34**

sub Loot()
DIM Item[5]
Item[0] = '0x143E'
Item[1] = '0x1406'
Item[2] = '0x1515'
Item[3] = '0x1BC3'
Item[4] = '0x204E'
VAR i
UO.UseObject( 'lastcorpse' )
wait(1000)
For i = 0 To 4
UO.FindType( Item[i], '-1', 'lastcorpse' )
While UO.FindCount() > 0
UO.MoveItem( 'finditem' )
wait( 1000 )
UO.FindType( Item[i], '-1', Cont )
Wend
Next
UO.Print( 'The loot was finished' )
end sub

It must work, but I do not test it.

Do you know how set this skript on hotkey?

Posted: **2006-04-03 15:35:17**

no sanch , can u plz tell me , thx alot bro

Posted: **2006-04-03 15:41:17**

it sayiun variable undefined, line16

Posted: **2006-04-03 15:45:30**

Use mine, I've corrected it.

Posted: **2006-04-03 15:58:34**

no sanch , can u plz tell me , thx alot bro

So what I can say, I am at work now. I will be at home at ten oclock pm of Moscow, I will correct and test script, write me to ICQ.

During this time you may try to use script writen by frake:

menu Hotkeys

write Command: exec Loot

write Hotkey: any you want

then press Add now hotkey, thet is all what you must to do fo using this script. Then set this hotkey in uo and if you do all correctly it will work.

Posted: **2006-04-03 16:00:15**

ok juss give me ur icq n il add u . thx alot bro.

Posted: **2006-04-04 01:15:42**

ur icq sanch?

Posted: **2006-04-05 04:09:27**

well its been 2 days noiw and i still cant gett he scriptto work. someone plz help

Posted: **2006-04-05 06:57:51**

Have you tried mine?

Posted: **2006-04-05 09:08:18**

Code: Select all

sub Lootin()
var t,l
t=500
dim LootingItem[49]
uo.Print('???????? ??????...')
### Magic Looting Items ###
DIM Loot[5]
LootingItem[1] = '0x143E' 
LootingItem[2] = '0x1406' 
LootingItem[3] = '0x1515' 
LootingItem[4] = '0x1BC3'
LootingItem[5] = '0x204E'
uo.canceltarget()
uo.Print('?????? ?????????')
uo.addobject('lootcontainer')
while uo.targeting()
   wait(100)
wend
 
for l=1 to 48
uo.FindType(LootingItem[l],"-1",'lootcontainer')
if uo.FindCount()>0 and uo.GetDistance('lootcontainer')<=2 then
uo.Grab(1,"finditem") 
uo.Print('?????? ???????: '+str(uo.findcount()))
wait(t)
end if
next
uo.Print('??? ????????.')
end sub

ok i put urs n flakes together n this wut i came wit that works, but im gettin an erro runtime line 21. anyidea wut it is? or how to fix, it works but i need the error to stop cuz it keeps spammin me. thx flake for ur help

Posted: **2006-04-05 19:53:28**

flake?

Posted: **2006-04-05 21:01:06**

Just try what I've posted, don't mix anything up.

Posted: **2006-04-06 08:03:18**

im gettin a error at line 21 flake.

Code: Select all

uo.FindType(LootingItem[l],"-1",'lootcontainer')

any idea wut error this is? it says runtime error 21 and thats the line were the error is ?

Posted: **2006-04-06 09:00:34**

You just don't try mine, do you... Well, ok, I'll correct you combination then:

Code: Select all

sub Lootin() 
var t,l 
t=500 
DIM LootingItem[5] 
LootingItem[1] = '0x143E' 
LootingItem[2] = '0x1406' 
LootingItem[3] = '0x1515' 
LootingItem[4] = '0x1BC3' 
LootingItem[5] = '0x204E' 
uo.canceltarget() 
uo.addobject('lootcontainer') 
while uo.targeting() 
   wait(100) 
wend 
  
for l=1 to 5 
  uo.FindType(LootingItem[l],"-1",'lootcontainer') 
    if uo.FindCount()>0 and uo.GetDistance('lootcontainer')<=4 then 
       uo.Grab(1,"finditem")        
       wait(t) 
   end if 
next 
end sub

Posted: **2006-04-06 10:35:03**

thx alot flake. works perfect dude. i really aprreciate it.

Yoko

english help plz

english help plz