Inscription - unhandled expression

[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

Что ему не нравится? Я уже и задержек напихал повсюду, всё равно виснет.

[Askaneli]

Всё таки я неудачник! Вот такой скрипт, и то глючит. Если без 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'

[Tergos]

ой блин! Это я такое слажал!!! Мдя. Больше не буду писать скрипты ночью с похмелья...
Биг сенк. А то глаз "замылился" и искал уже глобальные глюки, а не кавычки забытые.
ЗЫ: Хм. А как же он тогда вообще работал?

[Sfagnum]

ЗЫ: Хм. А как же он тогда вообще работал?

а вот это и есть самый главный глюк

ЗЫ оно бывает так иногда...

[Askaneli]

ЗЫ: Хм. А как же он тогда вообще работал?

а вот это и есть самый главный глюк

ЗЫ оно бывает так иногда...

Но недолго.

[Tergos]

Спасибо за нахождение глюка. Щас поубирал задержки, поставил кавычки и он нормально работает даже на диалапе (на работе ).