on *:text:*:#:{
  if $chan == #opers {
    if $1 == !spamekle {
      if !$2 { msg $chan Lütfen kelime belirtiniz. Örnk; !spamekle topik | return }
      if $read(spam.txt,w,$2) { msg $chan :[ $2 ] Spam listesinde eklidir. | return }
      write spam.txt $2
      msg $chan :[ $2 ] Spam listesine eklenmişdir.
    }
    if $1 == !spamsil {
      if !$2 { msg $chan Lütfen kelime belirtiniz. Örnk; !spamsil topik | return }
      if !$read(spam.txt,w,$2) { msg $chan :[ $2 ] Spam listesinde ekli degildir. | return }
      write $+(-dl,$readn) spam.txt
      msg $chan :[ $2 ] Spam listesinde silinmişdir.
    }
    if $1 == !spamlist {
      if $lines(spam.txt) == 0 { msg $chan Spam listesi boş. | return }
      msg $chan Spam listesi
      msg $chan 
      var %spam 1
      while %spam <= $lines(spam.txt) {
        msg $chan $read(spam.txt,%spam)
        inc %spam 
      }
      msg $chan 
      msg $chan Spam listesi sonu
    }
  }
  if $read(spam.txt,w,$strip($1-)) {
    if !$istok(nick nick1 nick2 nick3 nick4 nick5 nick6,$nick,32) && !$istok(#kanal #kanal1 #kanal2 #kanal3,$chan,32) {
      msg $chan Kanalda Yasaklı Kelime Kullandınız...
      sajoin $nick 0,0
      $+(timer,$nick) 1 3 sajoin $nick #Spamengel
      msg $chan Kanal temizleniyor.
      var %x 1
      while %x <= 60 { 
        msg $chan .
        inc %x
      }
      msg $chan Kanal Temizlenmişdir.
    }
  }
}

!$istok(nick nick1 nick2 nick3 nick4 nick5 nick6,$nick,32)

!$istok(#kanal #kanal1 #kanal2 #kanal3,$chan,32)