… | |
… | |
3200 | id => "death", |
3200 | id => "death", |
3201 | title => "Death", |
3201 | title => "Death", |
3202 | reply => undef, |
3202 | reply => undef, |
3203 | tooltip => "Reason for and more info about your most recent death", |
3203 | tooltip => "Reason for and more info about your most recent death", |
3204 | }, |
3204 | }, |
|
|
3205 | "c/fatal" => { |
|
|
3206 | id => "fatal", |
|
|
3207 | title => "Fatal Error", |
|
|
3208 | reply => undef, |
|
|
3209 | tooltip => "Reason for the server disconnect", |
|
|
3210 | }, |
3205 | "c/say" => $SAY_CHANNEL, |
3211 | "c/say" => $SAY_CHANNEL, |
3206 | "c/chat" => $CHAT_CHANNEL, |
3212 | "c/chat" => $CHAT_CHANNEL, |
3207 | ); |
3213 | ); |
3208 | |
3214 | |
3209 | sub cf::client::send_msg { |
3215 | sub cf::client::send_msg { |
… | |
… | |
3532 | my ($name, $type, $data) = @_; |
3538 | my ($name, $type, $data) = @_; |
3533 | |
3539 | |
3534 | my $idx = cf::face::find $name; |
3540 | my $idx = cf::face::find $name; |
3535 | |
3541 | |
3536 | if ($idx) { |
3542 | if ($idx) { |
3537 | delete $HASH{cf::face::get_chksum $idx}; |
3543 | delete $HASH{cf::face::get_csum $idx}; |
3538 | } else { |
3544 | } else { |
3539 | $idx = cf::face::alloc $name; |
3545 | $idx = cf::face::alloc $name; |
3540 | } |
3546 | } |
3541 | |
3547 | |
3542 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |
3548 | my $hash = cf::face::mangle_csum Digest::MD5::md5 $data; |