on *:input:#:{ if (/* iswm $1) { return } var %a 0, %b, %c while (%a < $numtok($1-,32)) { inc %a %c = $gettok($1-,%a,32) if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(,%c,) } else { %b = %b %c } } if (!%b) { %b = $1- } say %b halt }
Powered by vBulletin® Version 3.8.8 Copyright ©2000 - 2024, vBulletin Solutions, Inc.