on *:Text:*:#:{
if *!list* iswm $1- { 
  var %i 1
  while %i <= $lines(dosya.txt) {
    if $1- == $gettok($read(dosya.txt,%i),1,42) {
      msg # $gettok($read(dosya.txt,%i),2,42)
      .halt
    }
    inc %i
  }
}