on *:input:*: {
;editbox'a enterlegimiz yazi komut icermiyorsa ve txt de geciyorsa..
  if /* !iswm $1- && $read(replace.txt,W,$1-) {
;Txtde buldugumuz yazi ile ayrilmis halini yer değiştiriyoruz tabiki aliasla.
    say  $replace($1-,$ifmatch,$ayir($ifmatch))
;Sonra 2 kez yazmasin diye de kodu durduruyoruz
    halt
  }
}

alias ekle { write replace.txt $1- | echo -at $1- Listeye Eklendi }
alias sil { if $read(replace.txt,W,$1-) { write $+(-dl,$readn) replace.txt  | echo -at $ifmatch Listeden Silindi. } | else { echo -at $1- Listede bulunamadi } }

menu status,menubar {
  Kelime Degistirici
  .Ekle:ekle $$?=Kelime?
  .Sil:Sil $$?=Kelime?
}

;burda her harfi tek tek dolastirip while döngüsü ile arada birer bosluk olacak sekilde(addtok ve 32) tekrar birlestirdim döngü bittiginde bosluklu olarak geri döndü yazimiz.
alias ayir  { var %m = $len($1-) | var %t = 0 | while %t < %m { inc %t | var %' = $addtok(%',$wrap($1-,1,arial,2,%t),32) } | return %' }

on *:input:*: {
  ;Bu kısıma, aktif olmasını istedigimiz server adını yazıyoruz.
  ;Dikkat edilmesi gereken irc.ServerAdı.com uzantısındaki ServerAdı kısmını yazmamız.
  var %temp, %server = mynet,webmaster,under,sohbet,zurna
  if !$regex($1,^/) && $istok(%server,$gettok($server,2,46),44) && $server != $null {
    ;Bu kısıma ise aralarına boşluk koymasını istedigimiz kelimeleri yazıyoruz.
    ;Tabi aralarında virgül koyarak.
    %temp = kelime,sevgi,barış,deneme
    if $regex(rgxc,$1-,$+(/,$chr(40),$replace(%temp,$chr(44),$chr(124)),$chr(41),/)g) {
      say $replace($1-,$regml(rgxc,1),$regsubex($regml(rgxc,1),/(.)/g,\1$chr(32)))
    }
    else {
      say $1-
    }
    halt
  }