Выручаите не все лутает!

[Nightmar]

Code: Select all

sub Looting() 
var t,l  
var myarm  
t=1200 
UO.WaitTargetObject('lastcorpse') 
uo.setarm('myarm') 
UO.UseType('0x0F52') 
end if 
wait(t) 
dim LootingItem[29] 
uo.Print('Начинаем Лутать...') 
### Armore Looting Items ### 
Lootingitem[1] = 0x1416 ## - Platemail Arms
Lootingitem[2] = 0x1415 ## - Platemail Arms
Lootingitem[3] = 0x1411 ## - Platemail Legs
Lootingitem[4] = 0x141A ## - Platemail Legs
Lootingitem[5] = 0x1418 ## - Platemail Gloves
Lootingitem[6] = 0x1414 ## - Platemail Gloves
Lootingitem[7] = 0x1413 ## - Platemail Gorget
Lootingitem[8] = 0x1419 ## - Platemail Helm
Lootingitem[9] = 0x1412 ## - Platemail Helm
Lootingitem[10] = 0x1B76 ## - Platemail Heater
Lootingitem[11] = 0x1B77 ## - Platemail Heater
Lootingitem[12] = 0x1410 ## - Platemail Hands
LootingItem[13] = 0x0E87 ## - Pitchfork
LootingItem[14] = 0x1406 ## - War Mace 
LootingItem[15] = 0x1404 ## - Far Work 
LootingItem[16] = 0x13B9 ## - Viking Shword 
LootingItem[17] = 0x13B5 ## - Scimitar 
### Clothes Looting Items ### 
LootingItem[18] = 0x1086 ## - braclet mana 
LootingItem[19] = 0x0F0E ## - Banki 
### Shrink Creature Looting Items ### 
LootingItem[20] = 0x20D6 ## - Drack
### Others Looting Items ### 
LootingItem[21] = 0x0EED ## - Gold Coins 
LootingItem[22] = 0x0E76 ## - Bag 
LootingItem[23] = 0x0E75 ## - BackPack 
LootingItem[24] = 0x0E21 ## - Clear Bandage 
### Bows Looting Items ### 
LootingItem[25] = 0x13B1 ## - Bow 
LootingItem[26] = 0x0F4F ## - CrossBow 
LootingItem[27] = 0x13FC ## - Heavy CrossBow 
LootingItem[28] = 0x0F3F ## - Bow Arrow 
LootingItem[29] = 0x1BFB ## - CrossBow Bolt 
uo.Print('Лут Закончен.') 
UO.arm('myarm') 
for l=1 to 29
uo.FindType(LootingItem[l],"-1","ground") 
if uo.FindCount()>0 then 
uo.Grab(1,"finditem") 
uo.Print('Найден предмет: '+str(uo.findcount())) 
wait(t) 
end if 
next 
end sub

вот скрипт все роаботает!Но не все лутает!т.е убиваешь чела у него например ГХ,Тотал Мана,Рефрешь,Шринки ну и т.д. он лутает токо 1 вид банки очтольное остовляет т.е. лутает например ману остольное оставил или ГХ и остольное оставил и так со всеми типами! Зделаите пожалуйста чтоб лутал норм или напишите какие команды и куда вставить!зарание спасибо!

[junn]

Code: Select all

sub Looting() 
var t,l  
var myarm  
t=1200 
UO.WaitTargetObject('lastcorpse') 
uo.setarm('myarm') 
UO.UseType('0x0F52') 
end if 
wait(t) 
dim LootingItem[29] 
uo.Print('Начинаем Лутать...') 
### Armore Looting Items ### 
Lootingitem[1] = 0x1416 ## - Platemail Arms
Lootingitem[2] = 0x1415 ## - Platemail Arms
Lootingitem[3] = 0x1411 ## - Platemail Legs
Lootingitem[4] = 0x141A ## - Platemail Legs
Lootingitem[5] = 0x1418 ## - Platemail Gloves
Lootingitem[6] = 0x1414 ## - Platemail Gloves
Lootingitem[7] = 0x1413 ## - Platemail Gorget
Lootingitem[8] = 0x1419 ## - Platemail Helm
Lootingitem[9] = 0x1412 ## - Platemail Helm
Lootingitem[10] = 0x1B76 ## - Platemail Heater
Lootingitem[11] = 0x1B77 ## - Platemail Heater
Lootingitem[12] = 0x1410 ## - Platemail Hands
LootingItem[13] = 0x0E87 ## - Pitchfork
LootingItem[14] = 0x1406 ## - War Mace 
LootingItem[15] = 0x1404 ## - Far Work 
LootingItem[16] = 0x13B9 ## - Viking Shword 
LootingItem[17] = 0x13B5 ## - Scimitar 
### Clothes Looting Items ### 
LootingItem[18] = 0x1086 ## - braclet mana 
LootingItem[19] = 0x0F0E ## - Banki 
### Shrink Creature Looting Items ### 
LootingItem[20] = 0x20D6 ## - Drack
### Others Looting Items ### 
LootingItem[21] = 0x0EED ## - Gold Coins 
LootingItem[22] = 0x0E76 ## - Bag 
LootingItem[23] = 0x0E75 ## - BackPack 
LootingItem[24] = 0x0E21 ## - Clear Bandage 
### Bows Looting Items ### 
LootingItem[25] = 0x13B1 ## - Bow 
LootingItem[26] = 0x0F4F ## - CrossBow 
LootingItem[27] = 0x13FC ## - Heavy CrossBow 
LootingItem[28] = 0x0F3F ## - Bow Arrow 
LootingItem[29] = 0x1BFB ## - CrossBow Bolt 
uo.Print('Лут Закончен.') 
UO.arm('myarm') 
for l=1 to 29
uo.FindType(LootingItem[l],"-1","ground") 
while uo.FindCount()>0 then 
uo.Grab(1,"finditem") 
uo.Print('Найден предмет: '+str(uo.findcount())) 
uo.FindType(LootingItem[l],"-1","ground")
wait(t) 
wend
next 
end sub

так попробуй

[Nightmar]

Не работает вообще выдоет ошибку вот в этом месте!

Code: Select all

while uo.FindCount()>0 then 

[junn]

Не работает вообще выдоет ошибку вот в этом месте!

Code: Select all

while uo.FindCount()>0 then 

ну епта опечатка) убери then

[Nightmar]

Исправил работает,но он лутает 2 раза одну и туже вещь,т.е. лутет ГХ например она уже в бэк паке он пытаеться полутать её еще раз!Впринцепе норм но много времени впустую!