Noktalama işaretleri Renkli Olsun.
|
1 2 3 4 5 6 7 8 9 10 |
on *:input:*:{ if (!$regex($left($1,1),/^!|[./]|/|/i/)) { var %wn $numtok($1-,32) while (%wn > 0) { if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn } } } alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>)) alias yr return $r(2,6) |