SHARE
TWEET

Untitled

a guest Jul 17th, 2017 42 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. alias ciao {
  2.   scon -a quit
  3. }
  4. alias are {
  5.   scon -a re
  6. }
  7. alias aoqp {
  8.   scon -a oqp
  9. }
  10. alias abs {
  11.   scon -a away
  12. }
  13. alias az {
  14.   scon -a dodo
  15. }
  16. alias oqp {
  17.    var %newnick = $readini($+($left($script,-4),.ini),$network,nick.busy)
  18.    if (%newnick != $null) {
  19.      nick %newnick
  20.      var %i = 1, %items = $hget(auto-reply,0).item
  21.      while (%i <= %items) {
  22.        var %nick = $hget(auto-reply,%i).item
  23.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),busy=1,1,32),busy=0,32)
  24.        inc %i
  25.      }
  26.    }
  27. }
  28. alias away {
  29.    var %newnick = $readini($+($left($script,-4),.ini),$network,nick.away)
  30.    if (%newnick != $null) {
  31.      nick %newnick
  32.      var %i = 1, %items = $hget(auto-reply,0).item
  33.      while (%i <= %items) {
  34.        var %nick = $hget(auto-reply,%i).item
  35.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),away=1,1,32),away=0,32)
  36.        inc %i
  37.      }
  38.    }
  39. }
  40. alias dodo {
  41.    var %newnick = $readini($+($left($script,-4),.ini),$network,nick.sleeping)
  42.    if (%newnick != $null) {
  43.      nick %newnick
  44.      var %i = 1, %items = $hget(auto-reply,0).item
  45.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),sleeping=1,1,32),sleeping=0,32)
  46.        inc %i
  47.      }
  48.    }
  49. }
  50. alias re {
  51.    var %newnick = $readini($+($left($script,-4),.ini),$network,nick), %password = $readini($+($left($script,-4),.ini),$network,password)
  52.    if (%newnick != $null) {
  53.      nick %newnick
  54.      var %i = 1, %items = $hget(auto-reply,0).item
  55.      while (%i <= %items) {
  56.        var %nick = $hget(auto-reply,%i).item
  57.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),away=1,1,32),away=0,32)
  58.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),busy=1,1,32),busy=0,32)
  59.        hadd auto-reply %nick $addtok($remtok($hget(auto-reply,%nick),sleeping=1,1,32),sleeping=0,32)
  60.        inc %i
  61.      }
  62.      if (%password != $null) {
  63.        ns identify %password
  64.      }
  65.    }
  66. }
  67. on *:TEXT:*:?: {
  68.    var %data = $hget(auto-reply,$nick)
  69.       if ($me == $readini($+($left($script,-4),.ini),$network,nick.busy) && (%data == $null || $istok(%data,busy=0,32))) {
  70.      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.
  71.      hadd -m auto-reply $nick $addtok($remtok(%data,busy=0,1,32),busy=1,32)
  72.    }
  73.    elseif ($me == $readini($+($left($script,-4),.ini),$network,nick.away) && (%data == $null || $istok(%data,away=0,32))) {
  74.      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.
  75.      hadd -m auto-reply $nick $addtok($remtok(%data,away=0,1,32),away=1,32)
  76.    }
  77.    elseif ($me == $readini($+($left($script,-4),.ini),$network,nick.sleeping) && (%data == $null || $istok(%data,sleeping=0,32))) {
  78.      msg $nick [Répondeur] Je suis parti D0do, si tu veux laisse un message, j'y répondrai à mon réveil :=)
  79.      hadd -m auto-reply $nick $addtok($remtok(%data,sleeping=0,1,32),sleeping=1,32)
  80.    }
  81. }
RAW Paste Data
Top