IRCDefteri - En İyi IRCForum Sayfasi

IRCDefteri - En İyi IRCForum Sayfasi (https://www.ircforumda.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumda.net/mirc-scripting-hazir-kodlar/)
-   -   Başka Sunucudan Sohbet çekme kodu (https://www.ircforumda.net/mirc-scripting-hazir-kodlar/11091-baska-sunucudan-sohbet-cekme-kodu.html)

Bozkurt 28.Ocak.2021 06:35

Başka Sunucudan Sohbet çekme kodu
 
Kod:

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) }
}

Sunucunuz yerine kendi sunucu adresiniz ve portunuzu yazın.
Sunucu yerine hedefteki sunucu adresini ve portunu yazın.
Oper ve nick şifre kısımlarını kendinize göre düzenleyin.
Mircin ana klasörüne rname.txt , uname.txt ve proxy.txt isimlerinde 3 text dosyası oluşturun.Aşağıda içlerine ne şekilde dolduracağınıza dair örnekler bulunmaktadır.

HTML-Kodu:

rname.txt örnek
 Web Kullanıcısı
Web Sohbet
Buyur Mirc
Kelebek Mirc

HTML-Kodu:

uname.txt örnek
Mobil
Mirc
Web
WebSohbet

HTML-Kodu:

Proxy.txt örnek
50.206.25.106 80
198.199.86.11 8080
116.117.134.134 80
115.243.116.151 80


YouMyCure 08.Mayıs.2021 08:51

Cevap: Başka Sunucudan Sohbet çekme kodu
 
Alıntı:

Bozkurt Nickli Üyeden Alıntı (Mesaj 14826)
Kod:

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) }
}

Sunucunuz yerine kendi sunucu adresiniz ve portunuzu yazın.
Sunucu yerine hedefteki sunucu adresini ve portunu yazın.
Oper ve nick şifre kısımlarını kendinize göre düzenleyin.
Mircin ana klasörüne rname.txt , uname.txt ve proxy.txt isimlerinde 3 text dosyası oluşturun.Aşağıda içlerine ne şekilde dolduracağınıza dair örnekler bulunmaktadır.

HTML-Kodu:

rname.txt örnek
 Web Kullanıcısı
Web Sohbet
Buyur Mirc
Kelebek Mirc

HTML-Kodu:

uname.txt örnek
Mobil
Mirc
Web
WebSohbet

HTML-Kodu:

Proxy.txt örnek
50.206.25.106 80
198.199.86.11 8080
116.117.134.134 80
115.243.116.151 80



kardeş efsane kod yazmışsın eline sağlık :)


Forum Saati: 19:12. Zaman dilimi GMT +4 olarak ayarlanmıştır.

Powered by vBulletin® Version 3.8.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.