alias ciao {
  scon -a quit
}
alias are {
  scon -a re
}
alias aoqp {
  scon -a oqp
}
alias abs {
  scon -a away
}
alias az {
  scon -a dodo
}
alias oqp {
   var %newnick = $readini($+($left($script,-4),.ini),$network,nick.busy)
   if (%newnick != $null) {
     nick %newnick
     var %i = 1, %items = $hget(auto-reply,0).item
     while (%i <= %items) {
       var %nick = $hget(auto-reply,%i).item
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),busy=1,1,32),busy=0,32)
       inc %i
     }
   }
}
alias away {
   var %newnick = $readini($+($left($script,-4),.ini),$network,nick.away)
   if (%newnick != $null) {
     nick %newnick
     var %i = 1, %items = $hget(auto-reply,0).item
     while (%i <= %items) {
       var %nick = $hget(auto-reply,%i).item
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),away=1,1,32),away=0,32)
       inc %i
     }
   }
}
alias dodo {
   var %newnick = $readini($+($left($script,-4),.ini),$network,nick.sleeping)
   if (%newnick != $null) {
     nick %newnick
     var %i = 1, %items = $hget(auto-reply,0).item
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),sleeping=1,1,32),sleeping=0,32)
       inc %i
     }
   }
}
alias re {
   var %newnick = $readini($+($left($script,-4),.ini),$network,nick), %password = $readini($+($left($script,-4),.ini),$network,password)
   if (%newnick != $null) {
     nick %newnick
     var %i = 1, %items = $hget(auto-reply,0).item
     while (%i <= %items) {
       var %nick = $hget(auto-reply,%i).item
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),away=1,1,32),away=0,32)
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),busy=1,1,32),busy=0,32)
       hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),sleeping=1,1,32),sleeping=0,32)
       inc %i
     }
     if (%password != $null) {
       ns identify %password
     }
   }
}
on *:TEXT:*:?: {
   var %data = $hget(auto-reply,$nick)
      if ($me == $readini($+($left($script,-4),.ini),$network,nick.busy) && (%data == $null || $istok(%data,busy=0,32))) {
     msg $nick [Répondeur] Je suis Occupé, je ne sais pas quand j'aurai terminé, si tu veux laisse un message, j'y répondrai à mon retour.
     hadd -m auto-reply $nick $addtok($remtok(%data,busy=0,1,32),busy=1,32)
   }
   elseif ($me == $readini($+($left($script,-4),.ini),$network,nick.away) && (%data == $null || $istok(%data,away=0,32))) {
     msg $nick [Répondeur] Je suis Absent, je ne sais pas quand je serai de retour, si tu veux laisse un message, j'y répondrai à mon retour.
     hadd -m auto-reply $nick $addtok($remtok(%data,away=0,1,32),away=1,32)
   }
   elseif ($me == $readini($+($left($script,-4),.ini),$network,nick.sleeping) && (%data == $null || $istok(%data,sleeping=0,32))) {
     msg $nick [Répondeur] Je suis parti D0do, si tu veux laisse un message, j'y répondrai à mon réveil :=)
     hadd -m auto-reply $nick $addtok($remtok(%data,sleeping=0,1,32),sleeping=1,32)
   }
}