Ultima online renaissance Lineage 2
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » UO Injection \ Uo pilot » UO Injection » Carpentry (Carpentry)
Carpentry
banderlogДата: Четверг, 22.10.2009, 03:51 | Сообщение # 1
Майор
Группа: Администраторы
Сообщений: 96
Награды: 1
Репутация: 32767
Статус: Offline
Code
sub Carpentry()
var Exit=0, LastTimer
uo.Print('Выбери Сундук: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Выбери Помойку: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
uo.Print('Выбери Инструмент: ')
uo.Exec('addobject Ins')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x0E89','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BDD',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BDD','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.UseObject('Ins')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub


окажите нам поддержку, отправив перевод через WebMoney :

Кошелек-1 WMZ: Z315568733306
Кошелек-2 WMR: R380806767277
 
Форум » UO Injection \ Uo pilot » UO Injection » Carpentry (Carpentry)
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024