Page 1 of 1
Напишите скрипт!
Posted: 2007-10-09 01:59:07
by CHemax
скрипт на алхимию(Total mana)
1чтоб брал из сондука кол во регов и банок(указанное в скирипте)
2Как сварил манку сразу положил в сундук(ИД которого тоже указонное в скрипте)
3Становился в хайд при варке
Когда юзал поиск ничего похожего не нашел.
Заранее Спасибо
Posted: 2007-10-09 04:00:08
by Scripts Writer
Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят
2Зачем писать то что уже написано?
Posted: 2007-10-09 13:12:17
by CHemax
Scripts Writer wrote:Ищи, на форуме не один такой и похожие есть. Выкладывай, поправят
2Зачем писать то что уже написано?
Я долго искал !Ничего не нашел.Если вам не трудно даите ссылку или сам скрипт.Буду очень благодарен!
Posted: 2007-10-10 01:14:30
by 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
Posted: 2007-10-10 07:40:12
by Scripts Writer
В след. раз хорошо поищи прежде чем создавать тему
Posted: 2007-10-10 14:22:57
by CHemax
Хорошо.Извените!