defseeds updated

defseeds.nos

@@ -1 +1 @@
-20.199.50.27;8080:107.172.21.121;8080:107.172.214.53;8080:198.23.134.105;8080:107.173.210.55;8080:5.230.55.203;8080:141.11.192.215;8080:4.233.61.8;8080:
+20.199.50.27;8080:107.173.210.55;8080:5.230.55.203;8080:141.11.192.215;8080:4.233.61.8;8080:84.247.143.153;8080:23.95.216.80;8080:64.69.43.225;8080:142.171.231.9;8080:

masterpaskalform.pas

@@ -576,7 +576,7 @@   TForm1 = class(TForm)
   RestartFileName = 'launcher.sh';
   updateextension = 'tgz';
   {$ENDIF}
-  NodeRelease = 'Da1';
+  NodeRelease = 'Da2';
   OficialRelease = true;
   BetaRelease    = false;
   VersionRequired = '0.4.2';
@@ -1342,7 +1342,7 @@ constructor TCryptoThread.Create(CreateSuspended : boolean);
         ToLog('exceps','Invalid cryptoop: '+ArrayCriptoOp[0].tipo.ToString);
         end;
       DeleteCriptoOp();
-      sleep(1);
+      sleep(10);
       end;
     if NewAddrss > 0 then OutText(IntToStr(NewAddrss)+' new addresses',false,2);
     Sleep(10);
@@ -1384,9 +1384,9 @@ procedure TThreadSendOutMsjs.Execute;
             END{Try};
             end;
          end;
-      Sleep(1);
+      Sleep(10);
       end;
-   Sleep(1);
+   Sleep(10);
    End;
 End;
 

mpparser.pas

@@ -267,7 +267,7 @@ function GetOpData(textLine:string):String;
 else if UpperCase(Command) = 'GETREPOSEEDS' then ToLog('console',GetRepoFile('https://raw.githubusercontent.com/Noso-Project/NosoWallet/main/defseeds.nos'))
 else if UpperCase(Command) = 'FORCEREPOSEEDS' then
   begin
-  ToLog('console',GetRepoFile('https://raw.githubusercontent.com/Noso-Project/NosoWallet/main/defseeds.nos'))
+  SetCFGData(GetRepoFile('https://raw.githubusercontent.com/Noso-Project/NosoWallet/main/defseeds.nos'),1);
   end
 else if UpperCase(Command) = 'SENDREPORT' then SEndFileViaTCP(ResumeLogFilename,'REPORT','debuglogs.nosocoin.com:18081',18081)
 else if UpperCase(Command) = 'GETDBLB' then ToLog('console',GetDBLastBlock.ToString)
@@ -1654,22 +1654,22 @@ function ShowPrivKey(linea:String;ToConsole:boolean = false):String;
   ThisBal  : int64;
   LAstOP   : int64;
 Begin
-sourcestr := GetCFGDataStr(5);
-repeat
-Thisadd := Parameter(sourcestr,counter,':');
-if thisadd <> '' then
-   begin
-   ThisBal := GetAddressBalanceIndexed(ThisAdd);
-   Inc(Total,ThisBal);
-   Inc(count);
-   LastOP := GetAddressLastOP(ThisAdd);
-   if AnsiContainsStr(GetMN_FileText,Thisadd) then MNMsg := '[MN]'
-   else MNMsg := '';
-   ToLog('console',format('%-35s : %15s  [%5d] %s',[thisadd,int2curr(ThisBal),LastOP,MNMsg]));
-   end;
-inc(counter);
-until thisadd = '';
-ToLog('console',format('Freezed %d : %s',[count,int2curr(Total)]));
+  sourcestr := GetCFGDataStr(5);
+  repeat
+  Thisadd := Parameter(sourcestr,counter,':');
+  if thisadd <> '' then
+    begin
+    ThisBal := GetAddressBalanceIndexed(ThisAdd);
+    Inc(Total,ThisBal);
+    Inc(count);
+    LastOP := GetAddressLastOP(ThisAdd);
+    if AnsiContainsStr(GetMN_FileText,Thisadd) then MNMsg := '[MN]'
+    else MNMsg := '';
+    ToLog('console',format('%-35s : %15s  [%5d] %s',[thisadd,int2curr(ThisBal),LastOP,MNMsg]));
+    end;
+  inc(counter);
+  until thisadd = '';
+  ToLog('console',format('Freezed %d : %s',[count,int2curr(Total)]));
 End;
 
 {ShowsSummary file info}

nosoconsensus.pas

@@ -239,7 +239,7 @@   TConsensusData = record
   MyArray : array of string;
 Begin
   Repeat
-    sleep(1);
+    sleep(5);
   until not RunningConsensus;
   setlength(NodesArray,0);
   NodesList := Trim(StringReplace(NodesList,':',' ',[rfReplaceAll, rfIgnoreCase]));
@@ -340,11 +340,11 @@   TConsensusData = record
     ThisThread := TThreadNodeStatus.Create(True,counter);
     ThisThread.FreeOnTerminate:=true;
     ThisThread.Start;
-    Sleep(1);
+    Sleep(5);
     end;
   EndTime := UTCTime+5;
   Repeat
-    sleep(1);
+    sleep(5);
   until ( (OpenThreadsValue<= 0) or (UTCTime >= EndTime) );
   ActiveRound := 0;
   // Get the consensus hash

nosonetwork.pas

@@ -1141,6 +1141,7 @@ procedure TThreadClientRead.Execute;
             if not SendLineToClient(FSlot,LineToSend) then
               begin
               killit := true;
+              Conexiones[FSlot].Thread.Terminate;
               break;
               end;
             end;
@@ -1159,8 +1160,9 @@ procedure TThreadClientRead.Execute;
         EXCEPT on E:Exception do
           begin
           SetConexIndexBusy(FSlot,false);
+          Conexiones[FSlot].Thread.Terminate;
           KillIt := true;
-          continue;
+          break;
           end;
         END; {TRY}
         if LLine <> '' then