english help plz

helpmeplz1 · Post by **helpmeplz1** » 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.

Sanch · Post by **Sanch** » 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.

helpmeplz1 · Post by **helpmeplz1** » 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.

flake · Post by **flake** » 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

helpmeplz1 · Post by **helpmeplz1** » 2006-04-03 14:24:22

it says variable undefined, not workin

Sanch · Post by **Sanch** » 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?

helpmeplz1 · Post by **helpmeplz1** » 2006-04-03 15:35:17

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

helpmeplz1 · Post by **helpmeplz1** » 2006-04-03 15:41:17

it sayiun variable undefined, line16

flake · Post by **flake** » 2006-04-03 15:45:30

Use mine, I've corrected it.

Sanch · Post by **Sanch** » 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.

helpmeplz1 · Post by **helpmeplz1** » 2006-04-03 16:00:15

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

helpmeplz1 · Post by **helpmeplz1** » 2006-04-04 01:15:42

ur icq sanch?

helpmeplz1 · Post by **helpmeplz1** » 2006-04-05 04:09:27

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

flake · Post by **flake** » 2006-04-05 06:57:51

Have you tried mine?

helpmeplz1 · Post by **helpmeplz1** » 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

helpmeplz1 · Post by **helpmeplz1** » 2006-04-05 19:53:28

flake?

flake · Post by **flake** » 2006-04-05 21:01:06

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

helpmeplz1 · Post by **helpmeplz1** » 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 ?

flake · Post by **flake** » 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

helpmeplz1 · Post by **helpmeplz1** » 2006-04-06 10:35:03

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