036aa1

lastrelease.txt

@@ -1 +1 @@
-0.3.5Aa1 {win64hash} {linux64hash} {signature}
+0.3.6Aa1 {win64hash} {linux64hash} {signature}

masterpaskalform.pas

@@ -611,7 +611,7 @@   TForm1 = class(TForm)
                             {4}'nosofish.xyz;8082:nosopool.estripa.online;8082:pool.nosomn.com;8082:159.196.1.198;8082: '+
                             {5}'NpryectdevepmentfundsGE:';
 
-  ProgramVersion = '0.3.5';
+  ProgramVersion = '0.3.6';
   {$IFDEF WINDOWS}
   RestartFileName = 'launcher.bat';
   updateextension = 'zip';

mpparser.pas

@@ -69,7 +69,6 @@ function ShowPrivKey(linea:String;ToConsole:boolean = false):String;
 Procedure ExportKeys(linea:string);
 
 // CONSULTING
-Function MainNetHashrate(blocks:integer = 100):int64;
 Procedure ListGVTs();
 
 // 0.2.1 DEBUG
@@ -1529,32 +1528,6 @@ function AvailableUpdates():string;
 UpdateMyGVTsList
 End;
 
-Function MainNetHashrate(blocks:integer = 100):int64;
-var
-  counter : integer;
-  TotalRate : double = 0;
-  Header : BlockHeaderData;
-  ThisBlockDiff : string;
-  ThisBlockValue : integer;
-  TotalBlocksCalculated : integer = 100;
-  ResultStr : string = '';
-Begin
-TotalBlocksCalculated := blocks;
-For counter:= MyLastblock downto Mylastblock-(TotalBlocksCalculated-1) do
-   begin
-   Header := LoadBlockDataHeader(counter);
-   ThisBlockDiff := Parameter(Header.Solution,1);
-   ThisBlockValue := GetDiffHashrate(ThisBlockDiff);
-   TotalRate := TotalRate+(ThisBlockValue/100);
-   ResultStr := ResultStr+Format('[%s]-',[FormatFloat('0.00',ThisBlockValue/100)]);
-   end;
-//AddLineToDebugLog('console',ResultStr);
-TotalRate := TotalRate/TotalBlocksCalculated;
-//AddLineToDebugLog('console',format('Average: %s',[FormatFloat('0.00',TotalRate)]));
-TotalRate := Power(16,TotalRate);
-Result := Round(TotalRate/575);
-End;
-
 function ShowPrivKey(linea:String;ToConsole:boolean = false):String;
 var
   addtoshow : string;