… | |
… | |
1414 | s/(?<=\S)\n(?=\w)/ /g; |
1414 | s/(?<=\S)\n(?=\w)/ /g; |
1415 | |
1415 | |
1416 | # compress some whitespace |
1416 | # compress some whitespace |
1417 | 1 while s/\s*\n\s*\n\s*/\n/; |
1417 | 1 while s/\s*\n\s*\n\s*/\n/; |
1418 | |
1418 | |
|
|
1419 | s/^\s+//; |
|
|
1420 | s/\s+$//; |
|
|
1421 | |
1419 | $_ |
1422 | $_ |
1420 | } |
1423 | } |
1421 | |
1424 | |
1422 | sub hintmode { |
1425 | sub hintmode { |
1423 | warn "hm<$_[0] $_[1]>\n";#d# |
|
|
1424 | $_[0]{hintmode} = $_[1] if @_ > 1; |
1426 | $_[0]{hintmode} = $_[1] if @_ > 1; |
1425 | $_[0]{hintmode} |
1427 | $_[0]{hintmode} |
1426 | } |
1428 | } |
1427 | |
1429 | |
1428 | =item $player->ext_reply ($msgid, %msg) |
1430 | =item $player->ext_reply ($msgid, %msg) |