Page 1 of 1
глючит в 60 строке, которой нет
Posted: 2004-10-03 00:21:35
by Ex-Brodyaga
Code: Select all
sub WETERINARY()
var bandage='0x0E21'
var bloodb='0x0E20'
var wb='0x1008'
var eda='0x097B'
while not UO.Dead()
int=UO.Str
UO.arm("10")
repeat
wait(200)
until UO.Hits<int
uo.disarm()
UO.DeleteJournal()
healing()
if UO.Count(bandage)==0 then
uo.waittargettype(wb)
uo.usetype(bloodb)
wait(500)
UO.DeleteJournal()
endif
if UO.STR < 300 then
caster()
endif
wend
end sub
sub caster()
castq:
UO.cast("Polymorph")
UO.waitmenu("What","Daemon")
wait(6000)
if UO.STR < 320 then
if UO.Mana < 50 then
medit()
endif
goto castq
endif
end sub
sub medit()
while UO.Mana < 50
while not UO.InJournal("You attempt")
UO.UseSkill("Meditation")
wait(2000)
wend
wait(500)
wend
end sub
sub healing()
while not UO.Life==uo.str
UO.exec("bandageself")
UO.Deletejournal()
repeat
wait(200)
until UO.InJournal("apply") or UO.InJournal("bloody")
wend
end sub
Posted: 2004-10-03 01:18:57
by Yoko
когда говорится что ошибка в последней строке скрипта это означает что для какой то операторной скобки (for, while, repeat, if, sub,...( недостаёт или не в правильном порядке вторая часть (next, wend, until, end sub,...)
Posted: 2004-10-03 15:46:16
by Ex-Brodyaga
ну так у меня же всё вроде закрыто. Найди плз место ошибки
Posted: 2004-10-03 20:04:18
by Yoko
int=UO.Str
Posted: 2004-10-03 23:07:38
by Ex-Brodyaga
нет, не то
Posted: 2004-10-04 21:31:11
by AGRS
Ex-Brodyaga wrote:ну так у меня же всё вроде закрыто.
Ты думаешь интерпритатор ищет где у тебя wend'а не хватает? Нет. Он анализирует строку за строкой. Делай также.
PS И придержи ругательства когда дойдешь до пятой строки.
Posted: 2004-10-06 18:23:03
by 333333
та же фигня была. по мойму там левые символы. лучше скопировать все до и после строки, а саму ее переписать
Posted: 2004-10-06 19:12:07
by AGRS
333333 wrote:та же фигня была. по мойму там левые символы. лучше скопировать все до и после строки, а саму ее переписать
А по моему там просто кавычек маловато.
Posted: 2004-10-08 17:36:48
by GrayLord
"...а по моему, а по моему..."....
чтобы не путаться надо выделять операторные скобки хотя бы одним пробелом или tab, чтобы можно было проследить структуру кода:
Code: Select all
sub abc()
if ... then
for ... to ...
...
next
.....
else
.....
endif
end sub
ЗЫЖ а насчет кавычек - верно. там в самом начале где-то не закрыты. =)
Posted: 2004-10-08 23:56:43
by Ex-Brodyaga
я и вообщето выделяю, просто при копировании и вставке, они пропадают
Posted: 2004-10-09 03:26:51
by GrayLord
Ex-Brodyaga wrote:я и вообщето выделяю, просто при копировании и вставке, они пропадают
а кавычку вот тут
закрыл?
Posted: 2004-10-09 17:10:58
by AGRS
GrayLord wrote:ЗЫЖ а насчет кавычек - верно. там в самом начале где-то не закрыты. =)
А ты думал я просто пошутил? )))
Posted: 2004-10-09 17:11:51
by AGRS
Ex-Brodyaga wrote:я и вообщето выделяю, просто при копировании и вставке, они пропадают
В тэге CODE табуляция сохраняется.
Posted: 2004-10-09 22:27:48
by GrayLord
AGRS wrote:GrayLord wrote:ЗЫЖ а насчет кавычек - верно. там в самом начале где-то не закрыты. =)
А ты думал я просто пошутил? )))
это еще в светлые времена увлечения программированием в школьные годы у нас с друзьями такая шутка была. =)
Posted: 2004-10-10 09:12:26
by AGRS
GrayLord wrote:AGRS wrote:GrayLord wrote:ЗЫЖ а насчет кавычек - верно. там в самом начале где-то не закрыты. =)
А ты думал я просто пошутил? )))
это еще в светлые времена увлечения программированием в школьные годы у нас с друзьями такая шутка была. =)
А я уже после школы садистом стал.
Posted: 2004-10-11 00:57:35
by GrayLord
AGRS wrote:GrayLord wrote:AGRS wrote:GrayLord wrote:ЗЫЖ а насчет кавычек - верно. там в самом начале где-то не закрыты. =)
А ты думал я просто пошутил? )))
это еще в светлые времена увлечения программированием в школьные годы у нас с друзьями такая шутка была. =)
А я уже после школы садистом стал.
=)