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

[Balu]

Скрипт проходит один круг и останавливается! помогите сделать, что бы он не прекращался пока бутылки с пойзоном не закончатся!!!

Code: Select all

sub Poisoning()
UO.FindType('0x0F0A','0x0000','backpack') 
      While UO.GetQuantity('finditem') > 0 
         UO.DeleteJournal()
         repeat
         UO.UseSkill("Poisoning") 
         UO.WaitTargetObject(dagger,'finditem') 
         while  NOT UO.InJournal("You apply") 
         if UO.InJournal("You fail to apply")then
         Healing()
         end if
            wait(300)            
      wend 
end sub

[666Man666]

Используй

Code: Select all

REPEAT
.....
Until (Условие)

или

Code: Select all

While (Условие)
.....
Wend

[Balu]

а по подробней нельзя?

[I'm]

Code: Select all

sub Poisoning()
UO.FindType('0x0F0A','0x0000','backpack') 
      While UO.GetQuantity('finditem') > 0 
         UO.DeleteJournal()
         repeat
         UO.UseSkill("Poisoning") 
         UO.WaitTargetObject(dagger,'finditem') 
         while  NOT UO.InJournal("You apply") 
         if UO.InJournal("You fail to apply")then
         Healing()
         end if
            wait(300)            
      wend 
end sub

А гдеже Until?