Standart Kanala giriş yapana whois kontrol kodu
Op oldugunuz kanala her giren usere whois cekerek bilgilerine ulaşabilirsiniz. PHP- Kodu: on *:join:#mırc:{ /whois $nick
» Devamını OkuKategori: Hazır Kodlar
mIRC Notify Ayarlari
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
alias ac { dialog -m notify notify } dialog notify { title \\"mIRC Notify Addon\\" size -1 -1 116 58 option dbu text \\"Nick\\", 1, 5 10 25 8 edit \\"\\", 3, 33 9 78 10 box \\"Notify\\", 2, 2 1 113 23 button \\"Ekle\\", 4, 15 27 37 12 button \\"Ç?kar\\", 5, 57 27 37 12 button \\"Listele\\", 6, 35 41 37 12 } on *ialog:notify:sclick:4:{ notify $did(3) | gload notify } on *:dialog:notify:Sclick:5:{ notify -r $did(3) } on *ialog:notify:Sclick:6:{ notify -l } on *:notify:{ gtalk -k notify Notify Listenizde Bulunan $nick Su Anda Servere Giris Yapti |
mIRC Fullname Takip Kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
on *:join:#:{ .enable #kgwc who $nick } #kgwc off raw 352:*:{ if !$window(@Fullname) { .window @Fullname } echo @Fullname 12•4 [ $6 ] [4 Fullnamesi ] $9- .haltdef .halt } #kgwc off raw 315:*:{ if $group(#kgwc) == on { .disable #kgwc .haltdef .halt } |
mIRC !Clear Kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
Kod: on *:text:*:#:{ if !clear isin $1 { if $nick !isop $chan { .msg $chan $nick $+ : ?uanda kanal operatörlü?ü ile alakan?z olmad??? için; bu komutu kullanamazs?n?z! } else { .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 0,0. .msg $chan 12!Clear komutunu kullanan yetkili; 4 $nick } } |
mIRC Identify Kutucugu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
* Do?um: duyuru: * NickServ IDENTIFY * *: *: (($ nick e?er == Nickserv) / dialog-m sifre sifre) * Do?um: duyuru: * Kay? T * Nick *: *: (($ nick ise == nickserv) / dialog-m sifre sifre) ileti?im sifre ( Ba?l?k \ \ "? ifre Paneli \ \" boyutu -1 -1 110 60 seçenek dBu kutu $ me Kayitli B?R Nicktir .., 20, 0 0 110 60 metin \ \ "Nick Degistir: \ \", 4, 10 22 33 10 metin \ \ "?ifre Gir: \ \", 3, 10 10 23 13 \ \ De?i?tir "\ \", 5, 45 8 60 10, stil (mouse) \ \ De?i?tir "\ \", 6, 45 20 60 10 dü?mesine \ \ "Uygula \ \", 1, 10 35 40 15, ok \ \ "I & ptal \ \", 2, 60 35 40 15, iptal dü?mesi ) xxxx xxxx belirlemek | 1: dialog: sifre: sclick: 1: ( ($ Did (sifre, 6)) & & ($ did (sifre, 5)). Nickserv $ did (sifre, 6) $ did (sifre, 5) tan?mlamak e?er nickserv $ did (sifre, 5) tan?mlamak ($ did (sifre, 5)) e?er. ($ Did (sifre, 6) birlikte). Nick $ did (sifre, 6) ) |
mIRC Mp3 Player Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
on 1:LOAD:/setup | /playlist Alias setup { set %mp3.dir $sdir=\\"Locate you mp3 files\\" | /echo -a 4,1 æ8M15p3 Directory set t8o4æ :2 %mp3.dir set %mp3.player $findfile(c:\\\\,winamp.exe,1) | /echo -a 4,1 æ8M15p3 Player set t8o4æ :2 %mp3.player } Alias Mp3play { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" winamp.exe } %mp3.dir1 = %mp3.dir $+ \\\\ $+ *.mp? set %mp3 $dir=\\"Which mp3 do you want to play?\\" %mp3.dir1 if (%mp3 == $null) { goto end } %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Non-Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } Alias sF3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,2Random-Mp3 $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } alias playlist { set %mp3.list.starttime $ctime set %mp3.list.nick $me set %mp3.list.textfile $mircdir $+ $me $+ mp3.txt window -dhnal @list $findfile(%mp3.dir,*.mp3,@list) set %mp3.list.total $findfile(%mp3.dir,*.mp3,0) write %mp3.list.textfile $cr write -c %mp3.list.textfile $me $+ \\\'s Mp3 List by: æAcidMp3æ Created by Juston write %mp3.list.textfile type ! $+ $me filename.mp3 in the channel to request a file. write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files set %mp3.list.count 1 set %mp3.list.filesize.total 0 set %mp3.list.file.lastdir \\"\\" :next set %mp3.list.file $line(@list,%mp3.list.count) set %mp3.list.file.dir $nofile(%mp3.list.file) set %mp3.list.file.name $nopath(%mp3.list.file) set %mp3.list.filesize $round($calc( $file(%mp3.list.file).size / 1048576 ),3) set %mp3.list.length $calc(60 - $len(%mp3.list.file.name) - $len(%mp3.list.count)) if (%mp3.list.file.dir != %mp3.list.file.lastdir) { write %mp3.list.textfile $cr write %mp3.list.textfile $chr(91) $+ %mp3.list.file.dir $+ ] write %mp3.list.textfile $cr } else { } set %mp3.list.file.lastdir %mp3.list.file.dir if %mp3.list.count > 1 { if %mp3.list.filesize > %mp3.list.filesize.high { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filename.high %mp3.list.file.name } elseif %mp3.list.filesize < %mp3.list.filesize.low { set %mp3.list.filesize.low %mp3.list.filesize set %mp3.list.filename.low %mp3.list.file.name } } else { set %mp3.list.filesize.high %mp3.list.filesize set %mp3.list.filesize.low %mp3.list.filesize } write %mp3.list.textfile $chr(91) $+ %mp3.list.count $+ ] %mp3.list.file.name $str($chr(160),%mp3.list.length) %mp3.list.filesize MB inc %mp3.list.filesize.total %mp3.list.filesize inc %mp3.list.count 1 if ( %mp3.list.count < %mp3.list.total ) { goto next } :end window -c @list write %mp3.list.textfile write %mp3.list.textfile $cr if %mp3.list.filesize.total < 1024 { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round(%mp3.list.filesize.total,1) MB } else { write %mp3.list.textfile Total $calc(%mp3.list.total - 1) MP3 files encompassing $round($calc( %mp3.list.filesize.total / 1024 ),3) GB } set %mp3.list.time $calc($ctime - %mp3.list.starttime) /run %mp3.list.textfile | echo -a 4,1 æ8A15n Mp3 lis8t4æ 2 ( $+ $calc(%mp3.list.total - 1) 14files total) 4,1 æ8h15as been create8d4æ } alias dur { return $remove($duration($1),ks,k,ays,ay,rs,r,ins,in,ecs, ec,$chr(32)) } alias mp3.br { goto $iif($1 isnum 1-14,$1,0) | :0 | return 112000 | :1 | return 32000 | :2 | return 40000 | :3 | return 48000 | :4 | return 56000 | :5 | return 64000 | :6 | return 80000 | :7 | return 92000 | :8 | return 112000 | :9 | return 128000 | :10 | return 160000 | :11 | return 192000 | :12 | return 224000 | :13 | return 256000 | :14 | return 320000 } alias mp3.kbps { return $remove($mp3.bitrate($1-),000) $+ kbps } alias mp3.bitrate { if (($1 == $null) || ($exists($1-) == $false)) return 0 set %_bitrate $read -l1 $1- if ($pos(%_bitrate,RIFF,1)) { unset %_bitrate | return 128000 } set %_bitrate $asc($mid(%_bitrate,3,1)) .timer 1 1 unset %_bitrate return $iif(%_bitrate == $null,128000,$mp3.br($int($calc(%_bitrate / 16)))) } alias mp3.len { if ($1 == $null) || ($exists($1) == $false) return 0m0s else { return $dur($round($calc(($lof($1-) * .008) / $remove($mp3.bitrate($1-),000)),0))) } } Menu status,channel,query { - DandikMp3 .Setup:/setup .Create List:/playlist .Select Mp³:/mp3play .Random Mp³:/sF3 } Alias r3 { if (%mp3.dir == $null) { set %mp3.dir $sdir=\\"Locate you mp3 directory\\" } if (%mp3.player == $null) { set %mp3.player $dir=\\"Locate your mp3 player (winamp.exe)\\" *.exe } set %rand.mp3.1 $findfile(%mp3.dir,*.mp?,0) set %rand.mp3.2 $rand(1,%rand.mp3.1) set %mp3 $findfile(%mp3.dir,*.mp?,%rand.mp3.2) %mp3.size = $round($calc($lof(%mp3)/1000000),2) $+ mb %mp3.len = $mp3.len(%mp3) %mp3.kbps = $mp3.kbps(%mp3) say 0,4~mp¼ $nopath(%mp3) 4/15 $+ %mp3.size $+ 4/15 $+ %mp3.len $+ 4/15 $+ %mp3.kbps $+ 4/ run %mp3.player $shortfn(%mp3) unset %mp3.len %mp3.size %mp3.kbps :end } |
mIRC /seen kodu
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
/seen nick yazaran belirlediginiz nickle en son nezaman hangi kanalda bulundugunuzu gorebilirsiniz. /seen list yaparak listenizi gorebilir, /seen clear yaparak listeyi temizleyebilirsiniz. Kod; ;$_find($1,1) = nick, $_find($1,2) = time, $_find($1,3) == date alias _find return $gettok($hget(seen. $+ $server,$hfind(seen. $+ $server,$+(*,$1,*),1,w).data),$2,46) on *:JOIN:#: { if !$findfile($mircdir,$+(seen.,$server,.data),1) { hmake seen. $+ $server 50 hsave seen. $+ $server $+(seen.,$server,.data) } elseif !$hget(seen. $+ $server) { hmake seen. $+ $server | hload seen. $+ $server $+(seen.,$server,.data) } if $_find($nick,1) { hdel seen. $+ $server $hfind(seen. $+ $server,$+(*,$1,*),1,w).data } hadd seen. $+ $server $r(0,99999999) $+($nick,$chr(46),$time,$chr(46),$date) hsave seen. $+ $server $+(seen.,$server,.data) } alias seen { if $server { if $1 { if $1 == clear { hdel -w seen. $+ $server * echo -a Temizlendi hsave seen. $+ $server $+(seen.,$server,.data) } elseif $1 == list { var %s = 1,%nick,%time,%date while %s <= $hget(seen. $+ $server,0).item { %nick = $gettok($hget(seen. $+ $server,%s).data,1,46) %time = $gettok($hget(seen. $+ $server,%s).data,2,46) %date = $gettok($hget(seen. $+ $server,%s).data,3,46) echo -a %s Nick: %nick Time: %time Date: %date inc %s } } elseif $_find($1,1) { echo -a $_find($1,1) $+ , En son $_find($1,3) Tarihinde Saat $_find($1,2) Saatinde Görüldü... } else echo -a $1 $+ , Listemde yok.... } } else echo -a Ba?l? De?ilsiniz... |