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

Плиз дайте на алхимию скрипт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2491		 Page 1 of 1
Author:  Jocker13 [ 2005-01-06 14:03:16 ]
Post subject:  Плиз дайте на алхимию скрипт
Тока что после варения пойзона пойзонил даггер есть у кого такое чудо :)
Author:  $oK0JI [ 2005-01-06 23:26:36 ]
Post subject: 
есть,вот делает пойзон(грейт в зависимости от скила)отравляет даггер в бекпаке и юзает спирит
sub AlchemyPoison()
var Exit=0, LastTimer, TryToPoison

while Exit<>1
uo.DeleteJournal()

uo.FindType('0x0F0E',-1,'backpack') ;Butilki
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x0F0E','0x0000','0x4007D794') ; sunduk s butilkami (bottle, container)
wait(1000)
uo.Grab('500','finditem')
wait(100)
end if
uo.FindType('0x0F88','0x0000','backpack') ; ns
if uo.GetQuantity('finditem')<20 then
uo.FindType('0x0F88','0x0000','0x4007D794') ;sunduk s ns-om
wait(1000)
uo.Grab('1000','finditem')
wait(500)
end if
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('0x4026E7E4','finditem') ; dagger
wait(4000)
else
TryToPoison=0
end if
end if
uo.UseSkill('Spirit Speak')
wait(3000)
wend
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/