Окончательно функция стимуляции приобрела следующий вид:

nfBrainAction Operation (System.GetOperation (NEW_DIRECT_ACTION)); if (!Operation.m_lpDispatch) return; nfImpact Delight (Operation.NewImpact (BRAIN_GLOBAL_PENETRATION)); if (Delight.m_lpDispatch! { Delight.SetOperationMode (om_Stimulation, TRUE); Delight.SubGlobalTarget (LIMBUS); nfImpactCoordinates Coordinates (Delight.GetPosition (HYPOTHALAMUS)); if (Coordinates.m_lpDispatch) { Delight.SetTargetCoordinates (Coordinates); Delight.SetOperationType (ot_Pulse, ot_Point); nfImpactParam Imparam (Delight.GetImpactParamDefinition()); if (Imparam.m_lpDispatch) { Imparam.SetImpulseIntensity (ii_Normal); Imparam.HormoneCheckupOn (hc_Dopamine, FALSE); Imparam.SetInterval (100); Imparam.Update (); } } else return; for (int i=0; i<=600; i++) Delight.Activate (); Clear (); }

nfBrainAction Operation (System.GetOperation (NEW_DIRECT_ACTION));

if (!Operation.m_lpDispatch) return;

nfImpact Delight (Operation.NewImpact (BRAIN_GLOBAL_PENETRATION));

if (Delight.m_lpDispatch!

{

Delight.SetOperationMode (om_Stimulation, TRUE);

Delight.SubGlobalTarget (LIMBUS);