Нексолько вопрософ по поводу скриптоф

[duzik]

Code: Select all

sub Looting() 
var t,l 
t=500 
uo.deletejournal()
uo.UseObject('lastcorpse') 
dim LootingItem[4] 
uo.Print('Íà÷èíàåì Ëóòàòü...') 
### Magic Looting Items ### 
LootingItem[1] = 0x09AA  ## - kaste 
LootingItem[2] = 0x0EED  ## - naudinja 
LootingItem[3] = 0x1088  ## - amulets 
LootingItem[4] = 0x14ED  ## - Treashure
uo.Print('Ëóò Çàêîí÷åí.') 
for l=1 to 4
uo.FindType(LootingItem[l],"-1","lastcorpse") 
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=4 then 
uo.Grab(1,"finditem")
wait (t)
uo.Print('Íàéäåí ïðåäìåò: '+str(uo.findcount())) 
end if 
next 
end sub

Как такое чудо превратить в ауто лут штоб он вкльючался кода в журнале показвает техт типо items) или штото такое , 2. вопрос как зделать так штоб он взял type1 ,type2 с коробки , зделал итем , положил type3 в коробку , 3. вопрос как зделать ,disarm далше следует uo.usetype (repair tools) а вот как зделать штоб он таргетил именно етот итем(Меч маце или што другое)?

[GimFlex]

1.

Code: Select all

while not uo.injournal("itams")
 wait(1000)
wend
loot()
....

[SprinG]

а этот можно посмотреть?

sub Loot_pvp_elf()
var bag,i=0;
var telo = '0x2006' #Тайп Трупа

dim loot[18]
loot[0]=0x1F03 #robe
loot[1]=0x1515 #cloack
loot[2]=0x13BF #chain puzo
loot[3]=0x13BE #chain nogi
loot[4]=0x13BB #chain golova
loot[5]=0x13EE #chain ple4iki
loot[6]=0x13EB #chain ruki
loot[7]=0x13B1 #heru
loot[8]=0x0EED #gold
loot[9]=0x0E76 #bag
loot[10]=0x0E75 #sold
loot[11]=0x1F58 #belt pouch
loot[12]=0x0F3F #arrows
loot[13]=0x1BFB #bolti
loot[14]=0x0f0e #inviska
loot[15]=0x0f09 #manka
loot[16]=0x0f0c #heal
loot[17]=0x0E21 #bandages

uo.deletejournal()
if uo.getdistance('lastcontainer')<=2 then
bag=uo.getserial('lastcontainer')
else
uo.findtype(telo,-1,'ground')
if uo.findcount() > 0 then
uo.waittargetobject('finditem')
bag=uo.getserial('finditem')
wait(300)
endif
endif
if UO.GetSerial('lastcontainer')<>UO.GetSerial('backpack') Then
uo.print(bag)
uo.useobject(bag)
for i=0 to 17
uo.findtype(loot[i],-1,bag)
if uo.findcount()>0 AND uo.GetDistance(bag)<=2 then
UO.MoveItem('finditem','0','backpack')
wait(500)
endif
next
endif
end sub

на строке uo.print(bag) выводит рантайм эрор почемуто

[duzik]

1.

Code: Select all

while not uo.injournal("itams")
 wait(1000)
wend
loot()
....

Мош я дурак но я некак немогу зделать штоб он всеремя работатл он как нехочет так нехочет соберать пожалуисто напиши в полном виде скрипт

у мя он виглядет такои ...

Code: Select all

sub Looting() 
var t,l 
t=500 
uo.deletejournal()
while not uo.injournal("items")  
wend
uo.UseObject('lastcorpse') 
dim LootingItem[4] 
uo.Print('Íà÷èíàåì Ëóòàòü...') 
### Magic Looting Items ### 
LootingItem[1] = 0x09AA  ## - kaste 
LootingItem[2] = 0x0EED  ## - naudinja 
LootingItem[3] = 0x1088  ## - amulets 
LootingItem[4] = 0x14ED  ## - Treashure
uo.Print('Ëóò Çàêîí÷åí.') 
for l=1 to 4
uo.FindType(LootingItem[l],"-1","lastcorpse") 
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=4 then 
uo.Grab(1,"finditem")
wait (t)
uo.Print('Íàéäåí ïðåäìåò: '+str(uo.findcount())) 
end if 
next 
end sub

[duzik]

Всёже очень прошу помоч