| Fani | 18 Haziran 2020 13:33 |
Cevap: Girişte Şehir Gösterme ve Şehir Yasaklama
Alıntı:
Emrehan Nickli Üyeden Alıntı
(Mesaj 1042196838)
Kod:
on *:text:*:#Opers:{
if $regex($1,/^[!.]yasak/Si) {
if !$2 { msg # Lütfen !yasak <ekle|sil|list> olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$3 || !$4 { msg # Lütfen !yasak <ekle> <Şehir> <ISP> olarak belirtiniz. }
elseif $regex($3,/Bel[ıiİ]rs[ıiİ]z/Si) { msg # Böyle bir şehir yok :) }
elseif $istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde zaten ekli, neyin kafası. }
else { .hadd -m YasakS $strip($3) $hget(YasakS,$strip($3)) $replace($strip($4-),$chr(32),$chr(45)) | .hsave -o YasakS yasaks.tprk | msg # $strip($3) - $strip($4-) girişi yasak listesine eklendi. }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$3 || !$4 { msg # Lütfen !yasak <sil> <Şehir> <ISP> olarak belirtiniz. }
elseif !$istok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32) { msg # $strip($3) - $strip($4-) girişi yasak listesinde ekli değil. }
else {
.hadd -m YasakS $strip($3) $remtok($hget(YasakS,$strip($3)),$replace($strip($4-),$chr(32),$chr(45)),32)
$iif(!$hget(YasakS,$strip($3)),.hdel -m YasakS $strip($3)) | .hsave -o YasakS yasaks.tprk
msg # $strip($3) - $strip($4-) girişi yasak listesinden silindi.
}
}
elseif $regex($2,/^l[ıiİ]st$/Si) {
if !$hget(YasakS,0).data { msg # Yasak giriş listesi boş. }
else {
msg # Yasak giriş listesi
msg # -
var %:t = 1 | while %:t <= $hget(YasakS,0).data {
msg # $+(%:t,-,$chr(41)) 1Şehir:4 $hget(YasakS,%:t).item 1ISP'ler:2 $replace($hget(YasakS,%:t).data,$chr(32),$+($chr(32),5,$chr(38),2,$chr(32)),$chr(45),$chr(32))
inc %:t
}
msg # -
msg # Yasak giriş listesi sonu
}
}
}
}
on *:start:if $isfile(yasaks.tprk) { .hmake YasakS | .hload YasakS yasaks.tprk }
on *:snotice:*:if $regex($1-,/Client connecting (on port|at) .+\: (.+) \(.+@.+\)/Si) { who +I $regml(2) }
raw 352:*:{ var %:r $r(1000,99999) | sockopen $+(isp,%:r)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(isp,%:r) $+($4,¿,$6) }
on *:sockopen:isp*:{
if ($sockerr) { .sockclose $sockname | return }
sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,191)) HTTP/1.1
sockwrite -nt $sockname Host: $sock($sockname).addr
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:isp*:{
var %:isp | sockread -f %:isp | tokenize 32 %:isp
if $regex($1-,/IP Country:<\/i> <b>(.+)<\/b>/i) { .hadd -ms Ülke $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/IP City: <b>(.+)<\/b>/i) { .hadd -ms Sehir $sockname $iif($regml(1),$regml(1),Belirsiz) }
elseif $regex($1-,/ISP Provider:<\/i> <b>(.+)<\/b>/i) {
if $istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32) { .gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h Yasak Giriş }
$iif(!$window( @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -e @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [ GİRİŞ ] Nick:4 $token($sock($sockname).mark,2,191) 1- IP:4 $token($sock($sockname).mark,1,191) 1- Ülke:2 $hget(Ülke,$sockname) 1- Şehir:2 $hget(Sehir,$sockname) 1- ISP:5 $iif($regml(1),$regml(1),Belirsiz) $iif($istok($hget(YasakS,$hget(Sehir,$sockname)),$replace($regml(1),$chr(32),$chr(45)),32),1- $+(12,$chr(40),4Yasak Giriş!12,$chr(41)))
.hdel -ms Ülke $sockname | .hdel -ms Sehir $sockname | sockclose $sockname
}
}
Kullanım: [!.]yasak ekle Şehir ISP
| Üstadım Kod Süper Çalışıyor Fakat Şöyle Bi Sorun Var.. Bazı Kişilerin Şehri Göstermiyor Boş Çekiyor.. Bunun Yerine Boş Olanlara Bilinmiyor Yazsa.. Bizde Bilinmiyor Turkcell Desek Mesela.. Böylece İstanbul Turkcell Değilde Bilinmiyor Turkcell ide Atsa Olabilir mi ? |
