bogger
27.05.2009, 22:16
Предлагаю выкладывать нужные скрипты для программы mIRC.
Начну я....
Что бы скрипты работали их надо загрузить командой /load -rs <name script> либо сохранять вписывая в Раздел скрипты или alt+r там скрипты.
Скрипт Анти-бана
Создать файл antiban.mrc в папке mIRC в писать в него код ниже будет, потом загрузить его написав любом канале /load -rs antiban.mrc. Или alt+r там в скрипты вставить скрипт и сохранить просто..
Код скрипта.
menu menubar {
A N T I B A N:aban
}
dialog ban {
size 280 180 240 180
title "A N T I B A N"
box "Опции", 1, 10 10 220 130
check "Вкл", 2, 25 30 70 15
radio "предупредить, при повторе кик/бан", 3, 15 50 205 15, disable
radio "анбан и кик", 4, 15 70 140 15, disable
radio "анбан и кик/бан", 5, 15 90 120 15, disable
text "Сообщение:", 6, 14 110 60 15
edit "", 7, 75 107 150 20
button "Применить", 8, 15 150 65 20, disable
button "Отмена", 9, 95 150 50 20, cancel
button "Выход", 10, 175 150 50 20, ok
text "", 17, 330 95 80 15
}
alias aban dialog -m ban ban
on *:dialog:ban:*:*:{
if $devent == sclick {
if $did == 2 && $did(2).state == 1 { did -e ban 8,3,4,5 | did -n ban 7 }
elseif $did == 2 && $did(2).state != 1 { did -b ban 3,4,5 | did -e ban 8 | did -m ban 7 }
if $did == 3 { did -e ban 8 }
if $did == 4 { did -e ban 8 }
if $did == 5 { did -e ban 8 }
if $did == 8 {
if $did(2).state == 1 { set %antiban on }
else { set %antiban off }
if $did(3).state == 1 { set %modeb 1 }
if $did(4).state == 1 { set %modeb 2 }
if $did(5).state == 1 { set %modeb 3 }
if $did(7).text != $null { set %banpr $did(7).text }
elseif $did(7).text == $null { set %banpr A N T I (+b)
}
did -b ban 8
}
if $did == 12 { did -e ban 8 }
}
if $devent == edit { did -e ban 8 }
if $devent == init {
if %antiban == off { did -m ban 7 }
else {
did -e ban 3,4,5
did -c ban 2
}
if %banpr == $null { did -a ban 7 A N T I (+b)
}
else { did -a ban 7 %banpr }
if %modeb == 1 { did -c ban 3 }
if %modeb == 2 { did -c ban 4 }
if %modeb == 3 { did -c ban 5 }
}
}
on *:ban:#:{
if %antiban == on {
if ($nick == $me) && ($banmask !isin %bm) { set %bm %bm $banmask }
if ($nick == chanserv) && ($banmask iswm $address($me,5)) { set %akik $banmask }
if ($nick != $me) && ($banmask iswm $address($me,5)) && ($nick != Chanserv) {
.raw -q kick # $nick
.raw -q mode # -b $banmask
if (%modeb == 1) && ($nick != Chanserv) { if ($nick != %banner) { .notice $nick Не бань меня парамоша!! | set -u60 %banner $nick } | else { .raw mode # -oeI+b %banner %banner %banner $address(%banner,2) | .raw kick # %banner %banpr | unset %banner } }
if (%modeb == 2) && ($nick != Chanserv) { .raw kick # $nick %banpr }
if (%modeb == 3) && ($nick != Chanserv) { .raw mode # -o+b $nick $nick | .raw kick # $nick %banpr }
}
halt
}
}
on *:UNBAN:#:{
if ($banmask isin %bm) {
if ($nick != $me) .raw -q mode # +b $banmask
else set %bm $remove(%bm,$banmask)
}
}
raw 474:*: {
.msg ChanServ unban $2
}
on *:notice:*:*:{
if ($nick == ChanServ) && ((cleared isin $1-) || (Вы были разбанены на канале isin $1-)) { raw -q join $chr(35) $+ $gettok($1-,2,35) }
}
По первому примеру делайте так же и другие.
Скрипт antideop.mrc защита от деопа ( Что бы op не отобрали ao or @)
Код
menu menubar {
A N T I D E O P:/adeop
}
dialog adeop {
size 280 180 240 180
title "A N T I D E O P"
box "Опции", 1, 10 10 220 130
check "Вкл", 2, 25 30 70 15
radio "предупредить, при повторе кик/бан", 3, 15 50 205 15, disable
radio "кик", 4, 15 70 140 15, disable
radio "кик/бан", 5, 15 90 120 15, disable
text "Сообщение:", 6, 14 110 60 15
edit "", 7, 75 107 150 20
button "Применить", 8, 15 150 65 20, disable
button "Отмена", 9, 95 150 50 20, cancel
button "Выход", 10, 175 150 50 20, ok
text "", 17, 330 95 80 15
}
alias adeop dialog -m adeop adeop
on *:dialog:adeop:*:*:{
if $devent == sclick {
if $did == 2 && $did(2).state == 1 { did -e adeop 8,3,4,5 | did -n adeop 7 }
elseif $did == 2 && $did(2).state != 1 { did -b adeop 3,4,5 | did -e adeop 8 | did -m adeop 7 }
if $did == 3 { did -e adeop 8 }
if $did == 4 { did -e adeop 8 }
if $did == 5 { did -e adeop 8 }
if $did == 8 {
if $did(2).state == 1 { set %antideop on }
else { set %antideop off }
if $did(3).state == 1 { set %modea 1 }
if $did(4).state == 1 { set %modea 2 }
if $did(5).state == 1 { set %modea 3 }
if $did(7).text != $null { set %deopr $did(7).text }
elseif $did(7).text == $null { set %deopr ANTIDEOP
}
did -b adeop 8
}
if $did == 12 { did -e adeop 8 }
}
if $devent == edit { did -e adeop 8 }
if $devent == init {
if %antideop == off { did -m adeop 7 }
else {
did -e adeop 3,4,5
did -c adeop 2
}
if %deopr == $null { did -a adeop 7 ANTIDEOP
}
else { did -a adeop 7 %deopr }
if %modea == 1 { did -c adeop 3 }
if %modea == 2 { did -c adeop 4 }
if %modea == 3 { did -c adeop 5 }
}
}
on !*:deop:#:{
if %antideop == on {
if ($opnick == $me) {
.msg chanserv op # $me
if (%modea == 1) && ($nick != Chanserv) { if ($nick != %deoper) { .notice $nick Не деопь меня парамоша!! | .msg chanserv deop # $nick | set -u60 %deoper $nick } | else { .raw -q mode # -o+b %deoper $address(%deoper,2) | .raw -q kick # %deoper %deopr | unset %deoper } }
if (%modea == 2) && ($nick != Chanserv) { .raw -q kick # $nick %deopr }
if (%modea == 3) && ($nick != Chanserv) { .raw -q mode # -o+b $nick $nick | .raw -q kick # $nick %deopr }
}
halt
}
}
Все работает на quakenet.org еще я изменил с легка меню [lpopup]
Ну вот еще пару команд для quakenet.org будут работать точно. Для более продвинутых пользователей кто знает что я написал...
n19=Дать права через Q
n20=.Дать +ao:/msg Q CHANLEV $chan $$1 +ao
n21=.Забрать ao:/msg Q CHANLEV $chan $$1 -ao
n22=.Дать +av:/msg Q CHANLEV $chan $$1 +av
n23=.Забрать av:/msg Q CHANLEV $chan $$1 -av
n24=.Забанить +b:/msg Q CHANLEV $chan $$1 +b
Еще при нажатии на канал [cpopup] тоже немного улучшил.
n0=Информация о канале:/channel
n1=Права пользователей через Q:/msg Q CHANLEV $chan
n2=Забанить на этом канале по маске:/ban $chan $$?="Введите маску пользователя"
Пока все но очень буду рад если кто найдет более лучше скрипты на антибан деоп. Видел лучше только там шли сразу с миркой , а там скрипты спрятаны были и достать не смог.
Делитесь своими скриптами какие вы используете и тп.
Начну я....
Что бы скрипты работали их надо загрузить командой /load -rs <name script> либо сохранять вписывая в Раздел скрипты или alt+r там скрипты.
Скрипт Анти-бана
Создать файл antiban.mrc в папке mIRC в писать в него код ниже будет, потом загрузить его написав любом канале /load -rs antiban.mrc. Или alt+r там в скрипты вставить скрипт и сохранить просто..
Код скрипта.
menu menubar {
A N T I B A N:aban
}
dialog ban {
size 280 180 240 180
title "A N T I B A N"
box "Опции", 1, 10 10 220 130
check "Вкл", 2, 25 30 70 15
radio "предупредить, при повторе кик/бан", 3, 15 50 205 15, disable
radio "анбан и кик", 4, 15 70 140 15, disable
radio "анбан и кик/бан", 5, 15 90 120 15, disable
text "Сообщение:", 6, 14 110 60 15
edit "", 7, 75 107 150 20
button "Применить", 8, 15 150 65 20, disable
button "Отмена", 9, 95 150 50 20, cancel
button "Выход", 10, 175 150 50 20, ok
text "", 17, 330 95 80 15
}
alias aban dialog -m ban ban
on *:dialog:ban:*:*:{
if $devent == sclick {
if $did == 2 && $did(2).state == 1 { did -e ban 8,3,4,5 | did -n ban 7 }
elseif $did == 2 && $did(2).state != 1 { did -b ban 3,4,5 | did -e ban 8 | did -m ban 7 }
if $did == 3 { did -e ban 8 }
if $did == 4 { did -e ban 8 }
if $did == 5 { did -e ban 8 }
if $did == 8 {
if $did(2).state == 1 { set %antiban on }
else { set %antiban off }
if $did(3).state == 1 { set %modeb 1 }
if $did(4).state == 1 { set %modeb 2 }
if $did(5).state == 1 { set %modeb 3 }
if $did(7).text != $null { set %banpr $did(7).text }
elseif $did(7).text == $null { set %banpr A N T I (+b)
}
did -b ban 8
}
if $did == 12 { did -e ban 8 }
}
if $devent == edit { did -e ban 8 }
if $devent == init {
if %antiban == off { did -m ban 7 }
else {
did -e ban 3,4,5
did -c ban 2
}
if %banpr == $null { did -a ban 7 A N T I (+b)
}
else { did -a ban 7 %banpr }
if %modeb == 1 { did -c ban 3 }
if %modeb == 2 { did -c ban 4 }
if %modeb == 3 { did -c ban 5 }
}
}
on *:ban:#:{
if %antiban == on {
if ($nick == $me) && ($banmask !isin %bm) { set %bm %bm $banmask }
if ($nick == chanserv) && ($banmask iswm $address($me,5)) { set %akik $banmask }
if ($nick != $me) && ($banmask iswm $address($me,5)) && ($nick != Chanserv) {
.raw -q kick # $nick
.raw -q mode # -b $banmask
if (%modeb == 1) && ($nick != Chanserv) { if ($nick != %banner) { .notice $nick Не бань меня парамоша!! | set -u60 %banner $nick } | else { .raw mode # -oeI+b %banner %banner %banner $address(%banner,2) | .raw kick # %banner %banpr | unset %banner } }
if (%modeb == 2) && ($nick != Chanserv) { .raw kick # $nick %banpr }
if (%modeb == 3) && ($nick != Chanserv) { .raw mode # -o+b $nick $nick | .raw kick # $nick %banpr }
}
halt
}
}
on *:UNBAN:#:{
if ($banmask isin %bm) {
if ($nick != $me) .raw -q mode # +b $banmask
else set %bm $remove(%bm,$banmask)
}
}
raw 474:*: {
.msg ChanServ unban $2
}
on *:notice:*:*:{
if ($nick == ChanServ) && ((cleared isin $1-) || (Вы были разбанены на канале isin $1-)) { raw -q join $chr(35) $+ $gettok($1-,2,35) }
}
По первому примеру делайте так же и другие.
Скрипт antideop.mrc защита от деопа ( Что бы op не отобрали ao or @)
Код
menu menubar {
A N T I D E O P:/adeop
}
dialog adeop {
size 280 180 240 180
title "A N T I D E O P"
box "Опции", 1, 10 10 220 130
check "Вкл", 2, 25 30 70 15
radio "предупредить, при повторе кик/бан", 3, 15 50 205 15, disable
radio "кик", 4, 15 70 140 15, disable
radio "кик/бан", 5, 15 90 120 15, disable
text "Сообщение:", 6, 14 110 60 15
edit "", 7, 75 107 150 20
button "Применить", 8, 15 150 65 20, disable
button "Отмена", 9, 95 150 50 20, cancel
button "Выход", 10, 175 150 50 20, ok
text "", 17, 330 95 80 15
}
alias adeop dialog -m adeop adeop
on *:dialog:adeop:*:*:{
if $devent == sclick {
if $did == 2 && $did(2).state == 1 { did -e adeop 8,3,4,5 | did -n adeop 7 }
elseif $did == 2 && $did(2).state != 1 { did -b adeop 3,4,5 | did -e adeop 8 | did -m adeop 7 }
if $did == 3 { did -e adeop 8 }
if $did == 4 { did -e adeop 8 }
if $did == 5 { did -e adeop 8 }
if $did == 8 {
if $did(2).state == 1 { set %antideop on }
else { set %antideop off }
if $did(3).state == 1 { set %modea 1 }
if $did(4).state == 1 { set %modea 2 }
if $did(5).state == 1 { set %modea 3 }
if $did(7).text != $null { set %deopr $did(7).text }
elseif $did(7).text == $null { set %deopr ANTIDEOP
}
did -b adeop 8
}
if $did == 12 { did -e adeop 8 }
}
if $devent == edit { did -e adeop 8 }
if $devent == init {
if %antideop == off { did -m adeop 7 }
else {
did -e adeop 3,4,5
did -c adeop 2
}
if %deopr == $null { did -a adeop 7 ANTIDEOP
}
else { did -a adeop 7 %deopr }
if %modea == 1 { did -c adeop 3 }
if %modea == 2 { did -c adeop 4 }
if %modea == 3 { did -c adeop 5 }
}
}
on !*:deop:#:{
if %antideop == on {
if ($opnick == $me) {
.msg chanserv op # $me
if (%modea == 1) && ($nick != Chanserv) { if ($nick != %deoper) { .notice $nick Не деопь меня парамоша!! | .msg chanserv deop # $nick | set -u60 %deoper $nick } | else { .raw -q mode # -o+b %deoper $address(%deoper,2) | .raw -q kick # %deoper %deopr | unset %deoper } }
if (%modea == 2) && ($nick != Chanserv) { .raw -q kick # $nick %deopr }
if (%modea == 3) && ($nick != Chanserv) { .raw -q mode # -o+b $nick $nick | .raw -q kick # $nick %deopr }
}
halt
}
}
Все работает на quakenet.org еще я изменил с легка меню [lpopup]
Ну вот еще пару команд для quakenet.org будут работать точно. Для более продвинутых пользователей кто знает что я написал...
n19=Дать права через Q
n20=.Дать +ao:/msg Q CHANLEV $chan $$1 +ao
n21=.Забрать ao:/msg Q CHANLEV $chan $$1 -ao
n22=.Дать +av:/msg Q CHANLEV $chan $$1 +av
n23=.Забрать av:/msg Q CHANLEV $chan $$1 -av
n24=.Забанить +b:/msg Q CHANLEV $chan $$1 +b
Еще при нажатии на канал [cpopup] тоже немного улучшил.
n0=Информация о канале:/channel
n1=Права пользователей через Q:/msg Q CHANLEV $chan
n2=Забанить на этом канале по маске:/ban $chan $$?="Введите маску пользователя"
Пока все но очень буду рад если кто найдет более лучше скрипты на антибан деоп. Видел лучше только там шли сразу с миркой , а там скрипты спрятаны были и достать не смог.
Делитесь своими скриптами какие вы используете и тп.