;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;-----
;;;;Motd PaneL Diyalog Sistemi
;;;;-----
;;;;iRC ConferenceRoom TechnicaL Admin Goemon
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu channel,query,status { 
Motd/Ekle/Sil Diyalogu:/Motdpanel
}
alias mdx { return $dll(DLL\mdx.dll,$1,$2-) }
alias Motdpanel { if $dialog(MotdEkle) { !echo -a 2Motd PaneL Dialog'u Zaten 4AÇIK! } | else { !dialog -m MotdEkle MotdEkle } }
dialog MotdEkle {
title "Motd Ekleme // ident Ekleme/Silme/Listeleme // Web ident Ekleme/Silme // By Goemon"
size -1 -1 405 170
option dbu
box "Motd PaneL Statüs Listesi", 1, 116 4 287 130
list 2, 118 13 282 119, size vsbar
box "iDent Listesi", 3, 3 33 67 100
list 4, 8 41 58 81, size vsbar
edit "", 5, 5 12 70 13
button "EkLe", 6, 76 13 33 11
box "iDent EkLe", 7, 3 4 111 25
button "Motd.txt TıkLa Aç", 8, 116 155 50 13
text "Not : iDentleri Silmek için ident Listesindeki identlerin üstüne gelerek identlerden silmek istediğinizi seçerek 2 defa ard arda tıklayıp seçmiş olduğunuz identi silebilirsiniz. Diyalog Tarafımca yazılmışdıR... ( Coded By Goemon ) ", 9, 2 135 111 33
button "Motd EkLe", 10, 74 53 38 12
button "Motd YeniLe", 12, 74 39 38 12, ok
button "Tamam / Kapat", 13, 354 146 47 12, ok
button "ident.txt TıkLa Aç", 11, 116 138 50 13
button "Web iDent oLuştuR", 14, 168 155 54 13
button "mIRC iDent oLuştuR", 15, 168 138 54 13
button "Web iDent SiL", 16, 224 155 50 13
button "mIRC iDent SiL", 17, 224 138 50 13
button "mIRC iDent List Bilgisi", 18, 276 138 75 13
text " ConferenceRoom ", 19, 7 124 61 6
button "Z-Default Girişini AÇ/KAPAT", 20, 276 155 75 13
button "Zdefault Bilgi", 21, 74 67 38 12
button "iLeRi Git", 22, 74 104 38 12
button "Geri GeL", 23, 74 118 38 12
box "", 24, 72 33 43 100
button "Motd List", 25, 74 80 38 12
}

on *:dialog:MotdEkle:init:*: { 
dialog -s $dname -1 -1 232 340
if $isfile(ident.txt) { loadbuf -o $dname 4 ident.txt }
if $isfile(motd.txt) { loadbuf -o $dname 2 motd.txt }
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(48,213,255)

mdx SetColor $dname 9,19 text $rgb(0,0,0)
mdx SetFont $dname 9 11 700 Tahoma
mdx SetFont $dname 19 13 700 Tahoma
mdx SetColor $dname 9,19 textbg $rgb(48,213,255)
mdx SetFont $dname 1,3,7 14 700 Tahoma
mdx SetColor $dname 1,3,7 background $rgb(48,213,255)
mdx SetFont $dname 6,7,8,10,11,12,13,14,15,16,17,18,20,21,22,23,25 12 700 Verdana
}

on *:dialog:MotdEkle:sclick:12: { 
if $isfile(motd.txt) { did -r $dname 2 | loadbuf -o $dname 2 motd.txt }
}
on *:dialog:MotdEkle:dclick:2: { var %d2 $$did($dname,2).seltext | did -d $dname 2 $did($dname,2).sel | write -ds $+ %d2 motd.txt | yenile2_ }
on *:dialog:MotdEkle:sclick:10: { motdekle }
on *:dialog:MotdEkle:sclick:8: { run $mircdirmotd.txt }
on *:dialog:MotdEkle:sclick:11: { run $mircdirident.txt }
on *:dialog:MotdEkle:sclick:6: { var %d1 $did(5).text | $iif(!$read(ident.txt,w,%d1), write ident.txt %d1, halt) | did -a $dname 4 $$did(5).text | did -r $dname 5 }
on *:dialog:MotdEkle:dclick:4: { var %d4 $did($dname,4).seltext | did -d $dname 4 $did($dname,4).sel | write -ds $+ %d4 ident.txt | yenile_ }

on *:dialog:MotdEkle:sclick:14: { 
set %mIRCwebident $$?="mIRC Web iRC Girişi İdent Adını Yazınız.Örn: mircscripting@* Gibi" 
.as client z-default mask add %mIRCwebident
}

on *:dialog:MotdEkle:sclick:15: { 
set %mIRCident $$?="mIRC iRC Girişi İdent Adını Yazınız.Örn: mIRC Gibi" 
set %mIRCpassword $$?="mIRC iRC Girişinin Şifreni Belirleyin.Örn: 123654 Gibi"
set %mIRCemail $$?="mIRC Email Adını Yazınız.Örn: mIRC@* Gibi"
enable #identeklendi
.as client %mIRCident add
.as client %mIRCident set password %mIRCpassword
.as client %mIRCident mask add %mIRCemail
.as client %mIRCident mask add %mIRCemail
.as client %mIRCident enable
.timer 1 1 /disable #identeklendi
}

on *:dialog:MotdEkle:sclick:16: { 
set %mIRCwebidentsil $$?="mIRC Web iRC Girişi İdent Adını Yazarak Silebilirsiniz.Örn: mircscripting@* Gibi" 
.as client z-default mask del %mIRCwebidentsil
}

on *:dialog:MotdEkle:sclick:17: { 
set %mIRCidentsil $$?="mIRC Email iDent Adını Yazarak Silebilirsiniz.Örn: mIRC Gibi"
enable #identsilindi
.as client %mIRCidentsil del 
.timer 1 1 /disable #identsilindi
}

on *:dialog:MotdEkle:sclick:18: { 
set %mIRClist $$?="mIRC Email iDent Adını Yazarak Bilgi Alabilirsiniz.Örn: mIRC Gibi"
enable #identbilgi
.as client %mIRClist list 
.timer 1 1 /disable #identbilgi
}

alias yenile_ { did -r MotdEkle 4 | loadbuf -o MotdEkle 4 ident.txt }
alias yenile2_ { did -r MotdEkle 2 | loadbuf -o MotdEkle 2 motd.txt }

alias motdekle {
bread motd.txt 0 $file(motd.txt) &s
var %p = 1 , %ident
while %p <= $lines(ident.txt) {
%ident = $read(ident.txt,%p)
as client %ident motd erase
var %i = 0 , %c = 1 , %t
while $bfind(&s,%i,$crlf).text {
%i = $ifmatch
bcopy &b 1 &s %c $calc(%i - %c )
%i = %i + 1
breplace &b 32 160
;echo -s $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160)) 
as client %ident motd append $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
bunset &b
%c = %i
}
inc %p
}
identler 
}

alias identler {
var %id_ 1, %idt_ $did(motdekle,4).lines
while %id_ <= %idt_ { 
echo -a 4 $did(motdekle,4,%id_).text 12Identine Motd Eklendi..
inc %id_
}
}

alias zbilgi { 
if (2 // %trm) { noop $input(En Son Z-Default Açıldı,o,Z-Default Bilgi) }
else { noop $input(En Son Z-Default Şifresi Değiştirildi Şifre: %randompass,o,Z-Default Bilgi) }
}

alias zdefa { inc %trm
if 2 // %trm { as client z-default set password | echo -a 10z-default 2Şifresi Kaldırıldı.. }
else { set %randompass $+($r(1,9), $r(a,z), $r(0,9), $r(A,Z), $r(0,9), $r(a,z), $r(A,Z), $r(0,9), $r(a,z)) | As client z-default set password %randompass | echo -a 10z-default 2Şifresi 4AUTO 2degişdirildi 4Şifre;5[12 %randompass 5] }
}

on *:dialog:MotdEkle:sclick:21:{ zbilgi }

on *:dialog:MotdEkle:sclick:20: { zdefa }


on *:dialog:MotdEkle:sclick:25: { 
enable #motdlist
.motd
echo -a 2Motd Listesi Başarıyla 3Tamamlandı...
.timer 1 1 /disable #motdlist
}

#motdlist on
raw 372:*:{ if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List)) { window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List }
echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]List 4 $date 10 $1 2 $2-
halt 
} 
#motdlist end

#identbilgi off
on *:snotice:*: {
if (*Success -- Client class* iswm $1-) { 
echo -a 7----------------------------------------
echo -a 4 $5 2identinin Bilgileri GösteriLdi. 
}
elseif (*Client * set password* iswm $1-) { 
echo -a 4 $3 2identinin Şifresi :10 $6 
}
elseif (*Client * mask add* iswm $1-) { 
echo -a 4 $3 2identinin Maskı :10 $6 
echo -a 7---------------------------------------- 
}
elseif (*Failure -- That client class doesn't exist* iswm $1-) { 
echo -a 4HATA 10Sunucuda Açılmış 2Böle Bir ident yok! }
}
#identbilgi end

#identeklendi off
on *:snotice:*: {
if (*Success -- Client class * enabled* iswm $1-) { 
/echo -a 7----------------------------------------
echo -a 4 $5 2identi BaşarıyLa Eklendi.
echo -a 4 $5 2identi Şuan Kullanıma 3AKTİF! 
/echo -a 7----------------------------------------
}
}
#identeklendi end

#identsilindi off
on *:snotice:*: {
if (*Success -- Client * deleted.* iswm $1-) { 
/echo -a 7----------------------------------------
echo -a 4 $4 2identi BaşarıyLa Silindi.Kullanıma Kapatıldı.
/echo -a 7----------------------------------------
}
}
#identsilindi end

on *:dialog:MotdEkle:sclick:22: { 
ilerigit
}
on *:dialog:MotdEkle:sclick:23: { 
gerigel
}
alias -l ilerigit { 
dialog -s $dname $dialog($dname).x $dialog($dname).y 805 340
}
alias -l gerigel { 
dialog -s $dname $dialog($dname).x $dialog($dname).y 230 340
}
;;;;;;;;;;;;;;;;;;Motd PaneL Listesi Son;;;;;;;;;;;;;;;;;