her zaman aradığınız kişi ortak kanallarınızda olmayabilir Bu yüzden o kişi girmiş mi girmemiş mi gibi araştırma yapmak yerine o nick sunucuda olur olmaz uyarı almanız için tasarlanmış bir kod yaptım.

Kodun aktif olabilmesi için notify listenize belirtilen nicki eklemeniz gerekmektedir.
komutu ise,
Eklemek için : /Notify Nick
Silmek için : /notify -r nick
Notify listesi için : /notify -l
şeklindedir.

on *:Notify: {
echo -a $Nick Şuan Sunucuda..
}

Aynı zamanda kodu genişletebiliriz. Örneğin sunucu sahiplerine bir düzenleme getirilebilir veya mirc yapımcıları için. o da şu şekilde olacaktır.

on *:Notify: {
if ($nick == CesuryureK) { echo -a mIRC Yapımcısı $nick Şuan Online.. }
elseif ($nick == Nuh) { echo -a Sunucu Adminlerinden $nick Şuanda Online }
elseif ($nick == Erdem) { echo -a Sunucu Sahibi $nick Şuanda Online }
else { echo -a Notify Listenizdeki $nick Şuan Online.. }
}

şeklinde güzel bir kod yapılabilir. Aynı zamanda Kişi Sunucudan Çıktığında da uyarı alınabilir çıktığına dair.
oda şu şekilde olacaktır.

on *:UNotify: {
if ($nick == CesuryureK) { echo -a mIRC Yapımcısı $nick Sunucudan Ayrıldı veya Nick Değiştirdi.. }
elseif ($nick == Erdem) { echo -a Sunucu Sahibi $nick Sunucudan Ayrıldı veya Nick Değiştirdi.. }
else { echo -a Notify Listesindeki $nick Sunucudan Ayrıldı veya Nick Değiştirdi.. }
}

MDC.DLL Bu DLL Sayesinde dialog kontrolleriniz çok çeşitli efektlerle yapabilirsiniz.

Yapımcı; SeRDaR406

Link; İNDİRMEK İÇİN TIKLAYINIZ

 Tüm renklerini değiştirebileceğiniz,üzerine ikon koyabileceğiniz buttonlar,tüm renkleri değişen panel,kenarlık rengi değişebilen editbox,konumları değişen(dikey ve yatay olarak),farklı stilde checkbox,avi uzantıları oynatan kontrol vs…

Tüm bu özelliklere ve daha fazlasına sahip kontrolleri dialog’larınızda oluşturabilmenizi sağlıyan bir dll’dir.

Güncelleme Bilgisi:
mEXBar’ın skin’i olarak kullanabileceğiniz 3 adet skin dosyası eklendi.

Yapımcı; SeRDaR406

Ekran Görüntüsü; ÖRNEK RESİM

Link; DOSYAYI İNDİRMEK İÇİN TIKLAYIN

Bu DLL ile,*.cab(cabinet) arşivlerinde yer alan dosyaları dışarı çıkartabilmenizi sağlar.

Yapımcı; SeRDaR406

Link; İNDİRMEK İÇİN TIKLAYINIZ

*.cab uzantılı dosyalar ne anlama gelmektedir?

Microsoft tarafından geliştirilen bir sıkıştırma yöntemidir ve genellikle setup programlarda kullanılmaktadır.

$gettok(text,N,C) “text” değerinin içinde belirtilen N değeri ile almaya yarar
Örnekler :

//echo $gettok(a.b.c.d.e,3,46) = neyi ifade ediyor?
//echo $gettok(a.b.c.d.e,3,46) , Değerinin karşılığı ” c ” dir.

mantığı nedir?

$gettok(a.b.c.d.e,3,46) < a.b.c.d.e = TEXT değerini taşıyor
$gettok(a.b.c.d.e,3,46) < 3 = N değerini taşıyor
$gettok(a.b.c.d.e,3,46) < 46 = C değerini taşıyor

//echo $chr(46) yaparsak 46 değerinin ” . ” olduğunu görürürüz

ve $gettok kullanımının bizim belirttiğimiz karakterler arasından bir seçmece işlem olduğunu çözeriz.
nasılmı?

$gettok(a.b.c.d.e,3,46) > bu örnekte belirtilen ” text ” arasında ” . ” kullanılmış peki bu değişemezmi?
tabiki değiştirebiliriz

” . ” değerini ” + ” yapalım
” + ” değerinin ascii kodunu öğrenelim.

//echo $asc(+)

sonuç 43 çıkacaktır..

$gettok(a+b+c+d+e,3,43)

Aradaki ” . ” kalktı ve ” + ” oldu

//echo $gettok(a+b+c+d+e,3,43)

yazdığımızda sonuç gene ” c ” olarak çıkacaktır?
peki neden sonuç ” c ” olarak çıkıyor?

çünki gettok(a+b+c+d+e,3,43) parametresinde N ifadesinde ” 3 ” yazılı
3 neyi ifade ediyor?

gettok(a+b+c+d+e,3,43) parametresinde ( $gettok(text,N,C) ) text dediğimiz yerdeki alfabeleri sayalım

a , 1. alfabe
b , 2. alfabe
c , 3. alfabe
d , 4. alfabe
e , 5. alfabe

gettok(a+b+c+d+e,3,43) N değerini 3 olarak belirttiğimiz için ” c ” alfabesini almaktadır.

N değerini 1 yaparsak ” a ” alfabesini alacaktır..
N değerini 5 yaparsak ” e ” alfabesini alacaktır..

$gettok(a.b.c.d.e,2-,46) = neyi ifade ediyor?

yukarıdada belirttiğimiz gibi N değeri ” 2- ” bunun anlamı ” N değerinden sonrakiler demektir

//echo $gettok(a.b.c.d.e,2-,46)

yazdığımızda ” b.c.d.e ” alfabelerini almış oluruz neden onları alıyor ? çünki N değeri ” 2- “

unutmayalım belirtilen N değerinin yanında ” – ” olursa o ve sonrakileride al demiş oluruz

” 2- ” N değerinin anlamı = 2. olanı ve sonrasında gelenleride al.

$gettok(a.b.c.d.e,2-4,46) = neyi ifade ediyor?

aynı şekilde sadece ” N ” değerinde değişiklik yapılmış değişiklik nedir? ” 2-4 “
bunun anlamı nedir?
sadece 2. N değerini 4. N değerini ve arasındaki değerleri al.

//echo $gettok(a.b.c.d.e,2-4,46)

yazdığımızda çıkan sonucun = ” b.c.d ” olduğunu göreceksiniz,

çünki belirtilen ” 2-4 ” N değerinde ” b ” 2 değerini, c ” – ” (aradaki) değeri, d ise ” 4 ” değerini taşımaktadır.

kısacası $gettok(text,N,C) burada N değerinde belirtilen ” 2-4 ” anlamı 2. değeri al 4. değeri al arada kalan değerleride al.

Her zaman sorulan socket botun nasıl yapıldığı konusunu biraz anlattım. Aşağıdaki kodun içinde neyin ne olduğunu gösteriyor. Sizde bu kodu yükledikten sonra @sdebug penceresine gelen bilgiye göre swalias’ı içinde istediğinizi ekleyebilirsiniz. İşte kod ve açıklaması:

Önce mIRC’de yazı yazdığımız yerde yani command line’dan /sockopen bot <server-ip> <port> komutunu yazarak botumuzu istediğimiz servera bağlıyoruz.

;”bot” adlı socketımız açıldığında

on *:sockopen:bot:{

;eğer socketta bir sorun varsa işlemi durduruyoruz

if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }

;servera bağlanırken botun nicki gönderiliyor

swbot NICK BOTUN-NICKI

;servera bağlanırken botun identdi ve usernamei gönderiliyor

swbot USER IDENTD * * :USERNAME BURAYA

;socket botun nickiyle işaretleniyor. yani $sock(bot).mark değeri botun nicki oluyor

sockmark $sockname BOTUN-NICKI
}

;serverdan socketa bilgi geldiğinde

on *:sockread:bot:{

;eğer socketta bir sorun varsa işlemi durduruyoruz
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }

;%; diye bir değişken oluşturup sockettan gelen bilgiyi bu değişkene yüklüyoruz ve $1- değerini doldurması için tokenize kullanıyoruz

var %; | sockread %; | tokenize 32 %;

;eğer @sdebug penceresi yoksa pencere oluşturuluyor ve sockettan gelen bilgi o pencereye gösteriliyor

if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-

;sockettan gelen bilgi ile swalias aliasını çağırıyoruz

swalias $1-
}

;socketta bilgi gönderme aliasımız, eğer bot socketı açıksa o socketa istediğimiz bilgiyi gönderiyoruz

alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
;sockettan gelen bilgiyi okumak için oluşturduğumuz swalias aliası

alias swalias {

;eğer bot socketı açıksa

if $sock(bot) {
;%: değişkenine status penceresine echolaması için bir komut yüklüyoruz

var %: = echo $color(info) -st > Socket bot:

;eğer serverdan socket VERSIONu istenirse mIRC v6.17′nin version cevabını gönderiyoruz.

if :
VERSION
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }

;eğer serverdan botumuzun fingerı istenirse ona cevap gönderiyoruz

if :
FINGER
iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Sevket Arslan $+ $chr(1) }

;eğer server bizi pinglerse, bizde onu pongluyoruz, düşmemek için bu gerekli.
if $1 == PING { swbot PONG $2- }

;serverdan gelen bilginin 2. kelimesi 474’se, bu 474. rawı gördü demektir, 474. raw bir kanaldan banlı olduğunu gönderir. statuse 4. değer olan kanaldan banlı olduğunu bildiriyor.

if $2 == 474 { %: $4 kanalında banlı. }

;2. kelime 366 ise yani /names komutunun sonu ki bu genelde bot kanala girdiğinde gelir, girdiğimiz kanal status penceresine gösteriliyor.

if $2 == 366 { %: $4 kanalına girdi. }

;eğer 2. kelime kickse ve 4. kelime botumuzun nickiyse, statuse kanaldan kicklendiğimizi kimin kicklediğini ve neden kicklendiğini gösteriyoruz.

if $2 == KICK && $4 == $sock(bot).mark { %: $3 kanalından %n tarafından kicklendi. $+($chr(40),$right($5-,-1),$chr(41)) | swbot JOIN $3 }

;eğer 2. kelime PRIVMSG ise

if $2 == PRIVMSG {

;%n değişkenine nicki, %m değişkenine gelen mesajı, %k değişkenine kanalı ayarlıyoruz

var %n = $gettok($gettok($1,1,33),1,58), %m = $right($4-,-1), %k = $3

;eğer nickler belirlediğimiz nickler ise (burda el33t ve el33t2)

if $istok(el33t el33t2,%n,32) {

;eğer gelen mesajın birinci sözcüğü .hop ise eğer 2. kelime varsa 2. kelimenin olduğu kanalda, yoksa yazılan kanalda hop komutu uygulanıyor yani kanaldan çıkıp tekrar giriliyor.

if .hop == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< | swbot JOIN %< }

;bu da .hop gibi fakat bunda botumuz belirtilen kanaldan çıkıyor. eğer 2. sözcük varsa, o kanaldan, yoksa mesajın yazıldığı kanaldan

if .part == $gettok(%m,1,32) { var %< = $iif($gettok(%m,2,32),$v1,%k) | swbot PART %< }

;bu da .part gibi ama bununla istediğimiz kanala sokuyoruz

if .join #* iswm %m { swbot JOIN $gettok(%m,2-,32) }
}
}
}
}

Umarım işinize yarar

Link; İNDİRMEK İÇİN TIKLAYINIZ

Yapımcı; CipriX

Link; İNDİRMEK İÇİN TIKLAYINIZ

Yapımcı; CipriX

Link; İNDİRMEK İÇİN TIKLAYINIZ