IRCALEM.Com Genel Forum, IRC Forumu Etiketler nick
irc
Etiketler
Yazar: Aytac - Cevaplar: 0 - Görünümler: 476
!Rezilet nick #Kanal mIRC Code
Kod :
on $*:text:/[!.]rezilet/i:#opers: {
  if !$2 || !$3 { .msg # $nick Lutfen duzgun nick ve kanal belirtiniz. | return }
  shun $2 +0 Rezilet.
  msg # $2 rezil etme olayi tamam'dir.
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
  sendraw $3 $(::,$2) privmsg $3 Mesaj
}

!rezilet mirc kodu güle güle kullanın.
Yazar: Aytac - Cevaplar: 0 - Görünümler: 371
!sor Nick – mIRC Eğlence Addonu
[code]on *:text:*:#: {
  if $1 == !sor {
    set %sormk $nick
    set %srmk $2
    if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
    if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
    if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
    if $2 ison $chan {
      msg $chan $2 $nick 2tarafından sana soru soruldu.
      msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift
Yazar: Aytac - Cevaplar: 0 - Görünümler: 444
!ip [IP|NICK] Takip Kodu
mIRC İp takip etme kodu;

[code]on *:input:#:{
  if $regex($1,/^[!.&-][ıiİ]p$/Si) {
    if !$2 { msg # Lütfen Nick/IP belirtiniz. Kullanımı:4 !ip [IP|NICK] }
    elseif $regex($2,/\d+\.\d+\.\d+\.\d+/Si) {
      if !$isfile($+(IP/,$strip($2),.txt)) { msg # $+(,$strip($2),) IP'ine ait kayıt bulunamadı. | return }
      msg # =====" 2Nick "=====" 2Ident "=====" 2Action "=====" 2Saat "===== " 2Tarih "=====
      msg # -
      var %:_ar = $lines($+(IP/,$strip($2),.txt)) | while %:_ar {
   
Yazar: Aytac - Cevaplar: 0 - Görünümler: 382
!nerden [IP|Nick]
[code]
alias nerden {
  if $sock(yerbul) {
    sockclose yerbul
  }
  sockopen yerbul www.ipaddresslocation.org 80 
}

on $*:text:/^((!|.)nerden\40\S+)$/i:#: {
  if $regex($2,^\d) {
    .set -e %nrd $2 | set -e %c_n $chan
    .nerden
  }
  else {
    .userip $2
    .enable #nrdn
    set -e %c_n $chan
  }
}
on *Confusedockopen:yerbul:{ 
var %xy = sockwrite -n $sockname
%xy  GET /ip-address-locator.php?lookup= $+ %nrd HTTP/1.1
%xy host: www.ipaddresslocation.org
%xy Conne
Yazar: Aytac - Cevaplar: 0 - Görünümler: 493
RANDOM Nick/Ident Koruması
Random nick ve ident koruması;

[code]on *Confusednotice:*:{
  if $regex($1-,/Client connecting (on port|at) (.+)\: (.+) \((.+)@(.+)\)/Si) {
    var %_port = $regml(2), %_nick $regml(3), %_ident $regml(4), %_ip $regml(5)
    ;- Muaf port ekleme.
    if $istok(7000 7005 1453,%_port,32) { return }
    ;- Muaf nick ekleme
    elseif $istok(Nick Nick1 Nick2 Nick3,%_nick,32) { return }
    ;- Muaf ident ekleme
    elseif $istok(Sohbet mIRC Kelebek SoyLe,%_ident,32) { return }
    ;- Muaf IP ekle
Yazar: Aytac - Cevaplar: 0 - Görünümler: 553
Access Listesine Bakmak Sıra Seviye Nick Ekleyen Gösterimli
Kod :
on $*:TEXT:/^[!.]l(i|ı)st/Si:#kanal:cslist # $nick
alias -l cslist { if (!%cslist) { .set -eu60 %cslist $1 | .chanserv access $1 count } | else { msg $1 $2 , üst üste kanal access listesine bakamazsınız. Bekleyin... } }
on *:notice:*:?:{
if $regex($nick,^ChanServ$) {
if ($1 == %cslist && $regex($1-,erisim listesi)) {
.chanserv access %cslist list
}
$iif($1 isnum,$+(msg %cslist Sıra:,$1 Seviye:,$2 Nick:,$3 Ekleyen:,$iif($regex($4,null),Belirsiz,$4)))
}
}

Klavyeniz den Alt
Yazar: Aytac - Cevaplar: 0 - Görünümler: 327
[!.]hapis NICK
Merhaba, komutu kullandığınız nick 5 dakika boyunca #Hapis kanalına alınır ve shun uygulanır o kanaldan çıkamaz, süresi bitince shun kaldırılır, global kanallara alınır..

[code]on *:text:*:#Opers:{
  if $regex($1,/^[!.-]hap[ıiİ]s$/Si) {
    if !$2 { msg # Lütfen nick belirtiniz. 4ORN 2!hapis Toprak }
    elseif ($2 == $me) { msg # Benim üzerime işlem yapamazsınız =) }
    else { .hadd -ms Baks $strip($2) # | .whois $strip($2) }
  }
}
on *:part:#Hapis:{
  if $hget(Hapis,$nick) {
Yazar: Aytac - Cevaplar: 0 - Görünümler: 321
/rapor nick
Kodun Amacı Tüm Kanallardaki Ban ve Kick İşlemlerini Kaydedip Daha Sonra Sorgulatabilmek.

[code]on *:ban:#: { write $mircdira/ban $+ $nick $+ .txt . | write nicks.txt $nick }
on *:kick:#: { write $mircdira/kick $+ $nick $+ .txt . | write nicks.txt $nick }
alias rapor {
  if !$1 { echo -a 2Hatalı Kullanım!!!! 14/rapor NICK2 Şeklinde Kullanın | return }
  if $1 == $read(nicks.txt) {
    window @RapOr
    echo @RapOr 4Nick1;14 $1
    echo @RapOr 4Attığı Ban Sayısı1;14 $lines($mir
Yazar: Aytac - Cevaplar: 0 - Görünümler: 497
!at nick oylama sistemi
Amacı: !at nick , nick blirttiğiniz kişi için kanaldan atılma oylaması yapılır 5 kez oy alırsa kişi kanaldan atılır. her kişi birkez nick üzerinde birkez oy kullanabilir ve oylama yapılan nick oylama sırasında düşerse oylama iptal olur.

[code]on *:text:*:#: {
  if $1 == !at {
    if !$2 { msg $chan Lutfen Nick Belirtiniz "!at Nick" | return }
    if $2 == $me { msg $chan Benim için oylama başlatamazsiniz $nick | return }
    if $2 == $nick { msg $chan Kendiniz için oy kullanamazsı
Yazar: Aytac - Cevaplar: 0 - Görünümler: 320
!firlat nick
[Resim: http://i.hizliresim.com/E5ddrz.png]

!firlat nick seklinde komutu kullanabilirsiniz.

[code]
alias xyz {
  if ($prop = n) { return $+(-,$1,-) }
  var %r = $token($2-,0,$1), %ra = $token($2-,$rand(1,%r),$1)
  return %ra
}
on *:text:*:#: {
  if $regex($1,/[!.]f(i|ı)rlat/i) {
    if !$2 { msg # $xyz($nick).n lutfen nick giriniz sonra firlatalim. | return }
    var %