mIRC ADDONLARI

Memo Bilgi Diyalogu

Memo’ları kontrol etmek zor kazanılan bir alışkanlık, fakat irc protokolünün önemli özelliklerinden biridir. Memo aldığınızda scriptiniz aracılığıyla uyarı almak hoş olurdu değil mi? Bu kod memo aldığınızda bir kutucuk ile yeni mesaj aldığınıza dair uyarı görüntülemenizi sağlar. mIRC’ınızın remote bölümüne ekliyorsunuz.

dialog ms {
title “Mesaj Bilgisi!”
size -1 -1 220 85
text “*** 1 Yeni Mesajınız Var..”,2,10 10 220 200
text “*** Okumak için Tamam’a tıklayın.”,3,10 30 220 200
button “&Tamam”,4,70 50 85 25,ok
}
on ^*:notice:*Yeni Mesajınız;*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/memoserv read last
}

 mIRC Büyük Harfle baslayıp Yazma.

Kod Anlatım : mIRC’ta yazdığınız metinlerin karşıya kelimelerin ilk harflerinin büyük olarak ulaşmasını sağlar. Buna göre “selam nasılsınız” yazdığınızda bu metin karşıya “Selam Nasılsınız” olarak yansayacaktır.

on *:input:*: {
if ($mouse.key & 2) || !$regex($1,^\/) && ($active != status window) {
msg $active $cumlekur($1-)
halt
}
}
alias cumlekur {
if $isid {
var %x , %i = $regsub(cumlekur,$1-,/((\.|;|\:)+([a-z]|[A-Z]|[[:space:]]|ş|ü|ğ|ö|ç|ı|Ş|Ü|Ğ|Ö|Ç|İ).)/g,\1,%x), %i = 1, %retval = $1-
while %i <= $regml(cumlekur,0) {
if $regex(ifcumlekur,$regml(cumlekur,%i),((\.|;|\:).|..)) {
%setvar = $remove($regml(cumlekur,%i),.,:,;,$chr(32))
%setvar = $+($left($regml(ifcumlekur,1),1),$chr(32),$upper($replacecs($left(%setvar,1),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)),$mid(%setvar,2,2))
var %x , %l = $regsub(%retval,$+(/,$regml(cumlekur,%i),/g),%setvar,%x), %retval = %x
}
inc %i 1
}
return $replace($upper($left(%x,1)),ş,Ş,ç,Ç,ü,Ü,ğ,Ğ,ı,İ)) $+ $right(%x,-1)
}
}

Oto Nick Identify

Otomatik nick identify;

–

on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick
== nickserv ) /dialog -m sifre sifre }
on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }dialog sifre {
title “Şifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: “, 3, 10 10 23 13
edit “”, 5, 45 8 60 10, style(pass)
edit “”, 6, 45 20 60 10button “Uygula”, 1, 10 35 40 15, ok
button “I&ptal”, 2, 60 35 40 15, cancel}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}