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

ошибка в скрипте
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7993
Page 1 of 1

Author:  Blutsauger [ 2006-06-17 13:04:51 ]
Post subject:  ошибка в скрипте

при использование этого скрипта пишется ошибка "Label Defined outside proc-NA"
Code:
sub st() 
####################
#автор:CONDOMchick #
####################

uo.deletejournal()
VAR x1,x2,y1,y2,sx,sy,limit

x1=0
x2=0
y1=0
y2=0

uo.Set('finddistance','8')
na:
uo.findtype('0x0080',-1,'ground')
if uo.findcount()>0 then
sx=str(uo.getx('finditem'))
sy=str(uo.gety('finditem'))
if x1==1 and x2==1 or y1==1 and y2==1 then
GOTO pox
endif
if sx==str(uo.getx('laststatus')+1) and sy==str(uo.gety('laststatus')) then
x1=1
endif

if sx==str(uo.getx('laststatus')-1) and sy==str(uo.gety('laststatus')) then
x2=1
endif

if sx==str(uo.getx('laststatus')) and sy==str(uo.gety('laststatus')+1) then
y1=1
endif

if sx==str(uo.getx('laststatus')) and sy==str(uo.gety('laststatus')-1) then
y2=1
endif

uo.ignore('finditem')
GoTo na
endif

pox:
uo.ignorereset()

uo.print(str(x1)+str(x2)+str(y1) + str(y2))
if x1==0 and x2==0 and y1==0 and y2==0 then

 uo.waittargettile("400",str(uo.getx('laststatus')),str(uo.gety('laststatus')),str(uo.getz('laststatus')))
uo.cast("Wall of Stone")
endif
if y1==1 and y2==1 then

   if str(uo.getx())>str(uo.getx('laststatus')) then
       uo.waittargettile("400",str(uo.getx('laststatus')+1),str(uo.gety('laststatus')),str(uo.getz('laststatus')))
uo.cast("Wall of Stone")
else
 uo.waittargettile("400",str(uo.getx('laststatus')-1),str(uo.gety('laststatus')),str(uo.getz('laststatus')))
uo.cast("Wall of Stone")
   endif
endif

if x1==1 and x2==1 then

  if str(uo.gety())>str(uo.gety('laststatus')) then
       uo.waittargettile("400",str(uo.getx('laststatus')),str(uo.gety('laststatus')+1),str(uo.getz('laststatus')))
uo.cast("Wall of Stone")
else
 uo.waittargettile("400",str(uo.getx('laststatus')),str(uo.gety('laststatus')-1),str(uo.getz('laststatus')))
uo.cast("Wall of Stone")
   endif
endif
limit=0
#or not uo.injournal('Target is not') or not uo.injournal('sufficient mana')
while not uo.injournal('In Sanct Ylem')
wait(100)
limit=limit+1
if limit==100 then
goto end
endif
wend
uo.msg('       ')
wait(50)
uo.msg('        ')
wait(50)
uo.msg('       ')
end:
end sub

Author:  ДРВ [ 2006-06-17 13:05:39 ]
Post subject:  Re: ошибка в скрипте

[quote="Blutsauger"][/quote]в какой строчке?

Author:  Blutsauger [ 2006-06-17 13:52:43 ]
Post subject:  Re: ошибка в скрипте

все я нашел ошибку

Author:  Edred [ 2006-06-17 20:58:17 ]
Post subject: 

А тут ее искать бесполезно, нужен был весь файл, так как текст ошибки переводится как "метка за пределами процедуры".

Author:  CONDOMchick [ 2006-06-17 21:49:32 ]
Post subject: 

ппц ну и автор(скрипта)...странно! :roll:

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/