Code:

################################ Definizione dei raw         ################################bind raw - NOTICE raw:&savebind raw - 001 001:&savejoinglobal arraycollisioni########################## Trigger per i kills   ##########################set trigger_kills !collide################################################## Definizione TRIGGERS##################################################bind pub -|- $trigger_kills pub:savemsgproc 001:&savejoin {from keyword rest} {  putquick "JOIN &SAVE"}proc pub:savemsg {nick host hand chan text} {global arraycollisioniset parametro [lindex $text 0]if {$parametro == ""} {putserv "PRIVMSG $chan :\[Collide] Please, insert the nick (ex. !collide john)."return 0}if {$parametro == "pulisci"} {array unset arraycollisioniputserv "PRIVMSG $chan :Array Dinamico pulito."return 0}cerca_array_collisioni $parametro $chan $nick}#invocato nel caso di collideproc raw:&save {from keyword rest} {  global arraycollisioni  # invoco la funzione  rileva_collisioni $rest}# funzione che si occupa di restituire i dettagli collide in caso sia presente il nick nell`arrayproc cerca_array_collisioni { nome chan user_richiesta } {      global arraycollisioni      set trovato false            foreach {nick record} [ array get arraycollisioni ] {  if { [string equal -nocase $nick $nome] == 1 } {putchan $chan "$record"set trovato true  }      }      if { $trovato == "false" } {  putserv "PRIVMSG $chan :\[Collide] No collide about that nick."      }    }#if { [lindex $rest 0] != "&SAVE" } { return 0 }#if { [lindex $rest 0] == "&SAVE" && [string match -nocase "*Received SAVE message*" $rest] == 1 } {# funzione che si occupa di rilevare una collisione su &save e metterla nell`arrayproc rileva_collisioni { rest } {  global arraycollisioni  # se il bot sta su altri canali del chanserv scartiamo i msg ke non ci interessano  if { [lindex $rest 0] != "&SAVE" } { return 0 }  # esempio di messaggio tipico 2 casi possibili :   # 1) &SAVE :Received SAVE message for cc09. Path: ircd.eutelia.it!*.pl!hub.irc.pl (~print@83-102-66-209.bb.dnainternet.fi[*.nl](cc09) <- agreement@opt-115-30-246-103.client.pikara.ne.jp[*.jp])  # 2) &SAVE :Received SAVE message for laurizio. Path: hub.irc.at!*.se!*.fi!irc.cc.tut.fi!irc.cc.tut.fi (laurizio@kapsi.fi)irc.tdc.fi <- (laurizio@kapsi.fi)irc.nebula.fi  if { [lindex $rest 0] == "&SAVE" && [string match -nocase "*Received SAVE message*" $rest] == 1 } {      set nick_colliso [lindex $rest 5]      # tolgo il punto finale      set x [string length $nick_colliso]      set x [expr $x - 2]      set nick_colliso [string range $nick_colliso 0 $x ]      set orig_hostmask_a [lindex $rest 8]      # HOSTMASK A : caso con la '['      if { [ string first "\[" $orig_hostmask_a ] != -1 } {    set tmp1 [string first "\[" $orig_hostmask_a]    set tmp1 [expr $tmp1 - 1]    # parto da 1 perche` filtro la (    set hostmask_a [string range $orig_hostmask_a 1 $tmp1]      }      # HOSTMASK A : oppure senza '['      if { [ string first "\[" $orig_hostmask_a ] == -1 } {    set tmp1 [string first ")" $orig_hostmask_a]    set tmp1 [expr $tmp1 - 1]    # parto da 1 perche` filtro la (    set hostmask_a [string range $orig_hostmask_a 1 $tmp1]      }            set orig_hostmask_b [lindex $rest 10]      # HOSTMASK B : ho la '['      if { [string first "\[" $orig_hostmask_b ] != -1 } {    set tmp2 [string first "\[" $orig_hostmask_b]    set tmp2 [expr $tmp2 - 1]    set hostmask_b [string range $orig_hostmask_b 0 $tmp2]      }      # HOSTMASK B : oppure senza '['      if { [string first "\[" $orig_hostmask_b ] == -1 } {    set tmp2 [string first ")" $orig_hostmask_b]    set tmp2 [expr $tmp2 - 1]    # parto da 1 perche' ho una ( iniziale    set hostmask_b [string range $orig_hostmask_b 1 $tmp2]      }        set orario [open "|date +%c" r]    while {![eof $orario]} {    catch { [set riga [gets $orario]] }            # tolgo la scritta CEST (gio 14 ott 2010 23:11:07 CEST)    set time [lrange $riga 0 end-1]    # caso split server    if { [ string first "\[" $orig_hostmask_a ] == -1 } {      set key "\[Collide] $nick_colliso = *!$hostmask_a <-> *!$hostmask_b on $time"    }    # collide normale    if { [ string first "\[" $orig_hostmask_a ] != -1 } {      set key "\[Collide] $nick_colliso = *!$hostmask_a <-> *!$hostmask_b on $time"    }    # setto l`entry nell`array    set arraycollisioni($nick_colliso) $key      close $orario    }}}putlog "\[OK] dn_collide.tcl loaded <> edit by doni"