Page 1 of 1
ЧекЛаг с Ворд Сейвом
Posted: 2007-11-13 20:47:24
by $keR
всем доброго времени суток...
вобщем недавно смарел тут, видел чеклаг с проверкоий на ворлд сейв и сервер ресинк... щас почему то немогу найти..
у кого есть..выложите плизз..
Posted: 2007-11-13 21:57:58
by GAUHAR
Я использую такой вариант:
Функции:
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
Попробуй может поможет.
Posted: 2007-11-13 22:01:16
by $keR
СЕНКС! ща потестю...