on *:text:*:#:var %1 = 1 | while $read(dosya.txt,%1) { if $+(*,$gettok($v1,1,42),*) iswm $1- { .msg # $gettok($v1,2,42) | return $true } | inc %1 } | return $false