alias _bnick return $read Nick.txt
alias _server return 
irc.sunucu.net
alias _identd return ChatWeb
alias _pass return 
 
alias _port return 6667
alias _username return Muhabbet
alias 
_usermsg return .
;-
alias partt if ($sock(_bot)) sockwrite -n $v1 part 
$1
alias çıkış $iif($sock(_bot),sockclose $v1)
alias _ch if 
($istok(#sohbet #muhabbet,$1,32)) { return $false } | return $true
alias 
konuş if ($sock(_bot)) sockwrite -n $v1 privmsg $1 $2-
on *:sockopen:_bot: 
{
  if ($sockerr) returnex
  var %:- sockwrite -n _bot
 
%:- nick $_bnick
  %:- user $_identd * * : $+ $_username
 
sockmark _bot $_bnick
}
on *:sockread:_bot: {
  if ($sockerr) 
returnex
  var %:- sockwrite -n _bot,%_bot,%_bn = 
$sock(_bot).mark
  sockread -n %_bot
  tokenize 32 
%_bot
  var %_us = $right($token($1-,1,33),-1),%_ch = 
$right($3,-1)
  if ($1 == PING) %:- pong $2- 
  ;botun gireceği 
kanallar
  %:- join #sohbet,#muhabbet
  if (%_us == %_bn 
&& $2 = join && $_ch(%_ch)) { %:- part %_ch }
  ;if ($2 
= join && !$_ch(%_ch)) { %:- privmsg %_us $_usermsg }
}