procedure OnMoveEvent(Attacker: TL2Live; var BreakMove: Boolean);
begin
while (Engine.Status <> lsOnline) do Delay(500); // ждем, пока не зайдем обратно
if (User.Dead) then begin // если чар умер
Print('Умерли!');
// вызываем действия, которые нужно делать при смерти
end;
if (Attacker <> nil) then begin // если нас атакуют или сагрились
Print('Сагрился моб во время бега');
// отбиваемся
end;
end;
begin
Delay(-1);
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
- Тех. поддержка