Frants я писал вам раньше, изучите код R-Trig чтобы понять.

Если проще, поставив R_Trig внутри функции и подав на вход функции, связанный с входом R_Trig логическую 1-цу, он будет срабатывать ВСЕГДА, а не один раз, как положено.