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

english help plz
http://forum.yoko.com.ua/viewtopic.php?f=3&t=7255		 Page 1 of 1
Author:  helpmeplz1 [ 2006-04-03 12:18:31 ]
Post subject:  english help plz
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.
Author:  Sanch [ 2006-04-03 12:43:00 ]
Post subject: 
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.
Author:  helpmeplz1 [ 2006-04-03 13:20:51 ]
Post subject: 
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.
Author:  flake [ 2006-04-03 13:51:45 ]
Post subject: 
Code:
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
Author:  helpmeplz1 [ 2006-04-03 14:24:22 ]
Post subject: 
it says variable undefined, not workin
Author:  Sanch [ 2006-04-03 14:44:34 ]
Post subject: 
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?
Author:  helpmeplz1 [ 2006-04-03 15:35:17 ]
Post subject: 
no sanch , can u plz tell me , thx alot bro
Author:  helpmeplz1 [ 2006-04-03 15:41:17 ]
Post subject: 
it sayiun variable undefined, line16
Author:  flake [ 2006-04-03 15:45:30 ]
Post subject: 
Use mine, I've corrected it.
Author:  Sanch [ 2006-04-03 15:58:34 ]
Post subject: 
Quote:
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.
Author:  helpmeplz1 [ 2006-04-03 16:00:15 ]
Post subject: 
ok juss give me ur icq n il add u . thx alot bro.
Author:  helpmeplz1 [ 2006-04-04 01:15:42 ]
Post subject: 
ur icq sanch?
Author:  helpmeplz1 [ 2006-04-05 04:09:27 ]
Post subject: 
well its been 2 days noiw and i still cant gett he scriptto work. someone plz help
Author:  flake [ 2006-04-05 06:57:51 ]
Post subject: 
Have you tried mine?
Author:  helpmeplz1 [ 2006-04-05 09:08:18 ]
Post subject: 
Code:
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
Author:  helpmeplz1 [ 2006-04-05 19:53:28 ]
Post subject: 
flake?
Author:  flake [ 2006-04-05 21:01:06 ]
Post subject: 
Just try what I've posted, don't mix anything up.
Author:  helpmeplz1 [ 2006-04-06 08:03:18 ]
Post subject: 
im gettin a error at line 21 flake.

Code:
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 ?
Author:  flake [ 2006-04-06 09:00:34 ]
Post subject: 
You just don't try mine, do you... Well, ok, I'll correct you combination then:
Code:
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
Author:  helpmeplz1 [ 2006-04-06 10:35:03 ]
Post subject: 
thx alot flake. works perfect dude. i really aprreciate it.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/