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

Готовка тотлов
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2215		 Page 1 of 1
Author:  zarg [ 2004-12-11 09:42:30 ]
Post subject:  Готовка тотлов
У кого нить есть скрит на изготвление тотлов чар берет глаза и пустые бутылки делат тотлы и кладет тотлы обратно в сундук...
Author:  zarg [ 2004-12-14 13:47:55 ]
Post subject: 
Че нету ни у кого?
Author:  Bloodmoon [ 2004-12-14 13:55:25 ]
Post subject: 
Возьми из другого раздела "скриптов".и поменяй строчки.По-моему это может каждый :).
Author:  maximka4 [ 2004-12-15 21:36:12 ]
Post subject:  Re: Готовка тотлов
zarg wrote:
У кого нить есть скрит на изготвление тотлов чар берет глаза и пустые бутылки делат тотлы и кладет тотлы обратно в сундук...


поменяй type и id

Code:
sub main()
sub Stoneskin() 
var LastTimer=0 
var Exit=0 
var TryToPoison 
while Exit<>1 
UO.DeleteJournal() 
UO.usetype(0x09F2) 
UO.unsetreceivingcontainer() 
UO.FindType('0x0F0E',-1,'backpack') ; empty bottles 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','0x4023BAF4') ; empty bottles container 
wait(1000) 
UO.Grab('300','finditem') 
wait(100) 
Endif 

#garlic 
UO.FindType('0x0F88','0x0000','backpack') ; reg 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','0x4023BAF4'); reg's container 
wait(1000) 
UO.Grab('900','finditem') 
wait(500) 
Endif 
#mandrake roots 
UO.FindType('0x0F88','0x0000','backpack') ; reg 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','0x4023BAF4'); reg's container 
wait(1000) 
UO.Grab('900','finditem') 
wait(500) 
Endif 
#ginseng 
UO.FindType('0x0F88','0x0000','backpack') ; reg 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','0x4023BAF4'); reg's container 
wait(1000) 
UO.Grab('900','finditem') 
wait(500) 
Endif 

if UO.count('0x0F0E','0x0998')>110 then 
UO.FindType('0x0F0E','0x0998','backpack') 
UO.setreceivingcontainer('0x4023BAF4') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif 


LastTimer=UO.Timer() 
UO.WaitMenu('What','(last)') ; menu 
UO.UseType(0x0F88) ; reg 

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(500) 
wend 

UO.UseSkill('Spirit Speak') 
wait(3000) 
endif
wend
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/