procedure CheckDisconnectThread();
begin
while delay(100) do begin
if (Engine.Status <> lsOnline) then begin
Print('Дисконнект, торможу скрипт');
Script.Suspend;
while (Engine.Status <> lsOnline) do delay(100);
Print('Зашел в игру, продолжаю работу');
Script.Resume;
end;
end;
end;
begin
Script.NewThread(@CheckDisconnectThread);
// code
end.
- Adrenaline
-
Классы
- TL2Control
- TL2Object
- TL2Spawn
- TL2Live
- TL2Char
- TL2User
- TL2Npc
- TL2Pet
- TL2Drop
- TL2Buff
- TL2Skill
- TLearnItem
- TL2Cast
- TL2Item
- TL2AucItem
- TL2List
- TL2StaticObject
- TSpawnList
- TCharList
- TNpcList
- TPetList
- TDropList
- TItemList
- TSkillList
- TBuffList
- TL2Warehouse
- TL2Auction
- TInventory
- TParty
- TConfirmDlg
- TMessages
- TChatMessage
- TBot
- TPaxEngine
- TGps
- TGpsPoint
- TL2Base
- TBaseList
- TBaseObject
- TBaseItem
- TBaseSkill
- TBaseAction
- TBaseNpc
- Перечисления
- Объекты
- Методы
- Модули
- NexTarget
- TRadar
- Скрипты
- Примеры скриптов
- Каталог скриптов
- Заказать скрипт
- Полезное
- Навигация
- Кабинет
- Сайт бота
- Купить Adrenaline
- Инструкции
- База игровых ID
- Тех. поддержка