Untitled

				while {$count < [llength $bwfound]} {
					if { [string match -nocase "$bw" [lindex $bwfound $count]] == 1 } {
						putquick "PRIVMSG $chan : Wypierdalam cie bo poda&#322;e&#347; badword."
						#putquick "PRIVMSG $chan : $Excepts(list)"
						if { [string match -nocase "$Excepts(list)" [lindex $bwfound $count]] == 1 } {
							putquick "PRIVMSG $chan : Ale jest wyjatek to mash spokój bo spokoje. :p"
						} else {
							putquick "PRIVMSG $chan : Wyj&#261;tku tez brak to wypad."
							return 0
						}
					}
					incr count 1
				}