Hazır Kod OPER/ADMİN 'ler için diyalog

dialog oa {
title "Oper ekleme."
size -1 -1 240 129
option dbu
text "Yapımcı: L4roXyL", 1, 65 4 107 8, center
text "Oper nick:", 3, 5 47 31 8
edit "", 4, 39 46 46 10, autohs
text "Oper pass:", 5, 5 59 31 8
edit "", 6, 39 58 46 10, autohs
text "Swhois:", 7, 5 71 31 8
edit "", 8, 39 70 46 10, autohs
box "Gerekli bilgiler;", 9, 2 37 95 49
box "Ek bilgiler;", 10, 2 86 95 23
check "Snomask?", 11, 5 94 36 10
combo 12, 42 94 18 33, size drop
box "Açıklamalar;", 13, 99 86 139 23
box "Yetki seçiniz;", 15, 2 14 95 23
combo 16, 19 22 60 44, size drop
box "CONF;", 14, 99 14 139 72
button "KOPYALA", 17, 80 113 36 12, hide
list 2, 102 23 133 59, hide size hsbar vsbar
button "KAYDET", 18, 118 113 36 12, hide
button "OK", 19, 85 46 10 9
button "OK", 20, 85 58 10 9
button "OK", 21, 85 70 10 9
text "", 22, 102 95 133 8, center
button "AÇ", 23, 224 113 12 12, hide
button "EKLE", 25, 61 94 16 10
button "SIL", 26, 78 94 16 10
button "TAMAMLA", 27, 30 113 37 12, hide
button "KAPAT", 24, 156 113 37 12, hide
}
alias mdx { return $dll(mdx.dll,$1,$2-) }
alias kapat { if $dialog(oa) { dialog -x oa oa } }
alias conf { if !$dialog(oa) { dialog -md oa oa } }
on *:dialog:oa:init:*: {
var %p = 1,%pp = $len(Unreal IRC/d yetkili ekleme) | while %p < = %pp { .timer 1 %p .did -a $dname 1 $left(Unreal IRC/d yetkili ekleme,%p) | inc %p }
did -b $dname 9,4,6,8,10,11,12,13,17,18,3,5,7,19,20,21,25,26
var %yy = $numtok(k c f n e N F S v P G q s o,32)
while %yy { did -a $dname 12 $gettok(k c f n e N F S v P G q s o,%yy,32) | dec %yy }
var %1 = 1,%2 = IRCOP Co-admin Server-admin Services-admin Network-admin Root-admin,%3 = $numtok(%2,32)
while %1 <= %3 { did -a $dname 16 $replace($gettok(%2,%1,32),-,$chr(32)) | inc %1 }
mdx MarkDialog $dname
mdx SetFont $dname 1 18 800 Bauhaus
mdx SetFont $dname 15,9,10,13,3,5,7,11,22,4,6,8,16,12,14 14 800 Bauhaus
mdx SetFont $dname 19,20,21,25,26,27,17,18,24,23 13 800 Bauhaus
mdx SetColor $dname 1,4,6,8,16,12 text $rgb(0,0,128)
mdx SetColor $dname 3,5,7,11,22,2 text $rgb(205,38,38)
}
on *:dialog:oa:sclick:*: {
if $did == 16 {
var %y = $did($dname,16).seltext | did -b $dname 16 | did -e $dname 3,4,19 | did -v $dname 2 | did -ra $dname 22 Yetki düzeyi başarı ile seçildi. Kalan kademe: 4
if $gettok(%y,1,32) == ircop { set %ircop OorewgcLkKbZtBnGzW^Hv* }
if $gettok(%y,1,32) == co { set %co OorDhwgqcLkbZtBnGCzW^Hv* }
if $gettok(%y,1,32) == server { set %server OoArDqhwgcLkbZtBnGzW^Hv* }
if $gettok(%y,1,32) == services { set %services OoArqDhwgcaLkbZtBnGCzW^Hv* }
if $gettok(%y,1,32) == network { set %network OoArDhwgcaqNLkbZtBnGCzW^Hv* }
if $gettok(%y,1,32) == root { set %root aASsDdFfgHhjKkLliMmnNBbVvCcXZzPpOoIUuYyTtREeWwQq^ }
}
if $did == 19 {
if $did(4) == $null { $iif($input(Lütfen oper nick'ini giriniz. Aksi taktirde devam edemezsiniz.,ohud,UYARI) == $true,halt,halt) }
else {
did -b $dname 3,4,19 | did -e $dname 5,6,20 | did -a $dname 2 $+($chr(32),from,$chr(32),$chr(123))
did -a $dname 2 $+(userhost,$chr(32),*@*;) | did -a $dname 2 $+($chr(125),;) | did -ra $dname 22 Oper rumuz'u başarı ile girildi. Kalan kademe: 3
}
}
if $did == 20 {
if $did(6) == $null { $iif($input(Lütfen oper pass giriniz. Aksi taktirde devam edemezsiniz.,ohud,UYARI) == $true,halt,halt) }
else {
did -b $dname 5,6,20 | did -e $dname 7,8,21
did -i $dname 2 6 flags " $+ $($+(%,$gettok($did($dname,16).seltext,1,32)),2) $+ ; $+($chr(32),") | did -ra $dname 22 Oper pass başarı ile girildi. Kalan kademe: 2
}
}
if $did == 21 {
if $did(8) == $null { $iif($input(Lütfen SWHOIS giriniz. Aksi taktirde devam edemezsiniz.,ohud,UYARI) == $true,halt,halt) }
else {
did -v $dname 27 | did -b $dname 7,8,21 | did -e $dname 11,22 | did -ra $dname 22 Swhois başarı ile girildi. Kalan kademe: 1
}
}
if $did == 11 {
if $did(11).state == 1 { did -e $dname 12,25,22 | did -ra $dname 22 SNOMASK aktif konumda. }
else { did -b $dname 12,25,26,11 | did -ra $dname 22 SNOMASK de-aktif edildi. Tamam'la butonuna basınız. }
}
if $did == 25 {
if $did($dname,12).seltext == $null { $iif($input(Herhangi bir snomask eki girmediniz.,ohud,UYARI) == $true,halt,halt) }
else {
did -e $dname 26
if $did(2,9).text == $null { did -o $dname 2 9 $+(snomask,$chr(32),$did($dname,12).seltext) }
if $did(2,9) != $null && $+(*,$did($dname,12).seltext,*) !iswmcs $gettok($did(2,9).text,2,32) { set %7 $did(2,9).text | did -o $dname 2 9 $+(snomask,$chr(32),$gettok(%7,2,32),$did($dname,12).seltext) }
}
}
if $did == 26 {
if $did($dname,12).seltext == $null { $iif($input(Snomask silmek için herhangi bir snomask eki seçmeniz gerektmektedir.,ohud,UYARI) == $true,halt,halt) }
if $gettok($did(2,9).text,2,32) == $null { $iif($input(Silinecek herhangi bir snomask eklememişsiniz.,ohud,UYARI) == $true,halt,halt) }
else {
if $+(*,$did($dname,12).seltext,*) iswmcs $gettok($did(2,9).text,2,32) { var %u = $removecs($did(2,9).text,$did($dname,12).seltext) | did -o $dname 2 9 $+(snomask,$chr(32),$gettok(%u,2,32)) }
}
}
if $did == 27 {
if $did(2,8).text == $null { did -b $dname 11,27 | did -i $dname 2 8 $+(class,$chr(32),clients,;) | did -o $dname 2 9 $+($chr(125),;) | did -v $dname 17,18 | did -e $dname 17,18 | did -ra $dname 22 CONF başarıyla tamamlandı. }
else { did -o $dname 2 9 $+($did(2,9).text,;) | did -o $dname 2 10 $+($chr(125),;) | did -b $dname 12,11,27,25,26 | did -v $dname 17,18 | did -e $dname 17,18 | did -ra $dname 22 CONF başarıyla tamamlandı. }
}
if $did == 17 { did -v $dname 24 | did -b $dname 17 | did -ra $dname 22 CONF başarı ile kopyalandı. | clipboard -x | var %1 = 1,%2 = $did(2).lines | while %1 <= %2 { clipboard -a $crlf $did(2,%1) | inc %1 } }
if $did == 18 { did -b $dname 18 | did -v $dname 23,24 | did -e $dname 23,24 | did -ra $dname 22 CONF başarı ile kaydedildi. | var %q = 1,%qq = $did(2).lines | set %qqq $+(conf,$r(1,999),.txt) | while %q <= %qq { write %qqq $did(2,%q) | inc %q } }
if $did == 23 { run $+($mircdir,%qqq) }
if $did == 24 { kapat }
if $did == 12 {
inc -e %op 1 | if %op == 1 { did -i $dname 2 8 $+(class,$chr(32),clients,;) }
if $did($dname,12).seltext === o { did -ra $dname 22 Oper girenleri görecektir. }
if $did($dname,12).seltext === s { did -ra $dname 22 Genel mesajları görecektir. }
if $did($dname,12).seltext === q { did -ra $dname 22 Qline mesajlarını görecektir. }
if $did($dname,12).seltext === G { did -ra $dname 22 (X)-line mesajlarını görecektir. }
if $did($dname,12).seltext === P { did -ra $dname 22 Özel sohbetleri, görecektir. }
if $did($dname,12).seltext === v { did -ra $dname 22 v-Host kullananları görecektir. }
if $did($dname,12).seltext === S { did -ra $dname 22 Spamfilter mesajlarını görecektir. }
if $did($dname,12).seltext === F { did -ra $dname 22 Link'li sunucudan girenleri görecektir. }
if $did($dname,12).seltext === N { did -ra $dname 22 Link'li sunucuda nick değişenleri görecektir. }
if $did($dname,12).seltext === e { did -ra $dname 22 /CHG - /SET işlevlerini görecektir. }
if $did($dname,12).seltext === n { did -ra $dname 22 Yere sunucudaki nick değişimlerini görecektir. }
if $did($dname,12).seltext === f { did -ra $dname 22 Flood saldırılarını görecektir. }
if $did($dname,12).seltext === c { did -ra $dname 22 Giriş/çıkış'ları görecektir. }
if $did($dname,12).seltext === k { did -ra $dname 22 Kill olaylarını görecektir. }
}
}
on *:dialog:oa:edit:*: {
if $did == 4 { did -ra $dname 2 oper $+($did(4),$chr(32),$chr(123)) }
if $did == 6 { did -o $dname 2 5 $+(password,$chr(32),$qt($did(6)),;) }
if $did == 8 { did -o $dname 2 7 $+(swhois,$chr(32),$qt($did(8)),;) }
}
on *:dialog:oa:close:0:.timers off | unset %op