- massmsg {
set %msg $$?=”Mass msg girin?”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .msg $nick(#,%people) %msg }
inc %people
if ($nick(#,%people) == $null) { unset %msg | unset %people }
else { goto loop }
}
alias massop {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan +o $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massdeop {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan -o $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massvoice {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan +v $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massdevoice {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .mode $chan -v $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias masskick {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .kick $chan $nick(#,%people) (Script name) Mass Kick.. }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias massban {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .ban $nick(#,%people) }
inc %people
if ($nick(#,%people) == $null) { unset %people }
else { goto loop }
}
alias masskb {
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
else { .ban $nick(#,%people) | kick $chan $nick(#,%people) (-[(Fıkra Beta)]-) Mass KickBan… }
inc %people
if ($nick(#,%people) == $null) { unset %people}
else { goto loop }
}
}
alias massinv {
set %in $$?=”Örnek: #fıkra :”
set %people 1
:loop
if ($nick(#,%people) == cs) { inc %people | goto loop | halt }
if ($nick(#,%people) == $me) { inc %people | goto loop | halt }
if ($nick(#,%people) == $opnick) { inc %people | goto loop | halt }
else { .invite $nick(#,%people) %in }
inc %people
if ($nick(#,%people) == $null) { unset %massinv | unset %people | halt }
else { goto loop }
}
menu channel {
Mass Command
.Mass Msg:/massmsg
.Mass Invite:/massinv
.-
.Mass Op:/massop
.Mass Deop:/massdeop
.Mass Voice:/massvoice
.Mass Devoice:/massdevoice
.-
.Mass Ban:/massban
.Mass Kick Ban:/masskb
.Mass Kick:/masskick
}
‘mIRC Hazır Kodlar’ kategorisi
Mass Kodları
Cuma, 18 Eylül 2009Mirc Kanala Giren Nickleri Listelemek
Cuma, 18 Eylül 2009Kanalınıza Giren Nickleri 1 txt sayfasinda Oto listelemek
Kod:
on *:join:#Kanalismi:{ /write nicklist.txt $nick }
örnek: on *:join:#Mirc:{ /write nicklist.txt $nick }
Mirc ALT+R Yaprak remote Kısmına Kodları ekliyorsunuz //run $mircdir yazdıgınızda nicklist.txt sayfasında kanala giren nickleri görebilirsiniz.
Nickserv Forbid Listesini Boşaltmak
Cuma, 18 Eylül 2009Bütün Yasaklı Nickleri Tek 1 Komutla Kaldırmak
( Forbid Nick Çözümü)
Kullanımı : Mirc ALT+R yaparak Kodu Mırc Remotesine ekliyorsunuz ve aşagıdaki komutları yazıyorsunuz
komut: /remote on
komut: /ns list * forbidden
Kodlar:
on *:Notice:*:*: {
if ([Forbidden] isin $1-) && ($nick == NickServ) {
/NickServ DropNick $1
}
}
!Clear Kodu
Cuma, 18 Eylül 2009on *: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
}
}
Whois uyarıcısı
Cuma, 18 Eylül 2009on ^*:Snotice:*/whois*: {
.echo -a ( $+ $time $+ ) $$2 senin whois bilgilerine bakt?.
window @who 250 150 300 180 comic sans ms 12
.echo @who $timestamp $$2 senin whois bilgilerine bakt?
}
Statuste Bekleyenleri Sajoin
Çarşamba, 16 Eylül 2009Statüste bekleyen userleri toplu yada herhangi birini yalnız sekilde istediğiniz veya belirlediğiniz herhangi bir kanala sajoinleminizi yarayan bir kod.
Yapımcı;CesuryureK
Kod;
on *:Text:*:#Kanal: {
.set %kanal $chan
if ($1 == !statuslist) && ($nick isop $chan) { .enable #Sta | who * | .timer 1 6 .disable #sta | set %liste on }
if ($1 == !al) && ($2 != $null) && ($nick isop $chan) { .sajoin $2 $3 }
if ($1 == !topal) && ($2 != $null) && ($nick isop $chan) { .set %saj $2 | .set %Cek on | .enable #Sta | who * | timer 1 6 .disable #sta }
}
#sta off
raw 352:*: {
if (*#* !iswm $2) && (services !isin $3) && (%liste == on) { msg %kanal $6 | timer 1 5 .set %liste off }
if (*#* !iswm $2) && (services !isin $3) && (%cek == on) { sajoin $6 %saj | timer 1 5 .set %Cek off }
}
#sta end
:#Kanal: yerine buraya uygun kanalını yazdın mı tamamdır.
Komutlar:
!statuslist : statusta bekleyen nickleri belirtilen kanala gönderir.
!al nick #kanal : belirtilen nicki belirtilen kanala alır
!topal #kanal : statusta bekleyen nickleri belirtilen kanala alır.
Nick Takip Kodu
Çarşamba, 16 Eylül 2009Sunucuya giren kisinin daha önce hangi nickLe bagLandigini gosterir bi cesit korumada denebiLir.
KuLLanim: Kodu remoteye ( aLt + R) ekLedikten sonra /takip + yazmaniz yeterLidir.
Kod:
on 1:connect:{ .IAL On | takip + 300 }
alias takip {
if $1 == + { $iif($hget(Takip),hfree Takip) | .enable #Takip | $iif(!$hget(Takip),hmake Takip 1000) | set %cSj $iif($2,$2,300) | echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,]) }
else { .disable #Takip | unset %cSj | echo -ta 14Takip Modu DevreDışı ! }
Clone Proxy Koruması
Çarşamba, 16 Eylül 2009Kod sayesinde kanalınıza giren clone ve proxy’leri istediğiniz komut ile atmanızı sağlıyor.
Kod:
alias randomnick if ($randn2($1)) || ($randn($1)) { return $true } | else { return $false }
alias randn2 {
if $1- isalpha && $1- islower {
if (($count($1,a,e,i,o,u) >= 4)) { return $false }
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) >= 4) && ($regex($1,/^[a-z]+$)) {
if ($regex($1,/^[^aeiou]{3}/)) { return $true }
elseif ($regex($1,/([a-z])\1{2}/)) { return $true }
elseif ($regex($1,/[aeiou]{3/)) { return $true }
elseif ($regex($1,q[^u])) { return $true }
elseif ($regex($1,/[^aeioux]x[^aeiouyx]/)) { return $true }
else { return $false }
}
}
}
alias randn {
if $1- isalpha && $1- islower {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 1) { return $false }
if ($len($1) == 7) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) – 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 
{
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 9) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,4),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,3,4),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
elseif ($len($1) == 10) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
if $regex($left($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($right($1,3),/(o|i|a|e|u)/g) <= 0) { return $true }
elseif $regex($mid($1,4,5),/(o|i|a|e|u)/g) <= 0) { return $true }
else { return $false }
}
if ($regex($1,/(o|i|a|e|u)/g) <= 0) && ($len($1) == 4) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 5) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 1) && ($len($1) == 6) {
var %son = $mid($1,$len($1),1)
var %son2 = $mid($1,$calc($len($1) - 1),1)
if (%son == %son2) { return $false }
else { return $true }
}
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) == 10) { return $true }
elseif ($regex($1,/(o|i|a|e|u)/g) <= 3) && ($len($1) >= 11) { return $true }
else { return $false }
}
}
menu channel,status {
Random Nick Koruması
Aç :.enable #random | echo -at Random Nick Koruması Acılmışdır.
kapat:.disable #random | echo -at Random Nick Koruması Kapatılmışdır.
}
mIRC Saat Başı Uyarı
Çarşamba, 16 Eylül 2009Dakikası sıfır olan (00) saat başlarında, bulunduğunuz tüm kanallara toplu ileti yolla***** /ame, saati bildirir.
Yapımcı; Regex
Kullanım:Status penceresinden, mouseunuzun sağ klik tuşuyla açtığınız popups menülerindeki “Saat Başı Uyarı” çekmesinde addonun durumuna göre “Aç” ya da “Kapat” seçenekleri mevcut olacaktır. İşlemin aktif hâle gelip gelmemesini buradan ayarlayabilirsiniz.
Kod:
#saat on
on *:start:saat
#saat end
alias -l zmn if $regex($time,$1) && $regml(1) == 00 { ame 7Şu anda saat: $+(4,$time(HH:nn),7.) | $iif($timer(st),.timerst 1 $calc(59 * 60) saat) }
alias -l saat if $regex($time,/(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9])) { if $regml(1) > 0 && $regml(1) < 58 { .timerst 1 $calc(59 – $regml(1)) saat } | elseif $regml(1) == 59 { .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) } | else .timerst 0 1 zmn /(?(?=2)2[0-4]|[0-1][0-9]):([0-5][0-9]):([0-5][0-9]) }
menu menubar,status {
Saat Başı Uyarı
.$iif($group(#saat) == off,Aç,Kapat):$iif($group(#saat) == off,.enable #saat,.disable #saat) | echo Saat başı uyarı, $iif($group(#saat) == on,açıldı.,kapatıldı.)
}
Giriş ve Çıkışlarda IP Tek Tıkla Gline
Çarşamba, 16 Eylül 2009Network Penceresinde Giriş Çıkış Yapanların IP sine Tıklama ile Gline Atıyor.
Kod:
on ^&*:SNOTICE:*:{
if *client*exiting* iswm $1- {
$iif(!$window(@Giris/Cikis),window -en @Giris/Cikis,echo 4 -t @Giris/Cikis Çıkış : $1- )
halt
}
if *Connecting* iswm $1- {
$iif(!$window(@Giris/Cikis),window -en @Giris/Cikis ,echo 3 -t @Giris/Cikis Giriş : $1- )
break
}
}
on ^*:HOTLINK:*.*.*:*:{
if @Giris/Cikis == $window($active) {
return $1
}
Break
}
on *:HOTLINK:*.*.*:*:{
if @Giris/Cikis $window($active) {
titlebar Kline : $+([,$gettok($1-,2,$asc(@)),])
.Kline $+(*@,$gettok($1-,2,$asc(@))) http://www.mircscripting.net/rules.php?do=kline&c=15m
}
Break
}
