Code:
################################################### Set user defined flag for users ###################################################setudef flag UserSearchsetudef flag AdminSearchpackage require mysqltclbind join - * join:aliasfmbind rejn - * join:aliasfm######################### URL to the site ##########################set site_add "http://aliasfm.net" ##################### Mysql path ###################### SQL infoset sql(host) "xxxxxxxx"set sql(user) "xxxxx"set sql(pass) "xxxx"set sql(db) "abot"set sql(port) "3306"######################### URL to the site ##########################set site_add "http://aliasfm.net "##################### Mysql path #####################if {![info exists db_handle] } {set db_handle [mysqlconnect -host $sql(host) -user $sql(user) -password $sql(pass) -db $sql(db) -port $sql(port)] }##################################### Define The Channels On IRC #####################################set chan_(mainchan) "#aliasfm"################################ Some Global Variables ################################### Set to 1 if you want the join msg enabledset globals_(join) "1"############################# Find The UserClass #############################proc bt.class { class id } {switch $class { #"0" {set class "0User" } "5" {set class "4Live DJ" } "10" {set class "4Chat Chef" } "default" {set class "Not Found" } }return $class}############################################## Greeting MSG When User Join channel ##############################################proc bt.join.class { chan nick class} {switch $class { ### The number is the number of the class on the site ### "return 0" means no msg for that class #"0" {putserv "PRIVMSG $chan :10Velkommen Til 7:::9 $nick 7:::9 10Vores Outlaw" } "5" {putserv "PRIVMSG $chan :10Velkommen Til 7:::9 $nick 7:::9 10Vores Live Dj" } "default" {set class "Not Found" } }}#################### Join Proc ####################proc join:aliasfm {nick host hand chan} {global botnick db_handle globals_ error_ help_ chan_ if {$nick != $botnick} { set chan [string tolower $chan] if {[channel get $chan UserSearch]} { if {[mysqlping $db_handle] != 1} { putserv "PRIVMSG $chan : $error_(mysqllost)" return 0 } set sqlnick "SELECT userid FROM nicks WHERE nick='[mysqlescape $nick]'" set resultnick [mysqlquery $db_handle $sqlnick] set nicki 0 while {[set record [mysqlnext $resultnick]] != ""} { set userid [lindex $record 0] incr nicki } if { $nicki == 0 } { return 0 } if { $userid == "" } { return 0 } set sql "SELECT username, class FROM users WHERE id='[mysqlescape $userid]'" set result [mysqlquery $db_handle $sql] set i 0 while {[set record [mysqlnext $result]] != ""} { set username [lindex $record 0]; set class [lindex $record 1]; } if { $globals_(help) == 1 } {putserv "notice $nick : $help_(join)"} if { $globals_(join) != 1 } { return 0 } set sql "SELECT username, class FROM users WHERE id='[mysqlescape $userid]'" set result [mysqlquery $db_handle $sql] set i 0 while {[set record [mysqlnext $result]] != ""} { set username [lindex $record 0]; set class [lindex $record 1]; } mysqlendquery $result bt.join.class $chan $nick $class } }}
