mirrors/ProgressQuest
1
0
Fork 0
mirror of https://bitbucket.org/grumdrig/pq.git synced 2026-09-29 00:33:59 -06:00
Code Issues Packages Projects Releases Wiki Activity

Fixed: can't create a character using email, only nickname

Browse Source
This commit is contained in:
Eric Fredricksen
2022-01-13 20:08:55 -08:00
parent 5fa415a542
commit a2ae462d30
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
NewGuy.pas
+3 -3
View File
@@ -184,15 +184,15 @@ begin
else url := 'http://www.progressquest.com/create.php?';
// url := StringReplace(url, '.com/', '.com/dev/', []);
if (GetAccount <> '') or (GetPassword <> '') then
url := StuffString(url, 8, 0, GetAccount+':'+GetPassword+'@');
url := StuffString(url, 8, 0, UrlEncode(GetAccount)+':'+UrlEncode(GetPassword)+'@');
args := 'cmd=create' +
'&name=' + UrlEncode(Name.Text) +
'&realm=' + UrlEncode(MainForm.GetHostName) +
RevString;
ParseSoldResponse(DownloadString(url + args));
except
on EWebError do begin
ShowMessage('Error connecting to server');
on E: EWebError do begin
ShowMessage('Error connecting to server')//: ' + StringReplace(E.Message, '&', '&&', [rfReplaceAll]));
end;
end;
finally