Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x

Communauté sur les Eggdrops - Community about Eggdrops   ›   Eggdrop et TCL   ›   Scripts TCL   ›   ban sur detection de realname

Thread Closed 
ban sur detection de realname
 bewess
Développeur
***
Joined: 08/03/2008
Posts: 142

#16
22/04/2009, 20:38
bonsoir
oui babytigrou mais cela ne marche toujours pas
et aucune erreur en pl :s
Gilles
 Obu
Débutant
**
Joined: 07/05/2008
Posts: 14

#17
22/04/2009, 20:49
Salut,

putserv "MODE +b #plouf *!*@[lindex $user 2]"

La syntaxe ne serait pas plutôt "MODE #plouf +b *!*@[lindex $user 2]" ?
 bewess
Développeur
***
Joined: 08/03/2008
Posts: 142

#18
22/04/2009, 21:33
cela change rien
Gilles
 fedora
Expert
****
Joined: 25/09/2008
Posts: 438


Type eggdrop:
  • Eggdrop 1.6.x
#19
22/04/2009, 21:54
bonsoir,
en cherchant un peut sur le net j'ai trouver ceci essaye le peut être qu'il peut te convenir.


tcl 
# What bad realnames should be banned?
set badr(list) {
"lalala"
"imam si kola"
"*moo*"
"???"
"*http://*"
"*www.*"
}
 
# The realname check should be done only in what channel?
set badr(chan) "#channel" 
 
# For how many minutes whould you like the ban?
set badr(time) 60 
 
# What reason will be used when an person is found using an bad realname?
set badr(reason) "You norteh norteh boy!" 
 
# binds #
bind join - "$badr(chan) *" badrealname:join
bind raw - 311 badrealname:check
 
# join #
proc badrealname:join {nick host hand chan} { 
  if {![validuser $hand] || [strlwr $nick] != [strlwr $::botnick]} {
    putserv "WHOIS $nick" 
  } 
}
 
# check #
proc badrealname:check {from key arg} { 
  set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
  foreach bah $::badr(list) {
    if {![string match $bah $realname]} {
      continue
    }
    newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)
    break
  }
}
 
proc ctrl:filter {str} {
  regsub -all -- { \003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007 } $str "" str
  return $str
}
 
putlog "badrealname.tcl by mIRCbg.net loaded."



et la dernier ligne tu la remplace par
Quote:proc ctrl:filter {str} {
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
return $str
}

je le redit ce code et à testé.
cordialement
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
  Website
 bewess
Développeur
***
Joined: 08/03/2008
Posts: 142

#20
22/04/2009, 22:37
Merci fedora !!!
cela fonctionne , sauf que j'arrive pas a mettre le bon format de ban, lui il me met :
+b *!*@* qui ban tt le monde

une idée ?
Gilles
 fedora
Expert
****
Joined: 25/09/2008
Posts: 438


Type eggdrop:
  • Eggdrop 1.6.x
#21
22/04/2009, 22:55
La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.
  Website
 bewess
Développeur
***
Joined: 08/03/2008
Posts: 142

#22
05/05/2009, 13:49
bonjour :)

Désolé du retard, le lien est down chez moi :s
Gilles
Thread Closed 


Possibly Related Threads…
Thread Author Replies Views Last Post
  [fractionné] Realname avec CAP extended-join ZarTek 2 107 04/08/2022, 16:51
Last Post: ZarTek
  Ban sur realname Babytigrou16 12 5,666 08/08/2009, 21:42
Last Post: bewess
  Changement de realname au join heretoc 13 6,346 26/06/2009, 02:21
Last Post: BlackNight

Forum Jump:


Users browsing this thread: 1 Guest(s)