#############
#           #
#  Plainte  #
#           #
#############

set plainte_ver "1.5"
set plainte_author "AngeDesOmbres"
set plainte_date "15/08/2012"
set plainte_upgrade "14/01/2017"
set log "#services"
set chanplainte "#plaintes"

bind join - "*" join:
bind pub - "!aide" pub:aide
bind MSGM - "*plainte*" plainte
bind pub - !ok ok
bind pub - !rej rej
bind pub - !abus abus

proc join: { nick uhost hand chan } {
   if {$chan == "#plaintes"} {
      putserv "PRIVMSG $nick \00312Bienvenue\0034 $nick ,\00312 pour l'aide a la gestion des plaintes tape \002\0034!aide \002\00312( uniquement sur le salon #Plaintes )"
      return 0
   }
}

proc pub:aide { nick uhost handle chan arg } {
   puthelp "NOTICE $nick :\0036Voici les commandes d'aide à la gestion des plaintes."
   puthelp "NOTICE $nick :\0034!ok \00312pour prendre en charge la plainte."
   puthelp "NOTICE $nick :\0034!rej raison \00312pour rejeter la plainte."
   puthelp "NOTICE $nick :\0034!abus \00312pour envoyer un message d'abus a l'utilisateur."
}

proc plainte { nick host ident arg } {
  global chanplainte
  putquick "NOTICE $chanplainte :\00312Plainte émise par \0037$nick \00312Venez sur le salon pour la prise en charge"
  putquick "PRIVMSG $chanplainte :\00312Plainte de \0037$nick \00312contre \0034[lindex $arg 2] \00312Plainte : \0036[lrange $arg 2 end]"
  putquick "PRIVMSG $chanplainte :\00312Tapez \0037!ok $nick \00312pour prendre en charge la plainte ou \0037!rej $nick raison \00312pour rejeter la plainte ou \0037!abus $nick \00312pour envoyer un message d'abus de la commande."
  putquick "NOTICE $nick :\00312Votre plainte à été envoyé au service abus. Merci de patienter le temps du traitement de celle-ci."
  putquick "PRIVMSG $::log :\00312Plainte : \0037$nick \00312contre \0034[lindex $arg 2]"
}

proc ok { nick uhost handle channel arg } {
  global chanplainte
  if ![string compare -nocase $channel "$chanplainte"] {
    set comp [lindex $arg 2]
    if ![string compare -nocase $comp ""] {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte prise en charge par \0036$nick"
      putquick "PRIVMSG $chanplainte :\00312Prise en charge de la plainte de \0037[lindex $arg 0] \00312par \0036$nick"
      putquick "PRIVMSG $::log :\00312Plainte : \0036$nick \00312prend en charge la plainte de \0037[lindex $arg 0]"
      unset comp
	} else {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte prise en charge par \0036$nick \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      putquick "PRIVMSG $chanplainte :\00312Prise en charge de la plainte de \0037[lindex $arg 0] \00312par \0036$nick \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      putquick "PRIVMSG $::log :\00312Plainte : \0036$nick \00312prend en charge la plainte de \0037[lindex $arg 0] \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      }
   }
}

proc rej { nick uhost handle channel arg } {
  global chanplainte
  if ![string compare -nocase $channel "$chanplainte"] {
    set comp [lindex $arg 2]
    if ![string compare -nocase $comp ""] {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte rejetée par \0036$nick"
      putquick "PRIVMSG $chanplainte :\00312Rejet de la plainte de \0037[lindex $arg 0] \00312par \0036$nick"
      putquick "PRIVMSG $::log :\00312Plainte : \0036$nick \00312rejete la plainte de \0037[lindex $arg 0]"
      unset comp
	} else {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte rejetée par \0036$nick \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      putquick "PRIVMSG $chanplainte :\00312Rejet de la plainte de \0037[lindex $arg 0] \00312par \0036$nick \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      putquick "PRIVMSG $::log :\00312Plainte : \0036$nick \00312rejete la plainte de \0037[lindex $arg 0] \00312Informations complémentaires : \0037[lrange $arg 1 end]"
      }
   }
}

proc abus { nick uhost handle channel arg } {
  global chanplainte
  if ![string compare -nocase $channel "$chanplainte"] {
    set comp [lindex $arg 2]
    if ![string compare -nocase $comp ""] {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte rejetée par \0036$nick \00312Informations complémentaires : \0037Merci de ne pas abusé du système"
      putquick "PRIVMSG $chanplainte :\0036$nick \00312estime que \0037[lindex $arg 0] \00312abuse du système. Rejet de la plainte."
      putquick "PRIVMSG $::log :\00312Plainte :\0036$nick \00312abus du système par \0037[lindex $arg 0]"
      unset comp
	} else {
      putquick "NOTICE [lindex $arg 0] :\00312Plainte rejetée par \0036$nick \00312Informations complémentaires : \0037Merci de ne pas abusé du système"
      putquick "PRIVMSG $chanplainte :\0036$nick \00312estime que \0037[lindex $arg 0] \00312abuse du système. Rejet de la plainte."
      putquick "PRIVMSG $::log :\00312Plainte :\0036$nick \00312abus du système par \0037[lindex $arg 0]"
      }
   }
}

putlog "\00312Plainte Version\0037 $plainte_ver \00312By\0034 $plainte_author \00312fait le\0034 $plainte_date \00312upgrade le\0034 $plainte_upgrade \00312has been loaded"