TCL Eggdrop auto unban on part

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von sYpHx, 19. Juli 2006 .

Schlagworte:
  1. 19. Juli 2006
    Hi,

    also ich hab ne kleines problem mit nem tcl eggdrop script.
    (für jene welche nicht wissen was ein eggdrop ist: klick mich)

    Also das script soll folgendes tun:

    zum einen soll es jemanden wen er den channel betritt automatisch bannen aber NICHT kicken, abhängig vom idendt der entsprechenden person, der ban soll auch auf den ident gelegt werden.
    //edit: aber um join spam zu verhindern ist es wichtig das ein timer eingebaut wird, unban erst frühestens 1 min. nach part

    Der ban on join klappt ohne probs werde ihn also nich posten, aber unban on part will er nich also geb ich euch mal was ich zamgeschustert hab


    Code:
    bind part - * leave
    
    proc leave {nick host hand chan} {
     global botnick badidents badidentchans
     if {(([lsearch -exact [string tolower $badidentchans] [string tolower $chan]] != -1) || ($badidentchans == "*"))} {
     foreach badident [string tolower $badidents] {
     set badidentban1 "*!*$badident*@*"
     set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
     if {[string match *$badident* [string tolower $userident]]} {
     if {([botisop $chan])} {
     putquick "MODE $chan -b $badidentban1"
     }
     }
     }
     }
    }
    also wäre schön wen mir wer helfen könnte

    mfg
    sYpHx
     
  2. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.