alias pig {
  msg $chan $piglatin($1-)
}

alias mepig {
  describe $chan $piglatin($1-)
}

alias piglatin {
  var %i 1 
  var %s
  var %fv 
  var %t 
  var %cap
  var %word
  while ($gettok($1-,%i,32) != $null) { 
    %t = $ifmatch
    %fv = $calc($FirstVowel(%t) - 1)
    %cap = $false 
    if ( %fv > 0 ) {
      if ( $left(%t,1) === $upper($left(%t,1)) ) {
        %cap = $true
      } 
      %word = $lower($right(%t, $calc($len(%t) - %fv)) $+ $left(%t,%fv - 1) $+ ay)
      if (%cap == $true) {
        %word = $upper($left(%word,1)) $+ $right(%word,$calc($len(%word) - 1))
      }
      %s = %s %word
    }
    else {
      %s = %s %t
    }
    inc %i
  } 
  return %s
}

alias FirstVowel {
  var %i 1
  var %t
  while ( %i < $len($1) ) {
    %t = $mid($1,%i,1)
    if ( %t == a || %t == e || %t == i || %t == o || %t == u ) {
      return %i
    } 
    inc %i
  }
  return 0
}