Вот скачал тут скрипт на алхимию, короче мне нада что бы он делал обычные пойзоны, а он в зависимости от скила лепит поушены.
Я вроде вместо Last вставлял Poison, а он вместо этого лессеры делал, короче помогите люди
;Скрипт на Alchemy/Poison --> Dagger//SpiritSpeak
sub AlchemyPoison()
VAR Exit=0, LastTimer, TryToPoison
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E',-1,'backpack') ; Бутылки
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x0F0E','0x0000','0x401AA1B6') ; Контейнер с бутылками (bottle, container)
wait(1000)
UO.Grab('500','finditem')
wait(100)
Endif
UO.FindType('0x0F88','0x0000','backpack') ; Найт шейд
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','0x401AA1B6') ; Найт шейд , Контейнер
wait(1000)
UO.Grab('1000','finditem')
wait(500)
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(last)') ; Меню
UO.UseType(0x0F88) ; Найт Шейд
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend
If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ; Время создания даггера
Else
TryToPoison=1
repeat
UO.FindType('0x0F0E','0x0998','my')
If UO.GetQuantity('finditem')>0 then
UO.UseSkill('Poisoning')
UO.WaitTargetObject('0x400A31F7','finditem') ; Даггер
; UO.UseSkill('Poisoning')
wait(4000)
Else
TryToPoison=0
Endif
EndIf
UO.UseSkill('Spirit Speak')
wait(3000)
wend
end sub
Алхимия
Moderators: Murderator+, Murderator