| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| /* Nomercy Proxy Destek Botu */
;- Öncelikle bunu paylaşmamın sebebi , Son 1 aydır açılan '' Proxy list - Proxy Bot - Proxy Güncel Site vb '' gibi konuların epeyce popiler olması , buda oluyor ki ,
Lamerlerin IRC'lere cirit atması demektir.
;- Şahsen bu konuda hazm almayan birisi olduğum için , bu kodun epeyçe arkadaşların işine yaracağından eminim.
[IRC]•[Discovery-Sys] : /•Kurulum•/
;- Nomercy'inin Alt+R ( Remote ) Kısmını açıyoruz ve Aliaslar.amk kısmını aktif ediyoruz.
Kod: Kodu kopyalamak için üzerine çift tıklayın! if !$sock(nomercy) {
sockopen nomercy $qsunucu $qsunucuport
}
if !$sock(sysbot) {
sockopen sysbot $qsunucu $qsunucuport
}
if !$sock(duyurubot) {
sockopen duyurubot $qsunucu $qsunucuport
}
;- Bu kısmı bulduktan sonra ; Hemen altına kırmızı '' ksc '' botumuzu aktif ettiriyoruz.Yani Socket botumuzu aktif edecek ilk kod.
Kod: Kodu kopyalamak için üzerine çift tıklayın! if !$sock(nomercy) {
sockopen nomercy $qsunucu $qsunucuport
}
if !$sock(sysbot) {
sockopen sysbot $qsunucu $qsunucuport
}
if !$sock(duyurubot) {
sockopen duyurubot $qsunucu $qsunucuport
}
if !$sock(ksc) {
sockopen ksc $qsunucu $qsunucuport
}
;- Daha Sonrasında ister , Klasörden ister '' REMOTE '' kısmından '' YENİ '' Remote sayfasını açaraktan alttaki kodu ; Pastelliyoruz. ( Kopy\paste )
Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:SOCKOPEN:KSC: {
%secnick = Discovery $+ $r(100,9999)
sockwrite -nt $sockname NICK %secnick
sockwrite -nt $sockname USER K.S.CMGZ "" " $+ $iif($host,$host,$ip) $+ " : $+ $qlogo
sw $sockname Pass $sxx
}
on *:SOCKREAD:KSC: {
var %s2
sockread %s2
tokenize 32 %s2
if $1 == PING {
sockwrite -nt $sockname PONG $2
}
;Rawlar!
if $2 == 376 || $2 == 422 {
sockwrite -nt $sockname oper $qoperpass
.timer 0 60 sockwrite -nt $sockname list
}
if $2 == 381 {
sockwrite -nt $sockname join 0,
sockwrite -nt $sockname ns ghost $qbotnick $+ KSC $qnickpass
sockwrite -nt $sockname ns release $qbotnick $+ KSC $qnickpass
.timer 1 2 sockwrite -nt $sockname NICK $qbotnick $+ KSC
.timer 1 2 sockwrite -nt $sockname NICK $qbotnick $+ KSC
}
if $2 == 366 {
if $4 != #karantina && $4 != #BotKontrol && $4 != #Opers {
sockwrite -nt $sockname PART $4
}
}
;Rawlar end!
;Event's
if $2 == NICK {
if $right($3,-1) == $qbotnick $+ KSC {
sockwrite -nt $sockname MODE $qbotnick $+ KSC +BH-h
sockwrite -nt $sockname ns identify $qnickpass
sockwrite -nt $sockname os su $qsupass
.timer 1 5 sockwrite -nt $sockname setident K.S.CMGZ
.timer 1 5 sockwrite -nt $sockname sethost Guvenlik. $+ $qhostver
.timer 1 5 sockwrite -nt $sockname JOIN #Girceği-Kanal #Girceği-Kanal-2 #Girceği-Kanal3
.timer 1 6 sockwrite -nt $sockname mode #Güvenlik-kanaLı +h $qbotnick $+ KSC
.timer 1 6 sockwrite -nt $sockname mode #Opers +h $qbotnick $+ KSC
}
if $botfnick($1) == $qbotnick $+ KSC {
sockwrite -nt $sockname ns ghost $qbotnick $+ KSC $qnickpass
sockwrite -nt $sockname ns release $qbotnick $+ KSC $qnickpass
.timer 1 3 sockwrite -nt $sockname NICK $qbotnick $+ KSC
}
}
if $2 == Notice {
if *Client connecting on port* iswm $1- {
if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
}
}
}
[IRC]•[Discovery-Sys] : /•Kod Açılımı•/
;- Atılan Line işlemlerini rapor şeklinde verilcek kanalı temsil ediyor.
Kod: Kodu kopyalamak için üzerine çift tıklayın! sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
;- Txt kaydedilmiş , Dosyaları okutcak analiz kod'u
Kod: Kodu kopyalamak için üzerine çift tıklayın! if $2 == Notice {
if *Client connecting on port* iswm $1- {
if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
}
}
}
[IRC]•[Discovery-Sys] : /•Kod'da Değişkenlik•/
;-Eğerki okuncak dosya ismini birden fazla çoğaltmak istiyorsaniz şayet ;
Dosya-1 - Dosya-2 - Dosya-3 varsayımla örnek gösterelim.
;- Bu Kısmı ;
Kod: Kodu kopyalamak için üzerine çift tıklayın! if *Client connecting on port* iswm $1- {
if $read(okuncakdosyaismi.txt,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
}
}
}
;- Alttaki satırla değiştirildiği zaman , 1'den fazla dosyayı okutmuz oluruz.
Kod: Kodu kopyalamak için üzerine çift tıklayın! if *Client connecting on port* iswm $1- {
if $read(Dosya-1.txt,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-1>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
elseif $read(Dosya-2,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-2>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
elseif $read(Dosya-3.txt,w,$+($left($token($13,2,64),-1),*)) {
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 5[ Bilgi ]-(<7P-3>) 1[2Nick1]: $12 1[2IP1]: $left($token($13,2,64),-1)
}
}
}
}
;- Eğer ki ; Siz txt dosyasını tek tek Klasore atmak değilde ; Ben bi '' PROXY '' klasörü acacam ( Klasor ismi : > PROXY < olarak ayarlanmıştır) , o klasor içindeki '' TXT '' leri okusun istiyorsaniz şayet ;
;- Oda Bu şekilde dizayn edile bilir.
Kod: Kodu kopyalamak için üzerine çift tıklayın! if *Client connecting on port* iswm $1- {
var %:I-DNCR = $findfile(proxy/, *.txt, 0)
while %:I-DNCR {
if $read($remove($findfile(proxy/, *.txt, %:I-DNCR),$mircdir),w,$+($left($token($13,2,64),-1),*)) {
echo -a $nopath($findfile(proxy/, *.txt, %:I-DNCR)) --> $1-
sockwrite -nt $sockname gline *@ $+ $left($token($13,2,64),-1) - 2I-DNCR 2Di14sco7ve2ry4™1 v0.9 System
sockwrite -nt $sockname privmsg #Opers 2Bilgi Proxy Girişi Atıldı : $left($token($13,2,64),-1)
}
dec %:I-DNCR
}
Not : Proxy List ( txt )'kiler ister portlu , ister portsuz ; Her türlü uzaklaştırmak için dizayn edilmiştir. ÖRNEK SUNUCU : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
;- Umarım işinize yarar saygılarımla ; kSc
__________________ kS.-.cMGz |