alias bkontrol { $iif($sock(X),sockclose X,sockopen X sunucu-ismi port)
  $iif(!$isfile(kmesaj.die),write -c kmesaj.die)
  hmake 100 kmesaj | hload kmesaj kmesaj.die
}
alias replace? return $regsubex($1,/[ÖÇŞĞÜİöçşığü]/g,?) 
alias kmesaj { if !$istok(ekle sil list,$1,32) { echo Geçersiz parametre:4 $1 | return }
  if $1 = ekle { hadd -m kmesaj $replace?($2) $3- 
    hsave kmesaj kmesaj.die | hload kmesaj kmesaj.die
  echo :14 $2 kelimesi için12 $3- 12karşılama mesajı eklendi | return }
  if $1 = sil { if $hmatch(kmesaj,$2) { hdel -w kmesaj $2 | hsave kmesaj kmesaj.die | hload kmesaj kmesaj.die 
    echo :14 $2 kelimesi için karşılama mesajı silindi. | return }
    else {   
    echo :14 $2 kelimesi için karşılama mesajı bulunamadı | return }
  }
  if $1 = list { if !$hget(kmesaj) { echo kmesajma mesajı için oluşturulmuş kelime listesi bulunamadı. | return }
    var %> = 1 | while ($hget(kmesaj, %>).item) {
      echo : %> $+ ) Söylenecek kelime:12 $v1 Karşılığı=>14 $hget(kmesaj, $v1)
      inc %> 
    }
  }
}
on *:SOCKOPEN:X: {
  sockwrite -nt $sockname NICK Botnick
  sockwrite -nt $sockname USER Bot-ident "" " $+ $iif($host,$host,$ip) $+ " :Bot-fullname
}
on *:SOCKREAD:X: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sockwrite -nt $sockname PONG $2
  }
  if $2 == 376 {
    ;   sockwrite -nt $sockname join 0,
    .timer 1 2 sockwrite -nt $sockname oper operpass.
    .timeridentify 1 20 sockwrite -nt $sockname ns identify nickpass
  }
  if $2 = join && !$istok(muafnick muafnick muafnick Botnick,$gettok($remove($1,:),1,33),32) && $remove($3,:) = #kanal { 
  sockwrite -nt $sockname privmsg $remove($3,:) Sunucumuza hoş geldiniz $gettok($remove($1,:),1,33) }
  if $2 = privmsg && $3 = #kanal {
    if $hmatch(kmesaj,$remove($4,:)) {  
    sockwrite -nt $sockname privmsg $3 $replace($hget(kmesaj,$ifmatch),<N>,$gettok($remove($1,:),1,33)) }
  }
}