Yoko

All sides of Injection
It is currently 2025-12-22 11:07:26

All times are UTC+02:00




Post new topic  Reply to topic  [ 9 posts ] 
Author Message
PostPosted: 2005-08-29 10:25:41 
Offline

Joined: 2004-12-17 13:12:33
Posts: 34
Люди добрые помогите пожалуйтса каму не сложно дайте скрипт на автолут для ДРВ


Top
   
 Post subject:
PostPosted: 2005-08-29 10:49:11 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Code:
sub Looting() 
var t,l
t=1200
uo.UseObject('lastcorpse')
wait(t)
dim LootingItem[38]
uo.Print('Начинаем Лутать...')
### Magic Looting Items ###
LootingItem[1] = 0x0F7B  ## - Blood Moss
LootingItem[2] = 0x0F8D  ## - Spiders Slick
LootingItem[3] = 0x0F8C  ## - Sulfurous Ash
LootingItem[4] = 0x0F88  ## - NightShade
LootingItem[5] = 0x0F7A  ## - Black Pearls
LootingItem[6] = 0x0F84  ## - Garlic
LootingItem[7] = 0x0F86  ## - Mandrake Roots
LootingItem[8] = 0x0F85  ## - Ginseng
LootingItem[9] = 0x1F14  ## - Rune
LootingItem[10] = 0x0F0C ## - Heal
LootingItem[11] = 0x0F0B ## - Refresh
### Armore Looting Items ###
LootingItem[12] = 0x1412 ## - Platemail Helm
LootingItem[13] = 0x1411 ## - Platemail Legs
LootingItem[14] = 0x1410 ## - Platemail Arms
LootingItem[15] = 0x1414 ## - Platemail Gloves
LootingItem[16] = 0x1B76 ## - Platemail Heater
LootingItem[17] = 0x1413 ## - Platemail Gorget
LootingItem[18] = 0x1406 ## - War Mace
LootingItem[19] = 0x1404 ## - Far Work
LootingItem[20] = 0x13B9 ## - Viking Shword
LootingItem[21] = 0x13B5 ## - Scimitar
### Clothes Looting Items ###
LootingItem[22] = 0x1F03 ## - Robe
LootingItem[23] = 0x1515 ## - Cloak
LootingItem[24] = 0x1517 ## - Shirt
LootingItem[25] = 0x171C ## - Jester Hat
LootingItem[26] = 0x1539 ## - Long Pants
LootingItem[27] = 0x152E ## - Short Pants
### Shrink Creature Looting Items ###
LootingItem[28] = 0x2136 ## - Zostrich
LootingItem[29] = 0x2137 ## - Orn
### Others Looting Items ###
LootingItem[30] = 0x0EED ## - Gold Coins
LootingItem[31] = 0x0E76 ## - Bag
LootingItem[32] = 0x0E75 ## - BackPack
LootingItem[33] = 0x0E21 ## - Clear Bandage
### Bows Looting Items ###
LootingItem[34] = 0x13B1 ## - Bow
LootingItem[35] = 0x0F4F ## - CrossBow
LootingItem[36] = 0x13FC ## - Heavy CrossBow
LootingItem[37] = 0x0F3F ## - Bow Arrow
LootingItem[38] = 0x1BFB ## - CrossBow Bolt
uo.Print('Лут Закончен.')
for l=1 to 38
uo.FindType(LootingItem[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then
uo.Grab(1,"finditem")
uo.Print('Найден предмет: '+str(uo.findcount()))
wait(t)
end if
next
end sub


Top
   
 Post subject:
PostPosted: 2005-08-29 19:58:52 
Offline
User avatar

Joined: 2005-07-09 13:45:19
Posts: 44
А тут уже прописанно куда он лутает? Сразу в бакпак? Что-то у меня не работает... Или может есть обязательная привязка к шарду? :)


Top
   
 Post subject:
PostPosted: 2005-08-29 20:02:46 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
SEGA wrote:
А тут уже прописанно куда он лутает? Сразу в бакпак? Что-то у меня не работает... Или может есть обязательная привязка к шарду? :)

Лутает в бекпек. У меня работает :)


Top
   
 Post subject:
PostPosted: 2005-08-29 20:06:41 
Offline
User avatar

Joined: 2005-07-09 13:45:19
Posts: 44
Leo wrote:
Лутает в бекпек. У меня работает :)

Хм... Значит я еще тугой в этом деле! И вот еще - имеент значение что скрипт поставлен на ХотКей или нет? Просто я еще не понял как скипт на "Горячую Клавишу" поставить! Можешь объяснить? или направить ссылкой? :roll:


Top
   
 Post subject:
PostPosted: 2005-08-29 20:18:33 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
а)Знчения не имеет.

б)Открываем закладку Hotkeys. В поле Command пишем
exec название функции


Top
   
 Post subject:
PostPosted: 2005-08-29 20:29:19 
Offline
User avatar

Joined: 2005-07-09 13:45:19
Posts: 44
Лео, спасибо, разъяснил дураку :) Теперь все работает :) Дальше я сам типы перебью...


Top
   
 Post subject:
PostPosted: 2005-08-31 09:52:11 
Offline

Joined: 2004-12-17 13:12:33
Posts: 34
спосибо за скрипт


Top
   
 Post subject:
PostPosted: 2005-10-08 01:43:44 
Offline
User avatar

Joined: 2005-01-03 20:59:34
Posts: 5
Это мой вариант автолута, работает на МЕ
Quote:
#############################################################
### AutoLoot by BSAFH version 1.0
#############################################################
### Изменения и дополнения:
### 1.0 Чар не будет резать, если находится в хайде
### 0.9 Если в паке есть мешок из Ice кожи,
### он считается контейнером для сбора лута
### 0.9 Добавлены реги в список лута
### 0.8 Чар лутает список по типу, игнорируя цвет
### 0.7 Добавлен список вещей на лут
### 0.6 Чар лутает кожу, бутылки и стрелы
### 0.5 Чар режет трупп перед лутом
#############################################################
sub autoloot()
uo.addobject('Corpse');
var numitems = 37
dim items[37];
var n;
items[1]='0x0EED'; Gold Coins
items[2]='0x1BD1'; feathers
items[3]='0x1078';
items[4]='0x0F09'; a Potions
items[5]='0x0F15';
items[6]='0x1BFB'; crossbow bolts
items[7]='0x0F3F'; arrows
items[8]='0x0F13'; a rubies
items[9]='0x0F16';
items[10]='0x0F0F'; a star sapphires
items[11]='0x0F18';
items[12]='0x0F30'; a diamonds
items[13]='0x0F10'; a emeralds
items[14]='0x1EA7'; a magic gems
items[15]='0x0F7F'; Brimstones
items[16]='0x1BDD'; a logs
items[17]='0x0F83'; Executioner's Cap
items[18]='0x1085'; necklace
items[19]='0x1086'; bracelet
items[20]='0x1087'; earrings
items[21]='0x1088'; necklace
items[22]='0x1089'; necklace
items[23]='0x108A'; ring
items[24]='0x0F7A'; Black Pearls
items[25]='0x0F85'; Ginsengs
items[26]='0x0F8D'; Spider's Silks
items[27]='0x0F84'; Garlics
items[28]='0x0F88'; Nightshades
items[29]='0x0F7B'; Blood Mosss
items[30]='0x0F8C'; Sulfurous Ashs
items[31]='0x0F86'; Mandrake Roots
items[32]='0x0F7D'; Vials of Blood
items[33]='0x0F8F'; Volcanic Ashs
items[34]='0x0F7E'; Bones
items[35]='0x0F80'; Daemon Bones
items[36]='0x0F11'; a sapphires
items[37]='0x0F91'; Wyrm's Hearts
while uo.targeting()
wait(500)
wend
# Ищем мешок из айс кожи, если есть, ставим его контейнером для выгрузки
uo.findtype('0x0E76', '0x0482');
if uo.findcount() then
uo.setcatchbag('finditem');
endif
if not uo.hidden() then
uo.waittargetobject('Corpse');
uo.usetype('0x0F51');
wait(1000)
endif
uo.useobject('Corpse');
wait(500)
for n=1 to numitems
uo.findtype(items[n], -1, 'Corpse');
while uo.findcount()
uo.findtype(items[n], -1, 'Corpse');
uo.moveitem('finditem', 0);
wait(250)
wend
next
uo.findtype('0x0E76', '0x0482');
if uo.findcount() then
uo.unsetcatchbag();
endif
end sub


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 9 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited