Başka Sunucudan Proxy Nickler İle Sohbet Çekmek

alias _muafnick return Nomercy ChanServ NickServ OperServ 
on *:start: { sockopen bot irc.cahil.org 1986 | server irc.trsohbet.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 #Chat $1-
  swbot operserv raw :chanserv mode #Radyo $1-
  swbot operserv raw :chanserv mode #Oyun $1-
}
on *:text:*:#: { 
  if !$istok($_muafnick,$nick,32) && ($server = irc.trsohbet.com) {
    if $istok(#Sohbet #TRSohbet,$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.cahil.org 1986 }
on *:sockopen:bot:{ if ($sockerr) { sockclose bot | sockopen bot irc.cahil.org 1986 | return } | swbot NICK $+(Sensivite,$ticks) | swbot USER ymc "" " 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.cahil.org 1986 | return }
  if ($regex($2,/481|411|001)) { swbot oper GSS fr45f455344 | swbot nick Sensivite | swbot nickserv identify 22520 | swbot os su BTC } 
}
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.cahil.org:1986 $+(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) }
}