autoloot script with special abilitys

[krokette]

hi guys, i need an autoloot, with specific items in loot .. i have put em into an array, that work without problems ;> .. but i wanna have my autoloot script, that if the array is finished, the script loot other stuff from corpse and dont stop to loot :/

i`ll paste my actually craft ;D (dont be mad with me, i`m not realy an injection scripter ;D)

and i wanna have it with button spam ^^ .. so that i`ve to press the button 10 times for 10 loots etc. :> i hope you understand me ^^

Code: Select all

sub Loot()  
 
var i, n, box, tempname  
Dim A[24]
A[1] = 0x13BA ;viking sword
A[2] = 0x1ECD ;disc
A[3] = 0x204E ;deadhshroud
A[4] = 0x143C ;war hammer
A[5] = 0x1406 ;mace
A[6] = 0x1407 ;mace(turned)
A[7] = 0x13FE ;Katana
A[8] = 0x13FF ;Katana(turned)
A[9] = 0x0000 ;chaos shield
i = 9 
box = 0x4004AB4D 
FOR n=1 TO 9
  uo.findtype(A[n],"-1","lastcontainer")  
  if (uo.findcount()>0) and (uo.getdistance("lastcontainer")<4)then  
    UO.grab(0,"finditem") 
    tempname = UO.GetName( 'finditem' )
    Uo.moveitem("finditem","0","box")
    uo.print("Looted "+str(tempname)) 
  else 
    UO.print("Nothing there for loot")
  end if  
Wait(3000) 
NEXT  
end sub

greetz and thx for help
your potatofreak ;D

[krokette]

oh i think i got it Oo ;D, but wont work correctly, if nothing from the things in array is in corpse, it change to else and say "nothing in for loot" ...and "tempname = UO.GetName( 'finditem' )" wont work :/

here is my modified source

Code: Select all

sub Loot()  
 
var i,n, box, tempname 
 
i = 3000
box = 0x4004AB4D

Dim A[24]
A[1] = 0x13BA ;viking sword 
A[2] = 0x1ECD ;disc 
A[3] = 0x204E ;deadhshroud 
A[4] = 0x143C ;war hammer 
A[5] = 0x1406 ;mace 
A[6] = 0x1407 ;mace(turned) 
A[7] = 0x13FE ;Katana 
A[8] = 0x13FF ;Katana(turned) 
A[9] = 0x0000 ;chaos shield 

wait(i) 

FOR n=1 TO 9
  uo.findtype(A[n],"-1","lastcontainer")  
  if (uo.findcount()>0) and (uo.getdistance("lastcontainer")<4)then  
    UO.grab(0,"finditem") 
    tempname = UO.GetName( 'finditem' )
    Uo.moveitem("finditem","0","box")
    uo.print("Looted "+str(tempname)) 
    return
  else 
    UO.print("Nothing there for loot")
  end if  
NEXT  
end sub

[Nmy]

Code: Select all

Sub Loot()
   If uo.getglobal('Loot')=='On' then
   uo.setglobal('Loot',0)
   uo.print(' !!! -= Loot Terminated =- !!! ')
   uo.exec('terminate Loot')
   else
   uo.setglobal('Loot','On')
   uo.print(' !!! -= Looting =- !!! ')
VAR n
  Dim Loot[75]
 Loot[1] = '0x1B7A';terrium etc 
 Loot[2] = '0x13B9';weps
 Loot[3] = '0x0F60'
 Loot[4] = '0x1440'
 Loot[5] = '0x13B5'
 Loot[6] = '0x13FE'
 Loot[7] = '0x1400'
 Loot[8] = '0x1442'
 Loot[9] = '0x0F4B'
 Loot[10]= '0x13FA'
 Loot[11]= '0x0F49'
 Loot[12]= '0x13AF'
 Loot[13]= '0x0F47'
 Loot[14]= '0x0F45'
 Loot[15]= '0x1438'
 Loot[16]= '0x143C'
 Loot[17]= '0x0F5C'
 Loot[18]= '0x1406'
 Loot[19]= '0x143A'
 Loot[20]= '0x1404'
 Loot[21]= '0x0F62'
 Loot[22]= '0x1402'
 Loot[23]= '0x143E'
 Loot[24]= '0x0F4D';weps
 Loot[25]= '0x13B1';longbow
 Loot[26]= '0x35B6';bow
 Loot[27]= '0x13FC';heavy crossbow
 Loot[28]= '0x35B4';gladiator
 Loot[29]= '0x0DF0';staff
 Loot[30]= '0x0DF2';wand
 Loot[31]= '0x0EFA';book
 Loot[32]= '0x1541';sash
 Loot[33]= '0x1BC3';shield
 Loot[34]= '0x35B5';knuckle
 Loot[35]= '0x1B78';shield
 Loot[36]= '0x1718';hat
 Loot[37]= '0x171A';hat
 Loot[38]= '0x1549';mask
 Loot[39]= '0x1547';headdress
 Loot[40]= '0x1C08';skirt
 Loot[41]= '0x1DB9';leather
 Loot[42]= '0x13C7';l
 Loot[43]= '0x13CC';l
 Loot[44]= '0x13C6';l
 Loot[45]= '0x13CB';l
 Loot[46]= '0x1DB9';studded
 Loot[47]= '0x13D6';s
 Loot[48]= '0x13DB';s
 Loot[49]= '0x13D4';s
 Loot[50]= '0x13D5';s
 Loot[51]= '0x13DA';s
 Loot[52]= '0x13BB';chainmail
 Loot[53]= '0x13BF';c
 Loot[54]= '0x13BE';c
 Loot[55]= '0x13EC';ringmail
 Loot[56]= '0x13F0';r
 Loot[57]= '0x13EE';r
 Loot[58]= '0x13EB';r
 Loot[59]= '0x1413';platemail
 Loot[60]= '0x1415'p
 Loot[61]= '0x1410'p
 Loot[62]= '0x1414'p
 Loot[63]= '0x1411'p
 Loot[64]= '0x1B76';shields
 Loot[65]= '0x1B7B';s
 Loot[66]= '0x1B74';s
 Loot[67]= '0x1B73';s
 Loot[68]= '0x140E';helms
 Loot[69]= '0x1412';h
 Loot[70]= '0x1408';h
 Loot[71]= '0x140A';h
 Loot[72]= '0x140C';h
 Loot[73]= '0x182D';potions
 Loot[74]= '0x183D';p
 Loot[75]= '0x183A';p
 
 if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then
  For n = 1 To 75
  UO.FindType( Loot[n] , -1 ,'lastcontainer')
 while UO.GetQuantity('finditem') > 0
  UO.Print(' !!! Looting Items: '+str(UO.findcount()))
  uo.moveitem("finditem", 0 ,'backpack',96,129,0)
  CheckLag()
  Wait(500)
  UO.FindType( Loot[n] , -1 ,'lastcontainer')
 wend
 Next
Endif 
uo.setglobal('Loot',0)
uo.print(' !!! -= Done =- !!! ')
end sub

[Mihail]

по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь

[Cynthia]

I get the error (Function not found - UO.FINDCOUNT)

How to fix this?

[Rivory]

по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь

Не.. он хочет чтобы, когда шмот из массива в трупе заканчивался, скрипт лутал всё что осталось.

[Destruction]

по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь

Не.. он хочет чтобы, когда шмот из массива в трупе заканчивался, скрипт лутал всё что осталось.

Ну так взять любую лутилку и в конец массива поставить -1..

[burnx]

Mr Nmy,

nice scipt, but when I run it, appear the message: "Line 175: parse error"

can you help me?

Thanks

[Nasepsc]

hey i tried out that last code u forgot some ; before the p's
but besides that i got it working and at first it loot the pack i had on me
said looted 2 items then it stopd working

Code: Select all

Sub Loot() 
   if uo.getglobal('Loot')=='On' then 
   uo.setglobal('Loot',0) 
   uo.print(' !!! -= Loot Terminated =- !!! ') 
   uo.exec('terminate Loot') 
   else 
   uo.setglobal('Loot','On') 
   uo.print(' !!! -= Looting =- !!! ') 
VAR n 
  Dim Loot[75] 
 Loot[1] = '0x1B7A';terrium etc 
 Loot[2] = '0x13B9';weps 
 Loot[3] = '0x0F60' 
 Loot[4] = '0x1440' 
 Loot[5] = '0x13B5' 
 Loot[6] = '0x13FE' 
 Loot[7] = '0x1400' 
 Loot[8] = '0x1442' 
 Loot[9] = '0x0F4B' 
 Loot[10]= '0x13FA' 
 Loot[11]= '0x0F49' 
 Loot[12]= '0x13AF' 
 Loot[13]= '0x0F47' 
 Loot[14]= '0x0F45' 
 Loot[15]= '0x1438' 
 Loot[16]= '0x143C' 
 Loot[17]= '0x0F5C' 
 Loot[18]= '0x1406' 
 Loot[19]= '0x143A' 
 Loot[20]= '0x1404' 
 Loot[21]= '0x0F62' 
 Loot[22]= '0x1402' 
 Loot[23]= '0x143E' 
 Loot[24]= '0x0F4D';weps 
 Loot[25]= '0x13B1';longbow 
 Loot[26]= '0x35B6';bow 
 Loot[27]= '0x13FC';heavy crossbow 
 Loot[28]= '0x35B4';gladiator 
 Loot[29]= '0x0DF0';staff 
 Loot[30]= '0x0DF2';wand 
 Loot[31]= '0x0EFA';book 
 Loot[32]= '0x1541';sash 
 Loot[33]= '0x1BC3';shield 
 Loot[34]= '0x35B5';knuckle 
 Loot[35]= '0x1B78';shield 
 Loot[36]= '0x1718';hat 
 Loot[37]= '0x171A';hat 
 Loot[38]= '0x1549';mask 
 Loot[39]= '0x1547';headdress 
 Loot[40]= '0x1C08';skirt 
 Loot[41]= '0x1DB9';leather 
 Loot[42]= '0x13C7';l 
 Loot[43]= '0x13CC';l 
 Loot[44]= '0x13C6';l 
 Loot[45]= '0x13CB';l 
 Loot[46]= '0x1DB9';studded 
 Loot[47]= '0x13D6';s 
 Loot[48]= '0x13DB';s 
 Loot[49]= '0x13D4';s 
 Loot[50]= '0x13D5';s 
 Loot[51]= '0x13DA';s 
 Loot[52]= '0x13BB';chainmail 
 Loot[53]= '0x13BF';c 
 Loot[54]= '0x13BE';c 
 Loot[55]= '0x13EC';ringmail 
 Loot[56]= '0x13F0';r 
 Loot[57]= '0x13EE';r 
 Loot[58]= '0x13EB';r 
 Loot[59]= '0x1413';platemail 
 Loot[60]= '0x1415';p 
 Loot[61]= '0x1410';p 
 Loot[62]= '0x1414';p 
 Loot[63]= '0x1411';p 
 Loot[64]= '0x1B76';shields 
 Loot[65]= '0x1B7B';s 
 Loot[66]= '0x1B74';s 
 Loot[67]= '0x1B73';s 
 Loot[68]= '0x140E';helms 
 Loot[69]= '0x1412';h 
 Loot[70]= '0x1408';h 
 Loot[71]= '0x140A';h 
 Loot[72]= '0x140C';h 
 Loot[73]= '0x182D';potions 
 Loot[74]= '0x183D';p 
 Loot[75]= '0x183A';p 
  
 if (uo.getserial('backpack') <> uo.getserial('lastcontainer')) then 
  for n = 1 To 75 
  UO.FindType( Loot[n] , -1 ,'lastcontainer') 
 while UO.GetQuantity('finditem') > 0 
  UO.Print(' !!! Looting Items: '+str(UO.findcount())) 
  uo.moveitem("finditem", 0 ,'backpack',96,129,0) 
  uo.CheckLag() 
  Wait(500) 
  UO.FindType( Loot[n] , -1 ,'lastcontainer') 
 wend 
 Next
Endif 
uo.setglobal('Loot',0) 
uo.print(' !!! -= Done =- !!! ') 
end sub