alias chanlist {
  if ($ini(myservice.ini,channels,0) == 0) || ($ini(myservice.ini,channels,0) == $null) { .notice $nick No channels where found for $me $+ . | halt }
  var %x 1
  var %y 1
  .notice $nick 7¤  $+ $me $+ 's channels 7(14Use '!part/join <#channel>' to leave/join a channel7)
  while (%x <= $ini(myservice.ini,channels,0)) {
    var %chanl. [ $+ [ %y ] ] $addtok(%chanl. [ $+ [ %y ] ],$chr(32) $+ 14 $+ %x $+  $ini(myservice.ini,channels,%x),44)
    if ($numtok(%chanl. [ $+ [ %y ] ],44) == $calc(%y * 10)) { .timer 1 %y .notice $nick %chanl. [ $+ [ %y ] ] | inc %y }
    inc %x
  }
  .timer 1 %y .notice $nick %chanl. [ $+ [ %y ] ]
}