IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

19Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 19 Mart 2017, 11:54   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Join Eventi




Merhaba Join Eventinde Hangi Şehirden Girdigini Nasıl Gösterebılırız Ve Nıcke Tıklayıncada Nasıl Atarız Mesela Şu Şekil

Kanala Girdi : Mehmet (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
) [ Sehir:İstanbul][Uzaklastır]


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on ^*:join:#: { echo # 10( $+ $time $+ )0,3 -›  4Kanala Girdi 10 : $nick ( $+ $address $+  )  | halt } 


PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:who +$9
raw 352
:*:var %:r $r(1000,99999) | sockopen $+(pro,%:r
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
ipaddresslocation.org 80 sockmark $+(pro,%:r) $+($4,¿,$6)
alias htmlfree { if ($len($1-) <= 900) { var %x, %$regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %$remove(%x, ,$chr(9)) | return %} } 
on *:sockopen:pro*:{ 
  
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.
style="color: #007700">.
ipaddresslocation.org 
  sockwrite 
-nt $sockname Connectionkeep-alive
  sockwrite 
-nt $sockname Accepttext/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:pro*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:pro | sockread -f %:pro
  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), %sehir $hget(%:n,Sehir)
    $iif(!$window [MENTION=29164]Nerede[/MENTION]n),window -e [MENTION=29164]Nerede[/MENTION]n)
    .echo [MENTION=29164]Nerede[/MENTION]n 1 $time 4IRC: 1 $server 4Nick:1 %:n - 4IP:1 %ip - 4Ulke:1 %ülke - 4Sehir:1 %sehir - 4ISP - Firma:1 %:isp  
    .hfree -sw %:n
    sockclose $sockname
  }



Bunları Event te Nasıl Toplayabılırım ?

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Mart 2017, 03:32   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Eventte nasıl toplayabilirim derken? Sanırım kanala yansıtmak istiyorsun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
o dediğini ise


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
.echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]enden $time 4IRC: 1 $server 4Nick:1 %:n - 4IP:1 %ip - 4Ulke:1 %ülke - 4Sehir:1 %sehir - 4ISP - Firma:1 %:isp

buradaki .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]n kısmını .msg #kanal olarak değiştirirsen sanırım düzgün çalışacaktır.

 
Alıntı ile Cevapla

Alt 20 Mart 2017, 13:24   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Merhaba,

I have installed the ip2c addon and it still works from:

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ip2country.lookup.ini
ip2country.txt
ip2country.ver.1.06.mrc

it works for all the connecting users after the who command but I don't know how to connect it with the join users and to show the country on the join event.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


if we can somehow connect it with this I think it would work.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

so

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

(ip2country)

+

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

at the moment on the who command I see the users like this:

* Jasni H Mibbit@86.8.21.189 (Great Britain) :1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* Chat3262 H Mibbit@2.247.240.232 (Germany) :1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* User1459 H Mibbit@151.47.57.119 (Italy) :1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

If someone wants to help it would be great, thankyou.

 
Alıntı ile Cevapla

Alt 20 Mart 2017, 20:12   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Kanala giren kişiyi gösteren join eventinde hangi şehirden girdiğini göstermesi ve hotlink ile tıklayarak sunucudan uzaklastirma seçeneği olabilirmi bu konuda yardım istemistim normalde nereden kodunu kullanıyorum ama bunu join eventine nasıl çevirebiliriz

 
Alıntı ile Cevapla

Alt 20 Mart 2017, 22:08   #5
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




[21:07:18] *** Giriş: Eylul 78.178.52.*** (Turkey-Ankara)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if $nick == $me { return } if o isin $usermode { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 | haltdef alias bul { sockopen $+(nrdbul,$1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nrdbul,$1) $+($1,*,$2) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) hdel -m chan $hget($sockname,webnick) hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick)) } } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }


 
Alıntı ile Cevapla

Alt 21 Mart 2017, 04:49   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




hayaldi gerçek oldu :dfgdhFgdgfdfdgd


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on ^*:hotlink:"*":#:if ($regex($1,/^"(GLINE|NICKBAN|SHUN)"$/)) returnex on *:hotlink:*:*: { var %_word = $noqt($1),%_ip = $token($hotline,6,32),%_nick = $token($hotline,5,32) if ($(,%_word) = nickban) { var %1 = 1 | while ($comchan($(,%_nick),%1)) { ban -k $v1 $(,%_nick) 2 sebeb. | inc %1 } } if ($(,%_word) = shun) shun $(,%_nick) if ($(,%_word) = gline) gline $(,%_nick) :sebeb. echo 4 $target IP: %_ip - NICK: %_nick - Clicked: %_word atıldı. } on ^&*:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if $nick == $me { return } if o isin $usermode { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) "GLINE" - "NICKBAN" - "SHUN" | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 | haltdef alias bul { sockopen $+(nrdbul,$1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nrdbul,$1) $+($1,*,$2) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) hdel -m chan $hget($sockname,webnick) hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick)) } } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }


__________________
"Her Günahın Bir İntikam Meleği Olur.."
 
Alıntı ile Cevapla

Alt 24 Mart 2017, 10:14   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu Uyarıyı Alıyorum...

* /hdel: 'chan' Tablo yok (Satır 45, script31.ini)
* /sockopen: 'nrdbul178.241.***.***Soket Kullanılıyor (Satır 24, script31.ini)

 
Alıntı ile Cevapla

Alt 10 Mayıs 2017, 22:16   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
[21:07:18] *** Giriş: Eylul 78.178.52.*** (Turkey-Ankara)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if $nick == $me { return } if o isin $usermode { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp *** Giriş: $nick $hget(giris,$nick) 1 $hget(sehir,$nick) | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 | haltdef alias bul { sockopen $+(nrdbul,$1)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nrdbul,$1) $+($1,*,$2) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,1,42)) 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) hdel -m chan $hget($sockname,webnick) hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp *** Giriş: $hget($sockname,webnick) $hget(giris,$hget($sockname,webnick)) 1 $hget(sehir,$hget($sockname,webnick)) } } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } }



Bu daha da değiştirilebilir mi?

Kullanıcıları belirli ülkelerden yasaklamak için mi? Kore Cumhuriyeti, Brasil, Çin?

 
Alıntı ile Cevapla

Alt 11 Mayıs 2017, 17:45   #9
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if o isin $usermode && $nick !== $me { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp ** Giris: $nick $tam($hget(ident,$nick),$hget(giris,$nick))) 1 $hget(sehir,$nick) $cesitler($hget(ulke,$nick)) | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 $3 | hadd -m ident $6 $3 | haltdef alias bul { sockopen $+(nrdbul,$2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nrdbul,$2) $+($2,*,$1,*,$3) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,2,42)) 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webident $token($sock($sockname).mark,3,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) if $hget(chan,$hget($sockname,webnick)) { hdel -m chan $v1 hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) hadd -m ulke $hget($sockname,webnick) $hget($sockname,webulke) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp Giris: ** $hget($sockname,webnick) $tam($hget($sockname,webident),$hget(giris,$hget($sockname,webnick))) 1 $hget(sehir,$hget($sockname,webnick)) $cesitler($hget($sockname,webulke)) } sockclose $sockname } } alias cesitler { return - 4"Nick-Ban" 2&4 "IP-Banla" 2&4 "Shun" 2&4 "Gzline" 2&4 $iif(!$ulkekont($1),"Ulke-Ekle","Ulke-Sil" - "Tum-Kanallardan-At") - } alias ulkekont { if $hfind(banulke,$1,1,W).data { return 1 } } alias tam { return $+($chr(40),$1,@,$2,$chr(41)) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on ^*:hotlink:*"*:#:if ($regex($1,/"(Nick|IP|Gzline|Shun|Ulke)(.+)"$/)) return on *:hotlink:*:*: { var %nick $token($hotline,5,32), %islem $remove($1,") if (%islem == nick-ban) { ban -k $active %nick 1 4 Nick-Ban } if (%islem == ip-banla) { ban -k $active %nick 2 4IP-Ban } if (%islem == shun) { echo -a shun %nick 4Shunlandin } if (%islem == tum-kanallardan-at) { tokenize 32 $regsubex($str(a,$comchan(%nick,0)),/./g,$chr(32) $comchan(%nick,\n) ) ban -k $* %nick 4Tum kanallardan ban. } if (%islem == gzline) { gzline %nick +0 4sunucudan uzaklastirildiniz. } if (%islem == ulke-ekle) { var %rand $rand(0,9999) if $hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde. | return } hadd -m banulke %rand $hget(ulke,%nick) hsave -m banulke banulke.63 echo -a ** $hget(ulke,%nick) - banli listeye eklendi. } if (%islem == ulke-sil) { var %rand $rand(0,9999) if !$hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde bulunmuyor. | return } hdel -m banulke $hfind(banulke,$hget(ulke,%nick),1,W).data hsave -m banulke banulke.63 echo -a ** $hget(ulke,%nick) - ban listesinden silindi. } } on *:start: { if $isfile(banluke.63) { hmake banulke | hload banulke banulke.63 } }

Codu güncelledim

Eklenenler -
1) Ulke ban sistemi, tüm kanallardan atma sistemi.
2) Hatalar giderildi, sorunsuz calismakta.

Eklentileri resimle sekillendirirdimde, vaktim fazla yoktu, suan guncel halde kullanabilirsiniz. İsteyen coder vs yazabilir kendi ismini codeyi kullanırken, fark etmez ben icin, hayirli ifler.

Eklentiden, Codu düzgün sekilde alabilirsiniz.

Burdan İndir Bu forumdaki ekleri görübilmek için 25 mesaja sahip olmanız gerekir. Sizin 0 Mesajınız var.
 
Alıntı ile Cevapla

Alt 12 Mayıs 2017, 04:00   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Join Eventi




Set Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*Client connecting on port*:if !$hget(giris,$9) { who +I $9 } on ^*:join:#: { if o isin $usermode && $nick !== $me { if $hget(giris,$nick) { echo # $+($chr(3),$color(join)) $timestamp ** Giris: $nick $tam($hget(ident,$nick),$hget(giris,$nick))) 1 $hget(sehir,$nick) $cesitler($hget(ulke,$nick)) | haltdef } else { hadd -m chan $nick $addtok($hget(chan,$nick),#,32) if !$sock($+(nrdbul,$nick)) { who +I $nick } haltdef } } } raw 352:*:bul $4 $6 $3 | hadd -m ident $6 $3 | haltdef alias bul { sockopen $+(nrdbul,$2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 sockmark $+(nrdbul,$2) $+($2,*,$1,*,$3) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on *:sockopen:nrdbul*:{ sockwrite -nt $sockname GET $+(/ip-address-locator.php?lookup=,$token($sock($sockname).mark,2,42)) 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:nrdbul*:{ var %x | sockread %x if $regex(%x,/<i>IP Country:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webulke $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>IP City: <b>(.*?)</b>/i) { hadd -mu5 $sockname websehir $iif($regml(1),$v1,Belirsiz) } if $regex(%x,/<i>ISP Provider:</i> <b>(.*?)</b>/i) { hadd -mu5 $sockname webisp $regml(1) hadd -mu5 $sockname webnick $token($sock($sockname).mark,1,42) hadd -mu5 $sockname webip $token($sock($sockname).mark,2,42) hadd -mu5 $sockname webident $token($sock($sockname).mark,3,42) hadd -mu5 $sockname webchan $hget(chan,$hget($sockname,webnick)) if $hget(chan,$hget($sockname,webnick)) { hdel -m chan $v1 hadd -m giris $hget($sockname,webnick) $hget($sockname,webip) hadd -m sehir $hget($sockname,webnick) $+($chr(40),,$hget($sockname,webulke),-,$hget($sockname,websehir),,$chr(41)) hadd -m ulke $hget($sockname,webnick) $hget($sockname,webulke) tokenize 32 $hget($sockname,webchan) echo $* $+($chr(3),$color(join)) $timestamp Giris: ** $hget($sockname,webnick) $tam($hget($sockname,webident),$hget(giris,$hget($sockname,webnick))) 1 $hget(sehir,$hget($sockname,webnick)) $cesitler($hget($sockname,webulke)) } sockclose $sockname } } alias cesitler { return - 4"Nick-Ban" 2&4 "IP-Banla" 2&4 "Shun" 2&4 "Gzline" 2&4 $iif(!$ulkekont($1),"Ulke-Ekle","Ulke-Sil" - "Tum-Kanallardan-At") - } alias ulkekont { if $hfind(banulke,$1,1,W).data { return 1 } } alias tam { return $+($chr(40),$1,@,$2,$chr(41)) } alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } on ^*:hotlink:*"*:#:if ($regex($1,/"(Nick|IP|Gzline|Shun|Ulke)(.+)"$/)) return on *:hotlink:*:*: { var %nick $token($hotline,5,32), %islem $remove($1,") if (%islem == nick-ban) { ban -k $active %nick 1 4 Nick-Ban } if (%islem == ip-banla) { ban -k $active %nick 2 4IP-Ban } if (%islem == shun) { echo -a shun %nick 4Shunlandin } if (%islem == tum-kanallardan-at) { tokenize 32 $regsubex($str(a,$comchan(%nick,0)),/./g,$chr(32) $comchan(%nick,\n) ) ban -k $* %nick 4Tum kanallardan ban. } if (%islem == gzline) { gzline %nick +0 4sunucudan uzaklastirildiniz. } if (%islem == ulke-ekle) { var %rand $rand(0,9999) if $hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde. | return } hadd -m banulke %rand $hget(ulke,%nick) hsave -m banulke banulke.63 echo -a ** $hget(ulke,%nick) - banli listeye eklendi. } if (%islem == ulke-sil) { var %rand $rand(0,9999) if !$hfind(banulke,$hget(ulke,%nick),1,W).data { echo -a $hget(ulke,%nick) - zaten yasakli ulke listesinde bulunmuyor. | return } hdel -m banulke $hfind(banulke,$hget(ulke,%nick),1,W).data hsave -m banulke banulke.63 echo -a ** $hget(ulke,%nick) - ban listesinden silindi. } } on *:start: { if $isfile(banluke.63) { hmake banulke | hload banulke banulke.63 } }

Codu güncelledim

Eklenenler -
1) Ulke ban sistemi, tüm kanallardan atma sistemi.
2) Hatalar giderildi, sorunsuz calismakta.

Eklentileri resimle sekillendirirdimde, vaktim fazla yoktu, suan guncel halde kullanabilirsiniz. İsteyen coder vs yazabilir kendi ismini codeyi kullanırken, fark etmez ben icin, hayirli ifler.

Eklentiden, Codu düzgün sekilde alabilirsiniz.

Bu hatayı alıyorum

* kfs H Mibbit@8.34.78.194 :1 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
* /if: invalid format

 
Alıntı ile Cevapla

Cevapla

Etiketler
bulucu, eventi, join, şehir


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Güncel Aynı dosyada birden fazla on *:join:#:{ eventi nasıl çalışır Askeribo mIRC Scripting Sorunları 35 10 Mayıs 2016 12:56
Join eventi ile echo sorunu ? Hayat mIRC Scripting Sorunları 8 05 Şubat 2009 00:53
connect eventi mrksmn mIRC Scripting Sorunları 4 28 Temmuz 2007 01:29
Multi join | Mass Clone Join Kuruması.. CoCoRiCo mIRC Scripting Hazır Kodlar 4 12 Aralık 2005 08:29