Картепни

zarg · Post by **zarg** » 2004-10-02 09:18:48

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

kuviCk · Post by **kuviCk** » 2004-10-02 09:24:15

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 · Post by **zarg** » 2004-10-02 09:26:28

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 · Post by **kuviCk** » 2004-10-02 09:28:48

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 · Post by **zarg** » 2004-10-02 09:31:48

Cooler! wrote:
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 
спасибо )) и сори что атачил тебя у ламки ))))))))))
Это ты был ??? ник плз )))

BornToReign

kuviCk · Post by **kuviCk** » 2004-10-02 09:33:50

zarg wrote:
Cooler! wrote:
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 
спасибо )) и сори что атачил тебя у ламки ))))))))))
Это ты был ??? ник плз )))
BornToReign

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

zarg · Post by **zarg** » 2004-10-02 09:35:48

Cooler! wrote:
zarg wrote:
Cooler! wrote:
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 
спасибо )) и сори что атачил тебя у ламки ))))))))))
Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))

хорошо

kuviCk · Post by **kuviCk** » 2004-10-02 09:36:17

zarg wrote:
Cooler! wrote:
zarg wrote:
Cooler! wrote:
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 
спасибо )) и сори что атачил тебя у ламки ))))))))))
Это ты был ??? ник плз )))
BornToReign
А ну забей !! ))
хорошо

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

zarg · Post by **zarg** » 2004-10-05 16:34:48

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 · Post by **zarg** » 2004-10-10 07:19:43

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

Yoko

Картепни

Картепни

Re: Картепни

Re: Картепни

Re: Картепни

Re: Картепни

Re: Картепни

Re: Картепни

Re: Картепни

Re: Картепни