--- deliantra/Deliantra-Client/DC.pm	2006/05/19 16:43:56	1.55
+++ deliantra/Deliantra-Client/DC.pm	2006/05/25 16:24:43	1.62
@@ -21,6 +21,8 @@
    XSLoader::load "CFClient", $VERSION;
 }
 
+use utf8;
+
 use Carp ();
 use AnyEvent ();
 use BerkeleyDB;
@@ -38,11 +40,13 @@
    %GL_EXT = map +($_ => 1), split /\s+/, gl_extensions;
 
    $GL_NPOT = $GL_EXT{GL_ARB_texture_non_power_of_two} || $GL_VERSION >= 2;
+   $GL_NPOT = 0 if gl_vendor =~ /ATI Technologies/; # ATI doesn't get it right...
 
    glDisable GL_COLOR_MATERIAL;
    glShadeModel GL_FLAT;
    glDisable GL_DITHER;
    glDisable GL_DEPTH_TEST;
+   glDepthMask 0;
    glHint GL_PERSPECTIVE_CORRECTION_HINT, GL_FASTEST;
 
    CFClient::Texture::restore_state ();
@@ -52,7 +56,8 @@
    return unless $GL_DEBUG;
 
    if (my $error = glGetError) {
-      Carp::cluck sprintf "opengl error %x while %s", $error, sprintf @_;
+      my ($format, @args) = @_;
+      Carp::cluck sprintf "opengl error %x while $format", $error, @args;
    }
 }
 
@@ -107,7 +112,7 @@
                  -ErrFile => "$Crossfire::VARDIR/pclient/errorlog.txt",
 #                 -ErrPrefix => "DATABASE",
                  -Verbose => 1,
-                 -Flags => DB_CREATE | DB_RECOVER_FATAL | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
+                 -Flags => DB_CREATE | DB_RECOVER | DB_INIT_MPOOL | DB_INIT_LOCK | DB_INIT_TXN,
                     or die "unable to create/open database home $Crossfire::VARDIR/pclient: $BerkeleyDB::Error";
 
 sub db_table($) {
@@ -131,6 +136,15 @@
    $pom->present ("CFClient::PodToPango")
 }
 
+sub pod_to_pango_list($) {
+   my ($pom) = @_;
+
+   [
+      map s/^(\s*)// && [40 * length $1, length $_ ? $_ : " "],
+         split /\n/, $pom->present ("CFClient::PodToPango")
+   ]
+}
+
 package CFClient::PodToPango;
 
 use base Pod::POM::View::Text;
@@ -168,8 +182,13 @@
    ("\t" x ($indent / 2)) . "$_[1]\n\n"
 }
 
+sub view_head1 {
+   "<span foreground='#ffff00' size='x-large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
+   . $_[1]->content->present ($_[0])
+};
+
 sub view_head2 {
-   "<big>" . $_[1]->title->present ($_[0]) . "</big>\n\n"
+   "<span foreground='#ccccff' size='large'>" . $_[1]->title->present ($_[0]) . "</span>\n\n"
    . $_[1]->content->present ($_[0])
 };
 
@@ -200,6 +219,77 @@
    $db->db_put ($key => $data)
 }
 
+package CFClient::Item;
+
+sub desc_string {
+   my ($self) = @_;
+
+   my $desc =
+      $self->{nrof} < 2
+         ? $self->{name}
+         : "$self->{nrof} × $self->{name_pl}";
+
+   $self->{flags} & Crossfire::Protocol::F_OPEN
+      and $desc .= " (open)";
+   $self->{flags} & Crossfire::Protocol::F_APPLIED
+      and $desc .= " (applied)";
+   $self->{flags} & Crossfire::Protocol::F_UNPAID
+      and $desc .= " (unpaid)";
+   $self->{flags} & Crossfire::Protocol::F_MAGIC
+      and $desc .= " (magic)";
+   $self->{flags} & Crossfire::Protocol::F_CURSED
+      and $desc .= " (cursed)";
+   $self->{flags} & Crossfire::Protocol::F_DAMNED
+      and $desc .= " (damned)";
+   $self->{flags} & Crossfire::Protocol::F_LOCKED
+      and $desc .= " *";
+
+   $desc
+}
+
+sub weight_string {
+   my ($self) = @_;
+
+   my $weight = ($self->{nrof} || 1) * $self->{weight};
+
+   $weight < 0 ? "?" : $weight * 0.001
+}
+
+sub update_widgets {
+   my ($self) = @_;
+
+   my $tooltip_std = "<small>"
+                   . "Left click - examine item\n"
+                   . "Shift-Left click - " . ($self->{container} ? "move or drop" : "take") . " item\n"
+                   . "Middle click - apply\n"
+                   . "Right click - further options"
+                   . "</small>\n";
+
+   $self->{face_widget} ||= new CFClient::UI::Face can_events => 1, can_hover => 1;
+   $self->{face_widget}{face}      = $self->{face};
+   $self->{face_widget}{anim}      = $self->{anim};
+   $self->{face_widget}{animspeed} = $self->{animespeed};
+   $self->{face_widget}->set_tooltip (
+      "<b>Face/Animation.</b>\n"
+    . "Item uses face #$self->{face}. "
+    . ($self->{animspeed} ? "Item uses animation #$self->{anim} at " . (1 / $self->{animspeed}) . "fps. " : "Item is not animated. ")
+    . "\n\n$tooltip_std"
+   );
+   
+   $self->{desc_widget} ||= new CFClient::UI::Label ellipsise => 2, can_events => 1, can_hover => 1;
+   $self->{desc_widget}->set_text (CFClient::Item::desc_string $self);
+
+   $self->{weight_widget} ||= new CFClient::UI::Label ellipsise => 0, can_events => 1, can_hover => 1, align => 0.5;
+   $self->{weight_widget}->set_text (CFClient::Item::weight_string $self);
+
+   $self->{weight_widget}->set_tooltip (
+      "<b>Weight</b>.\n"
+    . ($self->{weight} >= 0 ? "One item weighs $self->{weight}g. " : "You have no idea how much this weighs. ")
+    . ($self->{nrof} ? "You have $self->{nrof} of it. " : "Item cannot stack with others of it's kind. ")
+    . "\n\n$tooltip_std"
+   );
+}
+
 package CFClient::Texture;
 
 use strict;