Yoko

Posted: **2005-03-12 08:30:04**

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

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

Posted: **2005-03-12 08:40:18**

Используй

Code: Select all

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

или

Code: Select all

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

Posted: **2005-03-12 08:44:09**

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

Posted: **2005-03-12 11:58:07**

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? :shock:

Yoko

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

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

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