[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/bin/cfplus

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.138 by root, Sat Dec 9 21:26:46 2006 UTC vs.
Revision 1.141 by elmex, Sat Dec 16 17:33:26 2006 UTC

 use CFPlus::Macro;
 $SIG{QUIT} = sub { Carp::cluck "QUIT" };
 $SIG{PIPE} = 'IGNORE';
-$Event::Eval = 0;
+$Event::Eval = 1;
 $Event::DIED = sub {
    CFPlus::fatal Carp::longmess $_[1]
 };
 my $MAX_FPS = 60;
 sub destroy_query_dialog {
    (delete $_[0]{query_dialog})->destroy
       if $_[0]{query_dialog};
 }
+# FIXME: a very ugly hack to wait for stat update look below! #d#
+our $QUERY_TIMER; #d#
 # server query dialog
 sub server_query {
    my ($conn, $flags, $prompt) = @_;
+   # FIXME: a very ugly hack to wait for stat update #d#
+   if ($prompt =~ /roll new stats/ and not $conn->{stat_change_with}) {
+      unless ($QUERY_TIMER) {
+         $QUERY_TIMER =
+            Event->timer (
+               after => 1,
+               cb => sub {
+                  server_query ($conn, $flags, $prompt, 1);
+                  $QUERY_TIMER = undef
+               }
+           );
+         return;
+      }
+   }
    $conn->{query_dialog} = my $dialog = new CFPlus::UI::Toplevel
       x     => "center",
       y     => "center",
       title => "Server Query",
 }
 sub setup_build_button {
    my ($enabled) = @_;
    if ($enabled) {
+      $BUILD_BUTTON->hide if $BUILD_BUTTON;
       $BUILD_BUTTON ||= new CFPlus::UI::Button
          text        => "Build",
          tooltip     => "Opens the ingame builder",
          on_activate => sub {
             if ($CONN) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines