| … | |
… | |
| 351 | my ($self, $ev) = @_; |
351 | my ($self, $ev) = @_; |
| 352 | |
352 | |
| 353 | my $res = 0; |
353 | my $res = 0; |
| 354 | my $mod = $ev->{mod}; |
354 | my $mod = $ev->{mod}; |
| 355 | my $sym = $ev->{sym}; |
355 | my $sym = $ev->{sym}; |
|
|
356 | |
|
|
357 | delete $self->{last_mod}; |
|
|
358 | delete $self->{last_sym}; |
| 356 | |
359 | |
| 357 | if ($::CFG->{shift_fire_stop}) { |
360 | if ($::CFG->{shift_fire_stop}) { |
| 358 | if (!($mod & DC::KMOD_SHIFT) && delete $self->{shft}) { |
361 | if (!($mod & DC::KMOD_SHIFT) && delete $self->{shft}) { |
| 359 | $::CONN->user_send ("fire_stop"); |
362 | $::CONN->user_send ("fire_stop"); |
| 360 | delete $self->{fire_dir}; |
363 | delete $self->{fire_dir}; |
