main
{

// výpočet výkonu dle pulsů - vypnuto, místo toho odesílám dobu mezi pulsy a počítám v NodeRED

//var elektromer1_vykon;
//var elektromer2_vykon;
//var elektromer3_vykon;

  // elektromer1_vykon = 3600000 / sys[592];
  // ram[4] = elektromer1_vykon;

  // elektromer2_vykon = 3600000 / sys[593];
  // ram[5] = elektromer2_vykon;

  // elektromer3_vykon = 4500000 / sys[594];
  // ram[6] = elektromer3_vykon;






// network communication shall be started only after the SDS is connected to network (ethernet is up)
 echo('waiting for network availability');

waiting_ethernet:
wait(50);
 if (sys[24] == 0) goto waiting_ethernet; // 0 = no ethernet
 if (sys[27] == 0) goto waiting_ethernet; // 0 = no IP address

 // OK, now we have an ethernet connection up and running

 // EXAMPLE START:


 // connect on start
 echo('connecting to MQTT Broker... ???');

// Zadání IP adresy, jména a hesla MQQT serveru - je treba vyplnit jak máte vy - pokud odesílate data z více desek
// je třeba jedinečné client-id - pokud je stejné pro dva clienty komunikace se zasekne
 //           ip   ip   ip ip   port  client-id          username   password    keepalive(sec)
 mqtt_connect(192, 168, 1, 30, 1883, 'SDS-HL_Elektromer', 'mqtt', 'heslo_mqqt', 120);
 wait(150);
 // wait for a complete connection
 label waiting_for_mqqt_conn:
 wait(150);
 // error - failed ?
 if (sys[2200] <= 0) goto mqtt_conn_fail; // error ? (any negative number is error code)

 // done - connected ?
 if (sys[2200] != 4) goto waiting_for_mqqt_conn; // success ? (yes only if == 4)

 // test the CONNACK result - see "3.2.2.3 Connect Return code" - we expect "0" as OK

 if (sys[2201] != 0) goto mqtt_conn_fail; // is broker's result code OK ? (OK only if == 0)

 // connected (CONNACK result is 0x00)

 echo('connected to broker: OK');

                 mqtt_publish('sds2/elektromer1', sys[493]);
                w4:
                if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                if (sys[2202] == 1) goto w4;               // still working ?
                if (sys[2202] != 2)                        // success ?
                { echo('publish error elektromer1= ', sys[2202]); };

                 mqtt_publish('sds2/elektromer1_vykon', sys[592]);
                 w5:
                 if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                 if (sys[2202] == 1) goto w5;               // still working ?
                 if (sys[2202] != 2)                        // success ?
                 { echo('publish error elektromer1_vykon = ', sys[2202]); };

                 mqtt_publish('sds2/elektromer2', sys[494]);
                 w6:
                 if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                 if (sys[2202] == 1) goto w6;               // still working ?
                 if (sys[2202] != 2)                        // success ?
                 { echo('publish error elektromer2 = ', sys[2202]); };

                 mqtt_publish('sds2/elektromer2_vykon', sys[593]);
                 w7:
                 if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                 if (sys[2202] == 1) goto w7;               // still working ?
                 if (sys[2202] != 2)                        // success ?
                 { echo('publish error elektromer2_vykon = ', sys[2202]); };

                 mqtt_publish('sds2/elektromer3', sys[495]);
                 w8:
                 if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                 if (sys[2202] == 1) goto w8;               // still working ?
                 if (sys[2202] != 2)                        // success ?
                 { echo('publish error elektromer3 = ', sys[2202]); };

                 mqtt_publish('sds2/elektromer3_vykon', sys[594]);
                 w9:
                 if (sys[2200] < 0) goto mqtt_conn_fail;    // disconnected ?
                 if (sys[2202] == 1) goto w9;               // still working ?
                 if (sys[2202] != 2)                        // success ?
                 { echo('publish error elektromer3_vykon = ', sys[2202]); };

                 mqtt_subscribe(1, 'sds2/rele1');
                 wS:
                 if (sys[2200] < 0) goto mqtt_conn_fail; // disconnected (if any negative number)
                 if (sys[2202] == 4) goto wS;            // still working... (done when != 4)
                 if (sys[2202] != 8)                     // success ? (only if == 8, otherwise error or failure)
                       {
                       // FAILED -> not subscribed !
                       echo('sub error = ', sys[2202]);
                       return;
                       };


                 var last1;
                          last1 = 1;
                          loop:
                          if (last1 != sys[2291])  // sys[2291] je casove razitko for index #1
                          {
                          last1 = sys[2291];
                          }
                          echo('MQQT cesta Topic #1: "', sys[2211], '" hodnota sys[2251] aktualizovana na: "', sys[2251], '" ');

                                           wait(50);
                                           sprintf(text[0], sys[2251]); // nejprve prekopirujeme string z sys[2251] do pole text, a to od pozice 0 v poli text[]
                                           atoi(text[0]); // prevede obsah text (od pozice 0] na cislo, vysledek prevodu da do sys[62]
                                           sys[231] = sys[62]; // vysledek zapiseme do ovladani rele
                                           echo('promenna sys[2251] ' sys[2251]);
                                           echo('promenna sys[62] ' sys[62]);
                                           echo('promenna sys[231] ' sys[231]);
                                          

                          // Unsubscribe from topic
                          mqtt_unsubscribe_index(1);
                          wU:
                          if (sys[2200] < 0) goto error; // disconnected
                          if (sys[2202] < 0) goto error; // error (if any negative number)
                          if (sys[2202] != 16) goto wU;  // waiting until done (done when result == 32)

                       echo('unsubscribed');






                 // go
            mqtt_disconnect();

            // we shall wait until the connection is properly closed
        wait_for_disconnect:
        if (sys[2200] <= 0) goto error;                // error ?
        if (sys[2200] == 8) goto wait_for_disconnect;  // success, or still working ?

        // done !
 echo('DISCONNECTED from broker');

 wait(250);

 // EXIT the example - we are DONE
 return;


 // error handling
 label mqtt_conn_fail:
 echo('unable to connect... error=', sys[2200],' connack=', sys[2201]);

 // error handling
 label error:
 echo('error');
}