--- deliantra/server/ext/login.ext	2007/06/10 03:16:54	1.52
+++ deliantra/server/ext/login.ext	2007/07/01 03:16:56	1.58
@@ -1,4 +1,4 @@
-#! perl # MANDATORY
+#! perl # mandatory
 
 # login handling
 
@@ -6,6 +6,8 @@
 use Coro::AIO;
 use List::Util qw(min max);
 
+our %EXT_SETUP;
+
 # paranoia function to overwrite a string-in-place
 sub nuke_str {
    substr $_[0], 0, (length $_[0]), "x" x length $_[0]
@@ -205,10 +207,18 @@
          $ns->smoothing ($v);
 
       } elsif ($k eq "fxix") {
+         $v = 2 if $v > 2;
          $ns->fxix ($v);
+         $setup{$k} = $v;
 
       } elsif ($k eq "msg") {
-         $ns->can_msg ($v);
+         $v = 2 if $v > 2;
+         $ns->can_msg ($v >= 2);
+         $setup{$k} = $v;
+
+      } elsif ($k eq "xwidget") {
+         # eXperimental server-side widgets
+         $ns->{can_widget} = 1;
 
       } elsif ($k eq "excmd") {
          # we support it
@@ -476,6 +486,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;
@@ -608,8 +633,7 @@
                      $pl = delete $cf::PLAYER{$ob->name};
                      $ob = $pl->ob;
 
-                     $ob->destroy;
-                     $pl->destroy;
+                     $pl->destroy; # destroys $ob
                   } else {
                      my $a_ = $pl->refcnt;#d#
                      my $b_ = $ob->refcnt;#d#