mIRC Scripting
Sayfa 7 Toplam 10 Sayfadan « First 3456 7 8910
Konuya ait 40 Mesajı başka Sayfada göster

mIRC Scripting (https://www.mircscripting.net/)
-   Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)
-   -   Yaptığım Tüm Yardımlar/Kodlar (https://www.mircscripting.net/snippets-parca-kodlar/537-yaptydhym-tuem-yardymlar-kodlar.html)

L4roXyL 10 Ekim 2011 19:21
Tarih: 05-05-2008, 17:42

Bu kod kanalda kullanıcılar prefix/mod (+q,v,h,o,a) aldıkları(+mod) zaman uyarı yapmanıza yarar.

Kod:
on *:rawmode:#: {
  if ($regex($left($1,1),\+)) {
    if ($regex($remove($1,+),q))  msg # $2 kanal sahibi konumuna geçti. M-by: $qt($nick)
    if ($regex($remove($1,+),a))  msg # $2 protect konumuna geçti. M-by: $qt($nick)
    if ($regex($remove($1,+),o))  msg # $2 operator konumuna geçti. M-by: $qt($nick)
    if ($regex($remove($1,+),h))  msg # $2 halfop konumuna geçti. M-by: $qt($nick)
    if ($regex($remove($1,+),v))  msg # $2 voice konumuna geçti. M-by: $qt($nick)
  }
}

L4roXyL 10 Ekim 2011 19:24
Tarih: 05-05-2008, 22:48

Bu kod sunucuya giren kullanıcıya, giriş yapan kaçıncı kullanıcı olduğunu belirtir ve sozler.txt dosyasından random bir veri gönderir.

Kod:
on *:snotice:*client conn*: {
  inc %1
  msg $9 Sunucuya hoşgeldin vs. Giren $+(%1,.) kişisin.
  msg $9 $read(sozler.txt)
}

L4roXyL 10 Ekim 2011 19:43
Tarih: 06-05-2008, 16:19

Bu kod #sop(değişebilirsiniz) kanalına girdiğinizde, kanaldaki kullanıcıların idle sürelerine bakarak;
- 10 dakikayı geçen kullanıcılara UYARI
- 20 dakikayı geçen kullanıcılara UYARI + KILL
İşlemlerini uygular.
Bu tarama işlemi kanala girdiğiniz andan itibaren 600 saniye(10 dakikada) bir gerçekleşir.

Kod:
on me:*:join:#SOP:idlechk # | .timer 0 600 idlechk #
alias idlechk {
  warning
  .enable #q
  if ($1) {
    var %1 = 1
    while (%1 <= $nick($1,0,@)) {
      if ($regex($removecs($nick($1,%1,@).pnick,$nick($1,%1,@)),^@$)) {
        hinc -m ttl total 1
        whois $nick($1,%1,@)
      }
      inc %1
    }
  }
}
alias warning {
  set %w1 idle süreniz 10 dakikayı geçmiştir. Cevap ver vs.
  set %w2 idle süresi 20 dakikayı geçtiği için uzaklaştırıldı.
  set %w3 idle süreniz 20 dakikayı geçtiği için uzaklaştırıldınız.
}
#q off
raw *:*: {
  haltdef
  if ($regex($numeric,^317$)) {
    if ($3 >= 600 && $3 < 1200) {
      msg #sop $qt($2) %w1
    }
    if ($3 >= 1200) {
      kill $2 %w3
      msg #sop $qt($2) %w2
    }
  }
  if ($regex($numeric,^318$)) {
    inc %&
    if (%& = $hget(ttl,total)) {
      unset %& 
      hfree ttl
      .disable #q
    }
  }
}
#q end

L4roXyL 10 Ekim 2011 20:42
Tarih: 09-05-2008, 21:06

Bu kod özelde konuştuğunuz kişinin nick-ini arkaplan/background olarak kaydetmenizi sağlar. HD şişmesine sebeb olmaz, özel penceresi kapanınca resim otomatik silinir.

Kod:
alias npaint {
  if ($1 && $2) {
    var %win = $+(@,$1)
    window -pah %win 0 0 200 100
    drawtext -ro %win $rgb(112,121,11) Tahoma 19 60 20 $2
    drawsave -b32 %win $+($1,.,bmp)
    window -c %win
  }
}
on *:open:?:*:{
  if ($isfile($+($nick,.,bmp))) background -p $nick $+($nick,.,bmp)
}
on *:close:?:{
  if ($isfile($+($target,.,bmp))) {
    .remove -b $+($target,.bmp)
    .remini mIRC.ini background $target
  }
}

L4roXyL 10 Ekim 2011 20:48
Tarih: 09-05-2008, 18:19

Bu kod !bilgi nick olarak kullanıldığı zaman, kişinin auth-code bilgisini belirlediğiniz #kanal -a yansıtır.

Kod:
on *:text:!bilgi * &:#:.enable #n | ns auth $2
#n off
on *:notice:*:?:{
  if ($nick == nickserv) {
    msg #kanal $1-
    .disable #n
  }
}
#n end

L4roXyL 10 Ekim 2011 21:11
Tarih: 09-05-2008, 19:07

Bu kod herhangi bir kanalda !prefix yaptığınızda, size +qaohve modlarını verir. Eğer !deprefix yaparsanız, bu modları geri alırsınız.

Kod:
on *:input:#:{
  if ($regex($1,^(!prefix|!deprefix)$)) {
    mode # $iif($left($1,3) = !de,-,+) $+ qaohve $str($+($me,$chr(32)),6)
  }
}

L4roXyL 10 Ekim 2011 21:15
Tarih: 09-05-2008, 22:09

Bu kod 30 dakikada bir kendinize idle kontrolu yaparak, eğer idle süresi belirtilen süreyi(saniye cinsinden) geçmişse /away konumuna otomatik geçmenize yarar.

Kod:
on *:connect:.timer 0 1800 idlekntrl 1800
alias idlekntrl {
  if ($idle >= $1 && !$away) {
    away AWAY-MESAJIN.
  }
}

L4roXyL 10 Ekim 2011 22:40
Tarih: 11-05-2008, 23:57

Bu kod kişiye whois çektiğinizde kişinin "bağlantı süresini, konuşmadığı süreyi, bağlantı zamanını" türkçe ve düzenli olarak gösterilmesine yarar.

Kod:
alias -l days return $replacecs($1,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
alias -l idl return $replace($1-,Secs,$+($chr(32),Saniye),Sec,$+($chr(32),Saniye),Mins,$+($chr(32),Dakika),Min,$+($chr(32),Dakika),Hrs,$+($chr(32),Saat),Hr,$+($chr(32),Saat),Days,$+($chr(32),Gün),Day,$+($chr(32),Gün),Wks,$+($chr(32),Hafta),Wk,$+($chr(32),Hafta))
alias -l cnnt return $idl($duration($calc($ctime - $1)))
raw 317:*: {
  echo -a * Bağlanış: $days($asctime($4,$+($chr(40),dddd,$chr(41) dd/mm/yyyy,) - HH:nn:ss))
  echo -a * Konuşmadığı süre: $idl($duration($3))
  echo -a * Bağlı olduğu: $cnnt($4) | haltdef
}

L4roXyL 10 Ekim 2011 22:46
Tarih: 12-05-2008, 22:49

Bu kod /stats k -den gelen verilere bakarak #kanal kanalında !ip <ip-adresi> komutu kullandığınızda belirttiğiniz IP adresini listede arar ve bulunan IP'nin atılma sebebini belirtilen kanala yansıtır.

Kod:
on *:text:!ip* &:#kanal:{
  .enable #g
  set %ip $2
  stats k
}
#g off
raw *:*:{
  if ($regex($numeric,^216$)) {
    if ($3 == %ip) {
      set %ss $4-
    }
  }
  if ($regex($numeric,^219$)) {
    if (%ss) {
      msg #kanal %ip ipinin atılma sebebi: %ss
    }
    else {
      msg #kanal %ip ip'i banlı değil.
    }
    unset %ss %ip
    .disable #g
  }
}
#g end

L4roXyL 10 Ekim 2011 22:53
Tarih: 12-05-2008, 18:04

Bu kod herhangi bir IDENT'in sunucu üzerinde en fazla belirlediğiniz limit kadar kullanılmasına izin verir. Belirlediğiniz limit aşılırsa, giren kişilere kill atılır. Kod giriş çıkışları otomatik kontrol eder ve sayımı girdi(inc)/çıktı(dec) şeklinde tutar.

Kod:
on *:snotice:*: {
    if (*client conn* iswm $1-) {
      var %i = $gettok($remove($10,$chr(40)),1,64)
      if ($hget(ident,%i) >= 6) kill $9 KILL SEBEBİ.
      else hinc -m ident %i 1
    }
    if (*client exiting* iswm $1-) {
      var %ii = $gettok($remove($7,$chr(40)),1,64)
      $iif($hget(ident,%ii) >= 1,hdec ident %ii 1)
    }
}
6 olarak belirtilen yer limittir. Değiştirebilirsiniz.


++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials

Sayfa 7 Toplam 10 Sayfadan « First 3456 7 8910
Konuya ait 40 Mesajı başka Sayfada göster



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1