--- deliantra/Deliantra-Client/bin/cfplus	2006/06/13 10:28:38	1.70
+++ deliantra/Deliantra-Client/bin/cfplus	2006/06/13 18:14:03	1.72
@@ -818,26 +818,25 @@
 
    $STATWIDS->{m_weight}->set_text (sprintf "Max weight: %.1fkg", $stats->{+CS_STAT_WEIGHT_LIM} / 1000);
 
-   # TODO: replace by CS_STAT_RES_xxx constants
    my %tbl = (
-      phys  => 100,
-      magic => 101,
-      fire  => 102,
-      elec  => 103,
-      cold  => 104,
-      conf  => 105,
-      acid  => 106,
-      drain => 107,
-      ghit  => 108,
-      pois  => 109,
-      slow  => 110,
-      para  => 111,
-      tund  => 112,
-      fear  => 113,
-      depl  => 113,
-      deat  => 115,
-      holyw => 116,
-      blind => 117,
+      phys  => CS_STAT_RES_PHYS,
+      magic => CS_STAT_RES_MAG,
+      fire  => CS_STAT_RES_FIRE,
+      elec  => CS_STAT_RES_ELEC,
+      cold  => CS_STAT_RES_COLD,
+      conf  => CS_STAT_RES_CONF,
+      acid  => CS_STAT_RES_ACID,
+      drain => CS_STAT_RES_DRAIN,
+      ghit  => CS_STAT_RES_GHOSTHIT,
+      pois  => CS_STAT_RES_POISON,
+      slow  => CS_STAT_RES_SLOW,
+      para  => CS_STAT_RES_PARA,
+      tund  => CS_STAT_TURN_UNDEAD,
+      fear  => CS_STAT_RES_FEAR,
+      depl  => CS_STAT_RES_DEPLETE,
+      deat  => CS_STAT_RES_DEATH,
+      holyw => CS_STAT_RES_HOLYWORD,
+      blind => CS_STAT_RES_BLIND,
    );
 
    $STATWIDS->{"res_$_"}->set_text (sprintf "%d%", $stats->{$tbl{$_}})
@@ -1355,6 +1354,17 @@
    };
 
    my $vb = new CFClient::UI::VBox;
+   $vb->add (my $hb = new CFClient::UI::HBox);
+   $hb->add (new CFClient::UI::Label text => "only shift-up stops fire");
+   $hb->add (new CFClient::UI::CheckBox
+         expand => 1,
+         state => $CFG->{shift_fire_stop},
+         tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
+         on_changed => sub {
+            my ($cbox, $value) = @_;
+            $CFG->{shift_fire_stop} = $value;
+         });
+
    $vb->add ($binding_list);
    $vb->add (my $hb = new CFClient::UI::HBox);