Напишите скрипт!

[CHemax]

скрипт на алхимию(Total mana)
1чтоб брал из сондука кол во регов и банок(указанное в скирипте)
2Как сварил манку сразу положил в сундук(ИД которого тоже указонное в скрипте)
3Становился в хайд при варке
Когда юзал поиск ничего похожего не нашел.
Заранее Спасибо

[Scripts Writer]

Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят

2Зачем писать то что уже написано?

[CHemax]

Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят

2Зачем писать то что уже написано?

Я долго искал !Ничего не нашел.Если вам не трудно даите ссылку или сам скрипт.Буду очень благодарен!

[CHemax]

Все нашел вот мои скрипт

Code: Select all

sub alchemy() 
# BETEP™ # 
VAR Exit=0, LastTimer 
uo.print('Сундук С бутылками и регами') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда кидать манки') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 

repeat 

UO.DeleteJournal() 

UO.FindType('0x0F0E','0x09BB','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(200) 
UO.Grab('all','finditem') 
wait(200) 
UO.UnSetReceivingContainer() 
else
Endif 

UO.FindType('0x0F0E','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag')
If UO.GetQuantity('finditem')>0 then 
wait(500) 
UO.Grab('100','finditem') 
wait(500)
else
uo.exec('exec exit')
end if
else
Endif 

UO.FindType('0x0F85','0x0000','backpack') 
If UO.GetQuantity('finditem')<7 then 
UO.FindType('0x0F85','0x0000','Bag')
If UO.GetQuantity('finditem')<7 then
uo.exec('exec perehod')
else
wait(500) 
UO.Grab('400','finditem') 
wait(500)
end if
else
Endif 

            UO.DeleteJournal()
      UO.WaitMenu('What','(3)')
      UO.Usetype("0x0F85")
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
      wait(500) 
      wend
   until 1==0
end sub


sub alchemy2() 
wait(1000)
repeat 

UO.DeleteJournal() 

UO.FindType('0x0F0E','0x09DF','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(200) 
UO.Grab('all','finditem') 
wait(200) 
UO.UnSetReceivingContainer() 
else
Endif 

UO.FindType('0x0F0E','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag')
If UO.GetQuantity('finditem')>0 then 
wait(500) 
UO.Grab('100','finditem') 
wait(500)
else
uo.exec('exec exit')
end if
else
Endif 

UO.FindType('0x0F87','0x0000','backpack') 
If UO.GetQuantity('finditem')<3 then 
UO.FindType('0x0F87','0x0000','Bag')
If UO.GetQuantity('finditem')<3 then
uo.exec('exec exit')
else
wait(500) 
UO.Grab('400','finditem') 
wait(500)
end if
else
Endif 

            UO.DeleteJournal()
      UO.WaitMenu('What','(last)')
      UO.Usetype("0x0F87")
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
      wait(500) 
      wend
   until 1==0
end sub

sub exit()
uo.exec('terminate alchemy')
wait(1000)
uo.exec('terminate alchemy2')
end sub

sub perehod()
uo.exec('terminate alchemy')
wait(5000)
uo.exec('exec alchemy2')
end sub

[Scripts Writer]

В след. раз хорошо поищи прежде чем создавать тему

[CHemax]

Хорошо.Извените!