mIRC Scripting
Sayfa 4 Toplam 10 Sayfadan 123 4 5678 Last »
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 07 Ekim 2011 15:42
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
  }
}

L4roXyL 07 Ekim 2011 15:46
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
}

L4roXyL 07 Ekim 2011 15:51
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
  }
}

L4roXyL 07 Ekim 2011 16:01
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
}

L4roXyL 07 Ekim 2011 16:10
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

L4roXyL 07 Ekim 2011 16:22
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ı.
}

L4roXyL 07 Ekim 2011 16:40
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.

L4roXyL 07 Ekim 2011 16:46
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
}

L4roXyL 07 Ekim 2011 16:54
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.

L4roXyL 07 Ekim 2011 16:57
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)
}


++ 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 4 Toplam 10 Sayfadan 123 4 5678 Last »
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