ЧекЛаг с Ворд Сейвом

[$keR]

всем доброго времени суток...
вобщем недавно смарел тут, видел чеклаг с проверкоий на ворлд сейв и сервер ресинк... щас почему то немогу найти..
у кого есть..выложите плизз..

[GAUHAR]

Я использую такой вариант:

Code: Select all

CheckWS()
CheckLAg()

Функции:

Code: Select all

SUB CheckWS()
   if UO.InJournal("World is saving now|PAUSED for Resync") then
      DelJournal("World is saving now")
      DelJournal("PAUSED for Resync")
      UO.Print("НАЧАЛОСЬ СОХРАНЕНИЕ МИРА")
      while not UO.InJournal("World data saved in|Resync Complete")
         wait(100)
      wend
      UO.Print("СОХРАНЕНИЕ МИРА СВЕРШИЛОСЬ")
   endif
endsub

SUB CheckLag()
   DelJournal("backpack")
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal('backpack')
endsub

SUB DelJournal(msg)
   while UO.InJournal(msg)
      UO.SetJournalLine(UO.InJournal(msg) - 1, "-- -- --")
   wend
endsub

Попробуй может поможет.

[$keR]

СЕНКС! ща потестю...