//echo -a : $eslesmecambazi(sicak hava,Ya bu havalar cok sicakladi ne olacak bilmiyorum,2,32,4)

//echo -a : $eslesmecambazi(deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,2,46,4)

//echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,2,46,4)

//echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,3,46,4)

//echo -a : $eslesmecambazi(dinle deve ulan,dinleyin.ulan.develer.burada.en.büyük.benim,5,46,4)

alias eslesmecambazi {
  var %string1 = $strip($$1)
  var %string2 = $replace($strip($$2),ş,?,ı,?,Ş,?,ü,?,ö,?,Ö,?,ğ,?,ç,?,I,?)
  var %wordmatchingcount = $iif($$3 isnum,$v1)
  var %token = $iif($$4 isnum 1-255,$v1)
  var %leastchr = $iif($$5 isnum,$v1)
  tokenize 32 %string1
  var %n = 1 , %esl_sa
  :jst
  var %tok_no = [ $$ $+ [ %n ] ]
  if ($len(%tok_no) < %leastchr) || $count(%tok_no,$left(%tok_no,1)) == $len(%tok_no) { inc %n | goto jst }
  var %jm = $left($replace(%tok_no,ş,?,ı,?,Ş,?,ü,?,ö,?,Ö,?,ğ,?,ç,?,I,?),4)
  var %dznle_tok_no = %jm $+ *
  if ($wildtok(%string2,%dznle_tok_no,0,%token)) {
    ;tekrarlayan kelimeleri kaldiriyor
    if ($v1 > 1) { var %string2 = $remove(%string2,%jm) }
    inc %esl_sa
    if (%wordmatchingcount == %esl_sa) { return $true }
  } 
  inc %n 
  goto jst
}