Merhaba arkadaşlar. Bot oper yetkisi ile irc sunucu girişindeki user nick ip ve şehrini belirlediğim kanala yansıtıyor. Buraya kadar sorun yok. Ancak benim belirlediğim nicklerin irc girişi olduğunda kanala yansıtmamasını istiyorum. İlgili kod aşağıdadır.
PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:who +I $9
raw 352:*:{ .var %:rand $rand(100,9999999) | .sockopen $+(city,%:rand) anonymouse.org 80 | .sockmark $+(city,%:rand) $+($4,¿,$6) }
alias bbüyük { return $replace($1,a,A,b,B,c,C,ç,C,Ç,C,d,D,e,E,f,F,g,G,ğ,G,Ğ,G,h,H,ı,I,i,I,İ,I,j,J,k,K,l,L,m,M,n,N,o,O,ö,O,Ö,O,p,P,r,R,s,S,t,T,u,U,v,V,y,Y,z,Z,w,W,x,X,q,Q,ş,S,Ş,S,@,A) }
alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Åz,ş,ÄŸ,ğ,Ãœ,ü,Äz,ğ,$chr(39),-)
on *:sockopen:city*:{
var %:city sockwrite -n $sockname
%:city GET /cgi-bin/anon-
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.cgi/http://whatismyipaddress.com/ip/ $+ $token($sock($sockname).mark,1,191) HTTP/1.1
%:city Accept: text/html, application/xhtml+xml, */*
%:city Accept-Language: tr-TR
%:city User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/5.0)
%:city Host: anonymouse.org
%:city DNT: 1
%:city Connection: Keep-Alive
%:city $crlf
}
on *:sockread:city*:{
if ($sockerr) { .sockclose $sockname | return }
var %city | sockread %city
if (Country: isin %city) { if $token($htmlfree(%city),2,58) != Turkey { msg #opers [ 5Yurt Dışı ] [2Nick: $token($sock($sockname).mark,2,191) ] [4IP: $token($sock($sockname).mark,1,191) ] [10Ülke: $token($htmlfree(%city),2,58) ] | sockclose $sockname | return } }
if (City: isin %city) {
msg #opers [ ] [2Nick: $token($sock($sockname).mark,2,191) ] [4IP: $token($sock($sockname).mark,1,191) ] [5Şehir: $trchra($token($htmlfree(%city),2,58)) ]
var %:hava $rand(10,999999) | .sockopen $+(hava,%:hava)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">span* iswm %hava) { .hadd -ms Hava $token($sock($sockname).mark,2,191) $trchra($htmlfree(%hava)) }
if (*span class="hvDeg2">*</span* iswm %hava) {
msg $token($sock($sockname).mark,2,191) :4EnYuksek: $trchra($hget(Hava,$token($sock($sockname).mark,2,191))) 2EnDusuk: $trchra($htmlfree(%hava))
.hdel -ms Hava $token($sock($sockname).mark,2,191)
msg $token($sock($sockname).mark,2,191) :2Resmi Sohbet ve Yardım Kanalımız: 4#bitturk
msg $token($sock($sockname).mark,2,191) :2Uploader Kanal'ımız: 4#uploader
sockclose $sockname
return
}
}
on *:sockopen:haber*:{
var %:haber sockwrite -n $sockname
%:haber GET /rss.asp?kategori= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
%:haber Host: rss.haberler.com
%:haber $crlf
if (!$hget(Haber)) { .hmake Haber }
}
on *:sockread:haber*:{
if ($sockerr) { .sockclose $sockname | return }
var %haber | sockread %haber | .tokenize 32 %haber
if (<title> isin %haber) {
if $htmlfree(%haber) == Haberler.Com { return }
msg $token($sock($sockname).mark,2,191) :4Baslik: $trchra($htmlfree(%haber))
}
if (*<description>* iswm %haber) {
if (*Türkiye'nin en kapsamlı haber portalı.* iswm $htmlfree(%haber)) { return }
msg $token($sock($sockname).mark,2,191) :4Aciklama: $trchra($htmlfree(%haber))
}
if (*<pubDate>*</pubDate>* iswm %haber) {
msg $token($sock($sockname).mark,2,191) :4Zaman: $trchra($htmlfree(%haber))
msg $token($sock($sockname).mark,2,191) :
.hinc Haber $token($sock($sockname).mark,2,191) 1
if $hget(Haber,$token($sock($sockname).mark,2,191)) == 2 {
.hdel Haber $token($sock($sockname).mark,2,191)
.sockclose $sockname
return
}
}
}