addon Türkçe mIRC indir - Resmi mIRC indirme Sitesi

Türkçe Mirc Spamfilter

28 Kasım 2015 • 15:47 OxiGeN Hazır Kodlar

Türkçe Mirc Spamfilter Kod:

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,.,*)) &gt; 5,%yi,SPAMKONTROLUNDEGECERSIZ aslolan mesaj: $1- )
}

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

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

» Devamını Oku

Yorum yaz addon, alias, mirc, remote, script, SpamfiLter, turkce mırc, turkirc, variable

Türkçe Mirc Auto kick

28 Kasım 2015 • 15:43 OxiGeN Hazır Kodlar

Türkçe Mirc Auto kick

on @Nick:JOIN:#: {
if ($chan isin %knl) { halt }
mode # +b $nick
/kick # $nick Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen /nick yeninickiniz  komutu ile nickiniz değiştirin. 2 $network ~
/msg $nick Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Bu nicki 4( $nick ) kullanmak yasaktır.
}

on @Nick:JOIN:#: {

if ($chan isin %knl) { halt }

mode # +b $nick

/kick # $nick Nickiniz şuan kanal seviyesi ile bağdaşmıyor.. Lütfen /nick yeninickiniz komutu ile nickiniz değiştirin. 2 $network ~

/msg $nick Kufur, hakaret, msn/cam veya cinsellik ifade eden rumuzlari global kanallarimizda kullanamazsiniz. Bu nicki 4( $nick ) kullanmak yasaktır.

}

» Devamını Oku

Yorum yaz addon, alias, auto kick, mirc, remote, script, turkce mırc, turkirc, variable

Nick Forbid

27 Kasım 2015 • 19:37 OxiGeN Hazır Kodlar

Türkçe Mirc Nick Forbid

alias korusun eğer! 1 $ (Hata echo: Nick belirtmediniz. | Halt) | $ 1 | whois. # Korusun etkinleştirmek
% D <= $ numtok ($ 2 -, 32) ($ IIf ($ regex ($ gettok ($ 2 -,% d, 32 ),^~), cs kaldır ($ korusun süre takma ad | var% d = 1 forbidx $ gettok ($ 2 -,% d, 32), ~) 1 $ nickine ait çift sayfalar kanalların kullanımı yasaklanmıştır.) | inc% d) |. disable # korusun
# Off korusun
* Çi?: *: haltdef | $ IIf ($ say?sal == 319, $ 2 $ 3 forbidx -)
# Korusun son

alias korusun eğer! 1 $ (Hata echo: Nick belirtmediniz. | Halt) | $ 1 | whois. # Korusun etkinleştirmek

% D <= $ numtok ($ 2 -, 32) ($ IIf ($ regex ($ gettok ($ 2 -,% d, 32 ),^~), cs kaldır ($ korusun süre takma ad | var% d = 1 forbidx $ gettok ($ 2 -,% d, 32), ~) 1 $ nickine ait çift sayfalar kanalların kullanımı yasaklanmıştır.) | inc% d) |. disable # korusun

# Off korusun

* Çi?: *: haltdef | $ IIf ($ say?sal == 319, $ 2 $ 3 forbidx -)

# Korusun son

» Devamını Oku

Yorum yaz addon, alias, mirc, nick forbid, remote, script, turkce mırc, turkirc, variable

Butun kanallari +im alma

26 Kasım 2015 • 11:31 OxiGeN Hazır Kodlar

Türkçe Mirc Butun kanallari +im alma

/ F4 (var%: = 1 | var%. = $ Hatları (globals.txt) | ise%: <=%. (. Modunda $ (%:) + im | inc%:)) globals.txt okuyun
/ F5 (var%: = 1 | var%. = $ Hatları (globals.txt) | ise%: <=%. (. Modunda $ (%:)-im | inc%:)) globals.txt okuyun

1 2	/ F4 (var%: = 1 \| var%. = $ Hatları (globals.txt) \| ise%: <=%. (. Modunda $ (%:) + im \| inc%:)) globals.txt okuyun / F5 (var%: = 1 \| var%. = $ Hatları (globals.txt) \| ise%: <=%. (. Modunda $ (%:)-im \| inc%:)) globals.txt okuyun

» Devamını Oku

Yorum yaz addon, alias, kanal modu, mirc, remote, script, turkce mırc, turkirc, variable

PnP Progress Bar

26 Kasım 2015 • 11:29 OxiGeN Hazır Kodlar

Türkçe Mirc PnP Progress Bar

_progress.1 Script Yüklemesi Başlıyor ...

Kod:

_progress.2 10 YouTube \ \ \ 'a bağlaniliyor ...

Kod:

alias _progress.1 (
yak?n - @ @ Progress @. pbmp
pencere pfdohkaBz + blt @ Progress $ calc ($ window (-1). w - 330) $ calc ($ window (-1). h - 160) 319 104
drawrect-FRN @ Progress $ rgb (yüz) 2 0 0 319 104
_gradient @ Progress 9 69 300 25
_bevel @ ilerleme 7 67 304 29
drawrect-rn @ Progress $ rgb (yüz) 7 0 60 319 44
drawtext-nr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 16 8 25 $ 1 -
; Progress Barı N sağ Köşesine görüntü koyabilirsiniz 64 X 64
; Drawpic-@ Progress $ nt rgb (255.255.255) 247 1 195 65 64 64 image.ico
drawdot @ ilerleme
pencere hpf @. pbmp 0 0 301 30
drawcopy @ Progress 9 69 300 28 @. pbmp 0 0
)
alias _progress.2 (
($ Window (@ Progress) == $ null) if
($ 1> 100) (_recurse eğer _progress.2 100 $ 2 - | geri)
drawcopy-n @. pbmp 0 0 300 28 @ Progress 9 69
drawtext-nro @ Progress $ rgb (metin) \ \ "Arial \ \" 24 $ calc (159 - $ geni?li?i ($ 1%, Arial, 24,1,0) / 2) 67 $ 1%
drawrect-nrif @ Progress 1 0 9 69 $ calc ($ 1 * 3 + 1) 26
drawrect-FRN @ Progress $ rgb (yüz) 2 8 45 236 21
drawtext-cnr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 12 8 48 235 99 $ 2 -
başlık @ ilerleme - $ 1%
drawdot @ ilerleme
($ 1 == 100) (if
timer.kill.progress-mio 1 500 kapatın. - @ @ Progress @. chr (124) $ pbmp
)
)
alias-l _bevel (
drawrect-$ 1 $ rgb (kare) 1 $ nr calc ($ 2 + 1) $ calc ($ 3 + 1) $ calc ($ 4 - 1) $ calc ($ 5 - 1)
drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + 1) $ calc ($ 3 + $ 5 - 1) $ calc ($ 4 - 1) 2
drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + $ 4 - 1) $ calc ($ 3 + 1) 2 $ calc ($ 5 - 1)
drawrect-$ 1 $ rgb (hilight) 1 $ 2 $ 3 $ calc ($ 4 + 1) $ nr calc ($ 5 + 1)
drawline-nr $ 1 $ rgb (gölge) 1 $ 2 $ calc ($ 3 + $ 5 - 1) $ 2 $ 3 $ calc ($ 2 + $ 4) $ 3
)
alias-l _gradient (
var% yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2),% r = $ calc ($ rgb (yüz)% 256),% g = $ calc ($ rgb (yüz) / 256% 256), % b = $ calc ($ rgb (yüz) / 65536)
: LoopL
drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)
(% Yerde $ 2>) (if
(% R> 2) Aralık% r 3 e?er
%) Aralık% g 3> 2 g (e?er
(% B> e?er 2) Aralık% b 3
Aralık% yerde 8
goto loopL
)
% Yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2)
% R = $ calc ($ rgb (yüz)% 256)
% G = $ calc ($ rgb (yüz) / 256% 256)
% B = $ calc ($ rgb (yüz) / 65536)
var% hedefi = $ calc ($ 2 + $ 4 + $ 5)
: LoopR
drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)
(% Yer <% gol) (if
(% R <250) inc% r 3 eğer
%) Inc% g 3 <250 g (eğer
(% B <250) inc% b 3 eğer
inc% yerde 8
goto loopR
)
)
alias $ 1 - | return $ result _recurse

_progress.1 Script Yüklemesi Başlıyor ...

Kod:

_progress.2 10 YouTube \ \ \ 'a bağlaniliyor ...

Kod:

alias _progress.1 (

yak?n - @ @ Progress @. pbmp

pencere pfdohkaBz + blt @ Progress $ calc ($ window (-1). w - 330) $ calc ($ window (-1). h - 160) 319 104

drawrect-FRN @ Progress $ rgb (yüz) 2 0 0 319 104

_gradient @ Progress 9 69 300 25

_bevel @ ilerleme 7 67 304 29

drawrect-rn @ Progress $ rgb (yüz) 7 0 60 319 44

drawtext-nr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 16 8 25 $ 1 -

; Progress Barı N sağ Köşesine görüntü koyabilirsiniz 64 X 64

; Drawpic-@ Progress $ nt rgb (255.255.255) 247 1 195 65 64 64 image.ico

drawdot @ ilerleme

pencere hpf @. pbmp 0 0 301 30

drawcopy @ Progress 9 69 300 28 @. pbmp 0 0

)

alias _progress.2 (

($ Window (@ Progress) == $ null) if

($ 1> 100) (_recurse eğer _progress.2 100 $ 2 - | geri)

drawcopy-n @. pbmp 0 0 300 28 @ Progress 9 69

drawtext-nro @ Progress $ rgb (metin) \ \ "Arial \ \" 24 $ calc (159 - $ geni?li?i ($ 1%, Arial, 24,1,0) / 2) 67 $ 1%

drawrect-nrif @ Progress 1 0 9 69 $ calc ($ 1 * 3 + 1) 26

drawrect-FRN @ Progress $ rgb (yüz) 2 8 45 236 21

drawtext-cnr @ Progress $ rgb (metin) "ms sans serif \ \ \ \ 12 8 48 235 99 $ 2 -

başlık @ ilerleme - $ 1%

drawdot @ ilerleme

($ 1 == 100) (if

timer.kill.progress-mio 1 500 kapatın. - @ @ Progress @. chr (124) $ pbmp

)

alias-l _bevel (

drawrect-$ 1 $ rgb (kare) 1 $ nr calc ($ 2 + 1) $ calc ($ 3 + 1) $ calc ($ 4 - 1) $ calc ($ 5 - 1)

drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + 1) $ calc ($ 3 + $ 5 - 1) $ calc ($ 4 - 1) 2

drawrect-$ 1 $ rgb (3dlight) 2 $ FRN calc ($ 2 + $ 4 - 1) $ calc ($ 3 + 1) 2 $ calc ($ 5 - 1)

drawrect-$ 1 $ rgb (hilight) 1 $ 2 $ 3 $ calc ($ 4 + 1) $ nr calc ($ 5 + 1)

drawline-nr $ 1 $ rgb (gölge) 1 $ 2 $ calc ($ 3 + $ 5 - 1) $ 2 $ 3 $ calc ($ 2 + $ 4) $ 3

)

alias-l _gradient (

var% yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2),% r = $ calc ($ rgb (yüz)% 256),% g = $ calc ($ rgb (yüz) / 256% 256), % b = $ calc ($ rgb (yüz) / 65536)

: LoopL

drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)

(% Yerde $ 2>) (if

(% R> 2) Aralık% r 3 e?er

%) Aralık% g 3> 2 g (e?er

(% B> e?er 2) Aralık% b 3

Aralık% yerde 8

goto loopL

)

% Yer = $ calc ($ 4 / 2 + $ 5 / 2 + $ 2)

% R = $ calc ($ rgb (yüz)% 256)

% G = $ calc ($ rgb (yüz) / 256% 256)

% B = $ calc ($ rgb (yüz) / 65536)

var% hedefi = $ calc ($ 2 + $ 4 + $ 5)

: LoopR

drawline-nr $ 1 $ rgb (% r,% g,% b) 7 $ calc (% yerde - 3) $ calc ($ 3 - 3) $ calc (% yerde - $ 5) $ calc ($ 3 + $ 5)

(% Yer <% gol) (if

(% R <250) inc% r 3 eğer

%) Inc% g 3 <250 g (eğer

(% B <250) inc% b 3 eğer

inc% yerde 8

goto loopR

)

alias $ 1 - | return $ result _recurse

» Devamını Oku

Yorum yaz addon, alias, mirc, png, png progress, progress bar, remote, script, turkce mırc, turkirc, variable

Lag Durumunuz

24 Kasım 2015 • 13:09 OxiGeN Hazır Kodlar

Bu kod ile sunucudaki lagdaki durumunuzu ögrenebilirsiniz. Kullanimi /lag.

alias lag { set %lag $ticks | .quote PING $ticks }
on ^*:PONG:{
if (%lag) {
echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag))  ( $+ $nick $+ )
unset %lag
haltdef
}
}

alias lag { set %lag $ticks | .quote PING $ticks }

on ^*:PONG:{

if (%lag) {

echo -a * Lag: $calc($ticks - $iif($2 isnum,$2,%lag)) ( $+ $nick $+ )

unset %lag

haltdef

}

» Devamını Oku

Yorum yaz addon, alias, lag durumu, mirc, remote, script, turkce mırc, turkirc, variable

htmlfree kodu

24 Kasım 2015 • 13:04 OxiGeN Hazır Kodlar

Bu kodun amaci mirc script uzerinden web sitelerine baglanarak yaptiginiz sockopen islevlerinde gereki olan html kodlarini temizleyip duz metin halinde görmenizi saglar. Yazan kim bilmiyorum ama socks olarak baglandiginiz web sitelerinde kod halinda geliyor kodlardan arindirmak icin en güzel yontem budur. Kod;

alias htmlfree {
var %x, %i = $regsub($1-,/(^[^&lt;]*&gt;|&lt;[^&gt;]*&gt;|&lt;[^&gt;]*$)/g,$null,%x), %x = $remove(%x,&amp;nbsp;)
return %x
}

alias htmlfree {

var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)

return %x

}

» Devamını Oku

Yorum yaz addon, alias, htmlfree, mirc, remote, script, turkce mırc, turkirc, variable

« 1 2 3 4 5 6 … 23 »