if ($regex(%sread,/^:([^!]*)!([^\@]*)@([^\ ]*?) PRIVMSG (#[^\ ]*) :(.+)$/)) {
var %nick = $regml(1) , %ident = $regml(2) , %host = $regml(3)
var %chan = $regml(4) , %msg = $regml(5) , %wdaddress = $+(%ident,@,%host)
var %pmsg = sockwrite -n $sockname privmsg %chan :
if ($regex(%msg,/^!count ([^\ ]+) (.+)$/)) {
var %begin = $regml(1) , %end = $regml(2)
if (%begin isnum && %end isnum) {
while (%begin <= %end) {
var %counting = %counting %begin
inc %begin
}
}
elseif (%begin isletter && %end isletter) {
var %begin = $asc(%begin) , %end = $asc(%end)
while (%begin <= %end) {
var %counting = %counting $chr(%begin)
inc %begin
}
}
%pmsg $+ Counting: %counting
}
}