mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Like Tree101Teşekkür
Cevapla
 
LinkBack Seçenekler
  #31  
Alt 07 Ekim 2011, 15:42
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 14-01-2008, 00:02

Bu kod sunucuya giren kullanıcının IP adresine bakarak clone/klon taraması yapar ve bu tarama sonuçlarını /echo komutu ile aktif ekrana yansıtır.


Kod:
on *:snotice:*: { 
  if *client connect* iswm $1- { 
    var %s = $remove($gettok($10,2,64),$chr(41)) | hadd -m ip $+($9,½,%s) 
    if $hmatch(ip,$+(*,%s),0) >= 2 {
      var %q 1,%qq,%qqq = $gettok($hmatch(ip,$+(*,%s),1),2,189) 
      while %q <= $hmatch(ip,$+(*,%s),0) { 
      %qq = $addtok(%qq,$gettok($hmatch(ip,$+(*,%s),%q),1,189),44) 
      inc %q 
    } 
    echo -at Bilgi: %qqq adresiden bağlantı kuranlar: %qq  } 
  } 
  if *client exiting* iswm $1- { 
    if ($hmatch(ip,$+(*,$remove($gettok($7,2,64),$chr(41))))) hdel ip $v1 
  }
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Sponsored Links
  #32  
Alt 07 Ekim 2011, 15:46
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 14-01-2008, 14:37

Bu kod sunucuya giren kullanıcıya /who çeker ve eğer fullname kısmında dosya.txt dosyasındaki kelimelerden biri varsa, sunucudan uzaklaştırır. Yani kısacası fullname-de reklam veya yasaklı kelime arayan koddur.

Kod:
raw 352:*:kontrol2 $9- $6
on *:snotice:*client connect*:who $9
alias kontrol2 { 
  var %1 = 1 
  while $read(dosya.txt,%1) { 
    if $regex($1,/ $+ $v1 $+ /i) {
      zline $2 :ban sebebi. 
      return $true 
    } 
    inc %1 
  } 
  return $false
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #33  
Alt 07 Ekim 2011, 15:51
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 14-01-2008, 15:59

Bu kod belirtilen kanalda op/sop/halpfop vs. olan kullanıcıları belirlediğiniz diğer kanala otomatik /sajoin-lemeye yarayan koddur.

Kod:
on *:rawmode:#belirtilen-kanal: {
  if $left($1,1) = $chr(43) && $regex($right($1,-1),a|o|h) { 
    sajoin $2 #belirtilen-kanal2
  }
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #34  
Alt 07 Ekim 2011, 16:01
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 14-01-2008, 18:04

Bu kod picture window ile yazılmış olup, script açılış sayacı işlemi görmektedir.


Kod:
on *:start:start
alias start {
  .timer 1 3 window -c @start | window -c @start | inc %x | window -pdhBCk0 +d @start 0 0 140 45
  drawrect -r @start $rgb(150,150,150) 100 0 0 140 45 | drawrect -r @start $rgb(0,0,0) 3 0 0 140 45
  drawtext -r @start $rgb(0,0,0) Tahoma 11 30 14 $iif(%x == 1,Script ilk defa açıldı.,Script %x kere açıldı.)
  drawtext -r @start $rgb(255,255,255) Tahoma 13 130 0 x | window -a @start
}
menu @start {
  sclick:if ($mouse.x >= 130) window -c @start 
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #35  
Alt 07 Ekim 2011, 16:10
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 19-01-2008, 23:01

Bu kod belirtilen kanala giren kayıtlı kullanıcılara belirlediğiniz mesajı gönderir.

Kod:
on !*:join:#belirtilen-kanal:.enable #q | who $nick | set %_k #
#q off
raw *:*: {
  if ($numeric = 352) { 
    if (r isin $7 && $6 ison %_k) .msg $6 %_k belirtilen mesaj. 
  } 
  if ($numeric = 315) { .disable #q | unset %_k }
}
#q end
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #36  
Alt 07 Ekim 2011, 16:22
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 22-01-2008, 20:21

Bu kod herhangi bir kanal penceresinde /tara komutunu uyguladığınızda, badnick.txt dosyasındaki verileri kanal rumuzlarının içinde tek tek arar. Arama işlemi sırasında yakalanan nickleri kanaldan uzaklaştırır ve işlem tamamlandığında kaç adet badnick-in atıldığını size yansıtır.

Kod:
alias -l bn { 
  var %s = 1 
  while ($read(badnick.txt,%s)) { 
    if $+(*,$v1,*) iswm $2 { 
      hinc -m bn nk 1 
      ban -k $1 $2 2 sebeb. 
      break 
    } 

    inc %s 
  } 
}
alias tara {
  $iif($hget(bn),hfree bn) 
  echo -ae Badnick taraması başlatıldı. 
  var %1 = 1 
  while ($nick($active,%1)) { 
    bn $active $v1
    inc %1 
  } 
  echo -ae $active Toplam $+($chr(40),$iif(!$hget(bn,nk),0,$hget(bn,nk)),$chr(41)) badnick atıldı. 
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #37  
Alt 07 Ekim 2011, 16:40
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 22-01-2008, 01:38

Bu kod, belirtilen kanala text gönderen kullanıcının gönderdiği satır sayısı, belirtilen satır limiti miktarına ulaştığı zaman voice(+) vermek için kullanılır. Bir nevi ödüllendir gibi yani. Kodu geliştirebilirsiniz. Mantık gayet açıktır.

Kod:
on *:text:*:#belirtilen-kanal:{
  if (!$count($nick(#,$nick).pnick,@,&,%,~,+)) { 
    hinc -m txt $+(#,½,$nick) 1 
    if ($hget(txt,$+(#,½,$nick)) >= 100) { 
      mode # +v $nick 
      msg # $+($nick,:) muhabbet ortamı sağladın vs. 
    } 
  }
}
100 olarak belirtilen yer satır sayısıdır.
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #38  
Alt 07 Ekim 2011, 16:46
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 27-01-2008, 15:36

Bu kod notify listesindeki kişilerin haraketlerini takip etmenize yarar. Bu haraketleri @notify penceresinde gösterir.

Kod:
on ^*:notify: {
  $iif(!$window(@notify),window -aCk0 @notify) 
  echo -t @notify => $nick giriş yaptı.
  haltdef
}
on ^*:unotify: {
  $iif(!$window(@notify),window -aCk0 @notify) 
  echo -t @notify <= $nick çıkış yaptı.
  haltdef
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #39  
Alt 07 Ekim 2011, 16:54
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 31-01-2008, 18:45

Bu kod belirtilen kullanıcıya(kişinin penceresinde uygulanır) belirtilen dosyayı($2) göndermeye yarayacaktır.
Kodu kullanma şekli: !gönder dosya-adı.uzantısı

Kod:
alias yasaklılar { 
  if ($dccignore) var %1 = 1 
  while $dccignore(%1) { 
    echo -a $+(%1,-) $v1
    inc %1 
  }
}
on *:input:?: {
  if ($regex($1,/^!gönder$/i) && $2) {
    dcc passive off 
    dcc trust $nick 
    $iif($findfile(C:\,$2,0) >= 1,dcc send $active $shortfn($findfile(C:\,$2,1))) 
  }
}
Not: Kodu uygulamadan önce, /yasaklılar yaparak yasaklı listesini kontrol ediniz.
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
  #40  
Alt 07 Ekim 2011, 16:57
Avatar Yok
 DirtyCoder 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 34
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 143
Yapılan Teşekkür: 0
Standart

Tarih: 31-01-2008, 19:02

Bu kod belirtilen dosyayı mIRC Custom penceresinde açmanıza/okumanıza yarar.
Kullanım şekli: /oku dosya-adı.uzantısı

Kod:
alias oku { 
    if ($1) window -Cak0 $+(@,$1) 
    loadbuf -rp $+(@,$1) $qt($1)
}
PamiR buna teşekkür etti.
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
Cevapla

Etiketler
tüm, yaptığım, yardımlar or kodlar

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

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