Code:

set quoteitpubprefix "!"set quoteitfile "quoteit.data"# 0 = Channel# 1 = Noticeset quoteitvianotice "1"if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }bind pub - [string trim $quoteitpubprefix]dumbasses quoteit:pub:dumbassesbind pub G|G [string trim $quoteitpubprefix]dumbass quoteit:pub:dumbassproc quoteit:pub:dumbass {nick uhost hand chan arg} { global quoteitfile quoteitvianotice set quotes "" if { [file exists $quoteitfile] } { set file [open $quoteitfile r]  } else {  if { $quoteitvianotice == 0 } { putmsg $chan "$quoteitfile does not exist. You'll need to add quotes to the database first by typing \002!dumbass <nick>\002" }  if { $quoteitvianotice == 1 } { putnotc $nick "$quoteitfile does not exist. You'll need to add quotes to the database first by typing \002!dumbass <nick>\002" }  return 0 } while { ![eof $file] } {  set quote [gets $file]  if { $quote != "" } {   set quotes [linsert $quotes end $quote]  } } close $file set row [rand [llength $quotes]]   set quote [list $quotes]  if { $quote != "" } {  if { $quoteitvianotice == 0 } {   putmsg $chan "Dumbasses: $quote"  }  if { $quoteitvianotice == 1 } {   putnotc $nick "Dumbasses: $quote"  }  return 1 }}proc quoteit:pub:dumbasses {nick uhost hand chan arg} { global quoteitfile if { $arg == "" } {  putnotc $nick "Usage: !dumbass <nick>"  return 0 } set file [open $quoteitfile a] puts $file "$arg" close $file putmsg $chan "{$arg dumbassed}" return 1}putlog "*** dumbasses.tcl loaded"