mIRC Hazır Kodları
23 Sayfa: « İlk Sayfa ... « 12 13 14 [15] 16 17 18 » ... Son Sayfa »Yazı Biçimleri Addonu
Cumartesi, Şubat 9th, 2008Kodu mIRC’ınızın remote bölümüne ekledikten sonra çalıştırmak için /yazim yazmanız yeterlidir.
#yaziturkce off
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %turkce
set %turkce $1-
if ( […]
Server Yasaklama
Cumartesi, Şubat 9th, 2008mIRC’ınızı kullanan kullanıcıların hangi sunucu adresini yazarlarsa yazsınlar
sizin belirlediğiniz adrese giriş yapmasını sağlayan bir kod.
aşağıdaki kodda irc.sunucuadresiniz.com kısmını kendi istediğiniz sunucu olacak
şekilde düzenleyip mIRC’ınıza kaydedin.
alias server server $iif($left($1,1) == -,$1) irc.sunucuadresiniz.com $iif($left($1,1) == -,$3-,$2-) | halt
Log Görüntüleyici
Cumartesi, Şubat 9th, 2008mIRC‘ınızda tutmakta olduğunuz logları kolayca görüntülemenizi sağlar.
Alias Logvw {
IF $Window(@Logvw) == $null { Window -aemk0l12Sz @Logvw }
RafraichirLogs
If (%Log.AfficheInfoRepLog == $true) { InfoRepertoireLog }
}
Alias RafraichirLogs {
Clear -l @Logvw
Titlebar @Logvw - $logdir - ( $findfile($shortfn($logdir), *.log, 0, .aline -l @Logvw $nopath($1)) logs )
NickListColorLog
}
menu @Logvw {
dclick: {
If ($mouse.lb == $true) && ($sline(@Logvw,1) != $null) { $AfficheLog($sline(@Logvw,1)) }
Else { LogvwCfg }
}
$iif($sline(@Logvw,1) != $null,Afficher le contenu […]
Nick Değişim Saldırı Koruması
Pazartesi, Ocak 28th, 2008Çok sayıda nick değişimi yaparak kanal düzenini bozmak isteyenlere karşı yazılmış bir kod.
Nick değiştirildiğinde
on *:NICK:{
;%’ local değişkenine %nf.*!*@ip şeklinde değer yükleniyor
var %’ = $+(%,nf.,$wildsite)
;%nf.*!*@ip değişkeni 1 arttırılıyor
inc $(%’,1)
;eğer daha önceden ayarlanmadıysa 15 saniye içinde bu değer silinmektedir.
if (!$timer($gettok(%’,1,37))) { $+(.timer,$gettok(%’,1,37)) 1 5 unset $(%’,1) }
;eğer değer 3 yada daha büyükse zline atılıyor.
if $(%’,2) >= […]
Regex ile Büyük Harf Koruması
Pazartesi, Ocak 28th, 2008on ^*:text:*:#: {
if ($len($1-) >= $capsconf(musadelimit)) {
if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= $capsconf(limit) ) {
ban $+(-ku,$calc($capsconf(sure)*60)) $chan $nick $capsconf(kicksebebi)
}
}
}
alias capsconf {
goto $1
:limit {
;bir cümlenin % kacı büyükse atsın return densonra yazınız..
[…]
