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

Напишите скрипт!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12591		 Page 1 of 1
Author:  CHemax [ 2007-10-09 01:59:07 ]
Post subject:  Напишите скрипт!
скрипт на алхимию(Total mana)
1чтоб брал из сондука кол во регов и банок(указанное в скирипте)
2Как сварил манку сразу положил в сундук(ИД которого тоже указонное в скрипте)
3Становился в хайд при варке
Когда юзал поиск ничего похожего не нашел.
Заранее Спасибо
Author:  Scripts Writer [ 2007-10-09 04:00:08 ]
Post subject: 
Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят

2Зачем писать то что уже написано?
Author:  CHemax [ 2007-10-09 13:12:17 ]
Post subject: 
Scripts Writer wrote:
Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят

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

Я долго искал !Ничего не нашел.Если вам не трудно даите ссылку или сам скрипт.Буду очень благодарен!
Author:  CHemax [ 2007-10-10 01:14:30 ]
Post subject: 
Все нашел вот мои скрипт
Code:
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
Author:  Scripts Writer [ 2007-10-10 07:40:12 ]
Post subject: 
В след. раз хорошо поищи прежде чем создавать тему :!:
Author:  CHemax [ 2007-10-10 14:22:57 ]
Post subject: 
Хорошо.Извените!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/