mIRC Scripting
Sayfa 8 Toplam 10 Sayfadan « First 4567 8 910
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 23:05
Tarih: 13-05-2008, 18:34

Bu kod belirtilen kanal veya kanaldaki herhangi bir nick'e kural.txt dosyası içerisindeki kuralları göndermenize yarar.

Kullanım şekilleri:

- /kural #kanal (kanaldaki tüm @(op) - &(sop) - %(halfop) kullanıcılarına göndermek için)
- /kural nick (herhangi bir kullanıcıya göndermek için)

Kod:
alias kural {
  if ($1 ischan || $1 ison active) {
    var %1 = 1
    while (%1 <= $nick($1,0)) {
      if ($regex($nick($1,$nick($1,%1)).pnick,@|&|%)) {
        okut $nick($1,%1)
      }
      inc %1
    }
  }
}
alias okut {
  var %2 = 1
  while ($read(kural.txt,%2)) {
    msg $1 $v1
    inc %2
  }
}

L4roXyL 10 Ekim 2011 23:16
Tarih: 13-05-2008, 23:46

Bu kod belirlediğiniz nick-i ortak tüm kanallardan akick-e almanızı sağlar.
Kullanım şekli: /allkick <nick> <akick sebebi>

Kod:
alias allkick {
  if ($1) {
    var %1 = 1
    while (%1 <= $comchan($1,0)) {
      if ($regex($nick($comchan($1,%1),$me).pnick,@|&|~|%) || $regex($usermode,A|a|N|C)) {
        cs akick $comchan($1,%1) add $address($1,2) $2-
        cs akick $comchan($1,%1) enforce
      }
      inc %1
    }
    var %2 %1 - 1
    echo -at %2 kanalda akick uyguladınız.
  }
}

L4roXyL 10 Ekim 2011 23:20
Tarih: 14-05-2008, 22:43

Bu kod belirtilen kanaldaki tüm kullanıcılara belirlediğini text-i göndermenizi sağlar.
Kullanım şekli: /msgall #kanal <mesaj>

Kod:
alias msgall {
  if ($1 ischan) {
    var %1 = 1
    while (%1 <= $nick($1,0)) {
      msg $1 $2-
      inc %1
    }
  }
}

L4roXyL 10 Ekim 2011 23:32
Tarih: 16-05-2008, 21:07

Bu kod belirtilen #kanal -da atılan kick-leri detaylı bir şekilde kick.txt dosyasına kaydeder ve yine belirtilen kanalda !kick komutunu uygulayan nick-e ait bir kick-list kaydı varsa bu listeyi sıralar.
Kullanım şekli: !kick

Kod:
on !*:kick:#kanal: {
  hinc -m kick $nick 1
  hsave -i kick kick.hsh
  write kick.txt Saat: $time - Kick atan: $nick - Kicklenen: $knick - Sebeb: $1-
}
on *:text:*:#kanal: {
  if ($regex($1,/^!kick$/i) && $nick isreg #) {
    if ($hget(kick,$nick)) msg # Attığınız kick sayısı: $v1
    else msg # Kick uygulamamışsınız.
  }
  if ($regex($1,^!list$)) {
    var %1 = 1
    while (%1 <= $lines(kick.txt)) {
      msg # $read(kick.txt,%1)
      inc %1
    }
  }
}
on *:start:{
  if ($isfile(kick.hsh)) {
    hmake kick 50
    hload -i kick kick.hsh
  }
}

L4roXyL 10 Ekim 2011 23:49
Tarih: 17-05-2008, 16:50

Bu kod yine üstek üzerine yazmış olduğum gelişmiş bir badnick tarama kodudur.

Kod neler yapar?

- Herhangi bir kanala girdiğiniz-de "bad" tablosuna eklemiş olduğunuz ve badnick niteliği taşıyan kelimeleri kanaldaki tüm kullanıcılarda arar.
- Bulunan sonuçları size /echo mesajı ile gösterir.
- Tarama sonunda f9 tuşuna basarsanız son taramaya yakalanan tüm nickleri kanaldan uzaklaştırır.
- /badd <kelime> şeklinde badnick listesine kelime ekleyebilirsiniz.
- /bdel <kelime> şeklinde badnick listesinden belirtilen kelimeyi silebilirsiniz.
- /blist komutunu kullanarak listeyi görebilirsiniz.
- CTRL + f9 kombinasyonunu kullanarak tespit edilen badnickleri görebilirsiniz.

Not: Kodları (aliases - ALT + D) kısmına ekleyiniz.

Kod:
chk {
  var %1 = 1
  while (%1 <= $hget(bad,0).item) {
    if ($ialchan($+(*,$hget(bad,%1).item,*),$1,0) == 1 && >= 0) {
      hadd -m $1 $ialchan($+(*,$hget(bad,%1).item,*),$1,1).nick 1
    }
    else {
      chk2 $1 $+(*,$hget(bad,%1).item,*)
    }
    inc %1
  }
  echo $colour(info) $1 $timestamp $iif($hget($1,0).item >= 1,Bulunan badnick sayısı: $hget($1,0).item,Badnick bulunamadı.)
  echo $colour(info) $1 $timestamp Nickleri görüntülemek için: CTRL + F9 tuşuna basınız.
  echo $colour(info) $1 $timestamp $iif($regex($nick($1,$me).pnick,@|&|%|~),$iif($regex($usermode,a|A|N|C),Nickleri kanal'dan atmak için: F9 tuşuna basınız.),Kanaldan atma yetkiniz yok.))
}
chk2 {
  if ($1 && $2) {
    var %& = 1
    while (%& <= $ialchan($2,$1,0)) {
      hadd -m $1 $ialchan($2,$1,%&).nick
      inc %&
    }
  }
}
cF9 {
  if ($hget($active)) seen $active
}
seen {
  var %t = 1,%tt
  while (%t <= $hget($1,0).item) {
    %tt = $addtok(%tt,$hget($1,%t).item,32)
    inc %t
  }
  echo $colour(info) $1 $timestamp Tespit edilen badnickler: %tt
}
F9 {
  if ($hget($active)) bans $active 
  else diğer komut
}
bans {
  var %- = 1
  while (%- <= $hget($1,0).item) {
    ban -k $1 $hget($1,%-).item 2 SEBEB.
    inc %-
  }
  %// = %- - 1
  echo $colour(info) $1 $timestamp Atılan nick sayısı: %//
  hfree $1
}
badd {
  $iif(!$1,echo -at Kelime girmediniz.,$iif($hget(bad,$1),echo -at $1 kelimesi listede.,hadd -m bad $1 1))
  hsave -i bad bad.hsh
}
bdel {
  $iif(!$1,echo -at Kelime girmediniz.,$iif(!$hget(bad,$1),echo -at $1 kelimesi listede değil.,hdel bad $1))
  hsave -i bad bad.hsh
}
blist {
  window -Caldk0 +L @Bad-words 0 0 200 400
  var %- = 1
  while (%- <= $hget(bad,0).item) {
    aline @bad-words $+(%-,-) $hget(bad,%-).item
    inc %-
  }
}
on me:*:join:#:.ial on | who # | .timer 1 2 chk #
on *:start: {
  if ($isfile(bad.hsh)) {
    hmake bad 50
    hload -i bad bad.hsh
  }
}

L4roXyL 10 Ekim 2011 23:54
Tarih: 29-11-2008, 23:32

Bu kod kanaldaki herkeze seslenmek için kullanılır. Kodu kullanmak için herhangi bir kanal penceresinde; /users <mesaj> yapabilirsiniz.

Kod:
alias users {
  if ($active ischan) {
    var %s = 1,%n
    while ($nick($active,%s)) {
      %n = $addtok(%n,$v1,32)
      inc %s
    }
    say $remove(%n,$me) $1-
  }
}

L4roXyL 11 Ekim 2011 00:01
Tarih: 06-12-2008, 16:15

Bu kod özelinizi açmaya/kapatmaya ve karşı kullanıcıya geri-bildirim yapmanıza olanak sağlar.

Kod:
on ^*:open:?:*:{
  if (%closed) {
    inc $+(%,rumuz,$nick) 1
    if ($($+(%,rumuz,$nick),2) = 1) {
      msg $nick Özelim kapalıdır. Yazdıklarınız bana ulaşmamakta.
    }
    return
  }
}
menu channel,status,query {
  Özel aç/kapa
  .Özeli kapat:set %closed 1 | echo -ea -: Özeliniz konuşmaya kapatıldı.
  .Özeli aç:unset %closed %*rumuz* | echo -ea -: Özeliniz konuşmaya açıldı.
}

L4roXyL 11 Ekim 2011 00:23
Tarih: 13-12-2008, 18:27

Bu kod kanala giriş yapan kullanıcının varsa daha önceki nicklerini giriş bilgisinde gösterir.
Not: Tüm veriler HD-ye kaydolur ve açılışta yükletilir.

Kod:
on !^*:join:#: {
  hadd -m # $nick $site
  hsave -i # # $+ .chans
  if ($hfind(#,$site,0).data >= 2) {
    var %s = 1,%q
    while (%s <= $hfind(#,$site,0).data) {
      %q = $addtok(%q,$hfind(#,$site,%s).data,32)
      inc %s
    }
    echo $color(join) # * Giriş: $nick $+($chr(40),$remove($address($nick,0),*,!),$chr(41)) $&
      - Önceki nickleri: $+($chr(40),$remove(%q,$nick),$chr(41))
    return
  }
}
on *:start:noop $findfile($mircdir,*.chans,0,.timer 1 0 hmake $token($nopath($1-),1,46) $(|,) hload -i $token($nopath($1-),1,46) $nopath($1-))

L4roXyL 11 Ekim 2011 00:31
Tarih: 21-12-2008, 21:56

Bu kod kanal ve özele gönderdiğiniz text/yazı(ların) «YAZI» şeklinde çıkmasını sağlar.

Kod:
on *:input:*:{
  if ($regex($window($active).type,^(query|channel)$) && (!$regex($left($1,1),\/))) {
    say $+(«,$chr(160),$1-,$chr(160),»)
    haltdef
  }
}

L4roXyL 11 Ekim 2011 00:45
Tarih: 14-01-2009, 00:57

Bu kod #kanal kanalında voice verilen nicklerin host adreslerini kayıt eder ve #kanal@ kanalında !info komutunu uyguladığınızda bu liste kanala yansıtılır.
Not: Kod on text üzerine kuruludur. Dolayısıyla başkaları için !komut olarak uygulanabilir. Kendiniz için kullanacaksanız on input kullanabilirsiniz.

Kod:
on *:start:{
  if ($exists(voice.hash)) hmake voice | hload -i voice voice.hash
}
on *:voice:#kanal:{
  if ($nick != $me) {
    var %q = $+($address($vnick,2),%,$time,&,$date)
    hadd -m voice %q $nick
    hsave -i voice voice.hash
  }
}
on @*:text:!info *:#kanal@: {
  if ($hfind(voice,$2,0).data >= 2) {
    var %2 = $v1,%1 = 1
    msg # $2 rumuzunun voice girdileri:
    while (%1 <= %2) {
      var %d = $hfind(voice,$2,%1).data
      msg # $+(%1,-) Host: $gettok(%d,1,37) - Saat/tarih: $regsubex($gettok(%d,2,37),&,$chr(32))
      inc %1
    }
    else msg # $qt($nick) $2 rumuzu için kayıt bulunamadı.
  }
}


++ 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 8 Toplam 10 Sayfadan « First 4567 8 910
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