mIRC cLone Protection (admin/aop mod)
Standart klon Korumas? (/ admin mod aop)
Mrb Herkese
Koruma admin ve aop Olmak üzre Iki ayr? modda çal? makta. Admin mod sunucu giri? Lerindeki ip leri, Operatör mod imkb kanal giri? Indeki hostlar? baz alarak çal? maktad? r. Bol seçenekli bi? Ey yapmaya çal? T? M. Sorun ya? Arsan? Z ba? L? K alt? Nda belirtebilirsiniz.
? Yi Forumlar







Kod:
# 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)
)