--- deliantra/server/ext/login.ext	2007/06/16 00:12:20	1.54
+++ deliantra/server/ext/login.ext	2007/06/24 01:09:28	1.55
@@ -478,6 +478,21 @@
 
          $pl->chargen_race_done;
 
+         while () {
+            my $res = query $ns, cf::CS_QUERY_SINGLECHAR,
+                         "Now choose a gender.\nPress 'f' to become female, and 'm' to become male.\n";
+
+            if ($res =~ /^[fF]/) {
+               $pl->gender (1);
+               last;
+            } elsif ($res =~ /^[mM]/) {
+               $pl->gender (0);
+               last;
+            }
+         }
+
+         $ob->reply (undef, "Welcome to Crossfire!");
+
          delete $pl->{deny_save};
 
          last;