bind pub - !vitsi pub:vitsi
bind pub w !lisäävitsi pub:addvitsi

proc pub:addvitsi { nick uhost handle channel arg } {
	if { $arg == "" } {
		putserv "NOTICE $nick :Käyttö: !lisäävitsi <vitsi>"
		return 0
	}
	set vitsi [open "scripts/vitsit.txt" a]
	puts $vitsi "$arg"
	close $vitsi
	putserv "NOTICE $nick :vitsi Lisää vitsi komennolla !lisäävitsi <vitsi>"
}

proc pub:vitsi { nick uhost handle channel arg } {
	set vitsifile [open "scripts/vitsit.txt" r]
	set i 0
	while { [eof $vitsifile] != 1 } {
		incr i 1
		set vitsi($i) [gets $vitsifile]
	}
	set w [rand $i]
	set outvitsi $vitsi($w)
	putserv "PRIVMSG $channel :$outvitsi"
}

putlog "Script loaded: \002Vitsit 1.1\002"