var mez, odeslano;
init
{
mez = 3012;
odeslano = 0;
}
posli_email
{
  if (odeslano == 0)
  {
    smtp_send('navara@xyzxyz.com', 'teplotni alarm', 'Hlasim ze teplota (',sys[310],'°C) poklesla pod ',mez,'°C .');
    echo (' odeslan mail ');
  }
  odeslano = 1;
}

uz_je_nad
{
  odeslano = 0;
  smtp_send('navara@xyzxyz.com', 'teplotni alarm', 'Hlasim ze teplota (',sys[310],'°C) stoupla nad ',mez,'°C .');
  odeslano = 1;
}

main
{
 testuj_znovu:
 if (sys[310] < mez) posli_email() else uz_je_nad();
 goto testuj_znovu;
}

if (sys[156] == 0) { posli_porucha_email(); } else { reset=0; }

//pokud  sepne S0 posle mail pocka 3 sec. přepne dve rele pocka 1 sec. prepne zpet.
var rele1;
var porucha_email;
var reset;

posli_porucha_email
{
  if (porucha_email == 0)
 {
 smtp_send('servisx@lemigas.cz','Dohled UPS','porucha , Restart kotle.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   porucha_email = 1;
   echo (' porucha_email ');
//pocka 10 sec- a provede reset kotelny
      echo('reset po 3 vterinach');
       wait(3000);
   sys[231] = 1;
   sys[232] = 1;
   wait(1000);
   sys[231] = 0;
   sys[232] = 0;
   echo(' hotovo ');
   wait(1000);
   reset = 1;
 }
}

main

{
        //sepnutý kontakt
   if (sys[156] == 0) posli_porucha_email() else reset=0;
               
}

mail_1
{
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_1 == 0)
   {
   smtp_send('servisx@lemigas.cz','Dohled UPS','teplota boileru je mene nez pozadovana.');
   }
   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro_boiler_1 = 1;
   //vynulovat mail_2
   uz_jsem_poslal_email_pro_boiler_2 = 0;
  
}

// odesilat na portal udaje z teplomeru 5ks....................musi se dodelat
 // pri prekroceni teplot kotle nebo boileru musí poslat mail
 // odesilat na portala vodomer a plynomer.....zatim neni
 // při sepnutí rele 1 poslat mail restart a zaroven preklopit rele na 3 sec. pak opět vypnout na nulu pokud bude rele stale sepnuto jeste dvakrat opakovat pokud bude stále vypnuto postat info mail porucha......musi se dodelat
 // snimani tlaku , pri poklesu na nulu poslat mail a preklopit rele..........zatim neni
 //po výpadku napájení poslat mail...............musi se dodelat
 //po nastartování poslat mail o startu...........musi se dodelat

//zaciname...................................................................................................................

// vyptá teploty cidel, bude teplota pod limit zasle jeden mail a zablokuje dalsi a odblokuje moznost opacnych mailu 
// az stoupne teplota nad limit posle jeden mail zablokuje a odblokuje zase opacnou moznost 

//promenne

var teplota_kotel,teplota_kotel_2, horni_2, dolni_2;
var teplota_boiler_1,teplota_boiler_2, horni_1, dolni_1;
var uz_jsem_poslal_email_pro_boiler_1;
var uz_jsem_poslal_email_pro_boiler_2;
var uz_jsem_poslal_email_pro_kotel_1;
var uz_jsem_poslal_email_pro_kotel_2;

mail_1
{ 
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_1 = 0)  smtp_send('servis@lemigas.cz.cz','Dohled UPS','teplota boileru je mene nez pozadovana.');
   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro boiler_1 = 1;
   //vynulovat mail_2
   uz_jsem_poslal_email_pro boiler_2 = 0;
}

mail_2
{ 
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_boiler_2 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota boileru stoupa nad limit.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro boiler_2 = 1;
   //vynulovat mail_1
   uz_jsem_poslal_email_pro boiler_1 = 0;
}

mail_3
{
  //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_kotel_1 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota kotle je mene nez 'pozadovana.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro kotel_1 = 1;
   //vynulovat mail_4
   uz_jsem_poslal_email_pro lotel_2 = 0;
}

mail_4
{ 
 //zepta se jestli uz odeslal mail kdyz ne tak posle
   if (uz_jsem_poslal_email_pro_kotel_2 = 0) smtp_send('servis@lemigas.cz','Dohled UPS','teplota kotle stoupa nad limit.');

   //zapamatuji si ze uz jsem to poslal, at to neposila milion emailu za sebou
   uz_jsem_poslal_email_pro kotel_2 = 1;
   //vynulovat mail_3
   uz_jsem_poslal_email_pro kotel_1 = 0;
}

main
{
  //vychozi stav
   //prevezmeme hodnoty meznich teplot(st.C)
  dolni_1 = 40;
  horni_1 = 41;
  dolni_2 = 60;
  horni_2 = 61;

  //pockame 10 sekund, az nabehne cely system
  wait(10000);

  //------------------------------------------------------------

  //hlavni smycka, ve ktere se vykonava proces
label smycka_rizeni:

  //teplota je brana z cidla
  teplota_boiler_1 = (sys[310] / 100);  //musime delit 100 aby to byly cele stupne Celsia
  teplota_boiler_2 = (sys[311] / 100);
  teplota_kotel_2 = (sys[312] / 100);
  teplota_kotel_1 = (sys[313] / 100);

  //podle aktualni teploty rozhodnu co dál
   if (teplota_boiler_1 < dolni_1) mail_1();
   if (teplota_boiler_1 > horni_1) mail_2();
   if (teplota_boiler_2 < dolni_1) mail_1();
   if (teplota_boiler_2 < horni_1) mail_2();
   if (teplota_kotel_3 < dolni_2) mail_3();
   if (teplota_kotel_3 < horni_2) mail_4();
   if (teplota_kotel_4 < dolni_2) mail_3();
   if (teplota_kotel_4 < horni_2) mail_4();

  //sem pridej dalsi testy pro dalsi cidla a rele (tj. to co je mezi "label smycka_rizeni:" a timto radkem)

  //a porad dokola
  goto smycka_rizeni;
}

var cas1, cas2, cas3;

vyprsel_cas_1
{
   cas1 = VYCHOZI_HODNOTA_V_SEC_PRO_CAS_1;

   udelej_neco_co_mas_delat_kdyz_vyprsi_cas_1();
}

krok
{
   cas1 = cas1 - 1;
   cas2 = cas2 - 1;
   cas3 = cas3 - 1;
   
   if (cas1 == 0) vyprsel_cas_1();
   if (cas1 == 0) vyprsel_cas_2();
   if (cas1 == 0) vyprsel_cas_3();
}

main
{
 
  //...
 
  cas1 = 10; //deset vterin, napriklad
  cas2 = 1000; //tisic vterin, napriklad
  cas3 = 1; //co vterinu, napriklad

  //...


smycka:

    //pockame jednu sekundu
    sys[64] = 1;

cekani_na_sec:
   if (sys[64] != 0) goto cekani_na_sec;

   //sem se to dostane kazdou sekundu
   krok();

   //a skocime nahoru
   goto smycka;

}