on *:text:*:#:{
if !konuyaz* iswm $1- && $2 {
.set %konuyaz ok!
.set %konukanal #
.set %konunick $nick
}
if $chan == %konukanal && $2 && %konuyaz && $nick == %konunick {
.write $replace($2,$chr(32),-) $+ .txt $1-
}
if !konudur isin $1- {
.unset %konu*
}
if !konusoyle* iswm $1- && $2 && $read($replace($2,$chr(32),-) $+ .txt) {
play # $replace($2,$chr(32),-) $+ .txt 1000
}
}