;### Link Conf.
alias -l linkname return Fantasy.ConferenceRoom.com
alias -l linkpass return Fantasy
alias -l irchost return irc.sunucuismi.com
alias -l ircport return 7044
 
 
alias SockServ {
  sockclose SockServ
  sockopen SockServ $irchost $ircport
  echo $color(info) -a :SockServ Açıldı
}
alias SetNick {
  if $sock(SockServ) {
    sockwrite -nt SockServ  $+(:,$1) NICK $2
  }
  else {
    echo $color(info) -at Socket bağlantı hatası
  }
}
;## Sock Code
on *:sockopen:SockServ:{
  sockwrite -tn $sockname PASS $linkpass $+ $crlf $+ $&
    server $linkname  1 Bot Services Agent 
}
on *:sockread:SockServ:{
  if ($sockerr) { echo $color(info) -at Socket botun bağlantısı kesildi. | return }
  sockread %data 
  if PING* iswm %data { sockwrite -tn $sockname PONG $gettok(%data,2,32) | echo -a :pong }
 
  ;### Gelen verileri echo için. Aktif etmek için aşağı satır başındaki ';' işaretini kaldırın
  ;if !$window(@SocketServ) { window -k0 @SocketServ } | aline -p @SocketServ $timestamp < %data
}