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

Нужен .sc на Отравление
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3734
Page 1 of 1

Author:  Dominator [ 2005-04-20 01:15:33 ]
Post subject:  Нужен .sc на Отравление

Опять извеняюсь если тема повторялась , нужен скрипт на отравление оружия + чтоб чар юзал скилл Спирит спик

Author:  Wahoocka [ 2005-04-20 10:28:34 ]
Post subject: 

sub Poison()
VAR Exit=0, LastTimer, TryToPoison
while Exit<>1
UO.DeleteJournal()

UO.FindType('0x0F0E',0x0000,'backpack') ; bottle
If UO.GetQuantity('finditem')<5 then
UO.FindType('0x0F0E','0x0000','0x4019F1B8') ; bottle, container
wait(1000)
UO.Grab('500','finditem')
wait(100)
Endif
UO.FindType('0x0F88','0x0000','backpack') ; NS
If UO.GetQuantity('finditem')<5 then
UO.FindType('0x0F88','0x0000','0x4019F1B8'); NS, container
wait(1000)
UO.Grab('500','finditem')
wait(500)
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(1)') ; menu
UO.UseType(0x0F88) ; NightShade

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 ;time to make a dagger
Else
TryToPoison=1
repeat
UO.FindType('0x0F0E','0x0998','my')
If UO.GetQuantity('finditem')>0 then
UO.UseSkill('Poisoning')
UO.WaitTargetObject('0x4025E852','finditem') ; dagger
wait(4000)
UO.UseSkill('Spirit Speak')
wait(5000)
Else
TryToPoison=0
Endif
EndIf
wend
end sub

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/