IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - aynı kelime (https://www.ircforumlari.net/mirc-scripting-sorunlari/523541-ayni-kelime.html)

slm arkadaşlar mırcte anlamadığım bişey var

editbox ta yazmış olduğum satır tam gitmiyor kanala örnek vereyim

ali nasılsın bugun neyapıorusun ali

burada ikitane ali yazan kelime varsa biri gidiyor kanala bunasıl oluyor

Kod:



on *:input:#:{

 

  if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: 

    while %/ <= %= { 

      var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32) 

      inc %/

      haltdef

    } 

    set %tgf %:

    5 $+ %chr

  } 

}

alias 51 {

  say $regsubex(%tgf,/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) 

} 

alias 52 { 

  say  %tgf

}

sorun burada

Cevap: aynı kelime

Kod:

on *:input:#:{ 

  if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: 

    while %/ <= %= { 

      var %: = $instok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),%/,32) 

      inc %/

      haltdef

    } 

    set %tgf %:

    5 $+ %chr

  } 

}

alias 51 {

  say $regsubex(%tgf,/(^| )(.)/g,\1 $+(,$rand(3,7)) $upper(\2)) 

} 

alias 52 { 

  say  %tgf

}