Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

mIRc için Hazır Addonlar

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
BadNick Koruması :
PHP:
on *:NICK:{ 
if $badnick($newnick) { 
var %e = 1, %u = $v1 
while $comchan($newnick,%e) { 
if $me isop $v1 { 
mode $v2 +b %u 
kick $v2 $newnick Bad Nick! 
} 
inc %e 
} 
} 
} 
alias badnick { 
var %e = 1 
while $read(badnick.txt,%e) { 
if $v1 iswm $1 { 
return $v1 
} 
inc %e 
} 
return $false 
} 
alias tara { 
if $1 ischan { 
var %d = $lines(badnick.txt) 
while %d { 
if $fline($1,$read(badnick.txt,%d),0,1) >= 1 { var %q = $ifmatch | while %q { if $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) isreg $1 { mode $1 +b $+($read(badnick.txt,%d),!*@*) | kick $1 $line($1,$fline($1,$read(badnick.txt,%d),%q,1),1) Bad Nick! } | dec %q } } 
dec %d  
}  
} 
}

Remotenize ekleyin. Asagıdaki nickleri ise bir badnick.txt dosyası adı altında mIRC ana klasorune ekleyin ve keyfinize bakın.

PHP:
*aktif*
*pasif*
*******
*********
*sikelim*
*vurucu*
*kilot*
*sütyen*
*tangan*
*amını*
*******
*yaraq*
*yarrk*
*yrrak*
*dimdik*
*azgın*
*azgn*
*azgin*
*abaza*
Yara_kistan
*sokucu*
*sokarım*
*pezevenk*
*saksafon*
*erotik*
*cinsel*
*yatakta*
*fantazi*
*******
*sikm*
*skmi*
*fantezi*
*jigolo*
*jigola*
*playboy*
*sikci*
*CIPLAK*
azg
*travesti*
*porno*
*seks*
******
fayise
*sex*
*camda31*
*skci*
*s2i*
*kontor*
*kontur*
*delici*
*atesli*
*vajina*
*yalar*
*soyun*
*santim*
*kocangittimi*
*gotunu*
*fuck*
*skerim*
*aletimi*
fenasi_kerim
popo
*sperm*
*oral*
*sx*
*domal*
delerim
******i*
*muzumu*
*sokayım*
*sokarim*
*siker*
dikici
*********
beceren
*******
*bakire*
pipi
*yrk*
si_kici
s-i-k-i-ci
s-i-k-i-c-i
*skeyim*
*sikiyorum*
^^s_i_k_i_c_i^^
s_i_k_i_c_i
*s_i_k_i_c_i*
*sikin*
*tecavuz*
si-kerim
*si_kerim*
amdoktoru
*amdoktoru*
*sigici*
*amyer*
*siken*
*s2ci*
*sikilmek*
skrm
camda_31
*camda_31*
*doyumsuz*
*arzulu*
anal
*a_m_hastasi*
***_hastasi*
*YATIRIRIM*
*yalayan*
*aletimcamda*
*aletim_camda*
*sapina_kadar*
******LAR*
alet25
alet18
alet16
alet20
alet19
***
**
skeyiimmiii
*skeyiimmiii*
dul
*karini_anlat*
iri
SEVISKEN
analcı
*muzcu*
*yark*
*amyokmu*
***_yokmu*
*sikecem*
*yarag*
*yalatan*
*sikiyci*
*aletcamda*
*dikerim*
*kocan_yoksa*
*kocanyoksa*
*amkolik*
*ambiti*
*popocu*
_y_a_r_a_k
y_a_r_a_k
*y_a_r_a_k*
*skimi*
*penis*
*j-i-g-o-l-o_*
*j-i-g-o-l-o*
ANALCI
*sikilir*
*camdaalet*
*camda_alet*
*seviselim*
*kahpe*
*SEVISKEN*
camdasik
sikik
*camda*
*emerim*
*cigolo*
*irialet*
*sokim*
********
amcuk
***_doktoru*
*amm_doktoru*
*aminiyiyim*
*siki_uzun*
*orkidistermisin*
*orkid_istermisin*
*ayakseven*
*AMINKILLIMI*
*amsever*
alet21
koyar
*amınkıllımı*
***_delisi*
AMIN_NASIL
*AMIN_NASIL*
*amkarincasi*
sksi
*azdım*
*azdim*
*amylar*
*Yar_ak*
*gotcu*
*si_ki_ci*
*aletdik*
*aletuz*
*tan_gali*
*arkadan*
*si2me*
*s_ikilir*
*s_iken*
*sokabilir*
*amseven*
*iri_****
*AMHASTASI*
*matkap*
*yar_rak*
*matkab*
KALIN
*amdelisi*
******e*
*amdilcisi*
*kocan*
*ya_rak*
*otuzbir*
*MEMEISTER*
*beceririm*
*s-i-k-c-i*
*s-i-k-i-c-i*
*sokayim*
*s_ikerim*
*jugolo*
*bayana*
*masor*
*jugola*
*irimuz*
*yatagim*
*banyoda*
*gotdelisi*
ipne
*alabilirmisin*
*amdelen*
*kntr*
*alet
*turkcel*
*telsim*
alet*
*Sikici*
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on**:snotice:*Forbidding*Q-lined*nick*:{* 
**window**@yasaklı*250*150*300*180*comic*sans*ms*12 
**.echo*@yasaklı*$+(*@,$remove($6,[,].))*ipsi*sunucuya*yasaklı*bir*şekilde*bağlanmaya*çalışıyor 
  .gzline*$+(*@,$remove($6,[,].)) Sqline Nickleri Kullanmak Yasaktır. 
}*

Sqline listesindeki nickler sunucuya girmeye calıstıgında sunucudan atacaktır. Remotenize eklemeniz yeterlidir.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on *:text:$(* $+ $me $+ *):*:notice $nick 12 $read(sozler.txt)


Remotenize ekleyin. Aşağıdaki yazıları da ayrı bir txt olusturun adı sozler olması gerekmektedir.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
menu query { 
  Resim ekle 
  .oratala :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,3 | closemsg $1 | query $1  
  .döşe :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,4 | closemsg $1 | query $1  
  .doldur :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,1 | closemsg $1 | query $1  

}

mIRC ana klasörüne txt dosyası olusturup ekleyin ve okutun. Sonuç : İstediğiniz resim nickin arka planında yer alsın.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on *:connect:set %serverprox $server | window -c [USER=15542]Proxy[/USER] | .Remove Proxymt.txt | .window -l [USER=15542]Proxy[/USER] | .titlebar [USER=15542]Proxy[/USER] List | sockopen Firefox [url]www.proxylists.net[/url] 80 
alias proxyler set %serverprox $server | window -c [USER=15542]Proxy[/USER] | .Remove Proxymt.txt | .window -l [USER=15542]Proxy[/USER] | .titlebar [USER=15542]Proxy[/USER] List | sockopen Firefox [url]www.proxylists.net[/url] 80 
  
on *:sockopen:Firefox:{  
sockwrite -n $sockname GET [url]http://proxylists.net/socks4.txt[/url] HTTP/1.1 
sockwrite -n $sockname Host: localhost 
sockwrite -n $sockname $crlf 
timerprint 1 3 proxy_yaz 
set %updated.proxy $date 
} 
  
on *:sockread:Firefox: sockread -f %Firefox | write_Proxymt.txt %Firefox  
alias write_Proxy.txt { 
if $1 == HTTP/1.1 goto end 
if $1 == Date: goto end 
if $1 == Server: goto end 
if $1 == Last-Modified: goto end 
if $1 == ETag: goto end 
if $1 == Accept-Ranges: goto end 
if $1 == Content-Length: goto end 
if $1 == Content-Type: goto end 
write Proxy.txt $1- 
:end 
} 
alias proxy_yaz { 
window -l [USER=15542]Proxy[/USER] | titlebar [USER=15542]Proxy[/USER] List | set %print.out $lines(proxymt.txt) | set %printing 1 
:print 
if (%print.out == %printing) { goto end }  
aline [USER=15542]Proxy[/USER] $read(proxymt.txt , %printing) | inc %printing | goto print  
:end 
} 
menu [USER=15542]Proxy[/USER] { 
dclick: Set %proxy.click $read(proxymt.txt, $1) | Proxy.con $?*!="Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxymt.txt, $1) " 
Yenile:proxyler 
} 
  
alias Proxy.con { 
if ($1 == $false) { echo -s Bağlantı iptal edildi.. | goto end } 
echo 2 -s %serverprox 'a Bağlanmak İçin Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s $server Serverine Bağlanırken Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | server %serverprox 
:end 
} 
alias Proxywin { 
if $1 == $null proxy_yaz 
if $1 == minimized Window -c [USER=15542]Proxy[/USER] | proxy_yaz 
}

Remoteye ekleyerek calıstırabileceginiz bir kod. Kolayca proxy kullanabilirsiniz.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
alias cspanel { dialog -m cspanel cspanel } 
dialog cspanel { 
title " ChanServ Paneli" 
size -1 -1 279 202 
option dbu 
box "Ana İşlemler", 1, 2 1 196 24 
button "Kanal Kaydet", 2, 6 9 43 12 
button "Kanalı Tanıt", 3, 52 9 42 12 
button "Kaydını Düşür", 4, 97 9 46 12 
combo 5, 206 9 60 100, size drop 
box "İşlem Yapılacak Kanal", 6, 202 1 70 24 
button "Kanal İnfo", 7, 149 9 43 12 
box "Access İşlemleri", 8, 2 27 195 26 
button "Access Ekle", 9, 6 36 42 12 
button "Access Sil", 10, 52 36 42 12 
button "Access Listele", 11, 97 36 47 12 
button "Access Count", 12, 150 36 43 12 
box "Akick İşlemleri", 13, 2 54 195 26 
button "Akick Ekle", 14, 6 63 42 12 
button "Akick Sil", 15, 52 63 42 12 
button "Akick Listele", 16, 97 63 47 12 
button "Akick View", 17, 149 63 43 12 
box "Kanal İşlemleri", 18, 2 81 147 39 
button "Founder Değiştir", 19, 6 90 47 12 
button "Açıklama Değiştir", 20, 6 104 47 12 
button "Şifre Değiştir", 22, 56 90 39 12 
button "URL Değiştir", 23, 56 104 39 12 
button "EMAIL Değiştir", 25, 101 90 43 12 
button "Giriş Mesajı", 26, 101 104 43 12 
box "Topic Lock", 21, 199 27 74 26 
button "Aç", 24, 202 35 28 12 
button "Kapa", 27, 238 35 28 12 
box "Keep Topic", 28, 200 54 74 26 
button "Aç", 29, 202 63 28 12 
button "Kapa", 30, 238 63 28 12 
box "Private", 31, 151 81 46 39 
button "Aç", 32, 155 90 37 12 
button "Kapa", 33, 155 104 37 12 
box "Restricted", 34, 200 81 35 39 
button "Aç", 35, 202 90 28 12 
button "Kapa", 36, 202 104 28 12 
box "SecureOps", 37, 238 81 36 39 
button "Aç", 38, 242 90 28 12 
button "Kapa", 39, 242 105 28 12 
box "Levels İşlemleri", 40, 2 120 275 58 
box "AutoProtect", 41, 4 126 70 24 
button "Seviye", 42, 7 134 29 12 
button "İptal Et", 43, 39 134 29 12 
box "AutoOp", 44, 4 150 70 25 
button "Seviye", 45, 7 157 30 12 
button "İptal Et", 46, 40 157 29 12 
box "AutoHalfop", 47, 77 126 69 24 
button "Seviye", 48, 80 134 29 12 
button "İptal Et", 49, 112 134 29 12 
box "AutoVoice", 50, 77 150 69 25 
button "Seviye", 51, 80 157 30 12 
button "İptal Et", 52, 112 157 29 12 
box "Acc-Change", 53, 149 126 69 24 
box "Acc-List", 54, 149 150 69 25 
button "Seviye", 55, 153 134 29 12 
button "İptal Et", 56, 185 134 29 12 
button "Seviye", 57, 153 157 30 12 
button "İptal Et", 58, 186 157 29 12 
box "Akick", 59, 219 126 55 24 
button "Seviye", 60, 222 134 23 12 
button "İptal Et", 61, 248 134 23 12 
box "Set", 62, 219 150 55 24 
button "Seviye", 63, 222 157 23 12 
button "İptal Et", 64, 248 157 23 12 
button "TAMAM/KAPAT", 65, 222 180 55 20, ok 
} 
on *:dialog:cspanel:*:*: { 
if ($devent == init) { 
did -a $dname 5 $chan 
var %q 1 
var %p $chan(0) 
while (%q <= %p) { 
did -a cspanel 5 $chan(%q) 
inc %q 
} 
} 
if ($devent == sclick) { 
if ($did == 2) { 
cs register $did(5) $?="Kanal İçin Şifre Giriniz" $?="Kanal İçin Açıklama Giriniz" 
} 
if ($did == 3) { 
cs identify $did(5) $?="Kanal Şifresini Girin" 
} 
if ($did == 4) { 
cs drop $did(5) 
} 
if ($did == 7) { 
cs info $did(5) 
} 
if ($did == 9) { 
cs access $did(5) add $?="Access Eklenecek Nicki Yazın" $?="Access Seviyesini Yazın" 
} 
if ($did == 10) { 
cs access $did(5) del $?="Access Silinecek Nicki Yazın" 
} 
if ($did == 11) { 
cs access $did(5) list 
} 
if ($did == 12) { 
cs access $did(5) count 
} 
if ($did == 14) { 
cs akick $did(5) add $?="Akicke Alınacak Nicki Yazın" $+ !*@* $?="Akick Sebebi" 
} 
if ($did == 15) { 
cs akick $did(5) del $?="Akick Silinecek Nicki Yazın" $+ !*@* 
} 
if ($did == 16) { 
cs akick $did(5) list 
} 
if ($did == 17) { 
cs akick $did(5) view 
} 
if ($did == 19) { 
cs set $did(5) founder $?="Yeni Founder Nickini Yazın" 
} 
if ($did == 20) { 
cs set $did(5) desc $?="Yeni Açıklama Girin" 
} 
if ($did == 22) { 
cs set $did(5) password $?="Yeni Şifreyi Girin" 
} 
if ($did == 23) { 
cs set $did(5) url http:// $+ $?="Yeni URL Adresi Girin" 
} 
if ($did == 24) { 
cs set $did(5) topiclock on 
} 
if ($did == 25) { 
cs set $did(5) email $?="Yeni EMAIL Adresi Girin" 
} 
if ($did == 26) { 
cs set $did(5) entrymsg $?="Yeni Giriş Mesajını Yazın" 
} 
if ($did == 27) { 
cs set $did(5) topiclock off 
} 
if ($did == 29) { 
cs set $did(5) keeptopic on 
} 
if ($did == 30) { 
cs set $did(5) keeptopic off 
} 
if ($did == 32) { 
cs set $did(5) private on 
} 
if ($did == 33) { 
cs set $did(5) private off 
} 
if ($did == 35) { 
cs set $did(5) restricted on 
} 
if ($did == 36) { 
cs set $did(5) restricted off 
} 
if ($did == 38) { 
cs set $did(5) secureops on 
} 
if ($did == 39) { 
cs set $did(5) secureops off 
} 
if ($did == 42) { 
cs levels $did(5) set autoprotect $?="Seviye Girin" 
} 
if ($did == 43) { 
cs levels $did(5) dis autoprotect 
} 
if ($did == 45) { 
cs levels $did(5) set autoop $?="Seviye Girin" 
} 
if ($did == 46) { 
cs levels $did(5) dis autoop 
} 
if ($did == 48) { 
cs levels $did(5) set autohalfop $?="Seviye Girin" 
} 
if ($did == 49) { 
cs levels $did(5) dis autohalfop 
} 
if ($did == 51) { 
cs levels $did(5) set autovoice $?="Seviye Girin" 
} 
if ($did == 52) { 
cs levels $did(5) dis autovoice 
} 
if ($did == 55) { 
cs levels $did(5) set acc-change $?="Seviye Girin" 
} 
if ($did == 56) { 
cs levels $did(5) dis acc-change 
} 
if ($did == 57) { 
cs levels $did(5) set acc-list $?="Seviye Girin" 
} 
if ($did == 58) { 
cs levels $did(5) dis acc-list 
} 
if ($did == 60) { 
cs levels $did(5) set akick $?="Seviye Girin" 
} 
if ($did == 61) { 
cs levels $did(5) dis akick 
} 
if ($did == 63) { 
cs levels $did(5) set set $?="Seviye Girin" 
} 
if ($did == 64) { 
cs levels $did(5) dis set 
} 
} 
} 
menu * { 
.cspanel:/cspanel 
}

Bu panel ile işlemlerinizi daha hızlı ve kolay yapabilirsiniz. Ayrı bir txt dosyası hazırlayıp mIRC ana klasorune atarak okutmanı yeterlidir.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on 1:start: { .hmake nicksch 100 } 
on 1:part:#: { if ( $comchan($nick,0) < 2 ) { nicksgrab $nick $site } } 
on 1:quit: { nicksgrab $nick $site } 
on 1:kick:#: { 
if ( $comchan($knick,0) < 2 ) { 
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch } 
} 
} 
alias nicksgrab { 
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1 
} 
alias NicksTrouve { 
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) 
return $iif($hget(nicksch,%a) != $1,$ifmatch) 
} 
on 1:JOIN:#: { 
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 7 [Onceki Nicki] $ifmatch ) 
if ( %NickPrecedent ) { echo -tm $chan $ifmatch } 
}

Remoteye eklemelidir, sunucuya giren nickin daha önce kullandıgı nicki bildirir.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
#göster on 
on ^*:hotlink:*Uyarı*:#:return 
on ^*:hotlink:*Kick*:#:return 
on ^*:hotlink:*Kick+ban*:#:return 
on ^*:hotlink:*Badnick-Ekle*:#:return 
on *:hotlink:*:#:{ 
  if $remove($1,$chr(40),$chr(41)) == Uyarı { 
    var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93) 
    set %lastnick $strip(%line) 
    notice %line %line kullanmış olduğunuz nick yasaklanmıştır. Eğer 60 saniye içinde nickinizi değiştirmezseniz kanaldan uzaklaştırılıcaksınız! 
    $+(timer,$strip(%line)) 1 60 uzaklastir $chan %line Badnick yasaktır. Nickinizi değiştiriniz. 
  } 
  elseif $remove($1,$chr(40),$chr(41)) == Kick { 
    var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93) 
    kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz. 
  } 
  elseif $remove($1,$chr(40),$chr(41)) == Kick+ban { 
    var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93) 
    mode $chan +b %line | kick $chan %line Badnick yasaktır. Nickinizi değiştiriniz. 
  } 
  elseif $remove($1,$chr(40),$chr(41)) == Badnick-Ekle { 
    var %line $gettok($strip($remove($gettok($strip($hotline),1,40),Giriş:)),2,93) 
    badnick ekle %line 
    kick $chan %line 3 $chan 1 ~ Banned ~   6~  
  } 
} 
on *:part:#:{ 
  if $timer($nick) { 
    timer $+ $nick off 
  } 
} 
on *:quit:{ 
  if $timer($nick) { 
    timer $+ $nick off 
  } 
} 
on ^*:join:#:{  
  .haltdef 
  if $hfind(badnick,$nick,1,W).data { 
    echo $chan $+(10[,$time,]) Giriş: 4 $+ $nick $+ 2 $remove($+($chr(40),$address($nick,1),$chr(41)),*,!) 5Badnick! 4(1Uyarı4) 10 4(1Kick4) 10 4(1Kick+ban4)  
  } 
  else { 
    echo $chan $+(10[,$time,]) Giriş: $nick $remove($+($chr(40),$address($nick,1),$chr(41)),*,!) 4(1Badnick-Ekle4) 
  } 
} 
#göster end 
#kickle off 
on *:join:#:{ 
  if $hfind(badnick,$nick,1,W).data { 
    uzaklastir $chan $nick 3 $chan 1 ~ Banned ~   6~  
    uzaklastir $chan +b $nick   
  } 
} 
#kickle end 

alias badnick { 
  if $1 == ekle { 
    if !$hfind(badnick,$2,1,W).data { 
      hadd -m badnick $r(1000,999999) $2 
      hsave badnick badnick.mudin 
      hload badnick badnick.mudin 
      echo -a 10Badnick listesine $+(2,,$2,10) eklendi.  
    } 
    else { 
      echo -a 10 $+(2,,$2,10) zaten badnick listesinde mevcut. 
    } 
  } 
  elseif $1 == sil { 
    if $hfind(badnick,$2,1,W).data { 
      hdel badnick $ifmatch 
      hsave badnick badnick.mudin 
      hload badnick badnick.mudin 
      echo -a 10 $+(2,,$2,10) badnick listemden silindi. 
    } 
    else { 
      echo -a 10 $+(2,,$2,10) zaten badnick listemde yok. 
    } 
  } 
  else { 
    echo -a 10 Komutu yalnış kullandınız. 
    echo -a 10 Örnek: 2 /badnick ekle nick* 10 gibi eklemelerinizde wildcard geçerlidir. 
  } 
} 
on *:nick:{ 
  if $nick == %lastnick { 
    $+(.timer,%lastnick) off 
  } 
  if $hfind(badnick,$newnick,1,W).data { 
    var %a = 1, %b = $comchan($newnick,0)  
    while %a <= %b { 
      if $me isop $comchan($newnick,%a) {  
        mode $v2 +b $newnick 
        kick $v2 $newnick 3 $chan 1 ~ Banned ~   6~  
      } 
      inc %a  
    }  
  } 
} 

alias uzaklastir { 
  mode $1 +b $2 
  kick $1 $2 $3- 
} 
alias yordam { 
  if $1 == göster { 
    echo -a Artık badnickler kanalınıza girdiğinde fare ile manuel işlem yapabiliceksiniz. 
    enable #göster 
    hload badnick badnick.mudin 
  } 
  elseif $1 == kickle { 
    if $2 == on { 
      echo -a Artık badnickler otomatik olarak atılıcaktır. 
      enable #kickle 
      hload badnick badnick.mudin 
    } 
    elseif $2 == off { 
      echo -a Kickleme durumu kapatıldı.  
      disable #kickle 
    } 
  } 
  elseif  $1 == durum { 
    if !%ilkcalisma { 
      hmake badnick 
      set %ilkcalisma 1 
      echo -a Addon ilk defa çalıştırıldığı için herhangi bir yordam açık değil. 
      echo -a Lütfen /yordam durum komutunu tekrar deneyin. 
    } 
    else { 
      echo -a Sistemdeki yordamların durumu: 
      echo -a Manuel Kontrol: $iif($group(#göster).status == on,Aktif,Çalışmıyor) 
      echo -a Otomatik Kontrol: $iif($group(#kickle).status == on,Aktif,Çalışmıyor) 
      echo -a Zamanlı listeleme: $iif(%listeleme,Aktif,Çalışmıyor) 
      if $group(#kickle).status == off && $group(#göster).status == off { 
        echo -a  Şuanda kanalınız korunaksız. 
        echo -a Herhangi birini açmak için: /yordam göster|kickle kullanabilirsiniz.  
        echo -a Otomatik olarak badnick listelemek için: /yordam listele saniye #kanal kapatmak için /yordam listeleme #kanaladı şeklinde yapabilirsiniz. 
      } 
    } 
  } 
  elseif $1 == listele { 
    if $2 && $3 { 
      set %listeleme $addtok(%listeleme,$3,32) 
      $+(.timer,$3)  0  $2  badtara $3 
      echo -a Sistem artık $2 saniyede bir $3 kanalını badnick süzgecinden geçiricek. 
    } 
  } 
  elseif $1 == listeleme { 
    if $2 { 
      set %listeleme $remtok(%listeleme,$2,32) 
      $+(.timer,$2) off 
      echo -a $2 kanalı için badnick kontrolü durduruldu. 
    } 
  } 
  elseif $1 == off { 
    disable #kickle 
    disable #göster 
    echo -a Tüm yordamlar kapandı. Kanalınız korumasız durumda! 
  } 
  else { 
    echo -a Yalnış komut kullanımı. 
    echo -a Lütfen /yordam durum komutunu kullanın.  
  } 
} 


alias badtara { 
  if $1 { 
    var %/ 1 
    while %/ <= $hget(badnick,*).item { 
      if $hfind(badnick,$nick($1,%/),1,W).data { 
        mode $chan +b $nick($1,%/) | kick $chan $nick($1,%/) 3 $chan 1 ~ Banned ~   6~  
      } 
      inc %/ 
    } 
  } 
} 
on *:op:#:$iif($opnick == $me,badtara $chan,return)

Yukarıda verilen kod alıntıdır, nick girişlerinde kolayca bad eklemesi yapabileceğiniz bir kod.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
menu menubar,status,channel { 
  . MTR $chr(11) Proxy Koruması 
  ..Açık:.enable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devrede..  
  ..Kapalı:.disable #MKSProxy | echo -a %mksLogo 11,2 Proxy Koruması Devredışı..  
} 
#MKSProxy off 

on ^*:snotice:*: { 
  if client connecting* iswm $4- { 
    var %:ip $remove($gettok($10,2,64),$chr(41)) 
    kontrol %:ip 
    hadd -m ckontrol %:ip $9 
    halt 
  } 
} 
alias kontrol { 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1046 
  sockopen $+(kontrol,$r(1,999999999)) $1- 1080 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3128 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3307 
  sockopen $+(kontrol,$r(1,999999999)) $1- 9050 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8000 
  sockopen $+(kontrol,$r(1,999999999)) $1- 6588 
  sockopen $+(kontrol,$r(1,999999999)) $1- 3124 
  sockopen $+(kontrol,$r(1,999999999)) $1- 50050 
  sockopen $+(kontrol,$r(1,999999999)) $1- 8008 
  sockopen $+(kontrol,$r(1,999999999)) $1- 31641 
  sockopen $+(kontrol,$r(1,999999999)) $1- 443 
} 
on *:sockopen:kontrol*: { 
  if !$sockerr { 
    .raw gzline *@ $+ $sock($sockname).ip +0 14Proxy Creator. 12A-killed!  
    echo -a 2Proxy girişvar : $+(,$sock($sockname).ip,3:,$sock($sockname).port,) - Nicki bu:4 $ip2nick($sock($sockname).ip) 
    hdel ckontrol $sock($sockname).ip 
    sockclose $sockname 
  } 
} 
on *:sockclose:kontrol*: { 
  hdel ckontrol $sock($sockname).ip 
} 
alias ip2nick { 
  var %i 1 
  while %i <= $hget(ckontrol,0).item { 
    if $hget(ckontrol,%i).item == $1 { return $hget(ckontrol,%i).data | halt } 
    inc %i 
  } 
} 

#MKSProxy end


Proxy korumasıdır, port taraması ile çalışır. Yeni bir mIRC txt dosyası açın mIRC ana klasörüne ekleyin ve kullanmaya baslayın.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
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  
}


Mass komutlarını kullanmak eglencelidir. Remoteye ekleyin.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
alias logs { 
  window -aekl21S @Log Verdana 12 
  .titlebar @Log Dosyaları ... 
  editbox @Log Ekranda arama yapacağınız kelimeyi buraya girin... 
  echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut 
  echo 12 @Log Görüntülemek istediğiniz dosyayı seçin. 
} 
menu @Log { 
  lbclick:{ 
    clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1)) 
    window -b @Log 
  } 
  $iif(!$sline(@Log,0),$style(2)) İşlem 
  .Bilgi: {  
    aline @Log $str(-,5) 
    aline @Log 4Dosya bilgileri... 
    aline @Log 2Boyutu     :7 $bytes($file($+($logdir,$$1)).size).suf 
    aline @Log 2Dosya Adı  :7 $$1 
    aline @Log 2Dosya Yolu :7 $logdir $+ $$1 
    aline @Log 2İlk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık) 
    aline @Log 2Son kapanış:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Salı,wed,Çarşamba,thu,Perşembe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,Şubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,Mayıs,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct,Ekim,Nov,Kasım,Dec,Aralık) 
    aline @Log $str(-,5) 
  } 
  .Listeden Çıkar:dline -l @Log $sline(@Log,1).ln  
  .Tamamen Sil:{ 
    clear @Log   
    .remove $+($shortfn($logdir),$$1) 
    echo 4 @Log $$1 dosyası silindi. 
    dline -l @Log $sline(@Log,1).ln 
  } 
  .Dosya Arama: { 
    var %t = $$?="Aranacak kelimeyi girin" 
    if $findfile($logdir,$+(*,%t,*).log,0) { 
      clear @Log 
      clear -l @Log 
      echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut 
    } 
    else { clear @Log | echo 4 @Log Arama kayıtlarında $qt(%t) bulunamadı... } 
  } 
  .Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut 
} 
on *:input:@Log:{ 
  if $left($1,1) == / { return } 
  if $fline(@Log,$+(*,$1-,*),0) { 
    aline 3 @Log || Arama yapılıyor || 
    var %Jenk = 1, %' = || 
    while %Jenk <= $fline(@Log,$+(*,$1-,*),0) { 
      if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %') {  
        aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text 
      } 
      inc %Jenk 
    } 
    aline 5 @log || Arama sona erdi || 
  } 
  else { aline 4 @Log || Arama kaydı bulunamadı || } 
}

Remoteye ekleyin ve kullanın.

Komutu : /logs
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
menu menubar,channel { 
Left ALL Korumasi 
.AÇ:.enable #leftall | echo -a 7Tamam açtim. 
.Kapat:.disable #leftall | echo -a 12Tamam kapadim. 
} 
#leftall off 
on !*:PART:#:if (*Left all channels* iswm $1-) { gzline $nick -leftall-  } 
#leftall end

Yeni bir txt dosyası açarak kullanabilirsiniz.

Kod:
Örnek ; leftall.txt

Dosyayı mIRC klasorüne atın ve mIRC'inize okutmak için :
Kod:
/load -rs leftall.txt

komutunu uygulayın.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on @*:text:*:#: {  
  if $nick isreg $chan { 
    if $regex($1-,(?<=^|\s)(pic|kasar|******|ÔROSPU|******|salak|lan.|aptal|budala|kaŞar|kasar|kaşar|orosbu|siktir|kerane|avradını|bacını|bacına|ananı|anana|sokarım|*******|skerim|daşşak|pezo|lan|ğÖtüne|kahpe|******|faişe|amk|aq|a.q|lan|mal|salak|ibine|sikicem|*******|sıçarım|pezevenk|**|***|pic|anana|ananı|annen|anneni|sikiş|sikik|amcuk|yavşak|fak you|sktr|)(\s|$)) {  
      .ban # $nick 2   
      .kick # $nick 2Küfürsüz bir IRC için... 
    }  
  } 
}

Remote eklemelidir, küfürlere eklemelerde bulunabilirsiniz.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on *:input:#diShy: { if $1 == !auth { ns getauth $2 } } 
on *:notice:*:?: { if $nick == nickserv && *nicki icin* iswm $1- { msg #diShy $2 nick'inin tanıtım kodu: $8 } }

remoteye eklediğinizde çalışacaktır. Işlev komutu ; !auth nick şeklindedir. Kanalı kendinize göre ayarlayabilirsiniz.
 

diShy

~ یơυℓℓεss ..
Onursal Üye
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,120
  • MFC Puanı
    79
PHP:
on *:snotice:*client connecting*:{  
  if $regex($token($gettok($10,1,64),1,40),ident1|ident2|ident3) { 
    sajoin $9 #1,00  
    sajoin $9 #Lezbiyen,#sex,#gay,#cinselsohbet,#erotik 
    msg $9  Merhaba $9 : Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp sunucu yöneticisinin belirlediği kanala alınmış bulunmaktasınız.  
    msg $9  Bilginize sunar, teşekkür ederiz. 
  } 
}

Belirlediğiniz identleri cinsel kanallara çekebilirsiniz.
 
Üst Alt