alias blah {
  if (%1 == -11) {
    set %1 2
  }
  if (%1 == -10) {
    set %1 3
  }
  if (%1 == -9) {
    set %1 4
  }
  if (%1 == -8) {
    set %1 5
  }
  if (%1 == -7) {
    set %1 6
  }
  if (%1 == -6) {
    set %1 7
  }
  if (%1 == -5) {
    set %1 8
  }
  if (%1 == -4) {
    set %1 9
  }
  if (%1 == -3) {
    set %1 10
  }
  if (%1 == -2) {
    set %1 11
  }
  if (%1 == -1) {
    set %1 12
  }
}

This can be shortened to

alias blah if (%1 < 0 && %1 > -12) set %1 $calc(%1 + 13)

Also you should look into using while loops rather than goto\'s.
Altogether this isn\'t an amazing script but I suppose it\'s decent.