Stuck notes on Kontakt's virtual keyboard

[pettinhouse]

on init
    set_key_pressed_support(1)
end on

on note
    if (get_event_par($EVENT_ID, $EVENT_PAR_SOURCE) = -1)
        set_key_pressed($EVENT_NOTE, 1)
    end if
end on

on release
    if (get_event_par($EVENT_ID, $EVENT_PAR_SOURCE) = -1)
        set_key_pressed($EVENT_NOTE, 0)
    end if
end on