Yoko

All sides of Injection
It is currently 2025-11-23 09:25:41

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 10 posts ] 
  Print view Previous topic | Next topic 
Author Message
zarg
 Post subject: Картепни
PostPosted: 2004-10-02 09:18:48 
Offline

Joined: 2004-08-29 08:33:44
Posts: 116
У кого нсть есть скрипт чтобы чар брал из сундука логи делал стафы(quarter staff) и потом скидывал все нафиг в траш???
Top
   
Reply with quote  
kuviCk
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:24:15 
Offline

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


Top
   
Reply with quote  
zarg
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:26:28 
Offline

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

спасибо :))) и сори что атачил тебя у ламки :)))))))))))
Top
   
Reply with quote  
kuviCk
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:28:48 
Offline

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

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


Это ты был ??? ник плз )))
Top
   
Reply with quote  
zarg
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:31:48 
Offline

Joined: 2004-08-29 08:33:44
Posts: 116
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
Top
   
Reply with quote  
kuviCk
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:33:50 
Offline

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

А ну забей !! ))
Top
   
Reply with quote  
zarg
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:35:48 
Offline

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

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

хорошо :)
Top
   
Reply with quote  
kuviCk
 Post subject: Re: Картепни
PostPosted: 2004-10-02 09:36:17 
Offline

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

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

хорошо :)

Тока больше не атач )
Top
   
Reply with quote  
zarg
 Post subject: Re: Картепни
PostPosted: 2004-10-05 16:34:48 
Offline

Joined: 2004-08-29 08:33:44
Posts: 116
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 логов после того как сделает каждый стаф :(
Top
   
Reply with quote  
zarg
 Post subject:
PostPosted: 2004-10-10 07:19:43 
Offline

Joined: 2004-08-29 08:33:44
Posts: 116
Ну так че знает кто нить в чем дело?
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 10 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited