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

[Nick]

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

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

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

[Edred]

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

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. Не думаю, что нужны какие-то подробные комментарии. И так должно быть все ясно.