Yaptığım Tüm Yardımlar/Kodlar - Sayfa 4

**L4roXyL** · #31 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** · #32 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** · #33 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** · #34 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** · #35 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** · #36 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** · #37 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** · #38 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** · #39 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** · #40 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)
}