IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Add-on ve snippet(parça) kod istekleri buraya

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Add-on ve snippet(parça) kod istekleri buraya (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/523479-add-ve-snippetparca-kod-istekleri-buraya.html)

mIRC Geoip - ULKE Bulma eklentisi

mIRC Geoip - ULKE Bulma eklenti dosyasi.

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

spamfilter listesini görme ve silme kodu arıyorum resimdeki gibi.Tüm spamlari listele - Kendi aldıgım spamlari listele - Baskasının aldıgı spamlari listele şeklinde @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]filter alanında görmek istiyorum hate scriptte görmüştüm bunu yardımcı olcak var mı.

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

Cevap: mIRC Geoip - ULKE Bulma eklentisi

Alıntı:

Aytac Nickli Üyeden Alıntı (Mesaj 1041900235)

mIRC Geoip - ULKE Bulma eklenti dosyasi.

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

Çok teşekkür ederim, dosyayı alias kısmına ekledim ama bir sonuç alamadım. Whois çektiğimde ip sonucu gözükmüyor. Kodu eklerken bir eksiklik mi yaptım ?

Alias olarak kullanimi: //echo -ea $geoip(IP).ulke bu kısımı nereye eklemem gerekiyor, sizleri rahatsızlık verdim. Teşekkürler.

Cevap: mIRC Geoip - ULKE Bulma eklentisi

Alıntı:

Fredyyy Nickli Üyeden Alıntı (Mesaj 1041900547)

Kod:

raw 378:*:{

  haltdef

  echo -a  Bağlantı Kurduğu Host/IP: $6-

  echo -a  Bağlantı Kurduğu Ülke: $iif($token($geoip($7).ulke,2,45) != $null,$token($geoip($7).ulke,2,45),Gösterilemiyor)

}

Whois raw kodları kullanıyor musun bilmiyorum ama bendeki bu şekilde seninkine göre değişip kullanabilirsin

Alıntı:

Bağlantı Kurduğu Host/IP: *@78.16x.xx.xx 78.16x.xx.xx
Bağlantı Kurduğu Ülke: Turkey

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Merhaba, Absolut'un yazmış olduğu kelime tamamlama kodunu kullanıyorum. Cümlenin ilk harfini büyük yazan kod eklediğimde haliyle çakışıp çift yazıyor. Forumda bir çok kod var fakat o kadar bilgim olmadığı için ayarlayamadım. Aşağıdaki koda istediğim kodu ekleyen olursa sevinirim. Artı olarak nasıl ekleneceğinide tarif ederse ilerde renkli yazma vb. ekleme yapılmak istendiğinde hepimize yardımcı olur.

Kelime tamamlama kodu aşağıdadır.

Kod:

on *:input:*: {

  if (/* !iswm $1-) { 

    var %i 1,%q $1-

    while %i <= $lines(kelimeler.txt) {

      %q = $replace(%q,$gettok($read(kelimeler.txt,%i),1,$asc(=)),$gettok($read(kelimeler.txt,%i),2,$asc(=)))

      inc %i

    }

    say %q

    halt

  }

}

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

MaviSakaL Nickli Üyeden Alıntı (Mesaj 1041904676)

Kod:

on *:input:*: {

  if (/* !iswm $1-) { 

    var %i 1,%q $1-

    while %i <= $lines(kelimeler.txt) {

      %q = $replace(%q,$gettok($read(kelimeler.txt,%i),1,$asc(=)),$gettok($read(kelimeler.txt,%i),2,$asc(=)))

      inc %i

    }

    say %q

    halt

  }

}

Kod:

on *:input:*: {

  if (/* !iswm $1-) {

    var %i 1, %q $1-

    while %i <= $lines(kelimeler.txt) {

      %q = $replace(%q,$gettok($read(kelimeler.txt,%i),1,$asc(=)),$+($chr(3),2,$upper($mid($gettok($read(kelimeler.txt,%i),2,$asc(=)),1,1)),$right($gettok($read(kelimeler.txt,%i),2,$asc(=)),-1)))

      inc %i

    }

    say %q

    halt

  }

}

Kırmızı renk olan yer rengi temsil eder ordaki 2 renk karakter kodu olan laciverti temsil eder. Mesela bende kelime.txt de ekli olan kelimeler.

s.a=selamun aleyküm
a.s=aleyküm selam

Sonuç:
[ 16:44:05 ] <Alp> 2Selamun aleyküm
[ 16:44:09 ] <Alp> 2Aleyküm selam

eklediğin ifadelerin ilk harfini büyük yazacak şekilde ayarladım.

TROJANSIZ BİR MİRC ARIYORUM BU MEVCUT MU

TROJANSIZ BİR MİRC ARIYORUM BU MEVCUT MU HEPSININ ICINE TROJAN GÖMÜLMÜŞ

VE SİTEDE KAYITLIYIM R_Pires adım olması lazım Davil miydi kullanıcı adım mail adresimi göremiyorum

Cevap: YetkiLi BuLundugum Tum KanaLLardan Ban

Selamlar. Konuyu hortlatmak istemezdim ama, başka benzer konuya denk gelmedim. Bu kodu şöyle yapabilirmiyiz: /ban ~T:Block:*kelime* gibi işleyişlerde ayarlayabilirmiyiz. Yani ben /ban diyip sonuna hangi şekli uygularsam onu atabilecek bütün kanallarda?

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

on *:text:*:#: {
if $regex($1,/([.!]bomba)/Si) {
if %bombaci_nick {
msg $chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.
return
}
set %bomba_renkler altin gri mavi siyah yesil kirmizi
set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)
if $istok($me $nick,$2,32) {
msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
return
}
if !$2 {
msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
return
}
if $2 !ison $chan {
msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
}
elseif $2 ison $chan {
msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
msg $chan $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...
msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
msg $chan -
msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
.set %dinchan $chan
.timerbomba 1 30 patlat
set %bomba_nick $2
set %bombaci_nick $nick
set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
}
}
if $regex($1,/([.!]at)/Si) {
if ($nick == %bomba_nick) {
if $istok($me $nick,$2,32) {
msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
return
}
if !$2 {
msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
return
}
if $2 !ison $chan {
msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
}
elseif $2 ison $chan {
if ($2 isin %bombaci_nick) {
msg $chan $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2)
return
}
msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
msg $chan -
msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
set %bomba_nick $2
set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
}
}
else {
msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
}
}
if $regex($1,/([.!]kes)/Si) {
if ($nick == %bomba_nick) {
if ($2 == %bomba_renk) {
.timerbomba off
msg $chan -
msg $chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . :)
msg $chan -
unset %bomba_*
unset %bombaci_*
unset %dinchan
}
elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,3 2) {
msg $chan $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 4 $+ Yanlış Renk!
msg $chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.!
}
}
else {
msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
}
}
}
alias -l patlat {
.kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!
.unset %bomba_*
.unset %bombaci_*
.unset %dinchan
}

Buna !sıfırla Gıbı Bırsey yapılabılırmı . Kullanıcı sunucudan cıktıgı zaman !bomba yazdıgımızda Bomba suan aktıf dıyor Ne kesılıyor ne baska bırsey yapılıyor !sıfırla yazdıgımızda Oyunu tekrar baslatsa !bomba yazarak devam etsek Kanaldakı Op Sop tarafından kullanılabılen Mumkundur Sımdıden tesekkurler yardımınız ıcın .

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

By eRhaN Nickli Üyeden Alıntı (Mesaj 1041924651)

Kod:

on *:text:*:#: {
   if ($nick isop $chan) {

    if ($1 == !sıfırla) { .unset %bomba* | .msg $chan Bomba Oyunu Sıfırlanmıştır...  }

  }

  if $regex($1,/([.!]bomba)/Si) {

    if %bombaci_nick {

      msg $chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.

      return

    }

    set %bomba_renkler altin gri mavi siyah yesil kirmizi

    set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)

    if $istok($me $nick,$2,32) {

      msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)

      return

    }

    if !$2 {

      msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)

      return

    }

    if $2 !ison $chan {

      msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)

    }

    elseif $2 ison $chan {

      msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.

      msg $chan $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...

      msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)

      msg $chan -

      msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi

      .set %dinchan $chan

      .timerbomba 1 30 patlat

      set %bomba_nick $2

      set %bombaci_nick $nick

      set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)

    }

  }

  if $regex($1,/([.!]at)/Si) {

    if ($nick == %bomba_nick) {

      if $istok($me $nick,$2,32) {

        msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)

        return

      }

      if !$2 {

        msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)

        return

      }

      if $2 !ison $chan {

        msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)

      }

      elseif $2 ison $chan {

        if ($2 isin %bombaci_nick) {

          msg $chan $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2)

          return

        }

        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.

        msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)

        msg $chan -

        msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi

        set %bomba_nick $2

        set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)

      }

    }

    else {

      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.

    }

  }

  if $regex($1,/([.!]kes)/Si) {

    if ($nick == %bomba_nick) {

      if ($2 == %bomba_renk) {

        .timerbomba off

        msg $chan -

        msg $chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ .

        msg $chan -

        unset %bomba_*

        unset %bombaci_*

        unset %dinchan

      }

      elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,3 2) {

        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 4 $+ Yanlış Renk!

        msg $chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.!

      }

    }

    else {

      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.

    }

  }

}

alias -l patlat {

  .kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!

  .unset %bomba_*

  .unset %bombaci_*

  .unset %dinchan

}