-
Notifications
You must be signed in to change notification settings - Fork 13
/
mplang.pas
210 lines (198 loc) · 7.15 KB
/
mplang.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
unit mpLang;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
Procedure LoadDefLangList();
Procedure CrearArchivoLang();
implementation
uses
MasterPaskalForm;
Procedure LoadDefLangList();
Begin
DLSL.Clear;
DLSL.Add('1');
DLSL.Add('English');
DLSL.Add('Unknown command: '); //0
DLSL.Add('Current Language: ');
DLSL.Add('Lines: ');
DLSL.Add('Language changed to: ');
DLSL.Add('Invalid language number.');
DLSL.Add('Available Languages: '); //5
DLSL.Add('Server Excepcion: ');
DLSL.Add('Error receiving line: ');
DLSL.Add('INVALID CLIENT : ');
DLSL.Add('INCOMING CLOSED: OWN CONNECTION');
DLSL.Add('BLACKLISTED FROM: '); //10
DLSL.Add('DUPLICATE REJECTED: ');
DLSL.Add('Server full. Unable to keep conection: ');
DLSL.Add('New Connection from: ');
DLSL.Add('Server ENABLED. Listening on port ');
DLSL.Add('Unable to start Server'); //15
DLSL.Add('Server stopped');
DLSL.Add('Time offset seconds: ');
DLSL.Add('Default language file created.');
DLSL.Add('Update to version sucessfull: ');
DLSL.Add('Error saving block to disk.'); //20
DLSL.Add('Solution for block received and verified: ');
DLSL.Add('CONNECTION REJECTED: INVALID PROTOCOL -> ');
DLSL.Add('Unknown command () in slot: (');
DLSL.Add('New address created : ');
DLSL.Add('Base64 file not found'); //25
DLSL.Add('Public key file not found.');
DLSL.Add('Signed Verification Ok');
DLSL.Add('Signed Verification FAILED');
DLSL.Add('127.0.0.1 is an invalid server address');
DLSL.Add('Connected TO: '); //30
DLSL.Add('Conection lost to ');
DLSL.Add('Conection closed: Time Out Auth -> ');
DLSL.Add('Disconnected.');
DLSL.Add('Connecting...');
DLSL.Add('Connected.'); //35
DLSL.Add('Updated!');
DLSL.Add('Update file received is wrong.');
DLSL.Add('Update file received is obsolete.');
DLSL.Add('Mining block number: ');
DLSL.Add('BLOCK FOUND! Verified and sent! Block: '); //40
DLSL.Add('Node added.');
DLSL.Add('Node already exists.');
DLSL.Add('Invalid node index.');
DLSL.Add('Node deleted : ');
DLSL.Add(' bots registered.'); //45
DLSL.Add('Number Type ConnectedTo ChannelUsed LinesOnWait SumHash LBHash Offset ConStatus');
DLSL.Add('GetNodes option is now ');
DLSL.Add('ACTIVE');
DLSL.Add('INACTIVE');
DLSL.Add('Miner '); //50
DLSL.Add(' addresses.');
DLSL.Add('AutoServer option is now ');
DLSL.Add('Autoconnect option is now ');
DLSL.Add('Only the Noso developers can do this.');
DLSL.Add('The specified zip file not exists: '); //55
DLSL.Add('Can not send the update file.');
DLSL.Add('Update file sent to peers: ');
DLSL.Add('AutoUpdate option is now ');
DLSL.Add('Unable to connect to NTP servers. Check your internet connection');
DLSL.Add('Specified wallet file do not exists.'); //60
DLSL.Add(' Wallet ');
DLSL.Add('Closing wallet');
DLSL.Add('Closed gracefully');
DLSL.Add('Generate new address');
DLSL.Add('Copy address to clipboard'); //65
DLSL.Add('Send coins');
DLSL.Add('Paste destination');
DLSL.Add('Send all');
DLSL.Add('Clear');
DLSL.Add('Send'); //70
DLSL.Add('Cancel');
DLSL.Add('Confirm');
DLSL.Add('Transaction details');
DLSL.Add('Headers file received');
DLSL.Add(' (OWN)'); //75
DLSL.Add('Receiver : ');
DLSL.Add('Ammount : ');
DLSL.Add('Concept : ');
DLSL.Add('Transfers: ');
DLSL.Add('Mined : '); //80
DLSL.Add('Address customization');
DLSL.Add('Address : ');
DLSL.Add('Alias : ');
DLSL.Add('Maintenance fee');
DLSL.Add('Interval : '); //85
DLSL.Add(' (Address deleted from summary)');
DLSL.Add('Copied to clipboard');
DLSL.Add('Block GENESYS (0) created.');
DLSL.Add('Block builded: ');
DLSL.Add('Block undone: '); //90
DLSL.Add('Headers file sent');
DLSL.Add('Requested blocks interval: ');
DLSL.Add('Sent blocks interval: ');
DLSL.Add('Duplicate sender in order');
DLSL.Add('Balance'); //95
DLSL.Add('Server');
DLSL.Add('Headers');
DLSL.Add('Connections');
DLSL.Add('Summary');
DLSL.Add('Blocks'); //100
DLSL.Add('Public IP');
DLSL.Add('Pending');
DLSL.Add('Miner');
DLSL.Add('Hashing');
DLSL.Add('Target'); //105
DLSL.Add('Reward');
DLSL.Add('Block Time');
DLSL.Add('Block');
DLSL.Add('Time' );
DLSL.Add('Type'); //110
DLSL.Add('Amount');
DLSL.Add('Method');
DLSL.Add('Price');
DLSL.Add('Total');
DLSL.Add('Status'); //115
DLSL.Add('Destination');
DLSL.Add('Concept');
DLSL.Add('Address');
DLSL.Add('Not mining');
DLSL.Add('FATAL ERROR'); //120
DLSL.Add('OpenSSL not found. Program will close inmediately');
DLSL.Add('Updated with ');
DLSL.Add(' peers' );
DLSL.Add('Not mining.');
DLSL.Add('Ready for mine'); //125
DLSL.Add('Do you want visit the OpenSSL oficial webpage?');
DLSL.Add('Rebuilding until block ');
DLSL.Add('Rebuild block: ');
DLSL.Add(' added to headers');
DLSL.Add('Rebuilding summary block: '); //130
DLSL.Add('Summary rebuilded.');
DLSL.Add('Miner solution invalid?');
DLSL.Add('Failed block verification step: ');
DLSL.Add('The file is not a valid wallet');
DLSL.Add('Addresses imported: '); //135
DLSL.Add('No new addreses found.');
DLSL.Add('Invalid address number.');
DLSL.Add('Address 0 is already the default.');
DLSL.Add('New default address: ');
DLSL.Add('Invalid address'); //140
DLSL.Add('Address already have a custom alias');
DLSL.Add('Alias must have between 5 and 40 chars');
DLSL.Add('Alias can not be a valid address');
DLSL.Add('Insufficient balance');
DLSL.Add('Invalid parameters.'); //145
DLSL.Add('Invalid destination.');
DLSL.Add('Invalid ammount.');
DLSL.Add('Insufficient funds. Needed: ');
DLSL.Add('From block ');
DLSL.Add(' until '); //150
DLSL.Add('And then ');
DLSL.Add('Final supply: ');
DLSL.Add('Coins to group: ');
DLSL.Add('You do not have coins to group.');
DLSL.Add(' wallet translation file'); //155
DLSL.Add('Translate each line into the blank line below it');
DLSL.Add('Be careful to respect blank spaces at the beginning and end of each line');
DLSL.Add('Translation file generated.');
DLSL.Add('Something went wrong');
DLSL.Add('Server Already active'); //160
DLSL.Add('You need add some nodes first');
DLSL.Add('Trying connection to servers');
DLSL.Add('Headers file requested');
DLSL.Add('LastBlock requested from block ');
DLSL.Add(' new address(s).'); //165
end;
Procedure CrearArchivoLang();
var
Archivo : file of string[255];
Begin
LoadDefLangList();
AssignFile(Archivo,LanguageFileName);
rewrite(Archivo);
while DLSL.Count>0 do
begin
write(archivo,DLSL[0]);
DLSL.Delete(0);
end;
Closefile(Archivo);
LoadDefLangList();
End;
END. // END UNIT