--- deliantra/server/ext/setup.ext	2007/07/10 16:24:58	1.2
+++ deliantra/server/ext/setup.ext	2010/10/05 21:40:05	1.16
@@ -9,9 +9,9 @@
 
    return unless $ns->extcmd;
 
-   $ns->ext_event (capabilities =>
+   $ns->ext_msg (capabilities =>
       # id, name, flags (1 == 2d), edge length
-      tileset => [[1, "default 64x64 faceset", 1, 64], [0, "default 32x32 faceset", 1, 32]],
+      tileset => [[1, "default 64x64 faceset", 1, 64], [0, "default 32x32 faceset", 1, 32], [2, "default text faceset", 2, 1]],
    );
 }
 
@@ -36,7 +36,7 @@
          $ns->monitor_spells ($v);
 
       } elsif ($k eq "darkness") {
-         $ns->darkness ($v);
+         $setup{$k} = 1;
 
       } elsif ($k eq "map1cmd") {
          $ns->mapmode (cf::Map1Cmd) if $v > 0;
@@ -44,11 +44,6 @@
       } elsif ($k eq "map1acmd") {
          $ns->mapmode (cf::Map1aCmd) if $v > 0;
 
-      } elsif ($k eq "map2cmd") {
-         # gcfclient bug, map1acmd is sent too late
-         $ns->mapmode (cf::Map1aCmd);
-         $setup{$k} = "FALSE";
-
       } elsif ($k eq "newmapcmd") {
          $ns->newmapcmd ($v);
 
@@ -56,24 +51,19 @@
          $ns->mapinfocmd ($v);
 
       } elsif ($k eq "extcmd") {
-         $ns->extcmd ($v > 0);
+         $ns->extcmd (min 2, $v);
          send_capabilities $ns;
 
       } elsif ($k eq "extmap") {
-         $ns->extmap ($v);
+         $setup{$k} = 1;
 
       } elsif ($k eq "facecache") {
-         if (!$v) {
-            $v = 1;
-            $setup{$k} = $v;
-            $ns->send_drawinfo ("(trying to forcefully enable facecaching)", cf::NDI_RED);
-         }
-
-         $ns->facecache ($v);
+         $setup{$k} = 1;
 
       } elsif ($k eq "faceset") {
-         $ns->faceset (0);
-         $setup{$k} = 0;
+         $v = cf::clamp $v, 0, 2;
+         $ns->faceset ($v);
+         $setup{$k} = $v;
          # $ns->image2 (1)
 
       } elsif ($k eq "tileset") {
@@ -90,14 +80,13 @@
       } elsif ($k eq "mapsize") {
          my ($x, $y) = split /x/, $v;
 
-         $ns->mapx ($x = max 9, min cf::MAP_CLIENT_X, ($x - 1) | 1);
-         $ns->mapy ($y = max 9, min cf::MAP_CLIENT_Y, ($y - 1) | 1);
+         # we *need* to make sure we use an odd map size, as the remaining
+         # code relies on this.
+         $ns->mapx ($x = max 9, min +(cf::MAP_CLIENT_X - 1) | 1, ($x - 1) | 1);
+         $ns->mapy ($y = max 9, min +(cf::MAP_CLIENT_Y - 1) | 1, ($y - 1) | 1);
 
          $setup{$k} = "${x}x${y}";
 
-      } elsif ($k eq "extendedMapInfos") {
-         $ns->ext_mapinfos ($v);
-
       } elsif ($k eq "extendedTextInfos") {
          $ns->has_readable_type ($v);
 
@@ -105,14 +94,26 @@
          $ns->smoothing ($v);
 
       } elsif ($k eq "fxix") {
-         $ns->fxix ($setup{$k} = min 2, $v);
+         $setup{$k} = 3;
 
       } elsif ($k eq "msg") {
-         $ns->can_msg ($setup{$k} = min 2, $v);
+         $setup{$k} = 1;
 
-      } elsif ($k eq "ywidget") {
-         # eXperimental server-side widgets
-         $ns->{can_widget} = 1;
+      } elsif ($k eq "widget") {
+         # server-side widgets
+         $v = $v > 1;
+         $ns->{can_widget} = $v;
+         $ns->fx_want (6 => 1); # need support for RSRC
+         $setup{$k} = $v ? 2 : 0;
+
+      } elsif ($k eq "lzf") {
+         # the lzf packet simply contains an lzf-compressed packet as argument
+         $ns->{can_lzf} = $v == 1;
+
+      } elsif ($k eq "frag") {
+         # the frag packet contains data which gets appended to the existing packet buffer.
+         # empty frag packet means end of packet.
+         $ns->{can_frag} = $v == 1;
 
       } elsif ($k eq "excmd") {
          # we support it
@@ -131,8 +132,6 @@
   cf::datalog setup =>
      request => $args,
      reply   => \%setup,
-     client  => $ns->version,
   ;
 });
 
-