Code:

set logo "XxX"bind pub * !add ts_addbind pub * !dupe ts_dupebind pub * !addsite ts_addsitebind pub o !delsite ts_delbind pub o !del ts_delrelbind pub o !name ts_namebind pub * !link ts_linkbind pub * !platforms ts_platformbind pub * !affils ts_affilsbind pub * !showaffils ts_affilsinfobind pub * !status ts_statusbind pub * !gadmin ts_gadminbind pub * !test ts_resetbind pub * !extra ts_combind pub * !site ts_siteinfobind pub * !sites ts_sitesallbind pub * !search ts_searchbind pub * !xhelp ts_helpbind pub * !list ts_sitesproc ts_addsite {nick uhost hand channel arg} {  global logo  set site     [lindex $arg 0]  set sitename [lrange $arg 1 end]  if {$site == ""} {  putserv "PRIVMSG $channel :\[ $logo \]USAGE!Addsite Site Full_Name ie:!AddsiteIP   ThePalace"  return 1 }  if {$sitename == ""} { set sitename "not available" }# check for dupes  set cc 0  set dupes [userlist 9]  foreach dupe $dupes {  set site1 [getuser $dupe XTRA ab]  set aadupe [string tolower $site1]  set awho [string tolower $site]   if {$aadupe == $awho} {     set cc [getuser $dupe qu]    if {$cc == ""} { set cc 0 }    incr cc 1    set userinfo $dupe XTRA qu $cc    set awho [string toupper $site]    putserv "PRIVMSG $channel :\[ $logo \] DUPE Detected Renaming... $awho to $awho$cc"    set site $awho$cc }# new site add it}  set nt "not available"  set wt "up"  set boom [getuser TS count]  incr boom  setuser TS count $boom  set ts "ts"  set newsite $ts    set test $site  adduser $newsite *! $newsite @*.ts.net  chattr $newsite +9  adduser $test *! $newsite @*.ts.net  chattr $test +1  set userinfo $newsite XTRA ab $site  set userinfo $newsite XTRA name $sitename  set userinfo $newsite XTRA status $wt  set userinfo $newsite XTRA slots $nt  set userinfo $newsite XTRA com "none"  set userinfo $newsite XTRA link $nt  set userinfo $newsite XTRA platform $nt  set userinfo $newsite XTRA gadmin $nt  set userinfo $newsite XTRA affils $nt  putserv "PRIVMSG $channel :\[ $logo \] New Site: $site - $sitename added to my site   database"  return 1}proc ts_del {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set sitedel [lindex $arg 0]  set sitedel [string tolower $sitedel]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $sitedel} {      deluser $site      putserv "PRIVMSG $channel :\[ $logo \] DELETED: $site1 from my site database"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $sitedel "} proc ts_delrel {nick host hand channel arg} {  global logo  set sites    [userlist 5]  set sitedel [lindex $arg 0]  set sitedel [string tolower $sitedel]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $sitedel} {      deluser $site      putserv "PRIVMSG $channel :\[ $logo \] DELETED: $site1 from my dupe database"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] DUPE NOT FOUND: $sitedel "}proc ts_name {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set sitename [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site name $sitename      putserv "PRIVMSG $channel : \[ $logo \] $siteone name changed to $sitename"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_link {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set sitelink [lrange $arg 1 end]  set siteone [string tolower $siteone] foreach site $sites { set site1 [getuser $site ab]   set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site link $sitelink      putserv "PRIVMSG $channel : \[ $logo \] $siteone link changed to $sitelink"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_platform {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteplatform [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]  set site1 [string tolower $site1]      if {$site1 == $siteone} {      setuser $site platforms $siteplatform      putserv "PRIVMSG $channel : \[ $logo \] $siteone platform changed to $siteplatform"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_gadmin {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set sitegadmin [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site gadmin $sitegadmin      putserv "PRIVMSG $channel : \[ $logo \] $siteone gadmin changed to $sitegadmin"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_slots {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteslots [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site slots $siteslots      putserv "PRIVMSG $channel : \[ $logo \] $siteone slots changed to $siteslots"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_status {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set sitestatus [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site status $sitestatus      putserv "PRIVMSG $channel : \[ $logo \] $siteone status changed to $sitestatus"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_com {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set sitecom [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]   set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site com $sitecom      putserv "PRIVMSG $channel : \[ $logo \] $siteone extra info changed to $sitecom"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_affils {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteaffils [lrange $arg 1 end]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      setuser $site affils $siteaffils      putserv "PRIVMSG $channel : \[ $logo \] $siteone affils changed to $siteaffils"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_siteinfo {nick host hand channel arg} {  global logo  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set site1 [string tolower $site1]   if {$site1 == $siteone} {      set sitename     [getuser $site name]      set sitelink     [getuser $site link]      set siteplatform [getuser $site platforms]      set sitegadmin   [getuser $site gadmin]      set siteslots        [getuser $site slots]      set sitestatus       [getuser $site status]      set siteaffils       [getuser $site affils]      set siteextra       [getuser $site com]  if {$siteextra == ""} {  setuser $site com "none"  set siteextra "none"}  set site1 [string toupper $site1]  set siteaffils [lsort -increasing $siteaffils]  set siteaffils [string toupper $siteaffils]      putserv "PRIVMSG $channel : \[name\] $sitename"      putserv "PRIVMSG $channel : \[link\] $sitelink"      putserv "PRIVMSG $channel : \[platforms\] $siteplatform"      putserv "PRIVMSG $channel : \[gadmin\] $sitegadmin"      putserv "PRIVMSG $channel : \[slots\] $siteslots"      putserv "PRIVMSG $channel : \[status\] $sitestatus"      putserv "PRIVMSG $channel : \[affils\] $siteaffils"      putserv "PRIVMSG $channel : \[extrainfo\] $siteextra"      return 0   }}  putserv "PRIVMSG $channel : \[ $logo \] SITE NOT FOUND: $siteone "} proc ts_affilsinfo {nick host hand channel arg} {  global logo  set results ""  set resultsu ""  set resultse ""  set spc " "  set pace 0  set paceu 0  set pacee 0  set paceo 0  set euro "EU"  set usam "US"  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set stop 1  set check [getuser $site affils]  set typen [getuser $site link]  set check [string tolower $check]  set site1 [string tolower $site1]    if {[string first $siteone $check] != "-1"} {    incr pace 1    set ssa   [getuser $site status]    if {$ssa == "up"} {    } else {    set site1 "$site1" } set typen [getuser $site link]    if {[string first $usam $typen] != "-1"} {    set resultsu $site1$spc$resultsu    incr paceu 1    set stop 0   }    if {[string first $euro $typen] != "-1"} {    set resultse $site1$spc$resultse    incr pacee 1    set stop 0   }    if {$stop == "1"} {    set results $site1$spc$results    incr paceo 1   } }}  set siteone [string toupper $siteone]  if {$pace == "0"} {  putserv "PRIVMSG $channel : \[ $logo \] no sites found with $siteone as affils: "  return 1}  set results [string toupper $results]  set resultsu [string toupper $resultsu]  set resultse [string toupper $resultse]  set resultsu [lsort -increasing $resultsu]  set resultse [lsort -increasing $resultse]  set results [lsort -increasing $results]  putserv "PRIVMSG $channel : \[ $logo \] $pace site(s) with $siteone as affils: "  if {$paceu > "0"} {putserv "PRIVMSG $channel : \[ $logo \] US ($paceu)  $resultsu " }  if {$pacee > "0"} { putserv "PRIVMSG $channel : \[ $logo \] EU ($pacee)  $resultse  " }  if {$paceo > "0"} { putserv "PRIVMSG $channel : \[ $logo \] Other ($paceo)  $results     " }} proc ts_reset {nick host hand channel arg} {  global logo  set lamahs [userlist 9]  set nicklist [lsort -increasing [userlist 9]]  putserv "PRIVMSG $channel : \[ $logo \] $nicklist"} proc ts_sites {nick host hand channel arg} {  global logo  set sites    [userlist 9]  foreach site $sites { set site1 [getuser $site ab]         set sitename     [getuser $site name]      set sitelink     [getuser $site link]      set siteplatform [getuser $site platforms]      set sitegadmin   [getuser $site gadmin]      set siteslots        [getuser $site slots]      set sitestatus       [getuser $site status]      set siteaffils       [getuser $site affils]      putserv "PRIVMSG $nick : \[ $logo \] $sitename / $siteaffils "   }} proc ts_sitesall {nick host hand channel arg} {  global logo  set results ""  set resultsu ""  set resultse ""  set sites    [userlist 9]  set allinfo ""  set spc " "  set pace 0  set paceu 0  set pacee 0  set paceo 0  set euro "EU"  set usam "US"  foreach site $sites { set site1 [getuser $site ab]         set stop 1      set sitename     [getuser $site name]      set allinfo $site1$spc$allinfo          set typen [getuser $site link]      set ssa   [getuser $site status]    if {$ssa == "up"} {    } else {    setuser $site ab "$site1"    set site1 "$site1"   }    if {[string first $usam $typen] != "-1"} {    set resultsu $site1$spc$resultsu    incr paceu 1    set stop 0   }    if {[string first $euro $typen] != "-1"} {    set resultse $site1$spc$resultse    incr pacee 1    set stop 0   }    if {$stop == "1"} {    set results $site1$spc$results    incr paceo 1   }}  set results [string toupper $results]  set resultsu [string toupper $resultsu]  set resultse [string toupper $resultse]  set allinfo [string toupper $allinfo]  putserv "PRIVMSG $channel : \[ $logo \] $allinfo"  set resultsu [lsort -increasing $resultsu]  set resultse [lsort -increasing $resultse]  set results [lsort -increasing $results]  if {$paceu > "0"} {putserv "PRIVMSG $channel : \[ $logo \] US ($paceu)  $resultsu" }  if {$pacee > "0"} { putserv "PRIVMSG $channel : \[ $logo \] EU ($pacee)  $resultse  " }  if {$paceo > "0"} { putserv "PRIVMSG $channel : \[ $logo \] Other ($paceo)  $results  " }} proc ts_search {nick host hand channel arg} {  global logo  set results ""  set resultsu ""  set resultse ""  set spc " "  set pace 0  set paceu 0  set pacee 0  set paceo 0  set euro "eu"  set usam "us"  set sites    [userlist 9]  set siteone [lindex $arg 0]  set siteone [string tolower $siteone]  foreach site $sites { set site1 [getuser $site ab]     set stop 1  set check [getuser $site affils]  set plat [getuser $site platforms]  set typen [getuser $site link]  set check [string tolower $check]  set site1 [string tolower $site1]    set ssa   [getuser $site status]    if {$ssa == "up"} {    } else {    set site1 "$site1"    }  set typen [string tolower $typen]  set plat [string tolower $plat]  set siteone [string tolower $siteone]    if {[string first $siteone $typen] != "-1"} {    incr pace 1     if {[string first $usam $typen] != "-1"} {    set resultsu $site1$spc$resultsu    incr paceu 1    set stop 0  }    if {[string first $euro $typen] != "-1"} {    set resultse $site1$spc$resultse    incr pacee 1    set stop 0  }    if {$stop == "1"} {    set results $site1$spc$results    incr paceo 1  }}    if {[string first $siteone $plat] != "-1"} {    incr pace 1    if {[string first $usam $typen] != "-1"} {    set resultsu $site1$spc$resultsu    incr paceu 1    set stop 0  }    if {[string first $euro $typen] != "-1"} {    set resultse $site1$spc$resultse    incr pacee 1    set stop 0  }    if {$stop == "1"} {    set results $site1$spc$results    incr paceo 1   } }}  set siteone [string tolower $siteone]  if {$pace == "0"} {  putserv "PRIVMSG $channel : \[ $logo \] no sites found: search pattern - $siteone "  return 1}  set results [string toupper $results]  set resultsu [string toupper $resultsu]  set resultse [string toupper $resultse]  putserv "PRIVMSG $channel : \[ $logo \] $pace site(s) found: search pattern - $siteone"  set resultsu [lsort -increasing $resultsu]  set resultse [lsort -increasing $resultse]  set results [lsort -increasing $results]  if {$paceu > "0"} {putserv "PRIVMSG $channel : \[ $logo \] US ($paceu)  $resultsu " }  if {$pacee > "0"} { putserv "PRIVMSG $channel : \[ $logo \] EU ($pacee)  $resultse " }  if {$paceo > "0"} { putserv "PRIVMSG $channel : \[ $logo \] Other ($paceo)  $results  " }} proc ts_add {nick uhost hand channel arg} {  global logo  set site     [lindex $arg 0]  set relname  [lrange $arg 0 end]  if {$site == ""} {  putserv "PRIVMSG $channel :\[ $logo \] USAGE !Add XXX_Name-GROUP XX/XX DATE\(optioal\)"  return 1} # check for dupes   set cc 0  set dupes [userlist 5]  foreach dupe $dupes {  set site1 [getuser $dupe ab]  set aadupe [string tolower $site1]  set awho [string tolower $site]   if {$aadupe == $awho} {     putserv "PRIVMSG $channel :\[ $logo \] DUPE Detected of $site1"    return 1 }} # new site add it   set nt "not available"  set wt "up"  set boom [userget TS count]  incr boom  setuser TS count $boom  set ts "ts"  set newsite $ts $boom  set test $site  adduser $newsite *!$newsite@*.ts.net  chattr $newsite +5  setuser $newsite ab $site  setuser $newsite platform $relname  putserv "PRIVMSG $channel :\[ $logo \] New XXX: $relname added to my dupe database"  return 1} proc ts_dupe {nick host hand channel arg} {  global logo  set jx "0"  set dupes [userlist 5]  set site  [lindex $arg 0]  putserv "PRIVMSG $channel : \[ $logo \] Searching... "  foreach dupe $dupes {  set awho [string tolower $site]  set typen [getuser $dupe platform]  set typen [string tolower $typen]    if {[string first $awho $typen] != "-1"} {       incr jx 1       if {$jx < 10} {       putserv "PRIVMSG $channel : \[ $logo \] $typen"       }   }}      putserv "PRIVMSG $channel : \[ $logo \] $jx found "} proc ts_help {nick host hand channel arg} {  global logo  putserv "PRIVMSG $nick : \[ $logo \] !showaffils affil (shows sites with affil as an    affil)"  putserv "PRIVMSG $nick : \[ $logo \] !addsite ex Example_Site (add a site)"  putserv "PRIVMSG $nick : \[ $logo \] !delsite ex (delete a site)"  putserv "PRIVMSG $nick : \[ $logo \] !name ex Example_Site (rename a site)"  putserv "PRIVMSG $nick : \[ $logo \] !link ex OC3 (set site link)"  putserv "PRIVMSG $nick : \[ $logo \] !platforms ex ISO VCD MP3 (set site platforms)"  putserv "PRIVMSG $nick : \[ $logo \] !affils ex razoriso risciso (set affils for a  site)"  putserv "PRIVMSG $nick : \[ $logo \] !status ex working (set site status)"  putserv "PRIVMSG $nick : \[ $logo \] !gadmin ex that1guy (set site gadmin)"  putserv "PRIVMSG $nick : \[ $logo \] !slots ex 4 wWyZ (set site slots)"  putserv "PRIVMSG $nick : \[ $logo \] !site ex (display site info)"  putserv "PRIVMSG $nick : \[ $logo \] !sites (displays a brief list of all sites)"  putserv "PRIVMSG $nick : \[ $logo \] !list (shows a detail list of sites)"  putserv "PRIVMSG $nick : \[ $logo \] The End...."}