slm arkadaslar mirc botuma version cektirmek istiyorum nasıl yapabilir veya siz yardımcı olurmusunuz
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:sockread:pro*:{
if ($sockerr) { .sockclose $sockname | return }
var %:pro | sockread -f %:pro
if !$hget(ajan,koruma) {
if (IP Country: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Ülke $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (IP City: isin %:pro) { .hadd -ms $token($sock($sockname).mark,2,191) Sehir $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58)) }
if (ISP Provider: isin %:pro) {
var %:isp $iif($token($htmlfree(%:pro),2,58) == $null,Belirsiz,$token($htmlfree(%:pro),2,58))
var %:n $token($sock($sockname).mark,2,191), %ip $token($sock($sockname).mark,1,191), %ülke $hget(%:n,Ülke), %shr $hget(%:n,Sehir)
elseif !$hget(ajan,knm) {
msg #sado 0,7 [»] 1,1 47 15Giriş 7 Nick:( 15 %:n ) 7- 0,115IP:15 %ip 7 - Ulke:15 %ülke 7- 7Sehir:15 %shr - 7Firma:15 %:isp 7- 7Saat:15 $timestamp
}
.hfree -sw %:n
}
}
if (%sglyc == on) {
if (ISP Provider: isin %:pro) {
var %sglyc = $token($htmlfree(%:pro),2,58)
if $hfind(gvpn,$strip(%sglyc),1,W).data {
gline $+(*@,$token($sock($sockname).mark,1,191)) +0 4Lutfen IP Adresinizi Degiştirip Tekrar Giris Deneyiniz
}
}
}
if (%:city == on) {
if (IP City: isin %:pro) {
var %shr = $token($htmlfree(%:pro),2,58)
if $hfind(gsehir,$strip(%shr),1,W).data { gline $+(*@,$token($sock($sockname).mark,1,191)) +0 12Sunucuya 10Girişiniz 4Yasaktır. 7! %logo }
}
}
if ($strip($3) == on) {
if (IP Country: isin %:pro) {
var %cntry = $token($htmlfree(%:pro),2,58)
if $hfind(gulke,$strip(%cntry),1,W).data { gline $+(*@,$token($sock($sockname).mark,1,191)) +0 4Lutfen IP Adresinizi Degiştirip Tekrar Giris Deneyiniz }
}
}
}
on *:sockopen:city*:{
sockwrite -nt $sockname GET /ip-address-locator.php?lookup= $+ $token($sock($sockname).mark,1,191) HTTP/1.1
sockwrite -nt $sockname host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname Connection: keep-alive
sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36
sockwrite -nt $sockname $crlf
}
on *:sockread:city*: {
if ($sockerr) { .sockclose $sockname | return }
var %city | sockread %city
if (%yon == on) {
if (IP Country: isin %city) && (*Turkey* !iswm $token($htmlfree(%city),2,58)) {
gline $+(*@,$token($sock($sockname).mark,1,191)) +0 12Yurtdışı 4Girişleri Şuan 7Kapalı! %logo
.timerkapat
return
}
}
if (ISP Provider: isin %city) {
var %sglyc = $token($htmlfree(%city),2,58)
if (Virtua isin $strip(%sglyc)) { gline $+(*@,$token($sock($sockname).mark,1,191)) +0 12Proxy 4Girişi Yasaktır. 7! %logo
.timerkapat
}
}
}
alias nerden { .enable #scktpr | $iif(%u32 == on,.who +R $1,.who +I $1) }
alias nerden2 {
var %:r2 = $r(1,999999999999)
.sockopen $+(pro,%:r2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
.sockmark $+(pro,%:r2) $+($2,¿,$1)
}
raw 008:*: {
if $hget(ajan,snomask) && ($server == %snosnc) {
if $regex(mod,$usermode,.+(s).+) { mode $me +s %snomsk }
}
}
#scktpr off
raw 352:*: {
if (*services.* iswm $5) { return }
if ($muafbul($6).nick == 1) || ($muafbul($4).host == 1) { return }
if (%tara == off) {
var %:r2 = $r(1,999999999999) | .sockopen $+(pro,%:r2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(pro,%:r2) $+($4,¿,$6)
}
if (%yon == on) {
var %:r = $r(1,999999999999) | .sockopen $+(city,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(city,%:r) $+($4,¿,$6)
}
if (%tara == on) {
if !$regex($7,/B|\*/) {
tarabakim $4
}
}
halt
}
raw 315:*: {
.disable #scktpr
halt
}