Code:

(14:02:10) (@Dahlen) [b][u]Paket::1[/u][/b](14:02:12) (@Dahlen) bla bla bla

Code:

!ad You are the [censored] yes, you are

Code:

## ad.tcl v1.0 by strikelight  ([sL]@EfNet)## -----------------------------------------# web  : http://www.TCLScript.com# EFNet: #Scripting# -----------------------------------------# Description:## Small script used to advertise urls in a channel# such as shell companies at a defined time interval.## Default usage:## Add:# /msg <bot> !ad <url> <description>## Remove:# /msg <bot> !delad <url>##### ---  START EDITTING HERE --- ### time in seconds to display an ad to channels #set adtime 120# channels to advertise in #set adchans "#shellx"# flag of user required to add an advertisement via msg #set adflag m# message trigger used to add an advertisement ## (format /msg bot <command> <url> <ad description>)set admsgcmd "!ad"# message trigger used to delete an advertisement ## (format /msg bot <command> <url>)set deladmsgcmd "!delad"## ---  STOP EDITTING HERE --- ##set adidx 0proc loadads {} {  global adlist  set adlist ""  if {![file exists "ad.txt"]} {return 0}  set infile [open "ad.txt" r]  while {![eof $infile]} {    gets $infile dataline    if {$dataline != ""} {lappend adlist $dataline}  }  close $infile  return 1}proc saveads {} {  global adlist  set outfile [open "ad.txt" w]  foreach ad $adlist {if {$ad != ""} {puts $outfile "$ad"}}  close $outfile  return 1}proc addisplay {} {  global adchans adlist adidx adtime  utimer $adtime "addisplay"  if {$adlist == ""} {return 0}  foreach chan $adchans {    puthelp "PRIVMSG $chan :\002\037[split [lindex [lindex $adlist $adidx] 0]]\037\002"    puthelp "PRIVMSG $chan :[split [lrange [lindex $adlist $adidx] 1 end]]"  }  set adidx [expr $adidx + 1]  if {$adidx >= [llength $adlist]} {set adidx 0}  return 1}proc utimerexists {timer_proc} {  foreach j [utimers] {if {[string compare [lindex $j 1] $timer_proc] == 0} {return [lindex $j 2]}}  return}bind msg $adflag $admsgcmd addadproc addad {unick user handle argz} {  global adlist botnick admsgcmd  set url [split [lindex $argz 0]]  set addesc [split [lrange $argz 1 end]]  if {($url == "") || ($addesc == "")} {    puthelp "NOTICE $unick :Invalid. Format: /msg $botnick $admsgcmd <url> <ad description>"    return 0  }  foreach turl $adlist {    set aurl [string tolower [lindex $turl 0]]    if {$aurl == [string tolower $url]} {      puthelp "NOTICE $unick :Error. Site is already added."      return 0    }  }  lappend adlist "$url $addesc"  saveads  puthelp "NOTICE $unick :Added: $url - $addesc"  return 1}bind msg $adflag $deladmsgcmd deladproc delad {unick user handle argz} {  global adlist botnick admsgcmd  set url [split [lindex $argz 0]]  if {$url == ""} {    puthelp "NOTICE $unick :Invalid. Format: /msg $botnick $deladmsgcmd <url>"    return 0  }  set newadlist ""  foreach turl $adlist {    set aurl [string tolower [lindex $turl 0]]    if {$aurl != [string tolower $url]} {     lappend newadlist $turl    }  }  set adlist $newadlist  saveads  puthelp "NOTICE $unick :Deleted: $url"  return 1}loadadsif {[utimerexists "addisplay"] == ""} {utimer $adtime "addisplay"}putlog "ad.tcl v1.0 by strikelight now loaded"