Картепни

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Картепни

Post by zarg »

У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Картепни

Post 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 
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Re: Картепни

Post 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 
спасибо :))) и сори что атачил тебя у ламки :)))))))))))
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Картепни

Post 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 
спасибо :))) и сори что атачил тебя у ламки :)))))))))))
Это ты был ??? ник плз )))
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Re: Картепни

Post 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
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Картепни

Post by kuviCk »

zarg wrote:
Cooler! wrote:
zarg wrote: спасибо :))) и сори что атачил тебя у ламки :)))))))))))
Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Re: Картепни

Post by zarg »

Cooler! wrote:
zarg wrote:
Cooler! wrote: Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))
хорошо :)
kuviCk
Posts: 127
Joined: 2004-09-08 13:09:13
Contact:

Re: Картепни

Post by kuviCk »

zarg wrote:
Cooler! wrote:
zarg wrote: BornToReign
А ну забей !! ))
хорошо :)
Тока больше не атач )
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Re: Картепни

Post 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 логов после того как сделает каждый стаф :(
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Post by zarg »

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