INVERSER SON PEUDO AUTOMATIQUEMENT

menu menubar {
  Inverser pseudo: /pseudoinv
}

alias /pseudoinv {
  unset %pseudonbr
  unset %pseudo_fin
  unset %changement
  %pseudoav = $me
  %pseudonbr = $len($me)

  while ( %pseudonbr != 0 ) {
    %pseudo_fin = %pseudo_fin $+ $mid(%pseudoav,%pseudonbr,1)
    dec %pseudonbr
  }
  set %changement $?!="Votre nouveau Pseudo => %pseudo_fin            Voulez vous changer votre pseudo ?"

  if ( %changement = $true ) {
    /nick %pseudo_fin
  }
  elseif ( %changement = $false ) {
  halt }
}