@utoloot gold

min2tis · Post by **min2tis** » 2006-10-28 17:13:19

gr33tz ppl! i need some help. i need some kind auto loot script which would loot only gold from corpses

Scripts Writer · Post by **Scripts Writer** » 2006-10-28 17:17:12

uo.FindType(gold,'-1','lastcorpse')
if uo.FindCount() then
  uo.moveitem('finditem','all')
  wait(750)
end if

min2tis · Post by **min2tis** » 2006-10-28 17:32:57

error:
line 2: variable undefinded-gold

Nmy · Post by **Nmy** » 2006-10-28 18:26:45

min2tis wrote:error:
line 2: variable undefinded-gold

OMG man please use your brain...
type ,info and target to gold, then copy the gold-type and repleace Gold with something like type '0x1234'

min2tis · Post by **min2tis** » 2006-10-28 18:50:44

O_o
did so, but then another error apears:
function not found: UO.FINDCOUNT

Nmy · Post by **Nmy** » 2006-10-28 19:06:14

Code: Select all

sub gold()
uo.FindType('0x0123','-1','lastcorpse')
if uo.FindCount() then
  uo.moveitem('finditem')
end if
end sub

min2tis · Post by **min2tis** » 2006-10-28 19:52:53

still problem remains

Scripts Writer · Post by **Scripts Writer** » 2006-10-28 20:08:01

Update Injection

min2tis · Post by **min2tis** » 2006-10-28 20:27:12

the newest and updated. dont get it wheres the prob

GimFlex · Post by **GimFlex** » 2006-10-28 20:37:00

use your minde plz

min2tis · Post by **min2tis** » 2006-10-28 20:48:07

well, at least im not pretending expert. i dont undrestant too much, i just need some support

Nmy · Post by **Nmy** » 2006-10-29 11:37:53

min2tis wrote:well, at least im not pretending expert. i dont undrestant too much, i just need some support

theres nothing wrong with code... check your injection...

Mihail · Post by **Mihail** » 2006-10-30 00:37:37

min2tis, what version of injection you using? (,debug)

min2tis · Post by **min2tis** » 2006-10-31 17:38:52

505.18

Infectous · Post by **Infectous** » 2006-11-04 06:59:15

Code: Select all

sub gold()
UO.FindType('0x0EED',"-1",'lastcorpse')
If UO.FindCount() > 0 then
repeat
UO.Grab(0, "finditem")
UO.FindType('0x0EED',"-1",'lastcorpse')
until UO.FindCount() == 0
wait(500)
UO.Print(' You have ' + Str( UO.Count('0x0EED','0x0000') ) + ' Gold' )
EndIf
end sub

Don SpiL · Post by **Don SpiL** » 2006-11-04 17:06:38

Code: Select all

sub fast.loot()
var noz=0
uo.set("finddistance","3")
var n,f
uo.findtype("0x2006",-1,"ground")
if uo.findcount()==0 then
 return
 else
 uo.addobject("trup","finditem")
 if noz==1 then
 uo.waittargetobject("finditem")
 uo.useobject(uo.objatlayer("Rhand"))
 wait(600)
 end if
 uo.findtype("0x0ED2",-1,"ground")
 if uo.findcount()>0 then
  uo.addobject("trup","finditem")
  else
  uo.findtype("0x0ECA",-1,"ground")
  if uo.findcount()>0 then
   uo.addobject("trup","finditem")
  end if
 end if
end if
Dim A[100],color[5]
color[0]="0x0BAB" ;Азур
color[1]="0x0BAC" ;Меф
color[2]="0x0B2E" ;Аблаз
color[3]="0x19B9" ;Анц
color[4]="0x0BAF" ;Стар
color[5]="-1" ;Любой
A[1] = 0x2684 ;шруда 
A[2] = 0x1515 ;клока 
A[3] = 0x0F5C ;мейс
A[4] = 0x13B6 ;ским 
A[5] = 0x13B0 ;клюха
A[6] = 0x1441 ;кутлас
A[7] = 0x13FF ;катана
A[8] = 0x1401 ;крис
A[9] = 0x1086 ;брас хила 
A[10]= 0x1007 ;пыль
A[11]= 0x1415 ;пузо
A[12]= 0x1411 ;ноги
A[13]= 0x1410 ;руки
A[14]= 0x1414 ;перчи
A[15]= 0x1412 ;шлем
A[16]= 0x1413 ;горжа
A[17]= 0x1ced ;сердце
A[18]= 0x1F14 ;руна
A[19]= 0x0e2e ;сфера
A[20]= 0x13f8 ;палки
A[21]= 0x1B74 ;Щит
A[22]= 0x0EED ;GOLD
A[23]= 0x1365 ;GOLD
A[24]= 0x1366 ;GOLD
A[25]= 0x1367 ;GOLD
A[26]= 0x1368 ;GOLD
A[27]= 0x1369 ;GOLD
A[28]= 0x136B ;GOLD
A[29]= 0x1361 ;GOLD
A[30]= 0x1362 ;GOLD
A[31]= 0x1364 ;GOLD

FOR n=1 TO 31
    for f=0 to 5
     uo.findtype(A[n],color[f],"trup")
     while uo.findcount()>0 and Uo.Weight<Uo.STR*3.5 and uo.getdistance("trup")<3
        uo.moveitem("finditem",0,"my")
          wait(500)
        uo.findtype(A[n],color[f],"trup")
    wend
    next
next
end sub