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

Tinkering on DRW
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7272		 Page 1 of 1
Author:  Desktop [ 2006-04-04 18:16:36 ]
Post subject:  Tinkering on DRW
Please give me tinkering script on DRW with necklace (it's little amulet) !
Author:  Scripts Writer [ 2006-04-04 19:36:57 ]
Post subject: 
Code:
VAR sunduk='0x4029541D'; Where are ingots, bag 
VAR sundukk='0x40295369'; where necklace will go 
VAR meshok='0x0E76';type of bag 
VAR iron='0x1BEF' 
VAR smeshok 
VAR Exit=0, LastTimer 
VAR a=0 

sub main() 

repeat 
while not UO.Hidden() 
   UO.UseSkill("Hiding") 
   wait(3000) 
wend 
UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )  ; если будет айро в конце падать в мешок, увеличить цифру 
wait(3000) 
   UO.SetCatchBag(sundukk) 
   UO.FindType( meshok, -1, sunduk ) 
   UO.Grab( Str( 1 ), 'finditem' ) 
wait(2000) 
   smeshok=UO.GetSerial('finditem') 
a=0 
   UO.SetCatchBag(smeshok) 
wait(1000) 
BS() 
end sub 

sub BS() 
repeat 
wait(250) 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
uo.findtype('0x1EBC')
      UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace') 
     UO.UseType('0x1EBC') 
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed") 
wait(250) 
wend 

wait (250) 

if UO.InJournal('You put') then 
   a = a + 1 
   wait(200) 
endif 
If a==1 then             ;when get iron
   Dobor() 
EndIf 
UO.DeleteJournal() 
until a==255               ;how much necklaces will be in 1 bag
moveIM() 
end sub 

sub moveIM() 
UO.Unsetcatchbag() 

   UO.FindType( iron, -1, -1 ) 
   UO.MoveItem( 'finditem', 0, sunduk ) 
wait(3000) 
   until FALSE 
end sub 

sub Dobor() 


wait(500) 

   UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )    
wait(3000) 
   UO.SetCatchBag(smeshok) 
wait(1000) 
end sub 

sub CheckLag() 
  UO.DeleteJournal() 
  UO.Click('backpack') 
  repeat 
     wait(100) 
  until UO.InJournal('Backpack') 
end sub
Author:  Kynep [ 2006-04-04 19:47:08 ]
Post subject: 
Маст ты в Асе??? Чет я не могу войти (((
Author:  Scripts Writer [ 2006-04-04 21:13:48 ]
Post subject: 
угу, камон
Author:  Desktop [ 2006-04-09 22:23:05 ]
Post subject: 
тут нету защиты от недостатка ингов изза физлов... он неберёт инги из сундука до тogo момента пoка меshок полний! как сделатй так 6тобе он брал 1 инг с сундука кагда 1 инг в backpacki прападаэт?
Author:  Scripts Writer [ 2006-04-10 05:57:18 ]
Post subject: 
Code:
если кол-во ингов == 0 тогда
найди
добери
Author:  Destruction [ 2006-04-10 10:18:17 ]
Post subject: 
Quote:
если кол-во ингов == 0 тогда
найди


Жгёшь 8)

Я бы сделал так:
Code:
Если нету ингов, тогда
найди


Или в коде:
Code:
if not uo.getQuantity( ... ) then
uo.find ...
Author:  Desktop [ 2006-04-12 19:41:56 ]
Post subject: 
еммм... серавно какта маленка нетак как нада работает! Хателасбе напремер 6тобе нано4 паставить тинкер, а сейчас мацрос как все инги каторайи в сумки използует мацрос канчаэтса и не4ево болши неделаэт + эслйи адин мешо4ик в каторий он кедаэт изделиэ полний то он непрадалжаэт кидать в другой мешок а проста делаэт с бацкпацк!

Немаглибе ви полний палу46и сцрипт написатй пазалуста!
Author:  Kynep [ 2006-04-12 20:09:19 ]
Post subject: 
Desktop wrote:
еммм... серавно какта маленка нетак как нада работает! Хателасбе напремер 6тобе нано4 паставить тинкер, а сейчас мацрос как все инги каторайи в сумки използует мацрос канчаэтса и не4ево болши неделаэт + эслйи адин мешо4ик в каторий он кедаэт изделиэ полний то он непрадалжаэт кидать в другой мешок а проста делаэт с бацкпацк!

Немаглибе ви полний палу46и сцрипт написатй пазалуста!


А если по русски?
Author:  BoBBaH [ 2006-04-12 22:20:01 ]
Post subject: 
тут все понятно читай лучше или пообщайся с людьми которые токо на транслите пишут!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/