Page 1 of 1
Стенки камня со мвитков!
Posted: 2007-09-29 03:48:14
by Ультима:)
sub delta(n1, n2)
var t=0
t=n1-n2
if t < 0 then
return -t
end if
return t
end sub
sub isMax(n1, n2)
if n2 > n1 then
return 1
end if
return 0
end sub
sub krest()
var f=0
f=isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
StoneField()
while f == isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
wait(100)
wend
StoneField()
end sub
Sub StoneField()
if uo.waiting() then
uo.canceltarget()
end if
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.cast('Wall of Stone')
end sub
можете переделать чтоб он со свитков пускал?
заранее спосибо!
Posted: 2007-09-29 09:49:26
by Scripts Writer
Code: Select all
sub delta(n1, n2)
var t=0
t=n1-n2
if t < 0 then
return -t
end if
return t
end sub
sub isMax(n1, n2)
if n2 > n1 then
return 1
end if
return 0
end sub
sub krest()
var f=0
f=isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
StoneField()
while f == isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
wait(100)
wend
StoneField()
end sub
Sub StoneField()
var Scroll='input type of your scroll'
if uo.waiting() then
uo.canceltarget()
end if
uo.FindType(Scroll,'-1','backpack')
if uo.FindCount() then
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.UseObject('finditem')
uo.Print('Scroll!')
else
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.Cast('Wall')
uo.Print('Spell!!!')
end if
end sub
Posted: 2007-09-29 21:10:28
by Ультима:)
Scripts Writer wrote:Code: Select all
sub delta(n1, n2)
var t=0
t=n1-n2
if t < 0 then
return -t
end if
return t
end sub
sub isMax(n1, n2)
if n2 > n1 then
return 1
end if
return 0
end sub
большое спосибо!!
sub krest()
var f=0
f=isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
StoneField()
while f == isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
wait(100)
wend
StoneField()
end sub
Sub StoneField()
var Scroll='input type of your scroll'
if uo.waiting() then
uo.canceltarget()
end if
uo.FindType(Scroll,'-1','backpack')
if uo.FindCount() then
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.UseObject('finditem')
uo.Print('Scroll!')
else
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.Cast('Wall')
uo.Print('Spell!!!')
end if
end sub
Posted: 2007-09-29 21:11:00
by Ультима:)
большое спосибо!!!
Posted: 2007-09-30 22:23:38
by Ультима:)
Scripts Writer wrote:Code: Select all
sub delta(n1, n2)
var t=0
t=n1-n2
if t < 0 then
return -t
end if
return t
end sub
sub isMax(n1, n2)
if n2 > n1 then
return 1
end if
return 0
end sub
чето не пашет твой скрипт не видит скролов ну все равно спосибо
sub krest()
var f=0
f=isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
StoneField()
while f == isMax(delta(uo.GetX(), uo.GetX('laststatus')),delta(uo.GetY(), uo.GetY('laststatus')))
wait(100)
wend
StoneField()
end sub
Sub StoneField()
var Scroll='input type of your scroll'
if uo.waiting() then
uo.canceltarget()
end if
uo.FindType(Scroll,'-1','backpack')
if uo.FindCount() then
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.UseObject('finditem')
uo.Print('Scroll!')
else
uo.waittargettile(0,uo.getX('laststatus'),uo.getY('laststatus'),uo.getZ('laststatus'))
uo.Cast('Wall')
uo.Print('Spell!!!')
end if
end sub