Page 1 of 1
Выручаите не все лутает!
Posted: 2007-06-22 22:49:45
by 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 вид банки очтольное остовляет т.е. лутает например ману остольное оставил или ГХ и остольное оставил и так со всеми типами! Зделаите пожалуйста чтоб лутал норм или напишите какие команды и куда вставить!зарание спасибо!
Re: Выручаите не все лутает!
Posted: 2007-06-22 23:08:43
by 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
так попробуй
Posted: 2007-06-23 22:03:51
by Nightmar
Не работает вообще выдоет ошибку вот в этом месте!
Posted: 2007-06-24 00:24:57
by junn
Nightmar wrote:Не работает вообще выдоет ошибку вот в этом месте!
ну епта опечатка) убери then
Posted: 2007-06-24 01:22:52
by Nightmar
Исправил работает,но он лутает 2 раза одну и туже вещь,т.е. лутет ГХ например она уже в бэк паке он пытаеться полутать её еще раз!Впринцепе норм но много времени впустую!