Hmmmm... Учусь однако, но не прально, непойму где :\
Posted: 2005-08-19 00:57:10
Хммм вот накарябал скрипт на одевание перса на пвп альфе, но часто бывает что одну из менюшек он пропускает, вот написал ответный скрипт на проверку чего нету. Скрипт должен проверять:
Regs=1
potion=3
restor=3
binti=100 штук(1 пачка Ж))
Но когда я запускаю скрипт, то он сразу выключается, не пойму где тут ошибка...
Regs=1
potion=3
restor=3
binti=100 штук(1 пачка Ж))
Но когда я запускаю скрипт, то он сразу выключается, не пойму где тут ошибка...
Code: Select all
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
