Triangle Script NexBot

alias triangle {
  var %text $1-
  var %count $len(%text)
  var %num $floor($calc(%count / 2))
  var %i true
  while (%count > 0) {
    var %a $+(%a,$left(%text,1))
    var %text $right(%text,-1)
    msg $active $+($str($chr(1),%num),%a)
    dec %count
    if (%i == true) {
      var %i false
      dec %num
    }
    else {
      var %i true
    }
  }
}