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

Hmmmm... Учусь однако, но не прально, непойму где :\
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4866		 Page 1 of 1
Author:  Dron D. [ 2005-08-19 00:57:10 ]
Post subject:  Hmmmm... Учусь однако, но не прально, непойму где :\
Хммм вот накарябал скрипт на одевание перса на пвп альфе, но часто бывает что одну из менюшек он пропускает, вот написал ответный скрипт на проверку чего нету. Скрипт должен проверять:
Regs=1
potion=3
restor=3
binti=100 штук(1 пачка Ж))

Но когда я запускаю скрипт, то он сразу выключается, не пойму где тут ошибка...

Code:
sub chek()
Var Regs='0x0E76' #мешок с регами
Var potion='0x09B0' #мешок с поушнами
Var restor='0x0F09' #ресторы
Var binti='0x0E21' #бинты

If Uo.Count(Regs) < 0 Then
   uo.exec ("useobject 0x40013766")
   wait (200)
   uo.Lclick (212,226);regs 1х
End If

If Uo.Count(potion) < 0 Then
   uo.exec ("useobject 0x40013766") #остальное
   wait (200)
   uo.Lclick (254,206);potion 3х
end if

If Uo.Count(restor) < 0 Then
   uo.exec ("useobject 0x40013766")
   wait (200)
   uo.Lclick (256,284);choise restors 3x
End If

If Uo.Count(binti) < 0 Then
   uo.exec ("useobject 0x40013766")
   wait (200)
   uo.Lclick (207,187) #бинты 100
End If
End sub
Author:  flake [ 2005-08-19 01:20:34 ]
Post subject: 
Вопрос: может ли у тебя быть сумок меньше ноля?
Думаю ответ знаешь сам.
Исправь везде
If Uo.Count(Regs) < 0 Then
на
If Uo.Count(Regs) == 0 Then
Author:  Don SpiL [ 2005-08-19 05:29:34 ]
Post subject: 
Или так...
If Uo.Count(Regs) < 0 Then
на
If Uo.Count(Regs) < 1 Then :lol:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/