// start
 flag_odpocitavam = 0;
 posli_opakovane = 0;


 // smycka
 {

  // tento test je potreba spravne upravit, at se stane pri otevreni jen jednou atd.
  if (brana_je_otevrena)
  {
    // prvni odeslani emailu ?
    if (flag_odpocitavam == 0)
    {
      // jednou po otevreni se posle email
      smtp_send( ... email brana otevrena ... );
      // a zacneme cisty novy odpocet
      sys[64] = 15 * 60; // 15 minut
      flag_odpocitavam = 1;   
      posli_opakovane = 0;
    } else
    {
      // uz jsem poslal email, ted cekam na dokonceni odpoctu
      if (sys[64] == 0) posli_opakovane = 1;
    }
    // posledni vec
    if (posli_opakovane != 0)
    {
      // odpocet dobehl a brana je stale otevrena
      smtp_send( ... email brana stale otevrena ... );
      // a zacneme cisty novy odpocet, at se to posle zase za X minut
      sys[64] = 15 * 60; // 15 minut
      flag_odpocitavam = 1;   
      posli_opakovane = 0;
    }
  }

  if (brana_je_zavrena)
  {
     // brana se zavrela 
     // ...
   
     // a vzdy nulovat at to priste muze spravne zacit pocitat od zacatku
     flag_odpocitavam = 0;   
     posli_opakovane = 0;
  }

 }

#define OPTO2 sys[152]
 
var mjl_off;
var mjl_on;
 
init
{
    mjl_off=0;
    mjl_on=0;
}

on
{
    if (mjl_on == 0)
  {
    if (sys[65]==256 || sys[65]==65535)
    {
    smtp_send('x@x.x','OPEN', 'Brana OPEN.');
    echo(sys[5],'.',sys[6],'.',sys[7],' - ',sys[8],':',sys[9],':',sys[10],' OPTO3 ON.');
    } else {
    echo(sys[5],'.',sys[6],'.',sys[7],' - ',sys[8],':',sys[9],':',sys[10],' Chyba odeslani emailu OPTO3 ON:', sys[65]);
    }
    mjl_on = 1;
  }
  mjl_off = 0;
}
 
off
{ 
  if (mjl_off == 0)
  {
    if (sys[65]==256 || sys[65]==65535)
    {
    smtp_send('x@x.x','CLOSE!!!', 'Brana CLOSE');
    echo(sys[5],'.',sys[6],'.',sys[7],' - ',sys[8],':',sys[9],':',sys[10],' OPTO3 OFF.');
    } else {
    echo(sys[5],'.',sys[6],'.',sys[7],' - ',sys[8],':',sys[9],':',sys[10],' Chyba odeslani emailu OPTO3 OFF:', sys[65]);
    }
    mjl_off = 1;
  }
  mjl_on = 0; 
}    
 
main
{
    if (OPTO2 == 0) on() else off();
}