//из rtc статьи
scope MouseTest initializer Init
    globals
        private trigger t
    endglobals
    
    private function Actions takes nothing returns nothing
        call BJDebugMsg("(" + R2S(GetMouseTargetX()) + ", " + R2S(GetMouseTargetY()) + ")")
    endfunction
    
    private function Init takes nothing returns nothing
        set t = CreateTrigger()
        call TriggerAddAction(t, function Actions)
        call TriggerRegisterMouseEvent(t, EVENT_LMOUSEDOWN) 
    endfunction
endscope