TRstar.NET | Mirc indir

Op Halfop ve Voice olmayan kullanıcılara kanala girdiklerinde mesaj göndermek isteyen arkadaşlar bu koddan yararlanabilirler.

“helper botlar için önerilir”

[code]

;
;Aşşağıdaki kodu, mirc'inizi açıp ALT+R yapıp, Remoteye ekleyiniz.
;Kod içindeki "GÖNDERİLİCEK MESAJI BU YAZI YERİNE YAZINIZ" yazısı
;yerine mesajınızı yazınız. "KANALINIZINADI" yerine, hangi kanalda
;çalışmasını istiyorsanız o kanalın adını yazınız.
;Bütün kanallarda çalışması için, sadece " # " işareti yeterlidir.
;
;SiyahKaR tarafından yazılmıştır.
;

on @*:JOIN:#KANALINIZINADI:{
  if ($nick != $me) {
    .set %gnick $nick
    .timer 1 1 /kt
  }
}

alias kt {
  .set %knick %gnick
  .set %dnick $nick(#help,$calc($nick(#help,0,+) + $nick(#help,0,%) + $nick(#help,0,@) + 1))
  if (%knick == %dnick) {

    .msg %dnick GÖNDERİLİCEK MESAJI BU YAZI YERİNE YAZINIZ

  }
}[/code]

Kanal’daki banlar hakkında, detaylı bilgi almanızı, ek olarak belirli işlevler yapabilmenizi sağlar.

[code]###############################
# Yazan: L4roXyL              #
# mIRC Scripting bir sanattır.#
###############################
alias banlar {
  if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | var %++,%+++ = $chan(0) | while %+++ { %++ = $addtok(%++,$chan(%+++),32) | dec %+++ } | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Tarıyabileceğiniz kanallar:,$chr(2),$chr(32),%++,$chr(32),$chr(2)) | halt }
  write -c banlar.txt
  mode $active +b
  var %1 = 1,%2 = $ibl($active,0),%3 = $ibl($active,0).by,%4 = $ibl($active,0).date | while (%1 <= %2) && (%1 <= %3) && (%1 <= %4) {
  echo # $+($timestamp,$chr(45),$chr(32),Numara:,$chr(2),$chr(32),%1,$chr(32),$chr(2),Banlıyan:,$chr(32),$chr(2),$gettok($ibl($active,%1).by,1,33),$chr(32),$chr(2),Mask:,$chr(2),$chr(32),$ibl($active,%1),$chr(32),$chr(2),Tarih:,$chr(2),$chr(32),$replace($ibl($active,%1).date,Jan,Ocak,Feb,Şubat,Mar,Mart,Ap,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık)) | write banlar.txt $+(%1,$chr(32),%) $ibl($active,%1) | inc %1 }
  echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalı için tarama tamamlandı. Çıkan ban sayısı:,$chr(32),$chr(2),$calc(%1 - 1))
  echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Banların hepsini açmak için;,$chr(2),$chr(32),/banac,$chr(32),$chr(2),yazınız.)
  echo # $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),Herhangi birini açmak için;,$chr(2),$chr(32),/banac numara,$chr(32),$chr(2),yazınız.)
}
alias banac {
  if $chr(35) isin $active && $me !isop $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalında op değilsiniz.) | halt }
  if $active == Status Window || $chr(35) !isin $active { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Herhangi bir kanal penceresinde değilsiniz.) | halt }
  if $ibl($active,0) == 0 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kanal ban listesi boş.) | halt }
  if $lines(banlar.txt) < $1 { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: Kayıtlanan ban sayısı: $qt($lines(banlar.txt)),$chr(32),$chr(32),sizin girdiğiniz numara $qt($1) : işlev yapılmadı.) | halt }
  if !$1 { var %- = 1,%\ = $ibl($active,0) | while %- <= %\ { mode $active -b $ibl($active,%-) | inc %-  }
    echo -a $+($timestamp,$chr(45),$chr(32),Bilgi:,$chr(32),$chr(2),$active,$chr(32),$chr(2),kanalındaki tüm banlar açıldı. Açılan ban sayısı:,$chr(2),$chr(32),$calc(%- -1)) | halt
  }
  if $1 && $lines(banlar.txt) >= $1 && $read(banlar.txt,$1) { mode $active -b $gettok($read(banlar.txt,$1),2,37) | echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında sıra numarası $qt($1) olan ban açıldı.) | write $+(-l,$1) banlar.txt | halt }
  if !$read(banlar.txt,$1) { echo -a $+($timestamp,$chr(45),$chr(32),Bilgi: $active kanalında $qt($1) numaralı banı zaten açmışsınız.) }
}
[code]

1- Kanaldaki banlar hakkında bilgi verir.
2- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Tek-tek açmak)
3- Kanaldaki banlar üzerinde oynama yapmanızı sağlar(Hepsini açmak)

Bilgi şekli;

Numara: <ban-numarası> - Banlıyan: <nick> - Mask: <mask(host/nick/ident/extban)> - Tarih: <atıldığı-tarih>
Şeklindedir.
Kullanım şekli;
Girdiğiniz kanal'a /channel yazdıktan sonra kod daha sağlıklı çalışacaktır.
Banların tümünün listesini görmek için, kullanım şekli; /banlar
Çoklu kullanım şekli;
Numara girdiğiniz taktirde, /banlar listesinde çıkan numarayı açıcaktır.
Eğer numara girmezseniz; banların tümünü açıcaktır
Banlara verilen numaralardan herhangi birini açmak için; /banac numara
Banların hepsini birden açmak için; /banac
Şeklinde kullanılır.

Kanala, 1500 tane botu aynı anda sokabiliyorsunuz..

Sendraw modulu yüklü sunucularda çalışır.
Not: /sedraw kullanma yetkisi gerektirir

[code]alias doldur {
  var %ik 1
  var %ikss $3
  while (%ikss >= %ik) {
    /sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1 
    dec %ikss
  }
[/code]

[code]

/*
==========================
TypedURLS BY SeRDaR406

mIRCdb.com

Internet Explorer'da adres çubuğuna

girilmiş sitelerin adreslerini veren

bir kod.
==========================
*/
alias geturls {
  if ($com(type)) .comclose type
  .comopen type wscript.shell
  var %a 1
  while (%a <= 50) {
    var %s $com(type,RegRead,3,bstr,HKCU\Software\Microsoft\Internet Explorer\TypedUrls\url $+ %a) , %url $com(type).result
    if (%url) echo -a %url
    inc %a
  }
}
[/code]

[code]85.234.8.247:3128
83.174.252.37:8080
83.174.252.37:3128
83.174.250.80:8080
83.174.227.71:3128
81.195.147.2:3128
84.53.231.80:3128
83.174.254.95:8080
217.23.180.122:8080
217.113.121.57:8080
85.140.83.247:30435
213.211.100.98:3128
212.57.157.8:8012
[/code]