Tinkering on DRW

Desktop · Post by **Desktop** » 2006-04-04 18:16:36

Please give me tinkering script on DRW with necklace (it's little amulet) !

Scripts Writer · Post by **Scripts Writer** » 2006-04-04 19:36:57

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

Kynep · Post by **Kynep** » 2006-04-04 19:47:08

Маст ты в Асе??? Чет я не могу войти (((

Scripts Writer · Post by **Scripts Writer** » 2006-04-04 21:13:48

угу, камон

Desktop · Post by **Desktop** » 2006-04-09 22:23:05

тут нету защиты от недостатка ингов изза физлов... он неберёт инги из сундука до тogo момента пoка меshок полний! как сделатй так 6тобе он брал 1 инг с сундука кагда 1 инг в backpacki прападаэт?

Scripts Writer · Post by **Scripts Writer** » 2006-04-10 05:57:18

Code: Select all

если кол-во ингов == 0 тогда
найди
добери

Destruction · Post by **Destruction** » 2006-04-10 10:18:17

если кол-во ингов == 0 тогда
найди

Жгёшь

Я бы сделал так:

Code: Select all

Если нету ингов, тогда
найди

Или в коде:

Code: Select all

if not uo.getQuantity( ... ) then
uo.find ...

Desktop · Post by **Desktop** » 2006-04-12 19:41:56

еммм... серавно какта маленка нетак как нада работает! Хателасбе напремер 6тобе нано4 паставить тинкер, а сейчас мацрос как все инги каторайи в сумки използует мацрос канчаэтса и не4ево болши неделаэт + эслйи адин мешо4ик в каторий он кедаэт изделиэ полний то он непрадалжаэт кидать в другой мешок а проста делаэт с бацкпацк!

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

Kynep · Post by **Kynep** » 2006-04-12 20:09:19

Desktop wrote:еммм... серавно какта маленка нетак как нада работает! Хателасбе напремер 6тобе нано4 паставить тинкер, а сейчас мацрос как все инги каторайи в сумки използует мацрос канчаэтса и не4ево болши неделаэт + эслйи адин мешо4ик в каторий он кедаэт изделиэ полний то он непрадалжаэт кидать в другой мешок а проста делаэт с бацкпацк!

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

А если по русски?

BoBBaH · Post by **BoBBaH** » 2006-04-12 22:20:01

тут все понятно читай лучше или пообщайся с людьми которые токо на транслите пишут!