Луталка.

[newman]

Вот скрипт:

Code: Select all

Sub loottrup() ; лут с трупа 
var Text1="You can't see the target" 
uo.useobject ('lastcontainer') 
wait(1500) 
if not uo.Journal(0)==Text1 then 
lootitem('0x0EED')#золото 
Bronj() 
#sumki() 
#regi() 
#borohlo() 
#Kamni() 
else 
uo.concolor('0x09DA') 
uo.print('не вижу труп?????') 
uo.concolor('0x09A4') 
endif 
end sub 

Sub Bronj() 
lootitem('0x1086')#браслет маны 
lootitem('0x143E')#алеба 
lootitem('0x13B9')#Викинг 
lootitem('0x13B5')#Scimitar 
lootitem('0x0F3F')#стрелы 
lootitem('0x0F0E')#Бутылки 
lootitem('0x1416')#Гриудник 
lootitem('0x141A')#Ноги 
lootitem('0x1411')#Ноги 
lootitem('0x1413')#горло 
lootitem('0x1B76')#Щит 
lootitem('0x1410')#руки 
lootitem('0x1414')#перчатки 
lootitem('0x1418')#перчатки 
lootitem('0x1412')#Шлем 
lootitem('0x1B77')#щит 
lootitem('0x1415')#Гриудник 
lootitem('0x0F8C')#SA 
lootitem('0x0F86')#MR 
lootitem('0x0F7B')#BM 
lootitem('0x0F84')#GA 
lootitem('0x0F85')#GI 
lootitem('0x0F8D')#SS 
lootitem('0x0F88')#NS 
lootitem('0x0F7A')#BP 

end sub

Но когда нажимаю кнопку пишет Function not found
Что не так.?

[mez]

лут с трупа

Code: Select all

sub Loot() 
var i,n 
Dim Loot[28]
Loot[0]=0x108A ; ring
Loot[1]=0x1086 ; bras
Loot[2]=0x0E21 ; bandage
Loot[3]=0x13B9 ; sword 
Loot[4]=0x1406 ; mace 
Loot[5]=0x13B1 ; bow  
Loot[6]=0x13FC ; heavy arb 
Loot[7]=0x0F45 ; Exec
Loot[8]=0x0F4B ; Double Axe
Loot[9]=0x143E ; aleba  
Loot[10]=0x0F4C ; 2xTopor
Loot[11]=0x1442 ; 2 handen axe
Loot[12]=0x1B7A ; shield
Loot[13]=0x13B3 ;club 
Loot[14]=0x1B76 ; heater 
Loot[15]=0x1414 ; gauntles 
Loot[16]=0x1410 ; arms 
Loot[17]=0x1415 ; plate 
Loot[18]=0x1411 ; legs 
Loot[19]=0x1413 ; gorget 
Loot[20]=0x1412 ; helm
Loot[21]=0x0F0E ; bytilka 
Loot[22]=0x0F0E ; bytilka 
Loot[23]=0x0F0E ; bytilka 
Loot[24]=0x0F0E ; bytilka 
Loot[25]=0x0F0E ; bytilka 
Loot[26]=0x1F5F ; fs_scr 
Loot[27]=0x1F52 ; paral_scr   
Loot[28]=0x0E76 ; Bag   
i = 500 
FOR n=1 TO 28 
uo.findtype(Loot[n],"-1","lastcontainer") 
if uo.findcount() > 0 then 
UO.grab(0, "finditem") 
uo.print("Found "+str(uo.findcount())) 
Wait(i) 
END if 
next 
end sub

лут с земли с порезоного трупа

Code: Select all

sub pickup() 
var i 
dim a[27] 
a[0]="0x1086" #item 0 
a[1]="0x1B76" #item 1 
a[2]="0x1415" #item 2 
a[3]="0x1411" #item 3 
a[4]="0x1410" #item 4 
a[5]="0x1413" #item 5 
a[6]="0x1414" #item 6 
a[7]="0x1412" #item 7 
a[8]="0x143E" #item 8 
a[9]="0x0F4D" #item 9 
a[10]="0x13B9" #item 10 
a[11]="0x13B1" #item 11 
a[12]="0x0F45" #item 12 
a[13]="0x0F4B" #item 13 
a[14]="0x0F62" #item 14 
a[15]="0x13FC" #item 15 
a[16]="0x0F4F" #item 16 
a[17]="0x1F52" #item 17 
a[18]="0x1F5F" #item 18 
a[19]="0x0F0E" #item 19 
a[20]="0x0F0E" #item 20 
a[21]="0x0F0E" #item 21 
a[22]="0x0F0E" #item 22 
a[23]="0x0E76" #item 23 
a[24]="0x0E21" #item 24 
a[25]="0x0EED" #item 25 
a[26]="0x0F3F" #item 26 
uo.set('finddistance','3') 
for i=0 to 26 
uo.findtype(a[i],-1,'ground') 
if uo.findcount() then 
uo.moveitem('finditem') 
wait(500) 
end if 
next 
end sub