Page 1 of 1
Inscription - unhandled expression
Posted: 2005-06-22 08:50:07
by Tergos
Всё таки я неудачник!
Вот такой скрипт, и то глючит. Если без moveitem, то все нормально. Но это неинтересно.
Code: Select all
sub Inscription()
var sunduk=0x4002899A
var meshok=0x4002F958
While not UO.Dead()
wait(250)
If UO.NS < 10 then ; Nightshade
UO.Findtype('0x0F88',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
If UO.BP < 10 then ; Black Pearl
UO.Findtype('0x0F7A',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
UO.Findtype('0x0E34', 0x0000, 'backpack') ; Blank Scrolls
If UO.GetQuantity('finditem') < 10 then
UO.Findtype('0x0E34',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
UO.Findtype('0x1F32',0x0000, 'backpack')
While UO.FindCount() > 1
UO.Findtype('0x1F32',0x0000, 'backpack')
wait(250)
UO.Moveitem('finditem', -1, meshok)
wait(1000)
wend
Checklag()
UO.waitmenu('Spell Circles', 'First Circle', 'Spell Circle 1', 'Magic Arrow')
UO.UseSkill('Inscription')
UO.DeleteJournal()
wait(250)
while not UO.InJournal('You put|fail')
wait(250)
wend
wait(250)
wend
endsub
Sub Checklag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
wait(500)
Until UO.InJournal("backpack")
endsub
Что ему не нравится? Я уже и задержек напихал повсюду, всё равно виснет.
Re: Inscription - unhandled expression
Posted: 2005-06-22 08:56:29
by Askaneli
Tergos wrote:Всё таки я неудачник!
Вот такой скрипт, и то глючит. Если без moveitem, то все нормально. Но это неинтересно.
Code: Select all
sub Inscription()
var sunduk=0x4002899A
var meshok=0x4002F958
While not UO.Dead()
wait(250)
If UO.NS < 10 then ; Nightshade
UO.Findtype('0x0F88',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
If UO.BP < 10 then ; Black Pearl
UO.Findtype('0x0F7A',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
UO.Findtype('0x0E34', 0x0000, 'backpack') ; Blank Scrolls
If UO.GetQuantity('finditem') < 10 then
UO.Findtype('0x0E34',0x0000, sunduk)
wait(250)
UO.moveitem('finditem', 100, 'backpack')
wait(1000)
endif
wait(250)
UO.Findtype('0x1F32',0x0000, 'backpack')
While UO.FindCount() > 1
UO.Findtype('0x1F32',0x0000, 'backpack')
wait(250)
UO.Moveitem('finditem', -1, meshok)
wait(1000)
wend
Checklag()
UO.waitmenu('Spell Circles', 'First Circle', 'Spell Circle 1', 'Magic Arrow')
UO.UseSkill('Inscription')
UO.DeleteJournal()
wait(250)
while not UO.InJournal('You put|fail')
wait(250)
wend
wait(250)
wend
endsub
Sub Checklag()
UO.DeleteJournal()
UO.Click('backpack')
Repeat
wait(500)
Until UO.InJournal("backpack")
endsub
Что ему не нравится? Я уже и задержек напихал повсюду, всё равно виснет.
Не 100 , а '100'
Не -1 , а '-1'
Posted: 2005-06-22 10:27:35
by Tergos
ой блин!
Это я такое слажал!!!
Мдя. Больше не буду писать скрипты ночью с похмелья...
Биг сенк. А то глаз "замылился" и искал уже глобальные глюки, а не кавычки забытые.
ЗЫ: Хм. А как же он тогда вообще работал?
Posted: 2005-06-22 10:38:17
by Sfagnum
Tergos wrote:ЗЫ: Хм. А как же он тогда вообще работал?
а вот это и есть самый главный глюк
ЗЫ оно бывает так иногда...
Posted: 2005-06-22 11:05:58
by Askaneli
Sfagnum wrote:Tergos wrote:ЗЫ: Хм. А как же он тогда вообще работал?
а вот это и есть самый главный глюк
ЗЫ оно бывает так иногда...
Но недолго.
Posted: 2005-06-22 12:48:42
by Tergos
Спасибо за нахождение глюка. Щас поубирал задержки, поставил кавычки и он нормально работает даже на диалапе (на работе
).