alias letter {
  var %let $regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/\b(.)\1*(\s|$)/g,)
  if $regex(%let,/(\S+)/g) { echo -a $+($1-,:) Burada $regml(0) kelime var. }
  else { echo -a $+($1-,:) Burada tek harf/rakam(lar) var }
}

on *:input:#shady1:{
  if $regex($regsubex($regsubex($regsubex($1-,/[[:punct:]]|\d/g,),/(^|\s)(.)(\s|$)/g,),/(.)\1+/g,\1),/(\S+)/g) { 
    hadd -m p $+(kelime,$nick) $calc($hget(p,$+(kelime,$nick)) + $regml(0)) 
    hadd -m p $+(satır,$nick) $calc($hget(p,$+(satır,$nick)) + 1) 
    msg # 4Algılanan gönderi: $regsubex($regsubex($1-,/[[:punct:]]/g,),/\b(.)\1*(\s|$)/g,) 4Kelime toplamı: $hget(p,$+(kelime,$nick)) 4Satır toplamı: $hget(p,$+(satır,$nick)) 4Puanın: $calc($calc($hget(p,$+(kelime,$nick)) * $hget(p,$+(satır,$nick))) / 100)
  }
}

[00:10:08] «@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» hebele hübele cartttttttttttt curt
[00:10:08] <Xenophanes> Algılanan gönderi: hebele hübele cart curt Kelime toplamı: 65 Satır toplamı: 59 Puanın: 38.35
[00:10:14] «@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» denemexxxxxxxxxxxxxxxxxeeeeeeeeeeeeeeeeeddddddddd
[00:10:14] <Xenophanes> Algılanan gönderi: denemexed Kelime toplamı: 66 Satır toplamı: 60 Puanın: 39.6
[00:10:19] «@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» hey naber nasıl gidiyor?
[00:10:19] <Xenophanes> Algılanan gönderi: hey naber nasıl gidiyor Kelime toplamı: 70 Satır toplamı: 61 Puanın: 42.7
[00:10:23] «@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» 01293019203sahayha
[00:10:23] <Xenophanes> Algılanan gönderi: sahayha Kelime toplamı: 71 Satır toplamı: 62 Puanın: 44.02
[00:10:28] «@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]» as*apsd*pas*dpas das*d *asd
[00:10:28] <Xenophanes> Algılanan gönderi: asapsdpasdpas dasd asd Kelime toplamı: 74 Satır toplamı: 63 Puanın: 46.62