(contents of README)

ProgressQuest v6.3
------------------
This directory represents an ex post facto rendering of pq6 in its
various versions in svn, so that changes will be trackable thataway.

The version as of this moment in svn is 6.3

(I didn't add this file in PQ 6.0, but after that you can use this README
to trace the checkin history using svn.)

NewGuy.pas

@@ -44,6 +44,7 @@ type
     procedure ApplicationEvents1Minimize(Sender: TObject);
     procedure GenClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     procedure RollEm;
     function GetAccount: String;
@@ -57,10 +58,11 @@ var
   NewGuyForm: TNewGuyForm;
 
 function UrlEncode(s: string): string;
+function GenerateName: string;
 
 implementation
 
-uses Main, SelServ, StrUtils, Web;
+uses Main, SelServ, StrUtils, Web, Config;
 
 {$R *.dfm}
 
@@ -250,4 +252,16 @@ begin
   end;
 end;
 
+procedure TNewGuyForm.FormCreate(Sender: TObject);
+var
+  i: Integer;
+begin
+  Race.Items.Clear;
+  for i := 0 to K.Races.Lines.Count-1 do
+    Race.Items.Add(Split(K.Races.Lines[i],0));
+  Klass.Items.Clear;
+  for i := 0 to K.Klasses.Lines.Count-1 do
+    Klass.Items.Add(Split(K.Klasses.Lines[i],0));
+end;
+
 end.