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


Système de bannissement d'utilisateur qui idle trop longtemps sur un salon d'aide
#1
Hello,

Je cherche un moyen d'avertir de façon automatique les personnes inactives dans un salon d'aide en leur envoyant une notice au bout de 10 minutes, et 5 minutes après la personne se fait kickban du salon d'aide.

Voici ce que j'ai trouvé:


Code:
# idlekick.tcl version 1.1.1 by TCL_no_TK <ispmailsucks@googlemail.com>
#
# this script was written for user qetuoadgjl on egghelp.org forums
#   Post: http://forum.egghelp.org/viewtopic.php?t=15543
#
# Kicks users after a set about of idle time, configurable via dcc chanset command.
# Ability to warn users before kicking and banning them, and other punishment options.
#
# Usage:
# .chanset #aide +idlekick
# .chanset #aide idlekick-time 1
#
##

# time in minets to check channels for idlers? (default: 10)
set idlekick_checktime 2

# set your IRCd's kick length below (default: 150)
#  -- note, some networks all 255. but 150 should be safe :)
set idlekick_kicklength 150

# set the kick message
set idlekick_kickmsg "idle lamer"

# Set the warn message
set idlekick_warnmsg "how lame are you? Mr I idle in a help channel"

# warn the user a minet before the set idle time for the channel?
#  -- this should allow you to inform the user better, that they will be kicked in a minet if they contine to idle. ;p
# 1/0 = yes/no
set idlekick_loseit 1

# Punishment Options
# 1 = kick the user.
# 2 = kick and ban the user.
# 3 = warn and kick the user.
# 4 = warn, kick and ban the user.
# 5 = warn the user.
set idlekick_punish 4


#channel options
setudef flag idlekick
setudef str idlekick-time

#binds
bind time -|- "2 * * * *" time:idlekick

#code
proc time:idlekick {min hour day month year} {
global idlekick_loseit idlekick_punish
puthelp "PRIVMSG #aide :test"
foreach channel [channels] {

 if {[channel get $channel idlekick] == "+" && [botisop $channel]} {
  foreach iu [chanlist $channel] {
   if {![isbotnick $iu] && [onchan $iu $channel] && ![isop $iu $channel] && ![ishalfop $iu $channel] && ![isvoice $iu $channel]} {
    if {$idlekick_loseit == 1 && [expr [channel get $channel idlekick-time] -1] == [getchanidle $iu $channel]} {
     switch $idlekick_punish {
      "1" {idle:kick "$channel $iu"}
      "2" {idle:kickban "$channel $iu"}
      "3" {idle:warnkick "$channel $iu"}
      "4" {idle:warnkickban "$channel $iu"}
      "5" {idle:warn "$channel $iu"}
     }
    }
    if {$idlekick_loseit == 0 && [channel get $channel idlekick-time] == [getchanidle $iu $channel]} {
     switch $idlekick_punish {
      "1" {idle:kick "$channel $iu"}
      "2" {idle:kickban "$channel $iu"}
      "3" {idle:warnkick "$channel $iu"}
      "4" {idle:warnkickban "$channel $iu"}
      "5" {idle:warn "$channel $iu"}
     }
    }
   }
  }
 }
}
#return
}

proc idle:kick {text} {
global idlekick_kickmsg idlekick_kicklength
set chan [lindex [split $text] 0]
 set nick [lindex [split $text] 1]
  if {[onchan $nick $chan] && [botisop $chan]} {
   putserv "KICK $chan $nick :[trimchars "$idlekick_kickmsg  $idlekick_kicklength"]"
  }
  #; return
}

proc idle:kickban {text} {
global idlekick_kickmsg idlekick_kicklength
set chan [lindex [split $text] 0]
 set nick [lindex [split $text] 1]
  if {[onchan $nick $chan] && [botisop $chan]} {
   putserv "MODE $chan +b "*!*@[lindex [split [getchanhost $nick] "@"] 1]"
    putserv "KICK $chan $nick :[trimchars "$idlekick_kickmsg  $idlekick_kicklength"]"
  }
  #; return
}

proc idle:warnkick {text} {
global idlekick_loseit
idle:warn "$text"
 if {$idlekick_loseit == 1} {
  utimer 54 {idle:kick "$text"}
 } else {
  idle:kick "$text"
 }
 #; return
}

proc idle:warnkickban {text} {
global idlekick_loseit
idle:warn "$text"
 if {$idlekick_loseit == 1} {
  utimer 54 {idle:kickban "$text"}
 } else {
  idle:kickban "$text"
 }
 #; return
}

proc idle:warn {text} {
global idlekick_warnmsg
set chan [lindex [split $text] 0]
 set nick [lindex [split $text] 1]
  if {[onchan $nick $chan]} {
   puthelp "NOTICE $nick :$idlekick_warnmsg"
  }
  #; return
}

proc trimchars {text} {
set chars [lrange "$text" 0 [expr [llength "$text"] -1]]
 set trim [lrange "$text" end end]
  return [join [lrange "[split "$chars" {}]" 0 $trim] {}]
}



#end
putlog "loaded idlekick.tcl version 1.1.1 by TCL_no_TK"

#return
Sans oublier de taper:
Quote:# .chanset #aide +idlekick
# .chanset #aide idlekick-time 1


Toutefois il ne fonctionne pas sur une version Eggdrop 1.8.4, le problème pourrait venir d'où ? Est-ce que le tcl est obsolète ?


Dans le proc time:idlekick j'ai mis ceci à la 3eme ligne et "test" ne s'affiche même pas comme si que le timer ne fonctionnait pas:

Code:
puthelp "PRIVMSG #aide :test"


Cordialement
M.M


Messages In This Thread
Système de bannissement d'utilisateur qui idle trop longtemps sur un salon d'aide - by mecmec - 06/08/2019, 06:29

Possibly Related Threads…
Thread Author Replies Views Last Post
  Plugin systeme dans un TCL ZarTek 7 6,225 21/06/2012, 00:27
Last Post: djkenny
  [Résolu] Laisser un message pour un utilisateur loulou7593 15 9,259 29/12/2011, 13:53
Last Post: loulou7593
  bannissement sur le fail ou l'host d'un membre lesny 21 9,922 09/06/2011, 22:10
Last Post: lesny
  Petit système à améliorer alanfollow 5 3,875 09/12/2010, 22:04
Last Post: alanfollow
Money_euro Système de plainte BlackNight 9 6,388 26/06/2009, 16:18
Last Post: Merwin

Forum Jump:


Users browsing this thread: 1 Guest(s)