‘mIRC Hazır Kodlar’ kategorisi


Renkli mirc kanal topic addonu

Cuma, 11 Mayıs 2012

Mirc : ALT+R yaparak Mirc remoteyi açıorsunuz kodlari ekledikten sonra Mausu sagtıklayınız Renk kodlariyla Topick oluşturabilirsiniz.

menu channel {
1 $chr(11) • RenkLi Topic Menüsü
  . 1 $chr(11) • Renkli TopicLer 1
  ..$chan Topic 1:/topic $chan 1,1 9,1»4,1®9,1»4,1®9,1»4,1®9,1» $$?=”Lütfen Topic Giriniz” 1,1 9,1»4,1®9,1»4,1®9,1»4,1®9,1»
  ..-
  ..$chan Topic 2:/topic $chan 6,12|12,6|13,6|6,13|4,13|13,4|7,4|4,7|8,7|7,8|9,8 |8,9|10,9|9,10|12,10|10,12|16,12  $$?=”Lütfen Topic Giriniz” 6,12|12,6|13,6|6,13|4,13|13,4|7,4|4,7|8,7|7,8 |9,8|8,9|10,9|9,10|12,10|..-
  ..-
  ..$chan Topic 3:/topic $chan 3—3{4@12-3{4@12-3{4@ 12 $$?=”Lutfen Topici Giriniz”  4@3}-4@3} 4@3}3—
  ..-
  ..$chan Topic 4:/topic $chan 3—3{-4@3—{8@3—3{-13@ $$?=”Lutfen Topici Giriniz”  13@3-}—8@3-}—4@3}3—
  ..-
  ..$chan Topic 5:/topic $chan 13,0<0,13>6,13<13,6>2,6<6,2>1,2<2,1>0,1 $$?=”Lutfen Topici Giriniz” 2,1<1,2>6,2<2,6>13,6<6,13>0,13<13,0>
  ..-
  ..$chan Topic 6:/topic $chan 16,9%, 3,9`%9,3%, 1,3`%3,1%,16,1 $$?=”Lutfen Topici Giriniz” 3,1`%1,3%, 9,3`%3,9%, 16,9`%
  ..-
  ..$chan Topic 7:/topic $chan 0,15%`13,15,%15,13%`6,13,%13,6%`5,6,% 8 $$?=”Lutfen Topici Giriniz” 5,6%,13,6`%6,13%,15,13`%13,15%,0,15`%
  ..-
  ..$chan Topic 8:/topic $chan 11,0%0,11% 10,11%11,10% 2,10%10,2% 1,2%2,1%0,1  $$?=”Lutfen Topici Giriniz”  2,1%1,2% 10,2%2,10% 11,10%10,11% 0,11%11,0%
  ..-
  ..$chan Topic 9:/topic $chan 16,15%,14,15`%15,14%,10,14`%14,10%,2,10`%10,2%,15,2 $$?=”Lutfen Topici Giriniz” 10,2`%2,10%,14,10`%10,14%,15,14`%14,1516,1514,15`% 16,15%,
  ..-
  ..$chan Topic 10:/topic $chan 8,0 ,%0,8%`7,8,%8,7%`4,7,%7,4%`8,4 $$?=”Lutfen Topici Giriniz” 7,4`%4,7%,8,7`%7,8%,0,8`%8,0%, 
  ..-
  . 1 $chr(11) • Renkli TopicLer 2
  ..-
  ..$chan Topic 11:/topic $chan 1215,8%8,8|4,8%8,4%4,4|5,4%4,5%5,5|1,5%5,1%1– 16 $$?=”Lutfen Topici Giriniz” 1–5,1%1,5%5,5|4,5%5,4%4,4|8,4%4,8%8,8|15,8%1
  ..-
  ..$chan Topic 12:/topic $chan 4,0%0,4%4,4 5,4%4,5%5,5 1,5%5,1%1,1 15,1 $$?=”Lutfen Topici Giriniz” 5,1%1,5%5,5 4,5%5,4%4,4 0,4%4,0%
  ..-
  ..$chan Topic 13:/topic $chan 12-æ0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸0,1 -= $$?=”Lutfen Topici Giriniz” =- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ12,0æ-
  ..-
  ..$chan Topic 14:/topic $chan 9,0æ0,9æ3,9æ9,3æ1,3æ3,1æ 9,1 $$?=”Lutfen Topici Giriniz” 3,1æ1,3æ9,3æ3,9æ0,9æ9,0æ
  ..-
  ..$chan Topic 15:/topic $chan 8,0|0,8|7,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1| 9,1 $$?=”Lutfen Topici Giriniz” 5,1 |1,5|4,5|5,4|7,4|4,7|8,7|7,8|
  ..-
  ..$chan Topic 16:/topic $chan 8,1®8,14®8,15®8,0®8,15®8,14®8,1® 0  $$?=”Lutfen Topici Giriniz” 8,1®8,14®8,15®8,0®8,15®8,14®8,1®
  ..-
  ..$chan Topic 17:/topic $chan 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1  $$?=”Lutfen Topici Giriniz” 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-9,0/0,9/3,9/9,3/1,3/3,1/0,0
  ..-
  ..$chan Topic 18:/topic $chan 0,15%,14`%15,14%,1`%14,1%,15,1 $$?=”Lutfen Topici Giriniz” 14,1`%1,14%,15`%14,15%,0`%3,0
  .-
}

Tek komutla op olmak tum kanallarda

Cuma, 11 Mayıs 2012

Yetkili olduğunuz bütün kanallarda tek tuşla op olun. Bu kod mircin Alias bölümünde yer alan bir F tuşuna atanacaktır. Burada F11 örnek olarak verilmiştir.

PHP Code:

 

/F11 { var %~ = $chan() | while %~ { if ($me !isop $chan(%~)) { /cs op $chan(%~) $me } | dec %~ } }

Şimdilik aynı tuşa basıp deop olamıyoruz. Onun kodunu bulduğumda onu da eklerim. gülücük

Aşağıdaki kodla yetkili olduğunuz bütün kanallarda op / deop olabilirsiniz. Komut mircin Remote bölümüne eklenecektir.
Kullanımı:
op olmak için /opall
deop olmak için: /deopall

PHP Code:

alias opall { var %; = 1 | while $chan(%Wink { cs op $v1 $me | inc %; } }
alias deopall { var %; = 1 | while $chan(%Wink { cs deop $v1 $me | inc %; } } 

 

mIRC Sesli Uyarı

Salı, 08 Mayıs 2012

mIRC scriptinizde bazı olaylar sonrası sesli uyarı almak için bazı hazır kodlar mevcuttur. “wav” türünde ses dosyalarını, bir klasöre atıp aşağıdaki hazır kodlarda “klasör/sesdosyasiadi.wav” yazan kısımleri editleyerek belirtilen işlem için ses tanımlayabilirsiniz.

Kanala giriş sesi;

on 1:join:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }

Kanaldan çıkma sesi;

on 1:part:#: {
if ($nick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Voice verildiğinde çalacak olan ses;

on 1:voice:#: {
if ($vnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }
Op olduğunuzda çalacak ses;

on 1:op:#: {
if ($opnick != $me) { halt }
else { splay klasörsesdosyasininadi.wav | halt } }

Renkli yazı remotesi

Cumartesi, 21 Nisan 2012

menu channel,nicklist,query { RenkLi Yazı Aç: .enable #renk | echo -a $timestamp Renli yazı modu : Açık Renkli Yazı Kapa: .disable #renk | echo -a $timestamp Renli yazı modu : Kapalı. } #renk off on *:input:*:{ if $left($1-,1) != $readini(mirc.ini,text,commandchar) || $ctrlenter == $true { var %c = 1,2,3,4,5,6,7,10,12,13,14 var %i = 1 var %MAX [...]

 

Power Menu Addonu

Cuma, 20 Nisan 2012

Düz mIRC‘lerde kullandığımız Popup özellikleri görsellik bakımından sınırlıdır.
Görsellik bakımından biraz değişiklik ve birazda ek özelliklerle Popup özelliğini andıran bu çalışmamı sizlerle paylaşıyorum.

Aşağıda gördüğünüz görüntülerde hiçbir DLL , resim yada ek materyal kullanılmamıştır.mIRC kendine özgü Picture Window özellikleriyle derlenmiştir.

Chanserv SET , CLEAR , PROTECT , OP , VOICE , DEPROTECT , DEOP , DEVOICE özelliklerine daha kolay erişim(Levels düzeyiniz varsa) sağlayabilirsiniz.

SET ve CLEAR komutularına alt erişim için Submenu‘yu andıran bir görsellik oluşturdum.Ok işaretlerini tıkladığınızda Submenu açılımını göreceksiniz.
Popup menulerde alt bilgi açılımı sağa (veya) sola doğru oluşurken bu çalışmada menu içinde aşağıya doğru açılmaktadır.

Bu çalışmayı örnek alıp kendinize yeni menuler oluşturabilirsiniz.

Ekteki çalışmayı indirdikten sonra scriptinizin remote kısmına ekleyiniz.Herhangi bir kanalda sağ tıkladığınızda Power Menu‘ye ulaşacaksınızdır.

 

sc5 Koruma 2012

Cuma, 23 Aralık 2011

sc5 Koruma 2012 kodu (daha fazla…)

Mirc toplu komutlar (mass)

Cuma, 23 Aralık 2011

bu bölümde Mirc toplu komutlar (mass) yer verecegiz umarım işinize yarayacaktır. (daha fazla…)

Botnet Mesajlarına oto. Gzline

Cuma, 25 Kasım 2011

Botnet Mesajlarına oto. Gzline kodu:

- on *:open:?:{
set -u5 %nickw. [ $+ [ $nick ] ] warn
}
alias spch {
if (!$window(@Spams)) window -ne @Spams
spamekle $yildiztemizle($2-)
echo -t @Spams $1 : $yildiztemizle($2-)
}
on *:text:*:?:{
if (!%nickw. [ $+ [ $nick ] ]) { halt }
var %t = 1 , %kelime = $strip($gettok($1-,0,32))
var %cümle = $strip($1-)
if (%kelime == 2) && ($len($strip($1)) >= 5) && ($strip($2) == @) { spch $nick $strip($1-) | halt }
while (%t <= %kelime) {
set %ara $strip($gettok($1-,%t,32))
if ($v1 == 1) && ($right(%ara,1) == @) || ($right(%ara,2) == @h) || ($right(%ara,3) == @hot) { spch $nick %ara | halt }
if (*_* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
if (*-* iswm %ara) && ($right(%ara,1) isnum) { spch $nick %ara | halt }
if ($right($gettok(%ara,1,64),1) isnum) && (@ isin %ara) { spch $nick %ara | halt }
if (*@* iswm %ara) && ($3) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara $gettok($strip($1-),$calc(%t + 1),32)) | halt }
if (*@h?* iswm %ara) { spch $nick %ara | halt }
if ($right($gettok($strip($1-),$calc(%t - 1),32),1) isnum) && (*h?t* iswm %ara) { spch $nick $gettok($strip($1-),$calc(%t - 1),32) %ara | halt }
inc %t 1
}
}
alias yildiztemizle {
var %y $+(.,?) , %yi
%yi = $replace($1-,$chr(42),%y,$chr(36),%y,$chr(91),%y,$chr(93),%y,$chr(92),%y,$chr(47),%y,$chr(43),%y,$chr(63),%y,$chr(94),%y,$chr(124),%y,$chr(40),%y,$chr(41),%y,$chr(164),%y,$chr(33),%y,$chr(123),%y,$chr(125),%y,$chr(189),%y,$chr(188),%y,$chr(39),%y,$chr(46),%y,$chr(44),%y,$chr(60),%y,$chr(61),%y,$chr(62),%y,$chr(34),%y,$chr(199),%y,$chr(221),%y,$chr(58),%y,$chr(45),%y,$chr(254),%y,$chr(222),%y,$chr(32),%y)
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}
alias spamekle {
spamfilter add cNnpa gzline +7200 AyNaLi! $1-
}
alias spamsil {

bütün banları temizleme

Cuma, 25 Kasım 2011

bütün banları temizleme kodu

- alias clearallban {
if ($regex($usermode,/(o|O|N|a|A|C))) {
echo 4 -a IRCop modu tespit edildi, bulunduğunuz bütün kanalların banı açılıyor..
var %cx = 1,%xc = $chan(0)
while (%cx <= %xc) {
clearbans $chan(%cx)
inc %cx 1
}
halt
}
var %u = 1,%f = $chan(0)
while (%u <= %f) {
if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalının banı açılıyor.. }
inc %u 1
}
}
raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }
alias massmode {
var %i = 1, %x = $numtok($3-,32), %y = $modespl
while (%i <= %x) {
mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)
inc %i %y
}
}
alias clearbans {
var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t
if (%b == 0) {
echo -t %1 * Ban Listesi Alınıyor $+(%1,…)
mode %1 b
}
else {
var %i = $ibl(%1,0)
while (%i) {
var %t = $addtok(%t,$ibl(%1,%i),32)
dec %i
}
massmode %1 -b %t
}
}

oper remote

Cuma, 25 Kasım 2011

oper remote hazır kodu
- on *:snotice:*whois*: {
echo -a %ara $2 7Sana Whois Çekti
/notice $2 2IRC Komutları Hakkında yardım Almak için 4#heLp 2 KanaL Ve Nick Problemleriniz için 4OPER 2 Git ßen yardımcı oLamam.