Воскресенье, 22.04.2018, 15:14Главная | Bow Craft Chaft - Форум | Регистрация | Вход
Приветствую Вас Гость | RSS



[Новые сообщения · Участники · Правила форума · Поиск ]
  • Страница 1 из 1
  • 1
Форум » AnTaRiS » Рынок » Bow Craft Chaft
Bow Craft Chaft
MaksimkaДата: Воскресенье, 12.12.2010, 19:24 | Сообщение # 1
Рядовой
Группа: АнТаРиС
Сообщений: 12
Репутация: 0
Статус: Offline
######################################################################################
###
var Chest='0x400393ED' ## - ID сундука из которого будем брать логи и класть шафты.
###
var Logs='0x1BDD' ## - Type логов.
###
var Shaft='0x1BD4' ## - Type шафтов.
###
var dagger='0x0F51' ## - Type даггера.
###
#######################################################################################
sub BowCraft()
Open(Chest)
while 1==1
uo.FindType(Logs,-1,'backpack')
while uo.GetQuantity('finditem')==0
uo.FindType(Logs,'0x0000',Chest)
wait(1000)
uo.Grab('1','finditem')
wend
wait(700)
ChekLag()
uo.FindType(Logs,'0x0000','backpack')
uo.WaittargetType(Logs)
uo.Usetype(dagger)
uo.WaitMenu('What do you want to carve the wood into?','shaft (1 log)')
wait(1000)
uo.DeleteJournal()
while not (uo.InJournal('You put') or uo.InJournal('You fail'))
wait(300)
wend
if uo.Weight>100 then
uo.SetReceivingContainer(Chest)
wait(500)
uo.FindType(Shaft)
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
wait(3000)
end if
uo.UnSetReceivingContainer()
end if
wend
end sub

sub Open(Container)
uo.DeleteJournal()
uo.UseObject(Container)
repeat
wait(500)
until uo.InJournal('Contains')
end sub

sub ChekLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(100)
until uo.InJournal("backpack")
end sub


* Maximiliano *
 
Dark_AngelsДата: Пятница, 24.12.2010, 04:21 | Сообщение # 2
Сержант
Группа: АнТаРиС
Сообщений: 22
Репутация: 0
Статус: Offline
спс
 
Форум » AnTaRiS » Рынок » Bow Craft Chaft
  • Страница 1 из 1
  • 1
Поиск:

Copyright AnTaRiS © 2018

Бесплатный хостинг uCoz