alias spamekle {
spamfilter add cpNna gzline – 2Â7n2t7î2c7ode4 $yildiztemizle($1-)
}

alias spamsil {
spamfilter del cpNna gzline – 2Â7n2t7î2c7ode4 $yildiztemizle($1-)
}

alias yildiztemizle {
var %y $+(.,?) , %yi
if $numtok($1-,32) == 1 {
var %1kelime 1
}
%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)
if %1kelime {
%yi = $+(^,%yi,$chr(36))
}
return $iif($len($remove(%yi,.,*)) > 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}

/spamekle Kelime. /Spamsil Kelime. AraLikLi Spam ekLemenin En ßaSit Yolu ;x

Kod,

menu menubar,channel,query {
$iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
$iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
}
}
#DuaL_CoLoR.Text on

on *:input:*:{
if ($left($1-,1) != /) {
if ($left($1-,1) != $chr(33)) {
set %len $len($1-) }
if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) – 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10× | goto End | :end | halt }
else {
msg $active 10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) – 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) – 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0 | haltdef 11,11,110}
}
}
}

Kod;

* Do?um: metin :*:?: (
. Inc-U10 $+(%, sel, $ nick)
$ Nick |% nick set | 2 $($+(%, sel, $ nick)) == 4 (userip $ nick e?er. Üstünde% sel ayarlamak için:)
2 $($+(%, sel, $ nick))> = 6 (zline $ nick Özel Flood zline e?er! | Unset $+(%, sel, $ nick))
)

Ham 340: *: (
(% Sel == üzerinde) (if
/ # Operler msg? LEM:% Nick,? P: $ gettok ($ 2,2,64), IP Adresi? Lenen: Özel Flood zline!
. Timer 1 2 / unset% nick
. Timer 1 3 / set% sel off
)

Kod;

1: start: (. Hmake nicksch 100)
1art Do?um: #: (($ comchan ($ nick, 0) <2) (nick $ site)) $ nicksgrab e?er
1: ç?k?n: (nick $ site) $ nicksgrab
1: kick: #: (
($ Comchan ($ önemsiz, e?er 0) <2) (
?v?r $ ifmatch) $ nicksgrab ($ ial ($ ?v?r birlikte). host! = $ null) (
)
)
alias (nicksgrab
. $ Nicksch hadd IIf (($ gettok ($ 2, -1,46) == virtuel) & & ($ numtok (2,46 $)> 3 ),$+($ gettok ($ 2,1-2, 46). virtuel), $ 2) $ 1
)
NicksTrouve (alias
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)
)
1: JOIN: #: (
var% NickPrecedent = $ IIf ($ NicksTrouve ($ nick, $ site),? 4 [? 2Onceki Nicki? 4]? 12 $ ifmatch?)
(% NickPrecedent) (echo-tm $ chan $ ifmatch) e?er
)

Kod;

alias alist (
var% i 1
var% toplam $ hatlar? ($ mircdirchannel.txt)
(% I <= toplam%) (süre
($) Mircdirchannel.txt, n,% i okumak ($ e?er! = $ Null) (/ cs $ v1 bilgisi)
inc% i 1
)
)

-Titreşim almak isteyip istemediğinizi ayarlayabilirsiniz.

-Titreşim aldığınızda çalmasını istediğiniz bir ses dosyası seçebilirsiniz.

-Bir önceki versionda, titreşim alınan pencere ilk posizyon değerlerine

dönmüyordu.Titreşim alındıktan sonra tam ekran durumuna geçiyordu.

Bu versionda bu sorun kısmen çözüldü.(Yakında bu sorunda çözülecek.)

dialog gıprasım {
title “mIRC Titreşim Ayarları”
size -1 -1 118 72
option dbu
icon $shortfn($mircexe), 0
box “AYARLAR”, 1, 2 1 114 57
text “Bir dosya seçin(Uzantısı wav olmalıdır)”, 2, 5 11 90 8
edit “”, 3, 4 19 80 10, read autohs
button “Seç”, 4, 85 19 14 10
button “Çal”, 5, 100 19 14 10, disable
check “Titreşim alındığında ses dosyasını çal”, 6, 5 31 97 10
check “Titreşim almak istemiyorum”, 7, 5 44 74 10
button “Uygula”, 8, 2 59 52 12
button “Kapat”, 9, 59 59 56 12, cancel
}
alias gıprasım { if (!$dialog(gıprasım)) dialog -m gıprasım gıprasım }
on *:dialog:gıprasım:init:*: {
if (%soundf != $null) {
did -a $dname 3 %soundf
did -e $dname 5
if (!%soundc) set %soundc kapali
if (!%qıprasım) set %qıprasım kapali
if (%soundc == acik) did -c $dname 6
if (%qıprasım == acik) did -c $dname 7
}
}
on *:dialog:gıprasım:sclick:*: {
if ($did == 4) {
var %file = $sfile($mircdir,Dosya Seç)
if ((%file != $null) && ($gettok(%file,-1,46) == wav)) { set %soundf %file | did -e $dname 5 | did -ra $dname 3 %file }
}
if ($did == 5) splay $shortfn(%soundf)
if ($did == {
if ($did(6).state == 0) set %soundc kapali
else set %soundc acik
if ($did(7).state == 0) set %qıprasım kapali
else set %qıprasım acik
}
}
alias -l titret {
if (!$window(%wtwin) == $null) {
%x = $calc(%x – 10) | %y = $calc(%y +
if (%x == $calc(%x2 – 10)) {
set %x $calc($window(%wtwin ).x + 10) | set %y $calc($window(%wtwin ).y –
window %wtwin %x %y | %i = $calc(%i + 1)
if (%i == 14) {
.timertitret off | dll $shortfn($scriptdirdesk.dll) cikar $window(%wtwin).hWnd > %x2 > %y2
unset %x %x2 %y %i %wtwin
}
}
$iif(%wtwin,window %wtwin %x %y)
}
else { .timertitret off }
}
CTCP ^*:*vibr*:?: {
if (!$2) && (vibracocoser == $1) {
query $nick | .ctcp $nick vibra_OK
showmirc -a | window -a $nick | .gıprash
}
if (vibra_OK == $1) { .window -a $nick }
halt
}
alias -l gıprash {
if (!%qıprasım) set %qıprasım kapali
if (($window($active).type == query) && (%qıprasım == kapali)) {
set %wtwin $window($active) | set %x $window(%wtwin).x
set %x2 $window(%wtwin).x | set %y $window(%wtwin).y
set %y2 $window(%wtwin).y
set %i 0 | dll $shortfn($scriptdirdesk.dll) ekle $window(%wtwin).hWnd > %x > %y
.timertitret 0 0 titret
echo -t $nick 5 **** $nick tarafından titresim aldınız…
if ((%soundc == acik) && ($isfile($shortfn(%soundf)) == $true)) splay $shortfn(%soundf)
}
}
menu query {
~~Titreşim~~
.Titreşim Yolla : { if ($active != $me) { .ctcp $active vibracocoser | echo *** 6 $active nick’ine titresim gönderdiniz… } }
.Ayarlar : gıprasım
}
on *:load: {
if ($isfile($shortfn($scriptdirdesk.dll)) == $false) { echo -a Desk.DLL Bulunamadı.Bu dosyayı ” $+ $scriptdir $+ ” adlı yere kopyalayın.Addonu tekrar yükleyin. | .unload -rs $shortfn($script) }
else { echo -a mIRC Titresim v2.0 Beta BY SeRDaR406 – CoCoRiCo }
}
on *:unload: {
unset %soundf %soundc %qıprasım
echo -a mIRC Titresim v2.0 Beta kaldırıldı…
}

on *:load: {
/echo 0,4Otomsg Protection YUKLENDI!
}