Kod: Kodu kopyalamak için üzerine çift tıklayın!
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) { byaz $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) alias byaz { var %/ = 1,%= = $numtok($1-,32),%: while %/ <= %= { var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32) inc %/ haltdef } say %: }