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

Стенки камня со мвитков!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12540		 Page 1 of 1
Author:  Ультима:) [ 2007-09-29 03:48:14 ]
Post subject:  Стенки камня со мвитков!
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



можете переделать чтоб он со свитков пускал?
заранее спосибо!
Author:  Scripts Writer [ 2007-09-29 09:49:26 ]
Post subject: 
Code:
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
Author:  Ультима:) [ 2007-09-29 21:10:28 ]
Post subject: 
Scripts Writer wrote:
Code:
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
Author:  Ультима:) [ 2007-09-29 21:11:00 ]
Post subject: 
большое спосибо!!!
Author:  Ультима:) [ 2007-09-30 22:23:38 ]
Post subject: 
Scripts Writer wrote:
Code:
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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/