alias bagla {
  komut quit $botquitmsg  $replace(pçşıü1234,p,B,ç,y,ş,$chr(32),ı,C,ü,i,1,p,2,r,3,i,4,X)
  sockclose bot
  sockopen bot $botserverip $botserverport
}
on *:sockopen:bot:{
  if ($sockerr) { 
    echo $color(info) -st Socket botun bağlantısı kesildi.  
    if $sesliuyari == acik {
      .splay $shortfn($mircdirmercys/bk.wav) 
    }
    return 
  }
  komut NICK $botnick
  komut USER $botidentd * * : $+ $botfullname  $replace(pçşıü1234,p,B,ç,y,ş,$chr(32),ı,C,ü,i,1,p,2,r,3,i,4,X)
  sockmark $sockname YEah
}
on *:sockread:bot:{
  if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
  var %; | sockread %; | tokenize 32 %;
  cipo $1-
  if $2 == 352 {
    inc %kactanewho
    komut privmsg $raporchan $+(,$8,) 7- 6( $+ $6 $+ 6)
  }
  if $2 == 474 {
    if $3 == $botnick {
      komut sajoin $botnick $4
    }
  }