Стенки камня со мвитков!

[Ультима:)]

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



можете переделать чтоб он со свитков пускал?
заранее спосибо!

[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

[Ультима:)]

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

[Ультима:)]

большое спосибо!!!

[Ультима:)]

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