update 0.3.12

+ updated links to explorers and websites
+ updated pools

readme.txt

@@ -1,5 +1,7 @@
 Burst is a digital currency like Bitcoin but efficient mineable with free gigabytes instead of computation power (CPU, GPU or ASIC)!
 
+https://www.burst-coin.org
+https://burstwiki.org
 https://en.wikipedia.org/wiki/Burstcoin
 
 Everyone with free disk can join mining. It's a truly decentralized and environment friendly alternative to Bitcoin.
@@ -20,6 +22,11 @@ _____
 
 Changelog:
 
+0.3.12
+
++ updated websites, links and explorers
++ updated pools
+
 0.3.11
 
 + added blago's latest miner (v1.170820) 25% faster! github.com/Blagodarenko/miner-burst/releases

src/BurstWallet2.pas

@@ -44,7 +44,6 @@   TForm1 = class(TForm)
     Network1: TMenuItem;
     N10Burstbyburstcoininfo1: TMenuItem;
     N5Burstburstteamus1: TMenuItem;
-    N2Burstburstcoinbiz1: TMenuItem;
     UpdateAvailable1: TMenuItem;
     Forums2: TMenuItem;
     DDLBlockchain1: TMenuItem;
@@ -62,6 +61,11 @@   TForm1 = class(TForm)
     Network2: TMenuItem;
     BlockExplorer1: TMenuItem;
     Forums21: TMenuItem;
+    BurstWiki1: TMenuItem;
+    News1: TMenuItem;
+    N3: TMenuItem;
+    N4: TMenuItem;
+    BlockExplorer31: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure About1Click(Sender: TObject);
     procedure AddWallet1Click(Sender: TObject);
@@ -108,6 +112,11 @@   TForm1 = class(TForm)
     procedure ToolButton4Click(Sender: TObject);
     procedure ToolButton15Click(Sender: TObject);
     procedure Forums21Click(Sender: TObject);
+    procedure BurstWiki1Click(Sender: TObject);
+    procedure News1Click(Sender: TObject);
+    procedure N3Click(Sender: TObject);
+    procedure N4Click(Sender: TObject);
+    procedure BlockExplorer31Click(Sender: TObject);
 
 
   private
@@ -354,6 +363,16 @@ procedure TForm1.BlockExplorer1Click(Sender: TObject);
 ShellExecute(0, 'open', 'http://www.burstcoin.biz', nil, nil, SW_SHOWNORMAL);
 end;
 
+procedure TForm1.BlockExplorer31Click(Sender: TObject);
+begin
+ShellExecute(0, 'open', 'http://burstcoin.zone/wordpress/blockexplorer/', nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm1.BurstWiki1Click(Sender: TObject);
+begin
+ShellExecute(0, 'open', 'https://burst.wiki', nil, nil, SW_SHOWNORMAL);
+end;
+
 procedure TForm1.About1Click(Sender: TObject);
 begin
 Form10.Show;
@@ -665,6 +684,16 @@ procedure TForm1.N2Burstburstcoinbiz1Click(Sender: TObject);
  ShellExecute(0, 'open', 'http://burstcoin.biz/faucet', nil, nil, SW_SHOWNORMAL);
 end;
 
+procedure TForm1.N3Click(Sender: TObject);
+begin
+   ShellExecute(0, 'open', 'https://explore.burst.cryptoguru.org/tool/observe', nil, nil, SW_SHOWNORMAL);
+end;
+
+procedure TForm1.N4Click(Sender: TObject);
+begin
+ ShellExecute(0, 'open', 'http://burstxd.com/blocks/', nil, nil, SW_SHOWNORMAL);
+end;
+
 procedure TForm1.N5Burstburstcoinpt1Click(Sender: TObject);
 begin
  ShellExecute(0, 'open', 'http://faucet.burstnation.com', nil, nil, SW_SHOWNORMAL);
@@ -711,6 +740,11 @@ procedure TForm1.Network2Click(Sender: TObject);
 ShellExecute(0, 'open', 'http://www.burstcoin.cc', nil, nil, SW_SHOWNORMAL);
 end;
 
+procedure TForm1.News1Click(Sender: TObject);
+begin
+ ShellExecute(0, 'open', 'https://faucet.burstcoin.info', nil, nil, SW_SHOWNORMAL);
+end;
+
 procedure TForm1.OnlineLocal1Click(Sender: TObject);
 begin
 Showmessage('The online and local wallet are able to give you access to the same Accounts'+#13#10+'All data is saved distributed on the Blockchain. The online wallet is ready to use but  '+#13#10+'the disadvantage is that you rely on a third party. If it breaks you have to wait until it gets fixed.'+#13#10+'With a synced local wallet you are totally independent but it will show the real balances only if'+#13#10+'the Blockchain is fully downloaded.')

src/Unit4.pas

@@ -314,7 +314,7 @@ procedure TForm4.Button2Click(Sender: TObject);
      clipboard2.AsText:='BURST-NACG-ZZDB-BHX7-9ELAF';
 if  Label6.Caption = 'bcaworldteampool.com' then
      clipboard2.AsText:='BURST-XF5T-EGZV-VE3C-6TFKS';
-if  Label6.Caption = 'poolofd32th.club' then
+if  Label6.Caption = 'pool.poolofd32th.club' then
      clipboard2.AsText:='BURST-E925-FACX-C2X8-49772';
 if  Label6.Caption = 'pool.burstcoin.space' then
      clipboard2.AsText:='BURST-SPAC-EWWF-CRX2-78Z6Z';
@@ -394,6 +394,16 @@ procedure TForm4.Button2Click(Sender: TObject);
      clipboard2.AsText:='BURST-LZPT-6AY5-BM5L-B73UB';
      port := '8080';
      end;
+if  Label6.Caption = 'falconburstpool.xyz' then
+     begin
+     clipboard2.AsText:='BURST-UTS4-HPFZ-XJHL-B9BB2';
+     port := '8080';
+     end;
+if  Label6.Caption = 'pool.burstcoin.ro' then
+     begin
+     clipboard2.AsText:='BURST-GG4B-34Y9-ZXGV-FNTNJ';
+     port := '8080';
+     end;
 if Label6.Caption = '127.0.0.1' then
     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.')
@@ -584,6 +594,14 @@ procedure TForm4.ComboBox1Change(Sender: TObject);
      begin
       Edit1.Text := '8080';
      end;
+     if  Label6.Caption = 'falconburstpool.xyz' then
+     begin
+      Edit1.Text := '8080';
+     end;
+if  Label6.Caption = 'pool.burstcoin.ro' then
+     begin
+      Edit1.Text := '8080';
+     end;
 if  Label6.Caption = '127.0.0.1' then
      begin
       Edit1.Text := '8125';