лаги в скрипте

[Bangbuss]

zapuskaju etot skript ultima na4enaet nemnogo lagovat' i 4erez primerno 4as viletaet unhandled exceptions in parser. terminate.

skript:

Code: Select all

sub Magery()
  VAR box='0x400AB647'
  uo.UseObject(box)
  wait(1000)
  While not UO.Dead()
    If UO.InJournal ('You lack Nightshade') then
      UO.FindType('0x0F88','0x0000',box)
      if uo.FindCount() then
        uo.moveitem('finditem','1000')
        wait(750)
      else
        uo.Print('There are no more reg.')
      end if
      uo.DeleteJournal()
    Endif
  wend
end sub

[Question_GimFlex]

Code: Select all

sub Magery()
  VAR box='0x400AB647'
  uo.UseObject(box)
  wait(1000)
  While not UO.Dead()
    If UO.InJournal ('You lack Nightshade') then
      UO.FindType('0x0F88','0x0000',box)
      if uo.FindCount() then
        uo.moveitem('finditem','1000')
        wait(750)
      else
        uo.Print('There are no more reg.')
      end if
      uo.DeleteJournal()
    Endif
    wait(500)
  wend
end sub