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

Помогите зациклить скрипт!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1058		 Page 1 of 1
Author:  Nick [ 2004-08-02 16:01:57 ]
Post subject:  Помогите зациклить скрипт!
Скрипт не мой вырезал из чьегото непомню из чьего так что автор не оббесуть :)) Помогите зациклить скрипт чето у меня не получается:(

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

И если можно поподробнее хочу вникнуть ! или хотяб поправте что тут не так !
Author:  Edred [ 2004-08-03 14:56:53 ]
Post subject:  Re: Помогите зациклить скрипт!
Nick wrote:
Скрипт не мой вырезал из чьегото непомню из чьего так что автор не оббесуть :)) Помогите зациклить скрипт чето у меня не получается:(


Code:
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. Не думаю, что нужны какие-то подробные комментарии. И так должно быть все ясно.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/