@: Ident’den Gale gelen kısımdır.

*: Sıfir ve sonsuz hane Kapsar.

? : Harf yerine geçer.

Akick ekleme komutu: / cs nick eklemek # kanaladı akick! * @ * Sebep

Akick silme komutu: / cs del nick # kanaladı akick! * @ *

Akick listesinde komutu: / cs list # kanaladı akick

Tum akickleri silme komutu: / cs akick # kanaladı del 1-999

Akick ayrıntılarını görme komutu: / cs # kanaladı görüntülemek akick

Akick sayısını öğrenme komutu: / cs count # kanaladı akick

Akickli nickin Baska BİR Nikel girip, akickdeki nicke döndüğünde kanaldan atma komutu:
/ Cs # kanaladı uygulamak akick

Nicki alma komutu akick: / cs # kanaladı nick eklemek akick! * @ * Sebep

Identi alma komutu akick: / cs # kanaladı * eklemek akick! Ident @ * sebep

Hostu alma komutu akick: / cs # kanaladı * eklemek akick! * @ Host sebep

IPI alma komutu akick: / cs # kanaladı * eklemek akick! * @ Ip sebep

Nick + Ident akick komutu: / cs nick eklemek # Kanaladı akick! Ident @ * sebep

Nick + Ident + Host akick komutu: / cs nick eklemek # kanaladı akick! Ident @ host sebep

Ident + Host akick komutu: / cs! Ident @ Host * sebep # kanaladı * akick

mIRC Addon Nedir?
Sozluk anlami “Uzerine Ekle” olan addonlar sadece mIRC’de degil, hemen hemen yapilmis tum software programlarda bulunmaktadir. Add-onlar genelde bu programlara sonradan eklenen ve hem gorsel hemde islevsellik acisindan zenginlik katan program parcalaridir.

Cogunlukla kod olan bu kucuk eklemeler sadece bu standart ta kalmayip exe,dll vs.. olabiliyorlar. Onemli olan Yama ile Addonlari karistirmamaktir. Add-on’larda bazen acik kapayabilir. Ama bu, Addonlarin asil gorevleri degildir.

Son donemlerde add-on larin koltugunu DLL’ler sallamaya basladi. Fakat yazilimi ve kullanimi Addonlar kadar kolay olmayan dll ler, herzaman bu yarista Addonlardan sonra yer alacaklardir.

mIRC ADDON Kurulumu
Addonların kurulumu çok basit ve çesitlidir.

Kurulum komutları kısaca şöyledir;
/load -rs sürücü:\klasor\MircDizini\addonismi.mrc
//load -rs $mircdir\system\addonismi.mrc
/load -rs system/addon/addonismi.mrc
/load -rs addonismi.mrc

Tabi bu kadarla da kalmiyor.Addonunuzu mIRC programindan direkt olarak(komut yazmadan) da yukleyebilirsiniz.
ALT ve A Tuslarina basarak sol resimdeki editoru, ALT ve R tuslarina basarak sag resimdeki mIRC editorunu ortaya cikartin.
Kurulumda Hata !

Kurulum esnasında karşılaşılabilecek sadece bir hata vardır. Bu da Addon dosyasının(*.mrc) yeri, komutta veya addonun içinde doğru belirtilmemiş olmasıdır.

Örnek :* /load: no such file ‘e:\program files\mirc\deneme.mrc’
Burada, deneme.mrc dosyasi belirtilen kisayol icinde olmadigini goruyoruz.Hatayi duzeltmek icin deneme.mrc dosyasini bulup c:\program files\mirc\ klasorune kopyalamak\tasimak yeterli olacaktir.
Bunlara Dikkat !
/run : mIRC’nin program calistirma komutu. Cift tikla***** acabildiginiz tum programlari calistirir. Bu komuttan sonra gelen program ismine dikkat edilmesi gerekir. Ozellikle Deltree.exe’ye.

/dll : mIRC’nin DLL(Dinamic Link Library) programlarini calistirip gorev belirtme komutudur.Pek fazla zarar verici degildir, fakat User32.dll ile kullanildiginda bilgisayariniza reset atabilir & kapatabilir.

Sockets : Socket’ler mIRC’den web,ftp,telnet gibi istekleri karsilarlar. Hacker’lere bir backdoor (arka kapi) birakabilir.

DCC : IRC’de en tehlikeli olaylardan biri, tanimadiginiz birisinden bir dosya kabul etmektir. Uzantisi ne olursa olsun IRC’den dosya alis-verisi yapmamanizi tavsiye ederiz.

Auto Identify Addonlari : Bir diger tehlike ise sifrenizin bir addon araciligi ile baskasina ulasmasidir. Eger boyle bir addona ihtiyaciniz varsa, bizim garantimiz altinda Auto Identify addonunu cekebilirsiniz

Kod,

alias kayitgosterici.mo (
var% s = $ $ input ($ nopath ($ longfn ($ 1 -) dosyasi icinde aramak istediginizi yaziniz:), eq, Arama)
net @ LogArama ($ window (@ LogArama)) () ise
pencere k0z @ LogArama
var% t = $ keneler
kte_echo @ LogArama $ PARANTEZ ($ nopath ($ longfn ($ 1 -))) dosyasinda $ PARANTEZ (% s) for Arama yapildi $ + …
echo @ LogArama?
filtre-fwbp $ 1 – @ LogArama $+(*,% s *)
echo @ LogArama?
kte_echo @ LogArama $ nopath ($ longfn ($ 1 -)) dosyasinda arnan $ + (\ \ \ ‘% s, \ \ \’) ile ilgili $ PARANTEZ ($ filtre) sonuc $ tur ($ (($ calc keneler -% t) / 1000), 2) saniyede bulundu.
)
alias kayitgosterici (
yak?n ($ window (@ LogGosterici)) (if – @ @ LogGosterici)
pencere k0l16zS @ LogGosterici
icinde $ PARANTEZ ($ nopath ($ findfile ($ logdir, *. log, 0,))) $ 1 – kayit.yukle @ LogGosterici $ logdir echo dosyasi bulundu giri? yap?n.
($ Isfile ($ 1 -)) (if
($ Hatlar? ($ 1 e?er -)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy)) ($ 1 ko?mak -)
durdurmak
)
$ Kayitgosterici.aktifkayit set% shortfn ($ 1 -)
loadbuf-pr @ LogGosterici $ 1 -
ba?l?k @ LogGosterici – $ nopath ($ mid ($ sol ($ 1 -, -1), 2))
)
)
alias kayitgosterici.yenile (
($ Window (@ LogGosterici)) (if
aç?k-l @ LogGosterici
net @ LogGosterici
echo-q $ nopath ($ findfile ($ logdir, *. log, 0,)) $ 1 – kayit.yukle.
($ 1 e?er! =-C) (
(% Kayitgosterici.aktifkayit) (loadbuf-pr @ LogGosterici% kayitgosterici.aktifkayit) e?er
else (@ echo LogGosterici Loglar yenilendi … )
)
)
)
alias kayitfilter (
filtre-fwbp $ 1 @ LogArama $+(*,$ 2 – *)
inc% kayitaaranan2
($ Süzülmü?) (if
@ LogArama $ filtre sonuc $ PARANTEZ ($ longfn ($ 1)) dosyasinda bulundu yank? …
echo @ LogArama?
inc% kayitabulunan $ filtre
)
rline @ LogArama 1 $ deltok ($ line (@ LogArama, 1), -1,32) $ int ($ calc (% kayitaaranan2 /% kayitaaranan * 100)) $ +%
)
alias kayitmod.aktif (if ($ dialog (lsetmode)) (did-e $ ifmatch 21))
alias kayit.yukle (
(# * Iswm $ nopath ($ 1 -)) (aline-l @ LogGosterici olur? $ + $ ($ 1 – $ logdir)) kald?r
else (aline-l @ LogGosterici $ ($ 1 – $ logdir)) kald?r
)
menü @ LogArama (
$ Style (2) aktif $+([,$]): x
-
Sonuclari Kaydet (
var% x = $ sfile (c: \ \ \ \ *. log, Ay?e Arama sonuclarini nereye kaydetmek istersiniz?, Kaydet)
yazmak-c% x
savebuf $ aktif% x
)
-
Kapat: yak?n – @ $ aktif
)
menü @ LogGosterici (
dclick (
var% f = $ shortfn ($+($ logdir, $ strip ($ line (@ LogGosterici, $ 1 -, 1))))
($ Hatlar? (% e?er f)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (çal??t?rmak% f)
durdurmak
)
set% kayitgosterici.aktifkayit% f
loadbuf-pr @ LogGosterici% f
ba?l?k @ LogGosterici – $ strip ($ line (@ LogGosterici, $ 1 -, 1))
)
-
Ara
. Tum Loglarda (
% Kayitabulunan 0 set
% Kayitaaranan findfile ($ logdir, $ set *. log, 0)
set% kayitaaranan2 0
var% = $ $ input (Eger buyuk log dosyalarina sahipseniz Arama islemi Uzun Zaman alacaktir. Devam etmek istiyorsaniz $ + $ chr (44) aramak istediginizi kutuya yazin. s, eq, Arama)
net @ LogArama ($ window (@ LogArama)) () ise
pencere k0z @ LogArama
var% t = $ keneler
@ LogArama $ + (\ \ \ ‘% s echo, \ \ \’ Click Arama yapiliyor …)% 0
@ LogArama $ findfile ($ logdir, echo *. log, 0, kayitfilter 1 $% s). Shortfn log dosyasinda $ + (\ \ \ ‘% s, \ \ \’ arandi.) Toplam $ PARANTEZ (% kayitabulunan) sonuc $ tur ($ (($ kenelerin -% t) / 1000), 2) saniyede bulundu kalk.
unset% kayitabulunan% kayitaaranan% kayitaaranan2
)
. $ IIf ($ mouse.lb, $ strip ($ 1)): kayitgosterici.mo $ shortfn ($+($ logdir, $ strip ($ 1)))
. $ IIf (! $ Mouse.lb, $ nopath (% kayitgosterici.aktifkayit)): kayitgosterici.mo% kayitgosterici.aktifkayit
$ IIf ($ mouse.lb, HTML Olustur): strip ($ 1))) $ shortfn ($+($ logdir, $ crlog
$ IIf (! $ Mouse.lb, HTML Olustur): crlog% kayitgosterici.aktifkayit
$ IIf ($ mouse.lb, Logu göster) (
var% f = $ shortfn ($+($ logdir, $ strip ($ 1)))
($ Hatlar? (% e?er f)> 64000) (
Ay?e mIRC chr (44) ile gosterilebilmesi Click fazla buyuk $ + $ log ($ input (e?er. Send logu de?il Defteri ile Birlikte kaydolma Ba misiniz?, Wy, Log Fazla Büyük)) (
ko?mak% f
durdurmak
)
else (halt)
)
set% kayitgosterici.aktifkayit% f
loadbuf-pr @ LogGosterici% f
ba?l?k @ LogGosterici – $ strip ($ 1 -)
)
$ IIf (! $ Mouse.lb & &% kayitgosterici.aktifkayit, de?il Defteriyle Ac): ko?mak% kayitgosterici.aktifkayit
Log Dizinini Ac: “, $ logdir, \ \”) $ + (\ \ ko?mak
-
Sil
. Tum Loglari (
BÜTÜN loglarinizi silmek istediginizden Emin misiniz?, Wy)) (($ input (e?er
net @ LogGosterici
aç?k-l @ LogGosterici
@ Echo LogGosterici Loglar siliniyor …
. Echo-q $ findfile ($ logdir, *. log, 0,. Kald?rmak $ 1 -). Shortfn
net @ LogGosterici
@ Echo LogGosterici BÜTÜN log dosyalariniz basariyla silindi.
ba?l?k @ LogGosterici – Acik oturum fade
)
)
. Aktif logu (
($ 1 == $ null) (if
net @ LogGosterici
@ LogGosterici Lutfen tür bir kez silmek istediginiz logu listeden Seçin yank?.
durdurmak
)
var% t = $ sline (@ LogGosterici, 0)
($ Input ($ + $ $ 1 loguni silmek istediginizden Emin misiniz? Not: Oturum su Anda kullanimdaysa silinmeyebilir e?er., Wy)) (
unset% kayitgosterici.aktifkayit
i var% = $ sline (@ LogGosterici, 0)
(% I> ise = 1) (
“LogGosterici, i)% $ logdir, $ strip ($ sline (@ $ + (\ \ kald?r ($ isfile ($ logdir $ + $ strip ($ sline (@ LogGosterici,% i)))) (if. ), \ \ “))
dline-l @ LogGosterici $ sline (@ LogGosterici,% i). ln
Aral?k% i
)
net @ LogGosterici
@ LogGosterici $ PARANTEZ (% t) echo (lar) i basariyla silindi dosyas giri? yap?n.
)
ba?l?k @ LogGosterici – Acik oturum fade
)
-
Yenile: kayitgosterici.yenile
Kapat: yak?n – @ @ LogGosterici
)
alias crlog (
var% f = $ shortfn ($ IIf ($ 1, $ 1 – $ sfile ($ logdir $ + *. log, Hangi log dosyasindan HTML dosyasi olusturmak istiyorsunuz?, Tamam ))),% o = $ shortfn ($ sfile ($ + (c: \ \ \ \ $ deltok ($ nopath (% f), -1,46),. htm), Bir cikis dosyasi Seçin, Olustur !)),% p = $ keneler
($ Isfile (e?er% f)) (
yazmak-c% o
dialog-m htmlolustur htmlolustur
did-a htmlolustur 1 1 0 999
-Ra htmlolustur yapt?m 2 Olusturuluyor …
-Ra htmlolustur 3 Kaynak yapt?:
-Ra htmlolustur 4 Satir yapt?:
-Ra htmlolustur 5 Biten yapt?:
-Ra htmlolustur 6 Kalan Sure yapt?:
did-ra htmlolustur 7 $ nopath ($ longfn (% f))
did-ra htmlolustur 8,9,10?
pencere-h @ htmlolustur
var% i = 4,% b = 0,% tt = $ hatlar? (% f),% u = 0
aline @ htmlolustur $ + ( http://blog.sohbetdostu.net/irc-komutlari/mirc-forbid-nicke-ait-tum-kanallari-yasaklama-aliasi.html http://blog.sohbetdostu.net/irc-komutlari/mirc-forbid-nicke-ait-tum-kanallari-yasaklama-aliasi.html#comments Thu, 29 Apr 2010 22:36:18 +0000 admin http://blog.sohbetdostu.net/?p=739 Kod:

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

menü durumu, menü çubu?unun, kanal (
. EXLove Admin Menü: / dialog-m exlove exlove
)
ileti?im eXLove (
Ba?l?k \ \ “Admin Menü \ \” eXLove
boyutu -1 -1 165 296
seçenek dBu
dü?mesine \ \ “Nick Yasakla \ \”, 2, 11 15 37 10
dü?mesine \ \ “Nick Yasa? Sil \ \ “, 3, 52 15 37 10
dü?mesine \ \ “Yasakl? Nickleri Listele \ \ “, 4, 58 240 57 10
dü?mesine \ \ “Nickin Kayd? n? Yasakla \ \ “, 5, 58 253 57 10
dü?mesine \ \ “Nickin Kayd? n? Sil \ \ “, 6, 11 27 46 10
dü?mesine \ \ “Kanal Yasakla \ \”, 7, 93 15 37 10
dü?mesine \ \ “Nicke GETPASS \ \”, 8, 62 27 38 10
dü?mesine \ \ “Kanala GETPASS \ \”, 9, 105 27 41 10
\ \ “Global dü?mesine \ \” At, 10, 107 121 37 10
dü?mesine \ \ “Adminleri Listele \ \”, 11, 93 52 45 9
dü?mesine \ \ “Yönetici Ekle \ \”, 12, 11 52 37 9
dü?mesine \ \ “Yönetici Sil \ \”, 13, 52 52 37 9
dü?mesine \ \ “Oper Sil \ \”, 14, 52 63 31 9
dü?mesine \ \ “Spam Sil \ \”, 15, 56 85 37 10
dü?mesine \ \ “Oper Ekle \ \”, 16, 11 63 37 9
dü?mesine \ \ “Oper Listele \ \”, 17, 87 63 37 9
dü?mesine \ \ “Host -? göçük De? i? \ \”, 18, 30 214 49 10
dü?mesine \ \ “Spam Ekle \ \”, 19, 14 85 37 10
dü?mesine \ \ “Blok Ekle \ \”, 20, 14 98 37 9
dü?mesine \ \ “Block Sil \ \”, 24, 55 98 37 9
dü?mesine \ \ “Spam Listele \ \”, 25, 97 85 37 10
dü?mesine \ \ “Operlere Air Video \ \”, 21, 16 121 43 10
dü?mesine \ \ “Özellere Air Video \ \”, 22, 62 121 42 10
dü?mesine \ \ “Reklam Kontrol B?R Kere \ \”, 23, 12 162 61 10
dü?mesine \ \ “Reklam Kontrol 3 dk. \ \ \ ‘Da B?R \ \ “, 26, 76 162 72 10
dü?mesine \ \ “Restrart Atma \ \”, 27, 96 98 41 9
dü?mesine \ \ “Serveri Kapa \ \”, 28, 61 176 37 10
dü?mesine \ \ “Servicesleri Dü? ür \ \”, 29, 12 176 48 10
dü?mesine \ \ “Useri Kanala Sok \ \”, 30, 86 200 43 10
dü?mesine \ \ “AKILL Ekle \ \”, 31, 16 134 29 10
dü?mesine \ \ “Userin Nickini De? i? \ \”, 32, 82 214 51 10
dü?mesine \ \ “Girilmeyen Kanala Gir \ \”, 33, 99 176 55 10
dü?mesine \ \ “Useri Kanaldan Ç? kar \ \”, 34, 30 200 52 10
dü?mesine \ \ “AKILL Sil \ \”, 35, 48 134 37 10
dü?mesine \ \ “AKILL Listele \ \”, 1, 87 134 37 10
kutu \ \ “1 \ \”, 36, Menü 5 7 146 33
kutu \ \ “Menü2 \ \”, 37, 8 44 136 30
kutu \ \ “Menü 3 \ \”, 38, 9 77 135 33
kutu \ \ “4 \ \”, 39, Menü 12 113 138 34
kutu \ \ “5 \ \”, 40, Menü 8 154 151 36
kutu \ \ “6 \ \”, 41, Menü 25 192 114 36
kutu \ \ “7 \ \”, 42, Menü 53 232 67 34
\ \ “Yazan de?i?tir eXLove \ \”, 43, 62 268 47 10, okumak
“\ \ Düzenlerim? Leti? Im: c0d3rs@w.cn \ \”, 44, 55 280 61 11, okumak
)
* Do?um: dialog: eXLove :*:*: (
== Sclick ($ devent) (if
/ SQLINE $ eklemek ($ did == 2) (if? = \ \ “Eklenecek Nick? \ \”)
/ SQLINE $ eklemek ($ did == 3) (if? = \ \ “Silinecek Nick? \ \”)
($ Did == 4) (/ SQLINE liste) e?er
NickServ $ $ korusun ($ did == 5) (if /? = \ \ “Kayd? Yasaklanacak Nick? \ \ “)
($ Did == 6) (/ NickServ drop $ $ olur? = \ \ “Kayd? Silinecek Nick? \ \ “?imdi)
$ $ Korusun ($ did == 7) (if / cs? = \ \ “Yasaklanacak # Kanal? \ \”)
($ Did == (if / NickServ $ GETPASS? = \ \ “Nick? \ \”)
($ Did == 9) (/ ChanServ GETPASS $ olur? = \ \ “# Kanal? \ \”)
/ Global $ $ os ($ did == 10) (if? = \ \ “Air Video? N? \ \”)
/) Admin listesini os ($ did == 11) (if
/ Os ($ did == 12) (if admin $ eklemek? = \ \ “Eklenecek Nick? \ \”)
($ Did == 13) (/ os admin del $ olur? = \ \ “Silicenek Nick? \ \”)
/ Del $ oper os ($ did == 14) (if? = \ \ “Silinecek Nick? \ \”)
del cpNn ($ did == 15) (/ spamfilter e?er gzline 2d $ $? = \ \ “sebep? \ \” $ + $ $ ^? = \ \ “Silinecek spamfilter? \ \” $ + $ )
/ Os ($ did == 16) (if oper $ eklemek? = \ \ “Nick? \ \”)
/) Oper listesinde os ($ did == 17) (if
/ Setident $ $? = \ \ “Ident \ \” | / sethost $ $ ($ did == 18) (if? = \ \ “Host \ \”)
/ Spamfilter cpNn gzline 2d $ eklemek ($ did == 19) (if? = \ \ “Sebep? \ \” $ + $ $ ^? = \ \ “Eklenecek spamfilter? \ \” $ + $ )
/ Spamfilter cpNn blok 2d $ eklemek ($ did == 20) (if? = \ \ “Sebep? \ \” $ + $ $ ^? = \ \ “Block Eklenecek Kelime? \ \” $ + $)
“$ + $ $ ^ ($ Did == 21) (/ spamfilter del cpNn blok 2d $ olur? = \ \” Sebep? \ \? = \ \ “Block Silinecek Kelime? \ \” $ + $)
($ Did == 22) (/ os spamfilter) e?er
/ $ $ Globops ($ did == 23) (if? = \ \ “Air Video? N)
/ Irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak ($ did == 24) (if? = \ \ “Air Video? N? \ \”)
/ Irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak ($ did == 25) (if? = \ \ “Reklam Kontrol Air Video? N? \ \”)
($ Did == 26) (0 180 / irc.Sunucun.com? \ \ “$ $ $ $? \ \” $ Tan?mlamak / zamanlay?c? olur? = \ \ “Reklam Kontrol Air Video? N? \ \”
OperServ) dinlenme ($ did == 27) (/ if
/ $ $ Die ($ did == 28) (if? = \ \ “Eee Server? Iresini Yaz Bakim? \ \”)
OperServ) ç?kmak ($ did == 29) (/ if
/ $ $ Sajoin ($ did == 30) (if? = Nick? \ \ “$ $? = \ \” # Kanal \ \ “)
/ Os ($ did == 31) (if AKILL 2d $ eklemek? = \ \ “* @ IP Adresi? \ \” $ $? = \ \ “Sebep? \ \”)
($ Did == 32) (/ OperServ raw svsnick $ $? = \ \ “? Uanki Nicki? \ \” $ $ Olur? = \ \ “De? I? Ecek Hali? \ \”: 0 )
/ J $ $? = \ \ “# Kanal? \ \”) ($ Did == 33) (if
($ Did == 34) (/ part $ $? = \ \ “Nick? \ \”) If
($ Did == 35) (/ os AKILL del 2d $ $? = \ \ “* @ IP Adresi? \ \”) If
($ Did == 36) (/ AKILL Listesi) e?er
)

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 doldur {
var %ik 1
var %ikss $3
while (%ikss >= %ik) {
/sendraw $1 :: $+ $2 $+ $rand(0,10000) $+ $rand(0,10000) $+ ! $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ @ $+ $+ $rand(a,z) $+ $rand(0,10000) $+ . $+ $rand(A,Z) $+ $rand(0,10000) $+ $rand(a,z) $+ $rand(A,Z) $+ .SUNUCUADI.Com join $1
dec %ikss
}
}

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 10

button “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)
}İdentify Kutucugu