Sunuculardan sohbet çekme botu (socket)

alias _muafnick return Nomercy ChanServ NickServ OperServ 
on *:start: { sockopen bot irc.sunucunuz.net 6667 | server irc.sunucu.com 6667 }
on *:connect: { .timer 200 0 timer 0 0 olustur }
on *:rawmode:*: {
  if (+b isin $1) { return }
  swbot operserv raw :chanserv mode #Sohbet $1-
  swbot operserv raw :chanserv mode #Radyo $1-
  swbot operserv raw :chanserv mode #Oyun $1-
}
on *:text:*:#: { 
  if !$istok($_muafnick,$nick,32) && ($server = irc.sunucu.com) {
    if $istok(#Sohbet,$chan,32) && !$read(nick.txt,w,$nick) { write nick.txt $nick }
    swbot sendraw #chat $+(::,$nick) PRIVMSG #chat $+(:,$1-)
  }
}
alias swbot if ($sock(bot).status == active) sockwrite -n bot $1- 
on *:sockclose:bot:{ sockopen bot irc.sunucunuz.com 6667 }
on *:sockopen:bot:{ if ($sockerr) { sockclose bot | sockopen bot irc.sunucunuz.com 6667 | return } | swbot NICK $+(cycle,$ticks) | swbot USER cycle "" " Turkce Mirc v6.35 }
on *:sockread:bot:{ 
  var %; | sockread %; | tokenize 32 %; | if ($1 = ping) swbot pong $remove($2,:) | if ($sockerr) || ($2 = 451) { sockclose bot | sockopen bot irc.sunucunuz.com | return }
  if ($regex($2,/481|411|001)) { swbot oper nick şifre | swbot nick Cycle | swbot nickserv identify nickşifresi | swbot os su supass } 
}
alias olustur { var %v $+($ticks,$r(1000,9999)) | sockopen $+(proxy,%v) $read(proxy.txt) }
on *:sockopen:proxy*: { 
  if ($sockerr) { sockclose $sockname | return } | if $sock($sockname) { sockwrite $sockname CONNECT irc.sunucunuz.com 6667 $+(HTTP/1.1,$crlf,$crlf) } 
}
on *:sockread:proxy*: { 
  sockread %tmp | if ($sockerr) { sockclose $sockname | return }
  if (HTTP/1.0 200 isin %tmp) && $sock($sockname) { sockwrite -n $sockname NICK $read(nick.txt) | sockwrite -n $sockname USER $read(uname.txt) "" " $read(rname.txt) }
  if ($gettok(%tmp,1,32) == ping) && $sock($sockname) { sockwrite -n $sockname PONG $gettok(%tmp,2-,32) }
}