Yoko
http://forum.yoko.com.ua/

Картепни
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1512
Page 1 of 1

Author:  zarg [ 2004-10-02 09:18:48 ]
Post subject:  Картепни

У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

Author:  kuviCk [ 2004-10-02 09:24:15 ]
Post subject:  Re: Картепни

zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

Author:  zarg [ 2004-10-02 09:26:28 ]
Post subject:  Re: Картепни

Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

спасибо :))) и сори что атачил тебя у ламки :)))))))))))

Author:  kuviCk [ 2004-10-02 09:28:48 ]
Post subject:  Re: Картепни

zarg wrote:
Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

спасибо :))) и сори что атачил тебя у ламки :)))))))))))


Это ты был ??? ник плз )))

Author:  zarg [ 2004-10-02 09:31:48 ]
Post subject:  Re: Картепни

Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

Author:  kuviCk [ 2004-10-02 09:33:50 ]
Post subject:  Re: Картепни

zarg wrote:
Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

А ну забей !! ))

Author:  zarg [ 2004-10-02 09:35:48 ]
Post subject:  Re: Картепни

Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

А ну забей !! ))

хорошо :)

Author:  kuviCk [ 2004-10-02 09:36:17 ]
Post subject:  Re: Картепни

zarg wrote:
Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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

А ну забей !! ))

хорошо :)

Тока больше не атач )

Author:  zarg [ 2004-10-05 16:34:48 ]
Post subject:  Re: Картепни

Cooler! wrote:
zarg wrote:
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???

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
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 логов после того как сделает каждый стаф :(

Author:  zarg [ 2004-10-10 07:19:43 ]
Post subject: 

Ну так че знает кто нить в чем дело?

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/