… | |
… | |
1463 | sub expand_cfpod { |
1463 | sub expand_cfpod { |
1464 | ((my $self), (local $_)) = @_; |
1464 | ((my $self), (local $_)) = @_; |
1465 | |
1465 | |
1466 | # escape & and < |
1466 | # escape & and < |
1467 | s/&/&/g; |
1467 | s/&/&/g; |
1468 | s/(?<![BIUGH])</</g; |
1468 | s/(?<![BIUGHT])</</g; |
1469 | |
1469 | |
1470 | # this is buggy, it needs to properly take care of nested <'s |
1470 | # this is buggy, it needs to properly take care of nested <'s |
1471 | |
1471 | |
1472 | 1 while |
1472 | 1 while |
1473 | # replace B<>, I<>, U<> etc. |
1473 | # replace B<>, I<>, U<> etc. |
1474 | s/B<([^\>]*)>/<b>$1<\/b>/ |
1474 | s/B<([^\>]*)>/<b>$1<\/b>/ |
1475 | || s/I<([^\>]*)>/<i>$1<\/i>/ |
1475 | || s/I<([^\>]*)>/<i>$1<\/i>/ |
1476 | || s/U<([^\>]*)>/<u>$1<\/u>/ |
1476 | || s/U<([^\>]*)>/<u>$1<\/u>/ |
|
|
1477 | || s/T<([^\>]*)>/<big><b>$1<\/b><\/big>/ |
1477 | # replace G<male|female> tags |
1478 | # replace G<male|female> tags |
1478 | || s{G<([^>|]*)\|([^>]*)>}{ |
1479 | || s{G<([^>|]*)\|([^>]*)>}{ |
1479 | $self->gender ? $2 : $1 |
1480 | $self->gender ? $2 : $1 |
1480 | }ge |
1481 | }ge |
1481 | # replace H<hint text> |
1482 | # replace H<hint text> |
… | |
… | |
2511 | id => "identify", |
2512 | id => "identify", |
2512 | title => "Identify", |
2513 | title => "Identify", |
2513 | reply => undef, |
2514 | reply => undef, |
2514 | tooltip => "Items recently identified", |
2515 | tooltip => "Items recently identified", |
2515 | }, |
2516 | }, |
|
|
2517 | "c/examine" => { |
|
|
2518 | id => "examine", |
|
|
2519 | title => "Examine", |
|
|
2520 | reply => undef, |
|
|
2521 | tooltip => "Signs and other items you examined", |
|
|
2522 | }, |
2516 | ); |
2523 | ); |
2517 | |
2524 | |
2518 | sub cf::client::send_msg { |
2525 | sub cf::client::send_msg { |
2519 | my ($self, $channel, $msg, $color, @extra) = @_; |
2526 | my ($self, $channel, $msg, $color, @extra) = @_; |
2520 | |
2527 | |