on *:text:*:#control: {
  if $1 == !yaz && $2 && $play(0) == 0 { 
    if $findfile($mircdir,$+(*,$3,.txt,*),0) {
      set -e %difytime $calc($4 *1000) 
      set -e %difyject $3
      set -e %difychan $iif($left($2,1) == $chr(35),$2,$+($chr(35),$2))
      .play %difychan $+(",$findfile($mircdir,$+(*,$3,.txt,*),1),") %difytime 
      msg # $+($3,.txt) dosya ismi $4 sn. süreyle %difychan kanalına yazdırılıyor.
      msg %difychan $remove($3,!) egitimi Baslatildi. 
    }
    else { msg # Böyle bir dosya mirc ana dizininde bulunmuyor }
  }
  if $1 == !yazdur { 
    var %d = $remove($nopath($play(%difychan).fname),.txt)
    hadd -m play %d $play(%difychan).pos 
    .play stop 
    msg $+(#,$chr(44),%difychan) %d Egitimi durduruldu.
  }
  if $1 == !yazdevam { 
    if $hget(play,%difyject) { 
      play $+(-f,$ifmatch) %difychan $+(",$findfile($mircdir,$+(*,%difyject,.txt,*),1),") %difytime 
      msg $+(#,$chr(44),%difychan) %difyject Egitimine kalinan yerden devam ediliyor.
    }
  }
}
on *:playend:if $regex($nopath($filename),$+(%difyject,.txt)) { msg %difychan %difyject eğitimi sona erdi. | unset %dify* }