update 0.3.9.7

clean up code, added pool
dawallet · Jun 19, 2017 · 5249703 · 5249703
1 parent 99fac64
commit 5249703
Show file tree

Hide file tree

Showing 6 changed files with 19 additions and 7 deletions.
diff --git a/burstcoin-1.2.8/Burst_Wallet.exe b/burstcoin-1.2.8/Burst_Wallet.exe
diff --git a/readme.txt b/readme.txt
@@ -20,6 +20,11 @@ _____
 
 Changelog:
 
+0.3.9.7
+
++ added pool
++ code clean up of unused permissions
+
 0.3.9.6
 
 + added solo mining feature in gui

diff --git a/src/BurstWallet2.dfm b/src/BurstWallet2.dfm
@@ -1,7 +1,7 @@
 object Form1: TForm1
   Left = 0
   Top = 0
-  Caption = 'Burst Client for Win v0.3.9.6'
+  Caption = 'Burst Client for Win v0.3.9.7'
   ClientHeight = 467
   ClientWidth = 816
   Color = clBtnFace

diff --git a/src/BurstWallet2.pas b/src/BurstWallet2.pas
@@ -4,10 +4,9 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, TLHelp32, Vcl.Clipbrd, ShellAPI, Vcl.Menus,
-  Vcl.OleCtrls, SHDocVw, Vcl.ComCtrls, Vcl.ToolWin, Vcl.StdCtrls, idHTTP, IdBaseComponent,IdComponent,IOUtils,
-  IdTCPConnection, IdTCPClient,IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
-IdSSLOpenSSL, registry, JSON, URLMon, WinInet, System.Zip, SHDocVw_TLB, WinSvc;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, TLHelp32, Vcl.Clipbrd, ShellAPI, Vcl.Menus, SHDocVw, Vcl.ComCtrls, Vcl.StdCtrls,
+  idHTTP, IdBaseComponent,IdComponent,IOUtils, IdTCPConnection, IdTCPClient, IdSSLOpenSSL, JSON, WinInet, WinSvc, Vcl.OleCtrls, Vcl.ToolWin,
+  SHDocVw_TLB;
 
 type
   TForm1 = class(TForm)

diff --git a/src/Unit4.dfm b/src/Unit4.dfm
@@ -148,6 +148,7 @@ object Form4: TForm4
       'pool.burstcoin.space'
       'pool.burstcoin.party'
       'burst.lexitoshi.uk'
+      'all.poolofd32th.club'
       'burstneon.ddns.net'
       'pool.burstcoin.sk'
       'pool.burstcoin.ml'

diff --git a/src/Unit4.pas b/src/Unit4.pas
@@ -313,12 +313,11 @@ procedure TForm4.Button2Click(Sender: TObject);
 
 clipboard2 := TClipBoard.create;
 
+
 if Label6.Caption = 'pool.burstcoin.biz' then
     clipboard2.AsText:='BURST-6WVW-2WVD-YXE5-EZBHU';
 if Label6.Caption = 'pool.burstcoin.eu' then
     clipboard2.AsText:='BURST-7Z2V-J9CF-NCW9-HWFRY';
-if Label6.Caption = 'burst.ninja' then
-    clipboard2.AsText:='BURST-7CPJ-BW8N-U4XF-CWW3U';
 if  Label6.Caption = 'pool.burstcoin.it' then
      clipboard2.AsText:='BURST-LGKU-3UUM-M6Q5-86SLK';
 if  Label6.Caption = 'burst.poolto.be' then
@@ -341,6 +340,10 @@ procedure TForm4.Button2Click(Sender: TObject);
      clipboard2.AsText:='BURST-E925-FACX-C2X8-49772';
 if  Label6.Caption = 'pool.burstcoin.space' then
      clipboard2.AsText:='BURST-SPAC-EWWF-CRX2-78Z6Z';
+if  Label6.Caption = 'all.poolofd32th.club' then
+     clipboard2.AsText:='BURST-LBQ2-XLPT-S2S8-64ZG5';
+
+ port := '8124';
 
   if  Label6.Caption = 'pool.news-asset.com' then
      begin
@@ -415,9 +418,13 @@ procedure TForm4.Button2Click(Sender: TObject);
     begin
     ShowMessage('For solo mining the reward assignment has to point to your own account!'+#13#10+ ' This is the case by default except you were pool mining before.')
     end
+
+
     else
     ShowMessage('The pool address '+clipboard.AsText+' of '+Combobox1.Text+' got copied into your clipboard.'+#13#10+ 'Paste it into the second textbox: "Recipient - Burst address of pool" and paste your wallet passphrase in the first textbox.');
   end;
+
+
 end;
 end;