mIRC cLone Protection (admin/aop mod)

# Off ServerCp
$ *: Snotice Do?um: / istemci \ \ \ \ s (| ç?kt?ktan ba?lama) / Si: (
var% _reg = $ regml (1),% _ip = $ ($ chr (41)) gettok ($ 10,2,64), $ kald?r
($(,%_ Reg) = ba?layan) (if
hinc-m _ips% _ip 1
($ Hget (_ips,% _ip) =% csayi) (if
m% clogo | hdel _ips% _ip) $ 9 10 shun (% cShun == üzerinde) (if
| Hdel _ips% _ip) $% 9 clogo öldürmek (% ckill == üzerinde) (if
os KILLCLONES (% cakill == üzerinde) (if $ 9 | hdel _ips% _ip)
% Cz-Line == üzerinde) (m% clogo | hdel _ips% _ip) $ 9 10 zline (e?er
)
($(,%_ Reg) = ç?kma) $ IIf ($ hget (_ips,% _ip), hdec _ips% _ip 1) e?er
)
)
# ServerCp sonu
# ChanCp üzerinde
@ * Do?um: join: #: (
/ (* Admin | * oper | IRCop | helper ($ regex ($ site) / i)) (halt) if
($ Ialchan ($ wildsite, e?er #, 0)>% csayi) (
($ Isop nick e?er #) & & (% c @ plar == üzerinde) (return)
($ Nick isvo #) & & (% c + v == üzerinde) (return) if
IIf (% csure isnum,-u $ +% csure) # $ nick 2) $ yasa?? (% cban == üzerinde) (if
ialchan ($ wildsite, # $ kick (% ckick == üzerinde) (if # 1). nick% clogo)
)
)
# ChanCp sonu
alias cprot (. dialog-m cprot cprot)
ileti?im cprot (
Ba?l?k \ \ "Weil \ \ taraf?ndan"
boyutu -1 -1 173 71
seçenek dBu
kutu "ayarLa \ \ \ \, 1, 1 1 87 69
"\ \" Z-Line \ \ kontrol 8, 130 50 27 10
"\ \ Kontrol KILL \ \", 9, 92 59 21 10
\ \ De?i?tir "\ \", 10, 114 32 23 10
metin "Saniye \ \ \ \, 11, 138 33 20 8
kutu \ \ "Ayir \ \", 12, 89 1 40 26
kutu "ceza \ \ \ \, 112, 89 26 83 44
kontrol \ "\ @ plar \ \", 13, 93 7 34 10
kontrol \ "+ v \ \ \", 14, 93 16 30 10
"\ \ Kontrol AKILL \ \", 7, 130 59 27 10
"\ \ Kontrol Kick \ \", 15, 92 41 21 10
"\ \ Kontrol Ban \ \", 16, 92 32 21 10
"\ \ Kontrol Shun \ \", 17, 92 50 26 10
kutu \ \ "\ \", 18, Mod 132 1 40 26
radyo "" admin \ \ \ \, 21, 135 7 26 10
radyo "aop \ \ \ \, 22, 135 16 26 10
dü?mesine \ \ "kaydet ve ç? k \ \", 5, 27 34 58 12, ok
\ \ Düzenlemek \ \ ", 2, 6 9 13 8
= Klon demek metin \ \ ">? S? \ \", 19, 19 9 42 9
\ \ De?i?tir "\ \", 20, 19 21 66 10, devre d???
metin \ \ "? uan: \ \", 23, 3 22 16 8
dü?me \ "IPTAL \ \", 24, 4 34 21 12, iptal \
kutu \ \ "\ \", 3, 3 46 83 22
)
* Do?um: dialog: cprot: init: *: (
did-a $ dname% 2 csayi
did-a $ dname 10% csure
e?er% c @ plar == üzerinde (did-c $ dname 13)
e?er% c + v == üzerinde (did-c $ dname 14)
if% cz-Line == üzerinde (did-c $ dname 8)
if% ckill == üzerinde (did-c $ dname 9)
if% cakill == üzerinde (did-c $ dname 7)
if% cShun == üzerinde (did-c $ dname 17)
if% cban == üzerinde (did-c $ dname 16)
if% cKick == üzerinde (did-c $ dname 15)
($ Grup (# ServerCp) == üzerinde) (if did-c $ dname 21)
($ Grup (# chanCp) == üzerinde) (if did-c $ dname 22)
)
* Do?um: dialog: cprot: sclick: *: (
% Csayi $ set ($ did == 5) (if (2) set | did% clogo klon Yasak | cduruma admin mod devrede)% cdurumo operatör mod devrede set |% set
$ Istok (7 8 9 13 14 15 16 17 $ yapt?m, 32) ($ IIf ($ if ($ did) yapt?. Devlet == 1, set% c $ + $ gettok ($ ($ did) yapt?. Metni , 1,32) üzerinde. set% c $ + $ gettok ($ ($ did) yapt?. metin, 1,32) kapal?))
10,11,13,14,15,16 | did-e cprot 7,8,9,17 | did-r $ # ServerCp | did-b cprot etkinle?tirmek ($ did = 21) (if. Disable # chanCp |. dname 20 | did-a $ dname 20% cduruma)
# ChanCp | did-e cprot 10,11,13,14,15,16 | did-b cprot 7,8,9,17 | did-r $ etkinle?tirmek ($ did = 22) (if. Disable # ServerCp |. dname 20 | did-a $ dname 20% cdurumo)
)
* Do?um: dialog: cprot: edit: *: (
% Csure = $ did (10)
)