mIRC Scripting
Sayfa 2 Toplam 10 Sayfadan 1 2 3456 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 13:34
Tarih: 05-01-2008, 15:05

Gelen noticeleri, snoticeleri ve rumuzunun geçtiği mesajları(kanal ayrı, özel ayrı) ayrı pencerelerde gösteren kodlar.

Kod:
on ^*:snotice:*:{
 $iif(!$window(@duyuru),window -nCBas @duyuru)
 echo 5 @duyuru SNOTICE: $1-
}
on ^*:notice:*:?:{
 $iif(!$window(@duyuru),window -nCBas @duyuru)
 echo 5 @duyuru Servis: $nick - Mesajı: $1-
}
on *:text:$($+(*,$me,*)):?: {
  if $active != $nick {
    $iif(!$window(@seslenme),window -nCBas @seslenme)
    echo 5 @seslenme Nick: $nick - Mesajı: $1-
    echo -ate Nick: $nick - Mesajı: $1-
  }
}
on *:text:$($+(*,$me,*)):#: {
  if $active != # {
    $iif(!$window(@seslenme),window -nCBas @seslenme)
    echo 5 @seslenme Kanal: # - Nick: $nick - Mesajı: $1-
    echo -ate Kanal: # - Nick: $nick - Mesajı: $1-
  }
}

L4roXyL 07 Ekim 2011 13:36
Tarih: 05-01-2008, 00:17

Size whois çeken kullanıcıları aynı bir pencerede(-l) listeleyen(aline) kod.

Kod:
on *:snotice:*did a /whois on you*: {
  inc %1 
  $iif(!$window(@whois),window -lCb @whois,aline 2 @whois $+(%1,-) $2 whois çekti.)
}

L4roXyL 07 Ekim 2011 13:39
Tarih: 05-01-2008, 15:13

Tüm kanallardaki flaglarınızı(a,o,v,h,q vb.) larınızı geri almak için yazmış olduğum bir kod.
Kullanım: /opall

Kod:
alias opall {
  var %s = 1
  while %s <= $comchan($me,0) {
    mode $comchan($me,%s) -aqhvo $str($+($me,$chr(32)),5)
    inc %s
  }
}

L4roXyL 07 Ekim 2011 13:45
Tarih: 05-01-2008, 16:12

Belitilen kanala giren kullanıcıların IP numaralarını işleme alarak, daha önce sunucuya girip/girmediği gösteren detaylı bir kod.

Kod:
on *:join:#belirtilen-kanal:userip $nick
alias iptara {
  if $hget(kayıt) {
    var %o = 1
    while %o <= $hget(kayıt,0).item {
      if $gettok($hget(kayıt,%o).item,2,189) == $1 && $gettok($hget(kayıt,%o).item,1,189) != $2 {
        $iif(!$window(@sonuc),window -nCbsa @sonuc)
        echo -te @sonuc Bilgi: $gettok($hget(kayıt,%o).item,2,189) IP adresin'den daha önce; $gettok($hget(kayıt,%o).item,1,189) nick'i ile giriş yapıldı.
      }
      inc %o
    }
  }
}
raw *:*: {
  haltdef
  if ($numeric = 340) {
    set %ip $gettok($2,2,64)
    who +h $gettok($2,2,64)
    hadd -m kayıt $+($gettok($2,1,61),½,$gettok($2,2,64))
    iptara $gettok($2,2,64) $gettok($2,1,61)
  }
  if ($numeric = 352) {
    hadd -m nick $6 1
  }
  if ($numeric = 315) {
    var %& = 1,%&&
    while %& <= $hget(nick,0).item {
      %&& = $addtok(%&&,$hget(nick,%&).item,32)
      inc %&
    }
    $iif(!$window(@IP),window -nCbsa @IP)
    echo -t @IP Bilgi: %ip adresin'den bağlantı kuranlar: %&&
    unset %ip
    hfree nick
  }
}

L4roXyL 07 Ekim 2011 13:49
Tarih: 05-01-2008, 20:29

Belirtilen kanala giriş yaptığınızda dosya.txt dosyasından mesajları 15 dakikada bir sırayla göndermek için yazmış olduğum bir kod.

Kod:
on me:join:#belirtilen-kanal:.timer 0 180 textsnd #
alias textsnd {
  if $lines(dosya.txt) = %t {
    unset %t
    inc %t
  }
  else inc %t
  msg $1 $read(dosya.txt,%t)
}

L4roXyL 07 Ekim 2011 13:57
Tarih: 06-01-2008, 17:03

/exit yazdığınızda belirlediğiniz mesajı /ame olarak attıktan sonra çıkış yapmak için yazdığım bir kod.

Kod:
alias exit {
  inc -e %e
  if (%e = 1 && $status = connected) {
    ame mesajın
  }
  else exit -n
}

L4roXyL 07 Ekim 2011 14:01
Tarih: 05-01-2008, 23:55

Socket bot için sunucuya giren ve belirtilen idente sahip kullanıcıyı belirtilen kanala /sajoin-lemek için yazmış olduğum bir kod.

Kod:
if ($2 = notice && *Client connecting* iswm $3-) {
  if ($remove($gettok($13,1,64),$chr(40)) = belirtilen-ident) {
    sockwrite -n socket-ismi sajoin $12 #belirtilen-kanal
  }
}

L4roXyL 07 Ekim 2011 14:10
Tarih: 06-01-2008, 19:44

Kanal belirlediğiniz flood saldırısında, kanalı belirlediğiniz süre ile +m moduna alıp, temizle.mrc dosyasındaki verilerle kanalı temizleyip tekrar kanalaı açmak için yazmış olduğum bir kod.

Kod:
alias -l fld {
  hinc $+(-mu,$1) fld $+($3,½,$4,$encode($5)) 1
  if ($hget(fld,$+($3,½,$4,$encode($5))) >= $2) return $true
  else return $false
}
alias temizle {
  var %t 1
  while %t <= $lines(temizle.mrc) {
    msg $1 $read(temizle.mrc,%t)
    inc %t
  }
}
on @*:text:*:#: {
  if $nick isreg # && $fld(10,3,#,$nick,$1-) {
    ban -k # $nick 2 sebeb.
    mode # +m
    temizle #
    msg # Kanal güvenlik amaçlı 20 sn vs.
    if !$timer($+(#,½,fld)) {
      $+(.timer,½,#) 1 20 mode # -m
      .timer 1 21 msg # Kanal açıldı.
    }
  }
}
/fld alias'ının kullanımı; $fld(saniye,limit,#kanal,text-own,mesaj)
Ben örnek olarak; 10 saniye içerisin'de, aynı text 3 defa tekrar edilirse, gördüğünüz işlevleri sırası ile gerçekleştirir.

Eğer aynı yazının tekrar'ı değilde, belirlediğim saniye içerisin'de belirlediğim satır limit'i aşılırsa(hızlı text) işlev yapmak istiyorum diyorsan;
/fld alias'ını aşşağıdaki şekilde değiştir;

Kod:
alias -l fld {
 hinc $+(-mu,$1) fld $+($3,½,$4) 1
 if ($hget(fld,$+($3,½,$4)) >= $2) return $true
 else return $false
}


Ve kullanım şeklini verdiğim şekilde yap; $fld(saniye,limit,#kanal,text-own)

Örneğin; $fld(10,5,#,$nick)
10 saniye içerisinde, 5 satır text gönderen'e işlev yapar. Kanal'ı temizler vs.

L4roXyL 07 Ekim 2011 14:16
Tarih: 25-10-2007, 20:08

Bu kod kanal veya özel loglarını aramak/okumak vb. işlemler için yazılmış detaylı bir snippet-dır.


Kod:
menu channel {
  Loglar menüsü
  .# logu:kanal #
  .Özel logları:falan $$?="Log'unu okumak istediginiz nick'i giriniz:"
}
alias falan {
  if $findfile($logdir,$+($1,*),0) >= 1 {
    var %1 = $v1
    $iif($input(Aradığınız nick için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0)
    while %2 <= %3 { run $findfile($logdir,$+($1,*),%2) | inc %2 }
  }
  else {
    var %/ = $1,%½ = $left($1,1)
    $iif($input(Aradığınız %/ nick'i için uygun kayıt bulunamadı. %½ harfi ile başlıyan loglar listelensinmi?,w) == $false,halt)
    echo -at $left($1,1) ile başlıyan loglar sıralanıyor.
    echo -at $findfile($logdir,$+($left($1,1),*),0,echo -at $gettok($1-,$numtok($1-,92),92))
  }
}
alias kanal {
  if $findfile($logdir,$+($1,*),0) >= 1 {
    var %1 = $v1, %% = $1
    $iif($input(Aradığınız %% kanal'ı için %1 adet veri bulundu açmak istiyormusunuz?,w) == $false,halt)
    var %2 = 1,%3 = $findfile($logdir,$+($1,*),0)
    while %2 <= %3 {
      run $findfile($logdir,$+($1,*),%2)
      inc %2
    }
  }
  else { 
    var %& = $1
    $input(%& kanal'ı için herhangi bir kayıt bulunamadı,ohud,UYARI,)
  }
}

L4roXyL 07 Ekim 2011 14:23
Tarih: 06-01-2008, 23:13

Bu kod belirtilen kanala(sağ tıklayın popups bölümünde var) logları okumanıza yarar.

Kod:
menu channel {
  # kanal log'u:searchlog # $gettok($server,2-,46)
}
alias searchlog {
  if ($findfile($logdir,$+($1,.,$2,*),0) = 0) $iif($input($1 kanal' için log bulunamadı.,ohud,uyarı) = $true,return,return)
  run $findfile($logdir,$+($1,.,$2,*),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 2 Toplam 10 Sayfadan 1 2 3456 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