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 %xy 1
  var %yx 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. [ $+ [ %yx ] ] $addtok(%chanl. [ $+ [ %yx ] ],$chr(32) $+ 14 $+ %xy $+  $ini(myservice.ini,channels,%xy),44)
    if ($numtok(%chanl. [ $+ [ %yx ] ],44) == $calc(%yx * 10)) { .timer 1 %yx .notice $nick %chanl. [ $+ [ %yx ] ] | inc %yx }
    inc %xy
  }
  .timer 1 %yx .notice $nick %chanl. [ $+ [ %yx ] ]
}