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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Join Eventi (https://www.ircforumlari.net/mirc-scripting-sorunlari/770352-join-eventi.html)

Sympathique 19 Mart 2017 11:54
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- Kodu:
on ^*:join:#: { echo # 10( $+ $time $+ )0,3 -›  4Kanala Girdi 10 : $nick ( $+ $address $+  )  | halt } 

PHP- Kodu:
on *:snotice:*Client connecting on port*:who +I $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, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
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 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: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 ?

Mecnun 20 Mart 2017 03:32
Cevap: Join Eventi
 
Eventte nasıl toplayabilirim derken? Sanırım kanala yansıtmak istiyorsun:) o dediğini ise

Kod:
    .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.

elhale 20 Mart 2017 13:24
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. :)

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.

Sympathique 20 Mart 2017 20:12
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

Set 20 Mart 2017 22:08
Cevap: Join Eventi
 
[21:07:18] *** Giriş: Eylul 78.178.52.*** (Turkey-Ankara)

Kod:
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 } }

Aytac 21 Mart 2017 04:49
Cevap: Join Eventi
 
hayaldi gerçek oldu :dfgdhFgdgfdfdgd

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

Kod:
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 } }

Sympathique 24 Mart 2017 10:14
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)

elhale 10 Mayıs 2017 22:16
Cevap: Join Eventi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041849508)
[21:07:18] *** Giriş: Eylul 78.178.52.*** (Turkey-Ankara)

Kod:
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?

Set 11 Mayıs 2017 17:45
Cevap: Join Eventi
 
Toplam 1 Eklenti bulunuyor.
Kod:
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.

elhale 12 Mayıs 2017 04:00
Cevap: Join Eventi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041858266)
Kod:
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

Set 12 Mayıs 2017 13:05
Cevap: Join Eventi
 
Alıntı:
elhale Nickli Üyeden Alıntı (Mesaj 1041858397)
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
Bir hata görmedim ben , bende sorunsuz şekilde çalışıyor , eğer hata devam ediyorsa özelden ulaşın bakayım hataya , öyle bir hata almadım cunki ben

elhale 12 Mayıs 2017 14:17
Cevap: Join Eventi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041858460)
Bir hata görmedim ben , bende sorunsuz şekilde çalışıyor , eğer hata devam ediyorsa özelden ulaşın bakayım hataya , öyle bir hata almadım cunki ben

Başka bir mirc'de çalıştım ve işe yaradı. Ama bir ülke eklediğimde ve tekrar bağlanırsa otomatik olarak yasaklanmaz.

Set 12 Mayıs 2017 20:02
Cevap: Join Eventi
 
Toplam 1 Eklenti bulunuyor.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:



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))
      if $ulkekont($hget(ulke,$nick)) {
        ban -k # $nick 2 4Banlandınız.
      }
      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)) 
      if $ulkekont($hget($sockname,webulke)) {
        tokenize 32 $hget($sockname,webchan)
        ban -k $* $hget($sockname,webnick) 2 4Banlandınız.
      } 
    } 
    sockclose $sockname
  }
}
alias cesitler { return - 4"Nick-Ban" 2&4 "IP-Banla" 2&4 "Tum-Kanallardan-At" 2&4 "Shun" 2&4 "Gzline" 2&4 $iif(!$ulkekont($1),"Ulke-Ekle","Ulke-Sil") - }
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 }
}

Fredyyy 10 Ekim 2019 18:17
Cevap: Join Eventi
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad çok güzel code yazmışsınız, teşekkürler. Statüste şöyle bir uyarı alıyorum sürekli;

Kod:
* /sockopen: 'nrddbulUzmnÇvş' Soket Kullanılıyor (Satır 20, script34.txt)
alias bul {
  sockopen $+(nrddbul,$2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 <-- Satır 20
  sockmark $+(nrddbul,$2) $+($2,*,$1,*,$3)
}
bunun sebebi nedir? Şimdiden teşekkür ederim.

Set 10 Ekim 2019 18:22
Cevap: Join Eventi
 
Alıntı:
Fredyyy Nickli Üyeden Alıntı (Mesaj 1042168589)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad çok güzel code yazmışsınız, teşekkürler. Statüste şöyle bir uyarı alıyorum sürekli;

Kod:
* /sockopen: 'nrddbulUzmnÇvş' Soket Kullanılıyor (Satır 20, script34.txt)
alias bul {
  sockopen $+(nrddbul,$2)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 <-- Satır 20
  sockmark $+(nrddbul,$2) $+($2,*,$1,*,$3)
}
bunun sebebi nedir? Şimdiden teşekkür ederim.
O kısmı boyle degiştirip denermisin, denemedim ama o hata'yı tekrar yansitmaz tahminen, dönüs saglarsın herhangi sorunda

Kod:
alias bul {
  var %socks = $+(nrddbul,$2)
  if !$sock(%socks) {
    sockopen %socks
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark %socks $+($2,*,$1,*,$3)
  }
}

Fredyyy 10 Ekim 2019 18:38
Cevap: Join Eventi
 
Teşekkürler hatayı kesti. İyi çalışmalar dilerim.

OperServ 14 Ekim 2019 21:40
Cevap: Join Eventi
 
kodu remoteye ekleyince girisler kanallarda gorunmuyor statuste /who cekip duruyor her girene
nerde hata var?

ayrica bazi kanalari muaf ekleyebilirmiyiz?

Kod:
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
    }
  }
}
alias bul {
  var %socks = $+(nrddbul,$2)
  if !$sock(%socks) {
    sockopen %socks
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
    sockmark %socks $+($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 }
}

Emrehan 14 Ekim 2019 21:52
Cevap: Join Eventi
 
Kod:
raw 352:*:bul $4 $6 $3 | hadd -m ident $6 $3 | haltdef
bu (RAW) satırı silmişsiniz sanırım.

OperServ 14 Ekim 2019 22:23
Cevap: Join Eventi
 
hayir oldugu gibi ekledim birseyi silmedim


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:26.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk