number/letter counter

Paste Your small code(s) here, ex. small aliases, identifiers

number/letter counter

Postby PuNkTuReD » Mon Feb 08, 2010 4:17 am

Code: Select all
Number/Letter counter
By PuNkTuReD
on 1:input:*: {
  var %a = 0:1:2:3:4:5:6:7:8:9:a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z, %b = $numtok(%a,58), %d = %b
  while (%b) { var %c = $gettok(%a,%b,58) | inc $+(%,c,%c) $count($1-,%c) | dec %b }
  while (%d) { var %e = $gettok(%a,%d,58), %f = %e = $+($($+(%,c,%e),2),$chr(44)) %f | dec %d }
  set %mIRCstats My total number/letter count: %f

to check ur stats
//echo -a %mIRCstats
//msg $active %mIRCstats

Return to Mirc Scripting Snippets

Who is online

Users browsing this forum: No registered users and 0 guests