Yoko
http://forum.yoko.com.ua/

Выручаите не все лутает!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=12138		 Page 1 of 1
Author:  Nightmar [ 2007-06-22 22:49:45 ]
Post subject:  Выручаите не все лутает!
Code:
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 вид банки очтольное остовляет т.е. лутает например ману остольное оставил или ГХ и остольное оставил и так со всеми типами! Зделаите пожалуйста чтоб лутал норм или напишите какие команды и куда вставить!зарание спасибо!
Author:  junn [ 2007-06-22 23:08:43 ]
Post subject:  Re: Выручаите не все лутает!
Code:
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



так попробуй
Author:  Nightmar [ 2007-06-23 22:03:51 ]
Post subject: 
Не работает вообще выдоет ошибку вот в этом месте!
Code:
while uo.FindCount()>0 then
Author:  junn [ 2007-06-24 00:24:57 ]
Post subject: 
Nightmar wrote:
Не работает вообще выдоет ошибку вот в этом месте!
Code:
while uo.FindCount()>0 then


ну епта опечатка) убери then
Author:  Nightmar [ 2007-06-24 01:22:52 ]
Post subject: 
Исправил работает,но он лутает 2 раза одну и туже вещь,т.е. лутет ГХ например она уже в бэк паке он пытаеться полутать её еще раз!Впринцепе норм но много времени впустую!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/