Page 1 of 1
Проблема со вставкой...
Posted: 2006-05-26 18:38:54
by ДРВ
Code: Select all
sub VasAnOrt()
VAR ManaNeed=40
VAR ManaNeedScroll=20
UO.FindType('0x1f62',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Scroll!!!")
Else
UO.Print("Low mana scroll!!!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Mass Dispel','self')
UO.Print("Spell!!!")
Else
UO.Print("Low mana spell!!!")
Endif
Endif
condomnick()
end sub
Code: Select all
Sub condomnick()
var z
var item='0x0FA7'
uo.UseType(item)
for z = 0 to 4
uo.UseType(item)
wait(10)
next
end sub
Posted: 2006-05-26 18:39:29
by ДРВ
он юзает итем 5 раз,но не кастует!ХЭЛП!
Re: Проблема со вставкой...
Posted: 2006-05-26 23:01:07
by Edred
ДРВ wrote:он юзает итем 5 раз,но не кастует!ХЭЛП!
Code: Select all
Sub condomnick()
var z
var item='0x0FA7'
uo.UseType(item)
for z = 0 to 4
uo.UseType(item)
wait(10)
next
end sub
Не пять раз, а шесть. Именно как написано в скрипте. А никаких кастов здесь нет. О чем ты говоришь?
Re: Проблема со вставкой...
Posted: 2006-05-27 05:31:47
by ДРВ
Edred wrote:ДРВ wrote:он юзает итем 5 раз,но не кастует!ХЭЛП!
Code: Select all
Sub condomnick()
var z
var item='0x0FA7'
uo.UseType(item)
for z = 0 to 4
uo.UseType(item)
wait(10)
next
end sub
Не пять раз, а шесть. Именно как написано в скрипте. А никаких кастов здесь нет. О чем ты говоришь?
последний скрипт нужно воткнуть в первый!
Posted: 2006-05-27 07:36:26
by No More Lies
Code: Select all
sub VasAnOrt()
VAR ManaNeed=40
VAR ManaNeedScroll=20
var z
var item='0x0FA7'
UO.FindType('0x1f62',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Scroll!!!")
Else
UO.Print("Low mana scroll!!!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Mass Dispel','self')
UO.Print("Spell!!!")
Else
UO.Print("Low mana spell!!!")
Endif
Endif
uo.UseType(item)
for z = 0 to 4
uo.UseType(item)
wait(10)
next
end sub