Çözüldü Join Eventi - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Sympathique · 19 Mart 2017, 11:54

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 +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

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.

elhale · 20 Mart 2017, 13:24

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.

Sympathique · 20 Mart 2017, 20:12

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

[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 } }

Aytac · 21 Mart 2017, 04:49

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

Sympathique · 24 Mart 2017, 10:14

@[Ü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

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?

Set · 11 Mayıs 2017, 17:45

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.

elhale · 12 Mayıs 2017, 04:00

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

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

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.