… | |
… | |
2373 | 1 while |
2373 | 1 while |
2374 | s/<b>([^<]*)<\/b>/[b]${1}[\/b]/ |
2374 | s/<b>([^<]*)<\/b>/[b]${1}[\/b]/ |
2375 | || s/<i>([^<]*)<\/i>/[i]${1}[\/i]/ |
2375 | || s/<i>([^<]*)<\/i>/[i]${1}[\/i]/ |
2376 | || s/<u>([^<]*)<\/u>/[ul]${1}[\/ul]/ |
2376 | || s/<u>([^<]*)<\/u>/[ul]${1}[\/ul]/ |
2377 | || s/<tt>([^<]*)<\/tt>/[fixed]${1}[\/fixed]/ |
2377 | || s/<tt>([^<]*)<\/tt>/[fixed]${1}[\/fixed]/ |
2378 | || s/<fg name=\"([^"]+)\">([^<]*)<\/fg>/[color=$1]${1}[\/color]/; |
2378 | || s/<fg name=\"([^"]+)\">([^<]*)<\/fg>/[color=$1]${2}[\/color]/; |
2379 | } |
2379 | } |
2380 | |
2380 | |
2381 | if ($color >= 0) { |
2381 | if ($color >= 0) { |
2382 | if (0 && $msg =~ /\[/) { |
2382 | if (0 && $msg =~ /\[/) { |
2383 | $self->send_packet ("drawextinfo $color 4 0 $msg") |
2383 | $self->send_packet ("drawextinfo $color 4 0 $msg") |