To solve the problem mentioned by Horstl, you can use a decreasing loop instead of an increasing one.

Code:

alias cut.files {
  var %x = $calc($findfile($mircdir,irc*,0,1) + 1), %xx = 1
  while (%x > %xx) {
    dec %x
    var %file = $qt($findfile($mircdir,irc*,%x,1))
    if (%file != irc-companion) { 
      copy -o %file $scriptdir($gettok(%file,-1,92)) 
      remove %file
    } 
  }
}

(untested)

-genius_at_work