'Обьявление констант и хуков
Const GAME_MENU:Byte = 0
Const GAME_GAME:Byte = 1
Const GAME_PAUSE:Byte = 2
Const GAME_END:Byte = 125
 
' регистрируем события :
AllocUserEventID(GAME_MENU,"МЕНЮ!")
AllocUserEventID(GAME_GAME,"ИГРА!")
...
 
' Обработчик событий :
Function UpdateState:Object(id:Int,data:Object,context:Object)
    ' Здесь обрабатываются все игровые события
 
     ' Если обработчик ничего не обработал то необходимо :
    Return data
EndFunction
 
' Регистрация обработчика в системе событий
AddHook(EmitEventHook, UpdateState) ' Функция регистрируется в системе событий
 
Function Draw(id:Int)
    ' рисование ( id говорит о том, что надо рисовать )
EndFunction
 
Function Update(id:Int, dt:Float)
     ' Обновление ( id говорит о том, что надо обновлять )
EndFunction
 
' ХУК
Function Hook:Object(id:Int,data:Object,context:Object)
    ' id - содержит текущее состояние программы
    Local dt:Float = UpdateDeltaTime() ' Обновление значения дельты времени
    ...
    по полученным данным обновляем и рисуем все, что надо
 
    Update(id,dt)
 
    Draw(id)
    
    Return data
EndFunction
 
' Регистрируем хук в системе
AddHook(FlipHook,Hook) ' Хук вызовится перед Flip()
...
 
' Цикл
 
Repeat
    Cls()
    Flip(True) ' Запуск всех хуков, после этого произойдет смена буффера
Forever
 
' Управляется так :
 
CreateEvent(GAME_PAUSE, 1, 0, 0, 0, Null).Emit()
' Это озночает что мы послали системе сообщение о смене игрового стейта на
' ИГРА В ПАУЗЕ