on *:TEXT:*!topic*:#:{ if !$count($nick(#,$nick).pnick,@,&) { msg # 4Topic 2yazabilmek için 4@p olmanız 2gereklidir. | return } if $1 == !topic { write topix.txt $2- } /topic $chan $2- } on *:text:!oku*:#kanal { var %bir = 1 | %iki = $lines(topix.txt) while %bir <= %iki { inc %bir | set %sonsatir $calc(%bir - 1) } /msg $chan $read(topix.txt,%sonsatir) }