Code:

## gametiger.tcl par Ibu <ibu_lordaeron@yahoo.fr># ## ATTENTION !!  CE TCL REQUIERT HTTP.TCL ################### Configuration ################### aucun######### Motd #########putlog "\002gametiger.tcl\002 par \002Ibu\002 14<ibu_lordaeron@yahoo.fr>"putlog "   Tapez: .game ou !game (channel)"################################# Vérifier une ip sur un salon #################################bind pub - !game gametiger:pub:testipproc gametiger:pub:testip { nick uhost handle channel arg } {    global encorebis    set encore [unixtime]    if {[info exists encorebis]} {        set trop [expr $encore - $encorebis]        if { $trop < 5 } {            putserv "PRIVMSG $channel :Désolé $nick, une demande d'IP toutes les 5 secondes"            return 0        } else {            set encorebis $encore        }    } else {        set encorebis $encore    }    set AddrIp [lindex $arg 0]    if { $AddrIp == "" } {        putserv "PRIVMSG $channel :Commande : \002!game\002 <ip>"        return 0    }    set token [http::geturl http://www.gametiger.net/search?address=$AddrIp]    set fv [open system/testip.txt w+]     puts $fv [http::data $token]    close $fv    http::Finish $token    set LectureFichierAcces "system/testip.txt"    if { [file exists $LectureFichierAcces] == 0 } {        set LectureTemp [open $LectureFichierAcces w+]        close $LectureTemp    }    set LectureTemp "[open $LectureFichierAcces r]"    while {![eof $LectureTemp]} {        set LectureTexteLu [nojoinhtml [gets $LectureTemp]]        if { [string match "*Server Name*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 340 end]"            set gt(server) "[join [gettext $i "><b>" " </b></td></tr>"]]"        } elseif { [string match "*<b>Status<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 180 end]"            set gt(status) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>IP:Port<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 90 end]"            set gt(ip) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*>Engine</td>*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(engine) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Game<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(game) "[join [gettext $i "\">" " </td></tr>"]]"        } elseif { [string match "*<b>Map<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(map) "[join [gettext $i "\">" " </td></tr>"]]"        } elseif { [string match "*<b>Last Map Change<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(lastmapchange) "[join [gettext $i "\">" " ago</td></tr>"]] ago"        } elseif { [string match "*<b>Protocol Version<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(protocol) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Type of Server<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(type) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>OS<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 110 end]"            set gt(os) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Password required<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(password) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Active*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 240 end]"            set gt(players) "[join [gettext $i "\">" "</td></tr>"]]"            set i [string first "/" $gt(players)]            set i1 [string range $gt(players) 0 [expr $i-1]]            set i2 [string range $gt(players) [expr $i+1] end]            if { $i1 == $i2 } {                set gt(players) "4$i1/$i2 (FULL)"            } else {                set gt(players) "3$i1/$i2"            }        } elseif { [string match "*<b>Last Check<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(lastcheck) "[join [gettext $i "\">" " ago</td></tr>"]] ago"        } elseif { [string match "*<b>Bogo Ping<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 120 end]"            set gt(ping) "[join [gettext $i "\">" "</td></tr>"]]"        }    }    close $LectureTemp    if { [info exist gt(ip)] } {        putserv "PRIVMSG $channel :\[ Server Name: 7$gt(server) \] \[ OS: $gt(os) \] \[ Type Server: $gt(type) \]  \[ IP: 10$gt(ip) \] \[ Password Required: $gt(password) \] \[ Engine: $gt(engine) \] \[ Game: $gt(game) \] \[ Bogo Ping: $gt(ping) \] \[ Map: 5$gt(map) ($gt(lastmapchange)) \] \[ Players: $gt(players) (last check $gt(lastcheck)) \]"    } else {        putserv "PRIVMSG $channel :Ce serveur n'est pas enregistré par www.GameTiger.Net"    }    unset LectureTexteLu    return 0}################################# Vérifier une ip en partyline #################################bind dcc - game gametiger:dcc:testipproc gametiger:dcc:testip { hand idx arg } {    global encorebis    set encore [unixtime]    if {[info exists encorebis]} {        set trop [expr $encore - $encorebis]        if { $trop < 5 } {            putdcc $idx "Désolé $hand, une demande d'IP toutes les 5 secondes"            return 0        } else {            set encorebis $encore        }    } else {        set encorebis $encore    }    set AddrIp [lindex $arg 0]    if { $AddrIp == "" } {        putdcc $idx "Commande : \002.ip\002 <ip>"        return 0    }    set token [http::geturl http://www.gametiger.net/search?address=$AddrIp]    set fv [open system/testip.txt w+]     puts $fv [http::data $token]    close $fv    http::Finish $token    set LectureFichierAcces "system/testip.txt"    if { [file exists $LectureFichierAcces] == 0 } {        set LectureTemp [open $LectureFichierAcces w+]        close $LectureTemp    }    set LectureTemp "[open $LectureFichierAcces r]"    while {![eof $LectureTemp]} {        set LectureTexteLu [nojoinhtml [gets $LectureTemp]]        if { [string match "*Server Name*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 340 end]"            set gt(server) "[join [gettext $i "><b>" " </b></td></tr>"]]"        } elseif { [string match "*<b>Status<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 180 end]"            set gt(status) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>IP:Port<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 90 end]"            set gt(ip) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*>Engine</td>*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(engine) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Game<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(game) "[join [gettext $i "\">" " </td></tr>"]]"        } elseif { [string match "*<b>Map<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 100 end]"            set gt(map) "[join [gettext $i "\">" " </td></tr>"]]"        } elseif { [string match "*<b>Last Map Change<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(lastmapchange) "[join [gettext $i "\">" " ago</td></tr>"]] ago"        } elseif { [string match "*<b>Protocol Version<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(protocol) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Type of Server<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(type) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>OS<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 110 end]"            set gt(os) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Password required<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(password) "[join [gettext $i "\">" "</td></tr>"]]"        } elseif { [string match "*<b>Active*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 240 end]"            set gt(players) "[join [gettext $i "\">" "</td></tr>"]]"            set i [string first "/" $gt(players)]            set i1 [string range $gt(players) 0 [expr $i-1]]            set i2 [string range $gt(players) [expr $i+1] end]            if { $i1 == $i2 } {                set gt(players) "4$i1/$i2 (FULL)"            } else {                set gt(players) "3$i1/$i2"            }        } elseif { [string match "*<b>Last Check<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 130 end]"            set gt(lastcheck) "[join [gettext $i "\">" " ago</td></tr>"]] ago"        } elseif { [string match "*<b>Bogo Ping<*" "$LectureTexteLu"] } {            set i [string range "$LectureTexteLu" 120 end]"            set gt(ping) "[join [gettext $i "\">" "</td></tr>"]]"        }    }    close $LectureTemp    if { [info exist gt(ip)] } {        putlog " "        putlog "Server Name: 7$gt(server)     OS: $gt(os)     Type Server: $gt(type)"        putlog "IP: 10$gt(ip)     Password Required: $gt(password)"        putlog "Engine: $gt(engine)     Game: $gt(game)     Bogo Ping: $gt(ping)"        putlog "Map: 5$gt(map) ($gt(lastmapchange))     Players: $gt(players) (last check $gt(lastcheck))"        putlog " "    } else {        putlog " "        putlog "Ce serveur n'est pas enregistré par www.GameTiger.Net"        putlog " "    }    unset LectureTexteLu    return 1}################## commmande !sith ##################bind pub - !sith gametiger:pub:sithproc gametiger:pub:sith { nick uhost handle channel arg } {  gametiger:pub:testip $nick $uhost $handle $channel 62.212.74.121:27135}############### sous-procs ###############proc gettext { data start end } {    set index0 [string first $start $data]    set index1 [expr $index0 + [string length $start]]    set index2 [string first $end $data]    set index2 [expr $index2 - 1]    set index  [expr $index2 + [string length $end]]    return [string range $data $index1 $index2]}proc nojoinhtml { text } {  regsub -all -- {\\} $text {\\\\} text  regsub -all -- {\{} $text {\{} text  regsub -all -- {\}} $text {\}} text  regsub -all -- {\[} $text {\[} text  regsub -all -- {\]} $text {\]} text  regsub -all -- {\"} $text {\"} text  return "$text"}