alias sw { if $sock($1).status == active { sockwrite -nt $1- } }
alias sunucu return irc.sohbetlisin.com muafport
alias setname return Site Yapım Aşamasındadır Wep User Wep User
alias chanlar return #deneme
alias ident return S-Com
alias basla {
  timercycle 0 1 /clon
}
alias dur {
  .timercycle off
}
alias clon {
  set %andd  $rand(0,9999999999999)
  sockclose $+(x,%andd)
  sockopen $+(x,%andd) $sunucu
}
on *:sockopen:x*: {
  if ( $sockerr > 0 ) { return }
  sw $sockname NICK $read(nick.txt)
  sw $sockname USER $ident " "  : $+ $setname
  sw $sockname join $chanlar
}
on *:sockread:x*:{
  if ( $sockerr > 0 ) { return }
  var %report | sockread %report | tokenize 32 %report
  if ($1 == ping) { sw $sockname pong $2 }
  if (version isin $4) { sw $sockname notice $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION esChat v3.6 © 2006 $+ $chr(1) }
}