Page 1 of 1
autoloot script with special abilitys
Posted: 2007-03-17 17:49:50
by 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
Posted: 2007-03-17 18:09:30
by 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
Posted: 2007-03-17 19:40:43
by 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
Posted: 2007-03-19 13:04:22
by Mihail
по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь
Posted: 2007-07-27 13:23:54
by Cynthia
I get the error (Function not found - UO.FINDCOUNT)
How to fix this?
Posted: 2007-07-27 15:13:49
by Rivory
Mihail wrote:по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь
Не.. он хочет чтобы, когда шмот из массива в трупе заканчивался, скрипт лутал всё что осталось.
Posted: 2007-07-28 08:40:27
by Destruction
Rivory wrote:Mihail wrote:по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь
Не.. он хочет чтобы, когда шмот из массива в трупе заканчивался, скрипт лутал всё что осталось.
Ну так взять любую лутилку и в конец массива поставить -1..
Posted: 2008-04-07 05:40:37
by burnx
Mr Nmy,
nice scipt, but when I run it, appear the message: "Line 175: parse error"
can you help me?
Thanks
Posted: 2008-09-29 16:10:48
by 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