Tarih: 09/06/2013 / 14:25:23 , Kod sahibi: Available
menu status,query,channel {
Oper/Admin Dailog:dialog $iif($dialog(oa_dia),-v,-m) oa_dia oa_dia
}
dialog oa_dia {
title "Oper - Admin İşlemleri"
size -1 -1 260 250
option dbu
edit "", 2, 25 15 70 10, autohs
edit "", 3, 10 39 85 10, autohs
text "Nick:", 4, 10 16 15 8
button "Host", 5, 12 27 25 10
button "Ident", 6, 39 27 25 10
button "FullName", 7, 66 27 25 10
text "Nick:", 9, 10 63 15 8
text "Kanal:", 10, 10 73 15 8
text "Mod:", 11, 10 83 15 8
edit "", 12, 25 62 40 10, autohs
edit "", 13, 25 72 40 10, autohs
edit "", 14, 25 82 40 10, autohs
button "SaJoin", 15, 70 61 25 10
button "SaPart", 16, 70 71 25 10
button "SaMode", 17, 70 81 25 10
text "Nick` - IP* - Ident~ - FullName^:", 19, 111 16 80 8
text "Sebep:", 20, 111 36 25 8
text "Süre:", 21, 196 16 25 8
edit "", 22, 110 24 80 10, autohs
edit "", 23, 110 44 80 10, autohs
button "Gline", 25, 110 58 25 10
button "Kline", 26, 139 58 25 10
button "Zline", 27, 110 72 25 10
button "Gzline", 28, 139 72 25 10
button "Kill", 29, 168 58 24 10
button "Shun", 30, 168 72 24 10
button "Akill*", 31, 196 58 25 10
button "Sgline~", 33, 196 72 25 10
button "Szline^", 34, 225 72 25 10
text "Simgelenmiş işlemlerde diğer parametreler uygulanamaz.", 82, 110 84 140 8, disable center
box "NickServ İşlemleri:", 83, 5 98 122 60
text "Nick:", 36, 10 107 15 8
text "Sebep:", 37, 10 119 20 8
text "Şifre:", 84, 70 107 15 8
edit "", 38, 30 106 35 10, autohs
edit "", 39, 30 118 90 10, autohs
edit "", 85, 85 106 35 10, autohs
button "Nicki Sil", 40, 15 131 30 10
button "Get Pass", 41, 50 131 30 10
button "Forbid", 42, 85 131 30 10
button "Suspend", 43, 52 144 30 10
button "UnSuspend", 44, 85 144 33 10
button "Şifre Değiştir", 45, 12 144 37 10
box "ChanServ İşlemleri:", 86, 132 98 123 60
text "Kanal:", 46, 138 107 20 8
text "Sebep:", 47, 138 119 20 8
text "Şifre:", 87, 198 107 15 8
edit "", 48, 158 106 35 10, autohs
edit "", 49, 158 118 90 10, autohs
edit "", 88, 213 106 35 10, autohs
button "Kanalı Sil", 50, 143 131 30 10
button "Get Pass", 51, 178 131 30 10
button "Forbid", 52, 213 131 30 10
button "Suspend", 53, 181 144 30 10
button "UnSuspend", 54, 214 144 33 10
button "Şifre Değiştir", 55, 141 144 37 10
box "OperServ İşlemleri:", 89, 5 160 250 85
text "Nick:", 56, 15 230 20 8
text "Kanal:", 57, 95 230 20 8
text "Server:", 58, 175 230 20 8
edit "", 59, 45 170 205 10, autohs
edit "", 60, 35 229 50 10, autohs
edit "", 61, 115 229 50 10, autohs
edit "", 62, 195 229 50 10, autohs
button "Global Mesaj", 63, 10 170 35 10
button "Modları Sil", 70, 13 200 35 10
button "Kanalı Boşalt", 71, 53 200 35 10
button "Klonları Kille", 72, 93 200 35 10
button "Kanalı Akille", 73, 133 200 35 10
button "Kanal Listesi", 74, 173 200 35 10
button "User Listesi", 75, 213 200 35 10
}
on *:dialog:oa_dia:init:*:{
didtok $dname 24 44 30 dakika,1 saat,12 saat,1 gün,3 gün,14 gün,30 gün
if a !isincs $usermode { did -b $dname 12-17,40-44,50-54,64,65,67,68,76-81 }
if a isincs $usermode { did -a $dname 24 Kalıcı(+0) }
}
on *:dialog:oa_dia:sclick:5-7:{
if $did(2) && $did(3) {
if $did == 5 { chghost $did(2) $did(3) }
if $did == 6 { chgident $did(2) $did(3) }
if $did == 7 { chgname $did(2) $did(3) }
}
did -r $dname 2,3
}
on *:dialog:oa_dia:sclick:15-17:{
if $did(12) {
if $did == 15 && $did(13) { sajoin $did(12) $did(13) }
if $did == 16 && $did(13) { sapart $did(12) $did(13) }
if $did == 17 && $did(14) { samode $did(13) $did(14) }
}
did -r $dname 12-14
}
on *:dialog:oa_dia:sclick:25-34:{
if $did(35).state != 1 {
if $did == 25 { gline $oa_ip($did(22)) $iif($did(24), $süre_oa($did(24))) $iif($did(23), $did(23)) }
if $did == 26 { kline $oa_ip($did(22)) $iif($did(24), $süre_oa($did(24))) $iif($did(23), $did(23)) }
if $did == 27 { zline $oa_ip($did(22)) $iif($did(24), $süre_oa($did(24))) $iif($did(23), $did(23)) }
if $did == 28 { gzline $oa_ip($did(22)) $iif($did(24), $süre_oa($did(24))) $iif($did(23), $did(23)) }
if $did == 29 { if !$did(23) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else kill $oa_ip($did(22)) $did(23) }
if $did == 30 { shun $oa_ip($did(22)) $iif($did(24), $süre_oa($did(24))) $iif($did(23), $did(23)) }
if $did == 31 { if !$did(23) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .os akill add $iif($did(24), $süre_oa($did(24))) $oa_ip($did(22)) $did(23) }
if $did == 32 { if !$did(23) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .os sqline add $iif($did(24), $süre_oa($did(24))) $did(22) $did(23) }
if $did == 33 { if !$did(23) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .os sgline add $iif($did(24), $süre_oa($did(24))) $iif($chr(32) isin $did(22), $qt($did(22))) $did(23) }
if $did == 34 { if !$did(23) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .os szline add $iif($did(24), $süre_oa($did(24))) $did(22) $did(23) }
}
if $did(35).state == 1 {
if $istok(25.26.27.28.30,$did,46) { $did($did) $oa_ip($did(22)) }
if $did == 31 { .os akill del $oa_ip($did(22)) }
if $istok(32.33.34,$did,46) { .os $left($did($did),-1) del $did(22) }
}
did -r $dname 22,23
did -u $dname 24
}
on *:dialog:oa_dia:sclick:35:{ did $iif($did(35).state == 1,-b,-e) $dname 23,24,29 }
on *:dialog:oa_dia:sclick:40-45:{
if $did(38) {
if $did == 40 { .ns dropnick $did(38) }
if $did == 41 { .ns getpass $did(38) }
if $did == 42 { .ns forbid $did(38) }
if $did == 43 { if !$did(39) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .ns suspend +0 $did(38) $did(39) }
if $did == 44 { .ns unsuspend $did(38) }
if $did == 45 { .ns set $did(38) password $did(85) }
}
did -r $dname 38,39,85
}
on *:dialog:oa_dia:sclick:50-54:{
if $did(48) {
if $did == 50 { .cs drop $iif($chr(35) !isin $did(48), $+(#,$did(48))) }
if $did == 51 { .cs getpass $iif($chr(35) !isin $did(48), $+(#,$did(48))) }
if $did == 52 { .cs forbid $iif($chr(35) !isin $did(48), $+(#,$did(48))) }
if $did == 53 { if !$did(49) { noop $input(Bu işlem için sebep girmelisiniz.,ohud,Hata!) }
else .cs suspend +0 $iif($chr(35) !isin $did(48), $+(#,$did(48))) $did(49) }
if $did == 54 { .cs unsuspend $iif($chr(35) !isin $did(48), $+(#,$did(48))) }
if $did == 55 { .cs set $did(48) password $did(88) }
}
did -r $dname 48,49,88
}
on *:dialog:oa_dia:sclick:63:{ if $did(59) { .os global $did(59) | did -r $dname 59 } }
on *:dialog:oa_dia:sclick:64-81:{
if $did(60) {
if $did == 64 { .os oper add $did(60) }
if $did == 65 { .os oper del $did(60) }
if $did == 67 { .os admin add $did(60) }
if $did == 68 { .os admin del $did(60) }
if $did == 72 { .os killclones $did(60) }
}
if $did(61) {
if $did == 70 && $did(61) { .os clearmodes $did(61) all }
if $did == 71 && $did(61) { .os clearchan $did(61) }
if $did == 73 { .os akillchan kill +0 $did(61) $$?="Akill Mesajı Giriniz:" }
}
if $did == 69 { .os admin list }
if $did == 66 { .os oper list }
if $did == 74 { .cs list $$?="Liste İçin Maske Giriniz:" }
if $did == 75 { .ns list $$?="Liste İçin Maske Giriniz:" }
if $did == 76 && $did(62) { .os jupe $did(62) }
if $did == 77 { .os shutdown }
if $did == 78 { .os update }
if $did == 79 { .os quit }
if $did == 80 { .os rehash }
if $did == 81 { .os restart }
did -r $dname 60-62
}
alias -l süre_oa {
if gün isin $1- { return $+(+,$replace($1-,$+($chr(32),gün),d)) }
if dk. isin $1- { return $+(+,$replace($1-,$+($chr(32),dakika),m)) }
if saat isin $1- { return $+(+,$replace($1-,$+($chr(32),saat),h)) }
else { return +0 }
}
alias -l oa_ip {
if !$1 { return $null }
else { return $iif($regex($1,/(((\d{1,3}|\*)\.){3}(\d{1,3}|\*))/),$+(*@,$remove($regml(1),*@)),$1) }
}


;--- Kod'u remote bölümüne yapıştırdıktan sonra ;
;--- Mirc'inizi 1 seferliğe mahsuz , kapatıp/açma'nız yeterli olacaktır.
;--- Saygılarımla ; k.S.c
