Başka Sunucudan Nickler İle Sohbet Çekmek.

[Root]

Başka Sunucudan Proxy Nickler İle Sohbet Çekmek.

Anlatım

ALT-P yaptınızda karşınıza cıkan Remote bölümüne atıyorsunuz kodu
İrcforumlar.com arkadaşın yazmış oldu kendi sitesi oraya kendi sitenizin adını yazınız


İRCforumlar.com olan ise çekeceginiz site yani sohbeti çekmek istediniz sitedir
karşılarında port goreceksiniz sitenizin muaf olan portu olsun
sonra nick - nick pass- oper pass- oss su - bölümleri doldurunuz
uname.txt - rname.txt - proxy.txt indiriniz mircinizin ana dizinine atınız
ident için uname.txt - fullname için rname.txt -duzenleyebilirsiniz sitenizin ismi olarak degişin identi fullnameyi

alias _muafnick return Nomercy ChanServ NickServ OperServ S-Bot Ajan Radyo-bot
bölüm muaf alcagınız bölüm yani ornek verıyorum çekeceginiz sitede
radyo botu olsun s bot olsun felan mesaj atıyor muaf almalısınız ki sunucuza o sitenin
reklamları gelmesin hangi bottan reklam geliyorsa onu muaf alınız kısaca

alias _muafnick return Nomercy ChanServ NickServ OperServ
on *:start: { sockopen bot irc.ircforumlar.com 1986 | server irc.ircforumlar.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.ircforumlar.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.ircforumlar.com 1986 }
on *:sockopen:bot:{ if ($sockerr) { sockclose bot | sockopen bot irc.ircforumlar.com 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.İRCforumlar.com 1986 | return }
  if ($regex($2,/481|411|001)) { swbot oper opernick Operşifre | swbot nick Sensivite | swbot nickserv identify BOTUNŞİFRESİ | 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.ircforumlar.com: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) }
}