Yoko

Posted: **2004-08-02 16:01:57**

Скрипт не мой вырезал из чьегото непомню из чьего так что автор не оббесуть

) Помогите зациклить скрипт чето у меня не получается:(

sub Poison()
UO.FindType('0x0F0E','0x0998','my')
If UO.GetQuantity('finditem')>0 then
UO.UseSkill('Poisoning')
UO.WaitTargetObject('0x4019A500','finditem') ; dagger
; UO.UseSkill('Poisoning')
wait(4000)
Else
TryToPoison=0
Endif
EndIf
UO.UseSkill('Spirit Speak')
wait(3000)
end sub

И если можно поподробнее хочу вникнуть ! или хотяб поправте что тут не так !

Posted: **2004-08-03 14:56:53**

Nick wrote:Скрипт не мой вырезал из чьегото непомню из чьего так что автор не оббесуть ) Помогите зациклить скрипт чето у меня не получается:(

Code: Select all

sub Poison()
VAR TryToPoison = 1
repeat
UO.FindType('0x0F0E','0x0998','my') 
If UO.GetQuantity('finditem')>0 then 
UO.UseSkill('Poisoning') 
UO.WaitTargetObject('0x4019A500','finditem') ; dagger 
; UO.UseSkill('Poisoning') 
wait(4000) 
Else 
TryToPoison=0 
Endif 
UO.UseSkill('Spirit Speak') 
wait(3000) 
until TryToPoison == 0
end sub

Добавил ровно три строки и удалил лишний Endif. Не думаю, что нужны какие-то подробные комментарии. И так должно быть все ясно.

Yoko

Помогите зациклить скрипт!

Помогите зациклить скрипт!

Re: Помогите зациклить скрипт!