Rajouter un ban au troisième kick

[Alucard`68]

ok merci pour ces infos je vais voir le lien tenter de comprendre et revenir vers vous avec se dont j'ai pu réussir a faire ou non

Merci

EDIT : Voila se que j'ai fait pour le moment c'est pas grand chose mais c'est la première fois que je fait ça (il y a un début à tout lol) je vais i allez étape par étape pour bien comprendre

tclcopier

set base(ban) "chemin/de/ma/base/des/host/enregistré.txt"
 
proc banraison { nick host hand channel text } {
  global cs chanlog exempt unban base
  set args [split $text]
  set victim [lindex $args 0]
  set reason [join [lrange $args 1 end]]

#ici j'ouvre ma base de donnée
  set fp [open $base(ban) a]
#la j'enregistre dedans
  puts $fp "je ne sais pas comment enregistrer une vhost dans un fichier ni comment agrémenter un compteur"
#la je la ferme
  close $fp
 
  if { ![onchan $victim $channel] } {
    putserv "PRIVMSG $channel :\0034$victim \00312n'est pas là \0037$nick"
	return 0
  }
  set vichost [getchanhost $victim $channel]
  set protec 0
  foreach vhost $exempt(vhost) {
	if { [string match -nocase $vhost $vichost] } {
	  set protec 1
	}
  }
  if { $protec == 1 } {
    putserv "NOTICE $nick :$exempt(reason)"
    } else {
    putserv "PRIVMSG $cs ban $channel $victim $reason"
    putserv "PRIVMSG $chanlog :\0034$victim \00312a été bannie de \0034$channel \00312par \0034$nick \00312pour la raison :\0037 $reason"
    timer $unban(time) [list putserv "mode $channel -b $victim"]
  }
}

Déjà est ce que je commence bien ou pas ? je m'excuse d'avance se poste risque d'être un peu long...
Ais-je bien placer mon "set" pour ouvrir ma base de donnée ?
Ais-je oublié quelque chose d'important ?

Bien à vous.