Yoko

All sides of Injection
It is currently 2025-10-19 23:00:19

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 
  Print view Previous topic | Next topic 
Author Message
krokette
PostPosted: 2007-03-17 17:49:50 
Offline

Joined: 2007-03-17 17:42:25
Posts: 2
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:
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
Top
   
Reply with quote  
krokette
 Post subject:
PostPosted: 2007-03-17 18:09:30 
Offline

Joined: 2007-03-17 17:42:25
Posts: 2
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:
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
Top
   
Reply with quote  
Nmy
 Post subject:
PostPosted: 2007-03-17 19:40:43 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Code:
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

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Top
   
Reply with quote  
Mihail
 Post subject:
PostPosted: 2007-03-19 13:04:22 
Offline
Expert!
User avatar

Joined: 2005-05-20 20:30:10
Posts: 548
по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь
Top
   
Reply with quote  
Cynthia
 Post subject:
PostPosted: 2007-07-27 13:23:54 
Offline

Joined: 2007-07-27 13:11:15
Posts: 2
I get the error (Function not found - UO.FINDCOUNT)

How to fix this?
Top
   
Reply with quote  
Rivory
 Post subject:
PostPosted: 2007-07-27 15:13:49 
Offline

Joined: 2005-01-06 11:49:28
Posts: 205
Mihail wrote:
по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь


Не.. он хочет чтобы, когда шмот из массива в трупе заканчивался, скрипт лутал всё что осталось.
Top
   
Reply with quote  
Destruction
 Post subject:
PostPosted: 2007-07-28 08:40:27 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Rivory wrote:
Mihail wrote:
по-моему он хочет не автолут а по нажатию кнопки лутать 1 вещь


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

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

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060
Top
   
Reply with quote  
burnx
 Post subject:
PostPosted: 2008-04-07 05:40:37 
Offline

Joined: 2008-04-07 05:38:13
Posts: 1
Mr Nmy,

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

can you help me?

Thanks
Top
   
Reply with quote  
Nasepsc
 Post subject:
PostPosted: 2008-09-29 16:10:48 
Offline

Joined: 2008-09-26 03:13:51
Posts: 13
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:
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
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 9 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited