Page 1 of 1
Картепни
Posted: 2004-10-02 09:18:48
by zarg
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Re: Картепни
Posted: 2004-10-02 09:24:15
by kuviCk
zarg wrote:У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Code: Select all
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
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.UseType('0x1034')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
Re: Картепни
Posted: 2004-10-02 09:26:28
by zarg
Cooler! wrote:zarg wrote:У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Code: Select all
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
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.UseType('0x1034')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
спасибо
)) и сори что атачил тебя у ламки
))))))))))
Re: Картепни
Posted: 2004-10-02 09:28:48
by kuviCk
zarg wrote:Cooler! wrote:zarg wrote:У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Code: Select all
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
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.UseType('0x1034')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
спасибо
)) и сори что атачил тебя у ламки
))))))))))
Это ты был ??? ник плз )))
Re: Картепни
Posted: 2004-10-02 09:31:48
by zarg
Cooler! wrote:zarg wrote:Cooler! wrote:
Code: Select all
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
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.UseType('0x1034')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
спасибо
)) и сори что атачил тебя у ламки
))))))))))
Это ты был ??? ник плз )))
BornToReign
Re: Картепни
Posted: 2004-10-02 09:33:50
by kuviCk
zarg wrote:Cooler! wrote:zarg wrote:
спасибо
)) и сори что атачил тебя у ламки
))))))))))
Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))
Re: Картепни
Posted: 2004-10-02 09:35:48
by zarg
Cooler! wrote:zarg wrote:Cooler! wrote:
Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))
хорошо
Re: Картепни
Posted: 2004-10-02 09:36:17
by kuviCk
zarg wrote:Cooler! wrote:zarg wrote:
BornToReign
А ну забей !! ))
хорошо
Тока больше не атач )
Re: Картепни
Posted: 2004-10-05 16:34:48
by zarg
Cooler! wrote:zarg wrote:У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Code: Select all
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
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.UseType('0x1034')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
у меня че то проблемы он берет 300 логов после того как сделает каждый стаф
Posted: 2004-10-10 07:19:43
by zarg
Ну так че знает кто нить в чем дело?