Miscellany

set readabus "scripts/Txt/abus.txt" 

bind pub *|* !abus cmd:!abus
proc cmd:!abus {nick uhost hand channel arg} {
  global botnick timenow readabus
  set timenow [ctime [unixtime] ]
  if {$channel != "#abus"} { putserv "notice $nick :14Tu dois être sur 3#abus14 pour utiliser cette commande !"; return }
  if {$arg == ""} { putserv "notice $nick :14Tu dois indiquer l'abus que tu veux posté !"; return }    
  set vabus [open $readabus "a+"]
  puts $vabus "14$timenow"
  puts $vabus "4(3$timenow4) 14Posté par 4$nick 14: 3$arg"
  close $vabus
  putserv "privmsg $channel :14Merci14. Votre message à bien été enregistré et sera remi à un administrateur dès qu'il sera présent. Maintenant, merci de ne pas rester ici innutilement."
}

bind join - * abus
proc abus {nick uhost hand chan} {
  global botnick 
  if {$nick != $botnick && $chan == "#abus"} {
    putserv "notice $nick :14Bonjour. Si tu as été victime d'un abus, et que tu veux nous en faire part, enregistre ton message et quitte ce salon. Lorsqu'un admin sera disponible, il te contactera. Pour enregistrer ton message, fais 3!abus14 suivit de ton message."
  }
}

bind pub *|* !read cmd:!lire
bind pub *|* !rabus cmd:!lire
bind pub *|* !lire cmd:!lire
proc cmd:!lire {nick uhost hand channel arg} {
  global readabus
  if {$channel != "#abus"} { putserv "notice $nick :14Tu dois être sur 3#abus14 pour utiliser cette commande !"; return }
  if {![isop $nick $channel]} { putserv "notice $nick :14Tu dois être un opérateur du salon (4@14) pour utiliser cette commande !"; return }
  set rabus [open $readabus r]
  set ligne "0"
  while { ![eof $rabus] } {
    gets $rabus rrabus
    putserv "privmsg $channel :$rrabus"
    if {$rrabus != ""} { incr ligne }
  }
  if {$ligne == "0"} { putserv "privmsg $channel :14La liste ne contient aucune plainte." }
  close $rabus
  return 0
}


bind pub - !delabus cmd:!delabus
bind pub - !dabus cmd:!delabus
bind pub - !del cmd:!delabus
proc cmd:!delabus { nick host hand channel arg } {
  global readabus
  if {$channel != "#abus"} { putserv "notice $nick :14Tu dois être sur 3#abus14 pour utiliser cette commande !"; return }
  if {![isop $nick $channel]} { putserv "notice $nick :14Tu dois être un opérateur du salon (4@14) pour utiliser cette commande !"; return }
  set open [open "scripts/Txt/abus.txt" r ]
  set read [read $open]
  close $open
  set open [open $readabus "w"] 
  close $open
  putserv "privmsg $channel :14Liste d'abus suprimée."
}