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) 
}