Обрезка текста

автор **ВолшебнеГ** Вс Мар 20, 2011 11:29 am

Вставьте этот код в Alt+R - Скрипты:

Код:: on *:input:*:{ var %maxlen = $calc(512 - $len($address($me, 5)) - $len($target) - 14) if ($len($1-) <= %maxlen) || ((/* iswm $1) && (/me != $1)) return var %i = $numtok($1-, 32), %end = 0 while (%end < $0) { var %start = $calc(%end + 1), %i = $0 while ($len($gettok($1-, $+(%start, -, %i), 32)) > %maxlen) { if (%i < 1) return; dec %i } $iif($1 != /me, say) $gettok($1-, $+(%start, -, %i), 32) var %end = %i } halt }