Bu arada bağzı fonksiyonları tam test etme imkanım olmadı malum irc ye giremiyorum kendi makinamda açtğım serverde de clone fazla sokulmuyor bir sorun olursa yazarsanız.

DOWLAND

$wasadv(match) identifieri en son yapılan $isadv’ işlemindeki uyan kriter kelimeyi gösterir.
$wasadv(time/veya herhangi bir yazı) en son yapılan $isadv işleminin ctime ını verir.
koruma örneği olarak:
on ^*:open:?: {
if $isadv($1-) { echo -st $+([Olası reklam yakalanan kelime: ,$wasadv(match),]) $+(<,$nick,>) $1- | halt }
}
bunlar çoğaltılabilir korumaları yazacak olan sizlersiniz bunu bir engine gibi düşünün .

Komutları:
» /isadv -a[s] kelime :Reklam olarak yakalamasını istediğiniz kelimeyi eklemeye yarar.
» /isadv -d[s] kelime :Eklediğiniz kelimleri listeden silmenizi sağlar.
s parametresini kullanırsanız size bilgi verir örnekler:
/isadv -a deneme komutunu girerseniz hiçbir bilgi gelmez
/isadv -as deneme komutunu girerseniz: *** deneme Listede mevcut. gibisinden bilgi gelir.
» /isadv -l :Ekli kelimelerin listesini verir.
» $isadv(kelime,cumle) :Reklam korumamız eğer kelime,cümle reklam olarak eklediğimiz, kriterdeki kelimeleri içeriyorsa $true döner yoksa $false.
» $isadv(-l[s]): Bu tamamen ileriye dönük script yazanlar için tasarlanmış bir parametredir, bu identifieri oluştururken son kullanıcıyı değilde
komuttan anlayanları daha çok ilgilendirdiğini belirtmeliyim.
Kullanımı:
$isadv(-l,5) :listedeki 5. kelimeyi verir.
diyelimki dialog oluşturdunuz dialogda listboxa reklam kelimelerini yüklemek istiyorsunuz
listboxumuzun id si [lid] diye belirtilmiştir
var %i = 1
while $isadv(-l,%i) {
did -a $dname [lid] $v1
inc %i 1
}
NOT: Bu kod tamamen boş zamanımda yazılmıştır, mirc de kod yazmayı hemen hemen bırakmış durumdayım, herhangi bir sorunu hatası çıkarsa
foruma girmediğim için düzeltme yapamayacağım test işlemlerinid minimumda tuttum. Bunu yazmamın ve yayınlamamın sebebi uzun süredir aklımda
olan yukarıda biraz bahsetiğim hasha değerleri
n0=1 den çok değer
n1=geriye kalanları
n2=n1 e sağımayanlar vs
bunlar arasında işle yaptırma vs
*/
;aşağıdan itibaren kodu kopyalayıp remoteye yapıştırabilirsiniz.
;bu kısımda kayıtları tumak ve yüklemek için geçerli
on *:start: { if !$hget(isadv) { .hmake isadv 2000 | .hload -i isadv $+(”,$scriptdir,isadv2.ini”) verbs } }
on *:exit: { if $hget(isadv) { .hsave -io isadv $+(”,$scriptdir,isadv2.ini”) verbs } }
alias wasadv { return $iif($1 == match,$gettok($hget(isadv,wasadv),1,46),$gettok($h get(isadv,wasadv),2,46)) }
alias isadv {
if !$hget(isadv,wasadv) {
if !$hget(isadv) { hmake isadv 200 }
hadd isadv wasadv $+($null,$ctime)
}
if !$isid { tokenize 32 $1 $remove($2-,$chr(32),$chr(33),$chr(40),$chr(41),$chr(44),$chr (91),$chr(93),$chr(94),’,”,_,-,<,>,=,/,\,$chr(123),$chr(125)) }
if !$isid && $regex($1,^\-(a|as|sa)$) {
if $len($2) > 60 && s isin $1 { echo $color(info text) -at *** 60 Karakterden uzun kelime giremezsiniz. | halt }
var %i = 0
while %i < $calc($hget(isadv,0).item - 1) {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
if $gettok(%hgetstr,%n,124) == $2- && s isin $1 { echo $color(info text) -at *** $2- Listede mevcut. | halt }
dec %n 1
}
inc %i 1
}
hadd isadv $iif(%hgetstr == $null,$+(n,%i,$chr(32),$2-),$iif($count(%hgetstr,|) < 14,$+(n,$calc(%i - 1),$chr(32),%hgetstr,|,$2-),$+(n,%i,$chr(32),$2-)) )
if s isin $1 { echo $color(info text) -at *** $2- Listeye eklendi. }
}
if !$isid && $regex($1,^\-(d|ds|sd)$) {
var %i = 0, %totalitems = $calc($hget(isadv,0).item - 1)
while %i < %totalitems {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
if $gettok(%hgetstr,%n,124) == $2- {
if %i != $calc(%totalitems - 1) {
hadd isadv $+(n,%i) $+($remtok(%hgetstr,$2-,1,124),|,$gettok($hget(isadv,$+(n,$calc(%totalite ms - 1))),-1,124))
hadd isadv $+(n,$calc(%totalitems - 1)) $remtok($hget(isadv,$+(n,$calc(%totalitems - 1))),$gettok($hget(isadv,$+(n,$calc(%totalitems - 1))),-1,124),1,124)
}
else { hadd isadv $+(n,%i) $remtok(%hgetstr,$2-,1,124) }
if s isin $1 { echo $color(info text) -at *** $2- Listeden silindi. }
halt
}
dec %n 1
}
inc %i 1
}
if s isin $1 { echo $color(info text) -at *** $2- Listede yok. }
}
if !$isid && $regex($1,^\-l$) {
var %i = 0, %totalcounter = 1
echo $color(info text) -at *** isadv listeleniyor:
while %i < $calc($hget(isadv,0).item - 1) {
var %hgetstr = $hget(isadv,$+(n,%i))
var %n = $calc($count(%hgetstr,|) + 1)
while %n {
echo $color(info text) -at $+(%totalcounter,$chr(41)) $gettok(%hgetstr,%n,124)
inc %totalcounter 1
dec %n 1
}
inc %i 1
}
echo $color(info text) -at *** isadv listesi sonu.
}
;listeden isteme $isadv(-l,[number])
if $isid {
if $regex($1,^\-(l|ls|sl)$) {
if $2 < 1 || $2 !isnum 1-3000 {
if s isin $1 { echo $color(info text) -at *** Hatalı no girdiniz. | halt }
else { return $null }
}
return $gettok($hget(isadv,$+(n,$iif($calc($2 % 15) == 0,$calc($gettok($calc($2 / 15),1,46) - 1),$gettok($calc($2 / 15),1,46)))),$iif($calc($2 % 15) == 0,15,$v1),124)
}
else {
var %searchstr = $remove($1-,$chr(32),$chr(33),$chr(40),$chr(41),$chr(44),$chr (91),$chr(93),$chr(94),',",_,-,<,>,=,/,\,$chr(123),$chr(125))
var %i = 0
while %i < $calc($hget(isadv,0).item – 1) {
if $regex(isadv,%searchstr,$+($chr(40),$hget(isadv,$+ (n,%i)),$chr(41))) {
hadd isadv wasadv $+($regml(isadv,1),$chr(46),$ctime)
return $true
}
inc %i 1
}
return $false
}
}
}
;EOF

DOWLAND

Addon kendi bellegi ile degil internet uzerinden calistigi icin uzun omurlu olmayabilir, ornegin isimler sozlugu icin Turk Dil Kurumu’nun sitesini kullaniyor.

Download Link : dowland
Yuklemek icin; Indirdiginiz zipli dosyanin icindeki dosyalari mIRC klasorunun icine atin ve mIRC programini calistirip /load -rs mmsoz01.mrc komutunu verin

;################################################# #
:## Bu kodlar SiNYoL tarafından hazırlanmıştır….
;################################################# #
on 1:load: {
if ( $version < 5.6 ) { unload -rs yazitipi.mrc
echo 4 -a mIRC versiyonunuz yazıtipi addonını desteklemiyor, yazıtipi addonı kaldırılıyor. | halt }
else { echo 4 -a YAZITipleri add-onu yüklendi. }
}
#yazirenkli off
on 1:INPUT:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
goto ilk
}
#yazirenkli end
#yaziters off
on 1:INPUT:*:{
unset %ters*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ters* | halt }
:ilk
inc %terss
if ( %terss > $len($1-) ) { say %terst | unset %terst* | halt }
set %tersh $mid($1-,%terss,1)
%terst = %tersh $+ %terst
goto ilk
}
#yaziters end
#yaziturkce off
on 1:INPUT:*:{
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g,Ð,Ð ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
}
#yaziturkce end
#yazielit off
on 1:INPUT:*:{
unset %elit
set %elit $1-
if ( $chr(47) == $mid(%elit,1,1) ) { %elit | unset %elit* | halt }
%elit = $replacecs(%elit,a,å,b,ß,c,©,d,D,e,ë,f,F,h,]-[,i,î,k,|{,l,£,m,M,n,ñ,o,ø,p,P,q,¶,r,®,s,§,t,±,u,µ, v,V,w,\\’,x,×,y,¥,z,Z,ý,I,Ý,Î,þ,$,Þ,$,ç,¢,Ç,¢,ð,g, Ð,Ð,ü,û,Ü,Û,ö,ô,Ö,Ô,!,¡,?,¿,<,«,>,»,-,¬,:,¦,’,`,`,’)
say %elit
unset %elit
halt
}
#yazielit end
#yaziseskuc off
on 1:INPUT:*:{
unset %seskuc
set %seskuc $1-
if ( $chr(47) == $mid(%seskuc,1,1) ) { %seskuc | unset %seskuc | halt }
%seskuc = $replacecs(%seskuc,q,Q,w,W,E,e,r,R,t,T,y,Y,U,u,I,ý ,O,o,p,P,ð,Ð,Ü,ü,A,a,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l ,L,þ,Þ,Ý,i,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,Ö,ö,ç,Ç)
say %seskuc
unset %seskuc
halt
}
#yaziseskuc end
#yazibuykuc off
on 1:INPUT:*:{
unset %buy*
set %buyk $1-
if ( $chr(47) == $mid(%buyk,1,1) ) { %buyk | unset %buy* | halt }
set %buys 1
set %buyu $len(%buyk)
:ilk
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,q,Q,w,W,e,E,r,R,t,T,y,Y,u,U,ý,I,o ,O,p,P,ð,Ð,ü,Ü,a,A,s,S,d,D,f,F,g,G,h,H,j,J,k,K,l,L ,þ,Þ,i,Ý,z,Z,x,X,c,C,v,V,b,B,n,N,m,M,ö,Ö,ç,Ç,!,¡,? ,¿)
set %buyb %buyb $+ %buyh
inc %buys
if ( %buys > %buyu ) goto son
set %buyh $mid(%buyk,%buys,1)
if ( %buyh == $chr(32) ) {
%buyh = $replace(%buyh,$chr(32),$chr(0160))
}
%buyh = $replacecs(%buyh,Q,q,W,w,E,e,R,r,T,t,Y,y,U,u,I,ý,O ,o,P,p,Ð,ð,Ü,ü,A,a,S,s,D,d,F,f,G,g,H,h,J,j,K,k,L,l ,Þ,þ,Ý,i,Z,z,X,x,C,c,V,v,B,b,N,n,M,m,Ö,ö,Ç,ç,¡,!,¿ ,?)
inc %buys
set %buyb %buyb $+ %buyh
goto ilk
:son
say %buyb
unset %buy*
halt
}
#yazibuykuc end
dialog yazitip {
title “Yazýtipi”
size -1 -1 110 190
radio “Tûrk¢e”,1,10 10 90 20
radio “ë£î±”,2,10 30 90 20
radio “sreT”,3,10 50 90 20
radio “BüYüK-kÜçÜk”,4,10 70 90 20
radio “SeSSiZ BüYüK”,5,10 90 90 20
radio “Renkli”,6,10 110 90 20
radio “Normal”,19,10 130 90 20
box “”,20,5 0 100 155
button “TAMAM”,21,5 165 100 20,ok
}
on 1:dialog:yazitip:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c yazitip 1 }
elseif ($group(#yazielit).status == on ) { did -c yazitip 2 }
elseif ($group(#yaziters).status == on ) { did -c yazitip 3 }
elseif ($group(#yazibuykuc).status == on ) { did -c yazitip 4 }
elseif ($group(#yaziseskuc).status == on ) { did -c yazitip 5 }
elseif ($group(#yazirenkli).status == on ) { did -c yazitip 6 }
else { did -c yazitip 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielit }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziters }
if ( $did == 4 ) { .disable #yazi* | .enable #yazibuykuc }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziseskuc }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli }
if ( $did == 19) { .disable #yazi* }
}
}
alias yazitip { dialog -m yazitip yazitip }
menu query,channel {
Yazıtipi…:/yazitip
}

Bu dosyayı mirc klasörüne kopyalayin ve /load -rs dosyayınınyolu\yazitipi.mrc
komutunu kullanarak addonu yükleyin.
Yükleme işlemini doğru yaptığınız takdirde
özel ve kanal pencerelerine sağ tıkladığınız
zaman “Yazıtipi…” butonunu göreceksiniz.
göreceksiniz. Buna tıklayıp 6 yazıtipini
seçebilirsiniz.

BY SeRDaR406

Msn.DLL BY Insano
=========================
Bu addonda mIRC’den MSN için uygulayabileceğiniz

çeşitli komutlar yer almaktadır.

Yer alan komutlar:

- Durumunuzu değiştirebilirsiniz.(Meşgul,Çevremdışı vs…)

- Kişi ekleyebilirsiniz.

- Oturumunuzu kapatabilirsiniz.

- Kişi listenizde olan birini kişi listenizden kaldırabilirsiniz.

- Mail hesabınızın gelen kutusuna gidebilirsiniz.

- Eğer adresiniz ve şifreniz kayıtlı ise otomatik oturum açtırabilirsiniz.

**NOT:** Çoklu oturum açılan durumlarda çalışıp çalışmadığı
denenmiştir.

DOWLAND